5 ####################################################################################
6 # Visualization - provide an interface to define highlight presentation properties:
7 # test change of highlight and selection properties for particular objects
8 ####################################################################################
10 pload QAcommands VISUALIZATION
18 set aPixelColor [vreadpixel 200 200 name rgba]
19 set aColor [lindex [split $aPixelColor { }] 0]
20 set aTrsp [lindex [split $aPixelColor { }] 1]
21 if {$aColor != "CHOCOLATE3" && abs($aTrsp - 1.0) < 0.1} {
22 puts "ERROR: dynamic highlight of 2nd box is displayed with wrong color!"
25 vdump $imagedir/${casename}_dyn.png
31 if {[vreadpixel 350 200 name rgba] != "RED2 1" || [vreadpixel 350 200 name rgba] == [vreadpixel 200 200 name rgba]} {
32 puts "ERROR: selection highlight of 3rd box is displayed with wrong color!"
35 vdump $imagedir/${casename}_sel.png