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