0032237: Visualization, TKOpenGl - fix Gouraud shading within perspective camera...
[occt.git] / tests / bugs / vis / bug25695
CommitLineData
f838dac4 1puts "==========="
2puts "OCC25695"
3puts "Visualization, AIS_InteractiveContext - define default HilightMode"
4puts "==========="
5puts ""
6
7# display a sphere
8pload MODELING VISUALIZATION
9psphere s 1
10
11vclear
12vinit View1
13vdisplay -dispMode 1 s
14vfit
15
16# setup dynamic highlighting style
17vselprops dynHighlight -dispMode -1 -transp 0.5 -material PLASTIC
18vmoveto 250 250
19
ba00aab7 20if { [vreadpixel 250 250 rgb name] != "GRAY58" } { puts "Error: wrong highlighting color" }
f838dac4 21
22vdump $imagedir/${casename}.png