tests/v3d/materials/bug27818_2

   1 puts "============"
   2 puts "OCC27818_2"
   3 puts "============"
   4 puts ""
   5 ####################################################################################
   6 # Visualization - provide an interface to define highlight presentation properties:
   7 # test change of highlight and selection properties for particular objects
   8 ####################################################################################
   9
  10
  11 pload QAcommands VISUALIZATION
  12
  13 vinit
  14 OCC27818
  15
  16 vfit
  17
  18 vmoveto 200 200
  19 set aPixelColor [vreadpixel 200 200 name rgba]
  20 set aColor [lindex [split $aPixelColor { }] 0]
  21 set aTrsp  [lindex [split $aPixelColor { }] 1]
  22 if {$aColor != "CHOCOLATE3" && abs($aTrsp - 1.0) < 0.1} {
  23   puts "ERROR: dynamic highlight of 2nd box is displayed with wrong color!"
  24 }
  25
  26 vdump $imagedir/${casename}_dyn.png
  27
  28 vselect 50 200 1
  29 vselect 200 200 1
  30 vselect 350 200 1
  31
  32 if {[vreadpixel 350 200 name rgba] != "RED3 1" || [vreadpixel 350 200 name rgba] == [vreadpixel 200 200 name rgba]} {
  33   puts "ERROR: selection highlight of 3rd box is displayed with wrong color!"
  34 }
  35
  36 vdump $imagedir/${casename}_sel.png