0032237: Visualization, TKOpenGl - fix Gouraud shading within perspective camera...
[occt.git] / tests / bugs / vis / bug31794
CommitLineData
19ed08fd 1puts "============"
2puts "0031794: Visualization - Highlighting of AIS_Shape works incorrectly when AddChild() used"
3puts "============"
4puts ""
5
6pload MODELING VISUALIZATION
7vinit View1
8box b 10 10 10
9box p1 -100 -100 0 200 200 0 -preview
10box p2 100 -100 0 200 200 0 -preview
11vdisplay b -dispMode 1
12vdisplay p1 p2 -dispMode 1 -highMode 1
13vfit
14vselmode b 0 0
15verase p1
16vchild b -add p1
17vchild b -add p2
18vselmode b 0 1
19vmoveto 100 200
20if {[vreadpixel 100 200 -rgb -name] != "BLACK"} { puts "Error" }
21
22vdump ${imagedir}/${casename}.png