0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug27797
1 puts "========"
2 puts "Consider ZLayer properties while sorting list of picked entities"
3 puts "========"
4
5 pload MODELING VISUALIZATION
6
7 box b1 0 0 0 2 3 4
8 box b2 0 0 0 1 1 2
9 vertex v 100 -300 0
10
11 vclear
12 vinit View1
13 catch { vzlayer del 1 }
14 set aLayerId [vzlayer add]
15 vzlayer ${aLayerId} -enable depthClear
16 vaxo
17 vdisplay -noupdate -dispMode 1 -highMode 1 b1
18 vdisplay -noupdate -dispMode 1 -highMode 1 -layer ${aLayerId} b2
19 vsetcolor -noupdate b1 RED
20 vsetcolor -noupdate b2 GREEN
21 vfit
22 vrotate 0.1 0 0
23 vmoveto 100 300
24 vstate
25 vselect 100 300
26 vmoveto 0 0
27
28 set aSelColor [vreadpixel 100 300 rgb name]
29 if { $aSelColor != "GRAY76"} { puts "Error: wrong object has been selected" }
30
31 vdisplay -dispMode 0 -osd -2d -trsfPersPos -1 1 v
32
33 vdump $imagedir/${casename}.png