0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug28036_1
1 puts "==========="
2 puts "OCC28036"
3 puts "Visualization, AIS_ColoredShape - handle correctly nested compounds within Shaded display mode"
4 puts "==========="
5 puts ""
6
7 pload MODELING VISUALIZATION
8 box b1 0 0 0 1 2 3
9 box b2 0 3 0 2 1 3
10 box b3 3 0 0 3 2 1
11 compound b1 b2 c12
12 compound c12 b3 c
13
14 vclear
15 vinit View1
16 vaxo
17 vdisplay -dispMode 1 c
18 vfit
19
20 vaspects c                -setColor BLUE
21 vaspects c -subshapes b1  -setColor RED
22 vaspects c -subshapes c12 -setColor GREEN
23
24 if { [vreadpixel 100 100 rgb name] != "RED2"   } { puts "Error: wrong subshape color" }
25 if { [vreadpixel 200 100 rgb name] != "GREEN2" } { puts "Error: wrong subshape color" }
26 if { [vreadpixel 200 300 rgb name] != "BLUE2"  } { puts "Error: wrong subshape color" }
27
28 vdump $imagedir/${casename}.png