9f3c000fc412212e9ff89c5cf426b8916b4fb48c
[occt.git] / tests / v3d / materials / bug27617
1 puts "========"
2 puts "OCC27617: Visualization, TKOpenGl - apply highlighting color without disabling lighting"
3 puts "========"
4
5 pload MODELING VISUALIZATION
6 box b 1 2 3
7 vclear
8 vinit View1
9 vdisplay -highMode 1 -dispMode 1 b
10 vaxo
11 vfit
12 vrotate 1 0 0
13 vfit
14 vmoveto 250 150
15 set aColor [vreadpixel 200 150 name rgb]
16 if { "$aColor" != "TURQUOISE4" } {
17   puts "Error: Wrong dynamic highlight color"
18 }