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" != "TURQUOISE3" } { puts "Error: Wrong dynamic highlight color" }