puts "============"
puts "OCC27818_2"
puts "============"
puts ""
####################################################################################
# Visualization - provide an interface to define highlight presentation properties:
# test change of highlight and selection properties for particular objects
####################################################################################

pload VISUALIZATION QAcommands

vinit View1
OCC27818

vfit

vmoveto 200 200
set aPixelColor [vreadpixel 200 200 name rgba]
set aColor [lindex [split $aPixelColor { }] 0]
set aTrsp  [lindex [split $aPixelColor { }] 1]
if {$aColor != "CHOCOLATE3" && abs($aTrsp - 1.0) < 0.1} {
  puts "ERROR: dynamic highlight of 2nd box is displayed with wrong color!"
}

vdump $imagedir/${casename}_dyn.png

vselect 50 200 -xor
vselect 200 200 -xor
vselect 350 200 -xor

if {[vreadpixel 350 200 name rgba] != "RED2 1" || [vreadpixel 350 200 name rgba] == [vreadpixel 200 200 name rgba]} {
  puts "ERROR: selection highlight of 3rd box is displayed with wrong color!"
}

vdump $imagedir/${casename}_sel.png
