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 # mode with normals
  26 vpointcloud p s -normals
  27 vsetmaterial p COPPER
  28 vdump $::imagedir/${::casename}_copper.png
  29
  30 vmoveto 200 200