0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug25552
1 puts "============"
2 puts "CR25552"
3 puts "Provide the way to hide objects within different Views of the one Viewer"
4 puts "============"
5 puts ""
6
7 set aSubShapeTriang $imagedir/${casename}_subshape_triangulation.png
8 set aShapeTriang $imagedir/${casename}_shape_triangulation.png
9 set aDiff $imagedir/${casename}_diff.png
10
11 vclear
12 vinit View1
13 vaxo
14 vsetdispmode 1
15
16 vinit View2
17 vclear
18 vaxo
19 vsetdispmode 1
20
21 box b1 0 0 0 1 2 3
22 box b2 3 0 0 2 3 1
23 box b3 0 3 0 2 3 1
24
25 vdisplay b1 b3
26 # b2 should be displayed only in View2, but not in View1
27 vdisplay -inview b2
28 #vdisplay b2
29 vaspects -noupdate b1 -setcolor RED
30 vaspects -noupdate b2 -setcolor GREEN
31 vfit
32 # b1 should be displayed only in View1
33 verase -inview b1
34 vmoveto 250 347
35
36 set aColorV2B1 [vreadpixel  50 250 rgb name]
37 if { $aColorV2B1 != "BLACK" } { puts "Error: box b1 (red) should NOT be visible in View2!" }
38
39 set aColorV2B2 [vreadpixel 200 350 rgb name]
40 if { $aColorV2B2 != "GREEN2" } { puts "Error: box b2 (green) should be visible in View2!" }
41
42 set aColorV2B3 [vreadpixel 250 200 rgb name]
43 if { $aColorV2B3 != "DARKGOLDENROD" } { puts "Error: box b3 (goldenrod) should be visible in View2!" }
44 vdump $imagedir/${casename}_v2.png
45
46 vactivate View1
47 vfit
48 set aColorV1B1 [vreadpixel  50 250 rgb name]
49 if { $aColorV1B1 != "RED2" } { puts "Error: box b1 (red) should be visible in View1!" }
50
51 set aColorV1B2 [vreadpixel 200 350 rgb name]
52 if { $aColorV1B2 != "BLACK" } { puts "Error: box b2 (green) should NOT be visible in View1!" }
53
54 set aColorV1B3 [vreadpixel 250 200 rgb name]
55 if { $aColorV1B3 != "DARKGOLDENROD" } { puts "Error: box b3 (goldenrod) should be visible in View1!" }
56 vdump $imagedir/${casename}_v1.png