1puts "========" 2puts "Point cloud object from triangulated sphere" 3puts "========" 4 5pload MODELING VISUALIZATION 6 7# create sphere 8sphere ss 10 9mkface s ss 10incmesh s 0.01 11 12# draw sphere 13vinit View1 14vclear 15vsetdispmode 1 16vaxo 17vpointcloud p s -nonormals 18vaspects p -setcolor GREEN 19vfit 20vrotate 0.2 0.0 0.0 21vdump $::imagedir/${::casename}_green.png 22 23# random colors mode 24vpointcloud p s -randcolors 25vdump $::imagedir/${::casename}_rand.png 26 27# texture mapping 28vpointcloud p s -normals -uv 29vtexture p 0 30vaspects p -shadingModel GOURAUD 31vdump $::imagedir/${::casename}_tex3.png 32vaspects p -shadingModel PHONG 33vdump $::imagedir/${::casename}_tex2.png 34vaspects p -shadingModel UNLIT 35vdump $::imagedir/${::casename}_tex1.png 36 37# mode with normals 38vpointcloud p s -normals 39vsetmaterial p COPPER 40vdump $::imagedir/${::casename}_copper.png 41 42vmoveto 200 200 43vdump $imagedir/${casename}.png 44