tests/v3d/point_cloud/sphere

   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 # texture mapping
  26 vpointcloud p s -normals -uv
  27 vtexture p 0
  28 vaspects p -shadingModel GOURAUD
  29 vdump $::imagedir/${::casename}_tex3.png
  30 vaspects p -shadingModel PHONG
  31 vdump $::imagedir/${::casename}_tex2.png
  32 vaspects p -shadingModel UNLIT
  33 vdump $::imagedir/${::casename}_tex1.png
  34
  35 # mode with normals
  36 vpointcloud p s -normals
  37 vsetmaterial p COPPER
  38 vdump $::imagedir/${::casename}_copper.png
  39
  40 vmoveto 200 200