6fcb77aa |
1 | puts "============" |
2 | puts "OCC21757" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Funny (giraffe-like) shading of torus meshed with specific parameters (WNT) |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC21757 |
10 | |
11 | vinit |
12 | vsetdispmode 1 |
13 | vclear |
14 | |
15 | # variant 2: alternative implicit method of setting deflection |
16 | plane pl2 0 0 200 0 0 1 |
17 | ptorus result pl2 200 50 45 |
18 | vdisplay result |
19 | vsetshading result 0.0004 |
20 | vfit |
21 | checkcolor 200 200 0.89 0.63 0.109 |
22 | |
23 | set only_screen 1 |