0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / vis / bug25459_coloredshape
1 puts "========"
2 puts "OCC25459 AIS_ColoredShape::SetMaterial() should not reset custom colors"
3 puts "========"
4
5 box b 0 0 0 1 2 3
6
7 # prepare view
8 vclear
9 vinit View1
10 vglinfo
11 vaxo
12 vdisplay -dispMode 1 b
13 vfit
14
15 # customize object
16 explode b F
17 vaspects b -subshapes b_3 -setcolor RED
18 vaspects b -setmaterial PLASTIC
19
20 # validate results
21 if { [vreadpixel 128 256 -rgb -name] != "RED4"} { puts "Error: wrong Face color" }