825aa485 |
1 | puts "============" |
2 | puts "CR26344" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | ########################################################################################## |
7 | puts "Visualization - provide a support of zoom persistent selection" |
8 | ########################################################################################## |
9 | |
10 | vinit View1 w=409 h=409 |
11 | vtrihedron tri |
12 | vpan 50 50 |
13 | |
91d96372 |
14 | box b1 25 25 25 |
15 | box b2 25 25 25 |
825aa485 |
16 | box b3 100 100 100 |
17 | box b4 100 100 100 |
18 | box b5 100 100 100 |
19 | |
20 | # 1) Zoom persistence |
21 | vpoint p1 200 200 200 |
22 | |
23 | vdisplay b1 -trsfPers zoom -trsfPersPos 200 200 200 |
24 | vdisplay b2 -trsfPers zoom -trsfPersPos 200 200 200 |
91d96372 |
25 | vsetlocation b2 -25 -25 -25 |
825aa485 |
26 | |
1d92133e |
27 | vmoveto 387 77 |
28 | if { ![checkcolor 387 77 0 1 1] } { |
825aa485 |
29 | puts "Error picking zoom persistence object" |
30 | } |
31 | |
1d92133e |
32 | vmoveto 352 96 |
33 | if { ![checkcolor 352 96 0 1 1] } { |
825aa485 |
34 | puts "Error picking zoom persistent object with location" |
35 | } |
36 | |
37 | vselect 330 120 400 50 |
38 | |
1d92133e |
39 | if { ![checkcolor 387 77 0.8 0.8 0.8] || ![checkcolor 352 96 0.8 0.8 0.8] } { |
825aa485 |
40 | puts "Error selecting zoom persistence object(s)" |
41 | } |
825aa485 |
42 | # 2) Rotate persistence |
43 | |
44 | vdisplay b3 -trsfPers rotate -trsfPersPos -200 -200 -200 |
45 | vmoveto 160 200 |
46 | if { ![checkcolor 160 180 0 1 1] } { |
47 | puts "Error picking rotate persistence object" |
48 | } |
49 | vselect 130 230 190 170 |
50 | if { ![checkcolor 160 180 0.8 0.8 0.8] } { |
51 | puts "Error selecting rotate persistence object" |
52 | } |
53 | |
54 | # 3) Pan persistence |
55 | |
56 | vdisplay b4 -trsfPers pan |
57 | vmoveto 233 188 |
58 | if { ![checkcolor 233 188 0 1 1] } { |
59 | puts "Error picking pan persistence object" |
60 | } |
61 | vselect 200 230 270 140 |
62 | if { ![checkcolor 233 188 0.8 0.8 0.8] } { |
63 | puts "Error selecting pan persistence object" |
64 | } |
65 | |
66 | # 4) Trihedron persistence |
67 | |
68 | vdisplay b5 -trsfPers trihedron -trsfPersPos -1 -1 300 |
1d92133e |
69 | vmoveto 132 300 |
70 | if { ![checkcolor 132 300 0 1 1] } { |
825aa485 |
71 | puts "Error picking trihedron persistence object" |
72 | } |
1d92133e |
73 | vselect 50 223 235 395 |
74 | if { ![checkcolor 132 300 0.8 0.8 0.8] } { |
825aa485 |
75 | puts "Error selecting trihedron persistence object" |
76 | } |
77 | |
78 | vselect 50 380 400 50 |
79 | |
5747059b |
80 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |