5 ####################################################################################
6 # Visualization - provide an interface to define highlight presentation properties:
7 # test change of highlight and selection properties for particular objects
8 ####################################################################################
11 pload QAcommands VISUALIZATION
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!"
26 vdump $imagedir/${casename}_dyn.png
32 if {[vreadpixel 350 200 name rgba] != "RED2 1" || [vreadpixel 350 200 name rgba] == [vreadpixel 200 200 name rgba]} {
33 puts "ERROR: selection highlight of 3rd box is displayed with wrong color!"
36 vdump $imagedir/${casename}_sel.png