Commit | Line | Data |
---|---|---|
e0608a8d | 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 | vinit View1 | |
9 | vclear | |
10 | vglinfo | |
11 | vsetdispmode 1 | |
12 | vaxo | |
13 | vdisplay b | |
14 | vfit | |
15 | ||
16 | # customize object | |
17 | explode b F | |
18 | vaspects b -subshapes b_3 -setcolor RED | |
19 | vaspects b -setmaterial PLASTIC | |
20 | ||
21 | # validate results | |
22 | set aFaceColor [vreadpixel 128 256 rgb name] | |
23 | if {"$aFaceColor" != "RED4"} { | |
24 | puts "Error: wrong Face color" | |
25 | } |