0032722: Visualization, TKOpenGl - performance counters disappear at some camera...
[occt.git] / tests / v3d / materials / bug27818_2
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 pload QAcommands VISUALIZATION
11
12 vinit View1
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
27 vselect 50 200 -xor
28 vselect 200 200 -xor
29 vselect 350 200 -xor
30
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!"
33 }
34
35 vdump $imagedir/${casename}_sel.png