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