d33222c1 |
1 | puts "========" |
2 | puts "Point cloud object from triangulated sphere" |
3 | puts "========" |
4 | |
5 | # create sphere |
6 | sphere ss 10 |
7 | mkface s ss |
8 | incmesh s 0.01 |
9 | |
10 | # draw sphere |
11 | vinit View1 |
12 | vclear |
13 | vsetdispmode 1 |
14 | vaxo |
15 | vpointcloud p s -nonormals |
16 | vaspects p -setcolor GREEN |
17 | vfit |
18 | vrotate 0.2 0.0 0.0 |
19 | vdump $::imagedir/${::casename}_green.png |
20 | |
21 | # random colors mode |
22 | vpointcloud p s -randcolors |
23 | vdump $::imagedir/${::casename}_rand.png |
24 | |
25 | # mode with normals |
26 | vpointcloud p s -normals |
27 | vsetmaterial p COPPER |
28 | vdump $::imagedir/${::casename}_copper.png |
29 | |
30 | vmoveto 200 200 |