| 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 1 rgba] == [vreadpixel 200 200 1 rgba]} { |
| 33 | puts "ERROR: selection highlight of 3rd box is displayed with wrong color!" |
| 34 | } |
| 35 | |
| 36 | vdump $imagedir/${casename}_sel.png |