0026641: Visualization, TKOpenGl - handle correctly transformation persistence within...
[occt.git] / tests / bugs / vis / bug26344
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
14 box b1 25 25 25
15 box b2 25 25 25
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
25 vsetlocation b2 -25 -25 -25
26
27 vmoveto 387 77
28 if { ![checkcolor 387 77 0 1 1] } {
29   puts "Error picking zoom persistence object"
30 }
31
32 vmoveto 352 96
33 if { ![checkcolor 352 96 0 1 1] } {
34   puts "Error picking zoom persistent object with location"
35 }
36
37 vselect 330 120 400 50
38
39 if { ![checkcolor 387 77 0.8 0.8 0.8] || ![checkcolor 352 96 0.8 0.8 0.8] } {
40   puts "Error selecting zoom persistence object(s)"
41 }
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
69 vmoveto 132 300
70 if { ![checkcolor 132 300 0 1 1] } {
71   puts "Error picking trihedron persistence object"
72 }
73 vselect 50 223 235 395
74 if { ![checkcolor 132 300 0.8 0.8 0.8] } {
75   puts "Error selecting trihedron persistence object"
76 }
77
78 vselect 50 380 400 50
79
80 checkview -screenshot -3d -path ${imagedir}/${test_image}.png