0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug113
1 puts "================"
2 puts "OCC113"
3 puts "BUC60978"
4 puts "================"
5 puts ""
6
7 # Data
8 set X_01 29
9 set Y_01 170
10
11 set X_02 204
12 set Y_02 300
13
14 set scale    60.6309
15 set proj_X   0.479541
16 set proj_Y   0.586729
17 set proj_Z   0.652525
18 set up_X     -0.838029
19 set up_Y     0.0856396
20 set up_Z     0.538863
21 set at_X     3.61568258316782
22 set at_Y     3.30626448080767
23 set at_Z     3.11631746104816
24
25 # Display two face
26 vinit
27 box b 10 10 10
28 explode b f
29 vdisplay b_1
30 vdisplay b_2
31 vfit
32
33 # Check face color
34 checkcolor ${X_01} ${Y_01} 0 1 0 
35 checkcolor ${X_02} ${Y_02} 0 1 0
36
37 # Select faces
38 vchangeselected b_1
39 vchangeselected b_2
40
41 # Check face color
42 checkcolor ${X_01} ${Y_01} 0.8 0.8 0.8
43
44 checkcolor ${X_02} ${Y_02} 0.8 0.8 0.8
45
46 # Hilight face
47 vmoveto ${X_01} ${Y_01}
48
49 # Check face color
50 vselect 10 10
51 vmoveto ${X_01} ${Y_01}
52 checkcolor ${X_01} ${Y_01} 0 1 1
53
54 vmoveto ${X_02} ${Y_02}
55 checkcolor ${X_02} ${Y_02} 0 1 1
56
57 # Rotation
58 vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z}
59
60 checkview -screenshot -3d -path ${imagedir}/${test_image}.png