e1c659da |
1 | puts "============" |
2 | puts "OCC23484" |
3 | puts "============" |
4 | puts "" |
5 | ############################################################################################ |
6 | puts "Visualization, TKOpenGl - primitive arrays to become the only way to render geometry" |
7 | puts "Tests wireframe trihedron rendering with primitive arrays" |
8 | ############################################################################################ |
9 | |
10 | set anImage1 $imagedir/${casename}_1.png |
11 | set anImage2 $imagedir/${casename}_2.png |
12 | |
13 | vinit View1 |
14 | vfit |
15 | vaxo |
16 | |
536d98e2 |
17 | vzbufftrihedron -scale 0.1 -type wireframe -position left_lower |
e1c659da |
18 | vdump $anImage1 |
19 | |
536d98e2 |
20 | vzbufftrihedron -scale 0.1 -type wireframe -position center |
e1c659da |
21 | vdump $anImage2 |
22 | |
23 | vclear |