0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug27945
1 puts "==========="
2 puts "OCC27945"
3 puts "Visualization - handle correctly view clipping planes within zoom-persistent objects"
4 puts "==========="
5 puts ""
6
7 pload MODELING VISUALIZATION
8
9 box b 3 1 2
10 box z000 50 40 30
11 box z010 50 40 30
12 box z002 50 40 30
13 box z012 50 40 30
14 box z300 50 40 30
15 box z302 50 40 30
16 box z310 50 40 30
17 box z312 50 40 30
18 box r1 0.2 0.1 0.1
19 box r2 0.2 0.1 0.1
20
21 vclear
22 vinit View1
23 vaxo
24 vzbufftrihedron
25 vdisplay -dispMode 1 b
26
27 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 0 0 z000
28 vsetlocation z000 -25 -20 -15
29 vdrawtext    t000 "000\n" -pos 0 0 0 -color RED -halign right
30
31 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 1 0 z010
32 vsetlocation z010 -25 -20 -15
33 vdrawtext    t010 "010\n" -pos 0 1 0 -color RED -halign right
34
35 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 0 2 z002
36 vsetlocation z002 -25 -20 -15
37 vdrawtext    t002 "002\n" -pos 0 0 2 -color RED -halign right
38
39 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 0 1 2 z012
40 vsetlocation z012 -25 -20 -15
41 vdrawtext    t012 "012\n" -pos 0 1 2 -color RED -halign right
42
43 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 0 0 z300
44 vsetlocation z300 -25 -20 -15
45 vdrawtext    t300 "300\n" -pos 3 0 0 -color RED -halign left
46
47 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 0 2 z302
48 vsetlocation z302 -25 -20 -15
49 vdrawtext    t302 "302\n" -pos 3 0 2 -color RED -halign left
50
51 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 1 0 z310
52 vsetlocation z310 -25 -20 -15
53 vdrawtext    t310 "310\n" -pos 3 1 0 -color RED -halign left
54
55 vdisplay -noupdate -dispMode 1 -trsfPers zoom -trsfPersPos 3 1 2 z312
56 vsetlocation z312 -25 -20 -15
57 vdrawtext    t312 "312\n" -pos 3 1 2 -color RED -halign left
58
59 vdisplay -noupdate -dispMode 1 -trsfPers rotate -trsfPersPos -1 1 2 r1
60 vdisplay -noupdate -dispMode 1 -trsfPers rotate -trsfPersPos  4 1 2 r2
61
62 vfit
63 vrotate 0.1 0 0
64
65 vclipplane pln -equation -1 0 0 2 -set
66
67 set aColor1 [vreadpixel 320 160 rgb name]
68 set aColor2 [vreadpixel 80  250 rgb name]
69 if { "$aColor1" != "BLACK"         } { puts "Error: zoom-persistent object is not clipped" }
70 if { "$aColor2" != "DARKGOLDENROD" } { puts "Error: zoom-persistent object is clipped" }
71
72 vdump $imagedir/${casename}.png