9f37b47d |
1 | puts "============" |
2 | puts "CR24396" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # "vselmode" - disable auto loading of objects into Local Context |
7 | ####################################################################### |
8 | |
9 | set trihedron_axis_pick_x 29 |
10 | set trihedron_axis_pick_y 56 |
11 | |
12 | set trihedron_axis_check_x 29 |
13 | set trihedron_axis_check_y 79 |
14 | |
15 | set trihedron_point_pick_x 29 |
16 | set trihedron_point_pick_y 305 |
17 | |
18 | set trihedron_point_check_x 24 |
19 | set trihedron_point_check_y 305 |
20 | |
21 | vinit View1 |
22 | vclear |
23 | vaxo |
24 | vtrihedron tri |
25 | box b 10 10 10 |
26 | vdisplay b |
27 | vselmode b 1 1 |
28 | vfit |
29 | |
30 | # --------------------------------------------------- # |
31 | # check that there is no selection of trihedron axis # |
32 | # --------------------------------------------------- # |
33 | |
34 | vmoveto $trihedron_axis_pick_x $trihedron_axis_pick_y |
35 | |
36 | checkcolor $trihedron_axis_pick_x $trihedron_axis_pick_y 0 0 0 |
37 | |
38 | if { $stat != 1 } { |
39 | puts "Error : The trihedron should not be highlighted." |
40 | } |
41 | |
42 | vselmode b 0 0 |
43 | vselmode 0 0 |
44 | verase b |
45 | vselmode 1 1 |
46 | |
47 | # ----------------------------------------------- # |
48 | # check that selection of trihedron point is ok # |
49 | # ----------------------------------------------- # |
50 | |
51 | vmoveto $trihedron_point_pick_x $trihedron_point_pick_y |
52 | |
53 | checkcolor $trihedron_point_check_x $trihedron_point_check_y 0 1 1 |
54 | |
55 | if { $stat != 1 } { |
56 | puts "Error : The trihedron point highlight is incorrect." |
57 | } |
58 | |
59 | # --------------------------------------------------------- # |
60 | # check that there is still no selection of trihedron axis # |
61 | # --------------------------------------------------------- # |
62 | |
63 | vmoveto $trihedron_axis_pick_x $trihedron_axis_pick_y |
64 | |
65 | checkcolor $trihedron_axis_pick_x $trihedron_axis_pick_y 0 0 0 |
66 | |
67 | if { $stat != 1 } { |
68 | puts "Error : The trihedron should not be highlighted." |
69 | } |
70 | |
5747059b |
71 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |