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 | |
8e5fb5ea |
10 | pload QAcommands VISUALIZATION |
11 | |
0d828ac8 |
12 | vinit View1 |
8e5fb5ea |
13 | OCC27818 |
14 | |
15 | vfit |
16 | |
17 | vmoveto 200 200 |
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!" |
23 | } |
24 | |
25 | vdump $imagedir/${casename}_dyn.png |
26 | |
e3d4b879 |
27 | vselect 50 200 -xor |
28 | vselect 200 200 -xor |
29 | vselect 350 200 -xor |
8e5fb5ea |
30 | |
ba00aab7 |
31 | if {[vreadpixel 350 200 name rgba] != "RED2 1" || [vreadpixel 350 200 name rgba] == [vreadpixel 200 200 name rgba]} { |
8e5fb5ea |
32 | puts "ERROR: selection highlight of 3rd box is displayed with wrong color!" |
33 | } |
34 | |
35 | vdump $imagedir/${casename}_sel.png |