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