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 vcaps -ffp 1
  12 vinit View1
  13 vclear
  14 vsetdispmode 1
  15 vaxo
  16 vpointcloud p s -nonormals
  17 vaspects p -setcolor GREEN
  18 vfit
  19 vrotate 0.2 0.0 0.0
  20 vdump $::imagedir/${::casename}_green.png
  21
  22 # random colors mode
  23 vpointcloud p s -randcolors
  24 vdump $::imagedir/${::casename}_rand.png
  25
  26 # mode with normals
  27 vpointcloud p s -normals
  28 vsetmaterial p COPPER
  29 vdump $::imagedir/${::casename}_copper.png
  30
  31 vmoveto 200 200