Increment OCCT version up to 7.4.0
[occt.git] / tests / bugs / vis / bug26014
CommitLineData
306f5893 1puts "============"
2puts "CR26014"
3puts "Check that the colored shading shape doesn't have a shading presentation"
4puts "due to its triangulation isn't computed in case of disabled auto triangulation feature."
5puts "But in this case the shape should have special wireframe presentation."
6puts "============"
7puts ""
8
9vinit View1
10vclear
11vaxo
12vsetdispmode 1
13vdefaults -autoTriang off
14pcone c 0 5 10
15vdisplay c
16vfit
17
18explode c F
19vaspects c -subshapes c_2 -setcolor RED
20
21set aColorWireframe [vreadpixel 200 31 rgb name]
22set aColorShaded [vreadpixel 180 60 rgb name]
23
24vdump $imagedir/${casename}_shape_pres.png
25
26if {"$aColorWireframe" != "RED" || "$aColorShaded" != "BLACK"} {
27 puts "Error: presentation of shape is incorrect"
28}