0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug26344
1 puts "============"
2 puts "0026344: Visualization - provide a support of zoom persistent selection"
3 puts "============"
4 puts ""
5
6 vclear
7 vclose ALL
8 vinit View1 w=409 h=409
9 vtrihedron tri
10 vpan 50 50
11
12 box bz1 25 25 25
13 box bz2 25 25 25
14 box br 100 100 100
15 box bzr 50 25 20
16 box bt 100 100 100
17
18 # 1) Zoom persistence
19 vpoint pz 200 200 200
20
21 vdisplay bz1 -dispMode 1 -highMode 1 -trsfPers zoom -trsfPersPos 200 200 200
22 vdisplay bz2 -dispMode 1 -highMode 1 -trsfPers zoom -trsfPersPos 200 200 200
23 vsetlocation bz2 -25 -25 -25
24
25 vselect 0 0
26 vselect 387 77
27 if { [vreadpixel 387 77 rgb name] != "GRAY73" } { puts "Error picking zoom persistence object(s)" }
28
29 vselect 0 0
30 vselect 330 120 410 50
31 if { [vreadpixel 387 77 rgb name] != "GRAY73" || [vreadpixel 352 96 rgb name] != "GRAY73" } { puts "Error selecting zoom persistence object(s)" }
32
33 # 2) Rotate persistence
34
35 vpoint pr -200 -200 -200
36 vdisplay br -dispMode 1 -highMode 1 -trsfPers rotate -trsfPersPos -200 -200 -200
37 vsetmaterial br PLASTIC
38 vselect 0 0
39 vselect 160 200
40 if { [vreadpixel 160 180 rgb name] != "GRAY89" } { puts "Error picking rotate persistence object" }
41
42 vselect 0 0
43 vselect 130 230 190 170
44 if { [vreadpixel 160 180 rgb name] != "GRAY89" } { puts "Error selecting rotate persistence object" }
45
46 # 3) Zoom + Rotate persistence
47
48 vpoint pzr -200 100 0
49 vdisplay bzr -dispMode 1 -highMode 1 -trsfPers zoomRotate -trsfPersPos -200 100 0
50
51 vsetmaterial bzr PLASTIC
52 vselect 0 0
53 vselect 250 90
54 if { [vreadpixel 250 90 rgb name] != "GRAY89" } { puts "Error picking zoom-rotate persistence object" }
55 vselect 0 0
56 vselect 200 70 286 110
57 if { [vreadpixel 250 90 rgb name] != "GRAY89" } { puts "Error selecting zoom-rotate persistence object" }
58
59 # 4) Trihedron persistence
60
61 vdisplay bt -dispMode 1 -highMode 1 -trsfPers trihedron -trsfPersPos -1 -1 62
62 vselect 0 0
63 vselect 132 300
64 if { [vreadpixel 132 300 rgb name] != "GRAY73" } { puts "Error picking trihedron persistence object" }
65 vselect 0 0
66 vselect 50 223 235 395
67 if { [vreadpixel 132 300 rgb name] != "GRAY73" } { puts "Error selecting trihedron persistence object" }
68
69 vselect 50 410 410 50
70 vstate -entities
71
72 checkview -screenshot -3d -path ${imagedir}/${test_image}.png