0029768: Visualization, TKOpenGl - structure is entirely clipped by suppressed clipping
[occt.git] / tests / bugs / vis / bug25459_coloredshape
CommitLineData
e0608a8d 1puts "========"
2puts "OCC25459 AIS_ColoredShape::SetMaterial() should not reset custom colors"
3puts "========"
4
5box b 0 0 0 1 2 3
6
7# prepare view
8vinit View1
9vclear
10vglinfo
11vsetdispmode 1
12vaxo
13vdisplay b
14vfit
15
16# customize object
17explode b F
18vaspects b -subshapes b_3 -setcolor RED
19vaspects b -setmaterial PLASTIC
20
21# validate results
22set aFaceColor [vreadpixel 128 256 rgb name]
23if {"$aFaceColor" != "RED4"} {
24 puts "Error: wrong Face color"
25}