4c513386 |
1 | puts "============" |
2 | puts "CR23200" |
3 | puts "Check that the shape doesn't have a shading presentation" |
4 | puts "due to its triangulation isn't computed in case of disabled auto triangulation feature." |
5 | puts "But in this case the shape should have special wireframe presentation." |
6 | puts "============" |
7 | puts "" |
8 | |
9 | vinit View1 |
10 | vclear |
11 | vaxo |
12 | vsetdispmode 1 |
13 | vdefaults -autoTriang off |
14 | pcone c 0 5 10 |
15 | vdisplay c |
16 | vfit |
17 | |
18 | set aColor [vreadpixel 200 77 rgb name] |
19 | vdump $imagedir/${casename}_shape_pres.png |
20 | |
21 | if {"$aColor" != "GRAY75"} { |
22 | puts "Error: shading presentation of shape is incorrect" |
23 | } |