mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
31 lines
534 B
Plaintext
31 lines
534 B
Plaintext
puts "========"
|
|
puts "Point cloud object from triangulated sphere"
|
|
puts "========"
|
|
|
|
# create sphere
|
|
sphere ss 10
|
|
mkface s ss
|
|
incmesh s 0.01
|
|
|
|
# draw sphere
|
|
vinit View1
|
|
vclear
|
|
vsetdispmode 1
|
|
vaxo
|
|
vpointcloud p s -nonormals
|
|
vaspects p -setcolor GREEN
|
|
vfit
|
|
vrotate 0.2 0.0 0.0
|
|
vdump $::imagedir/${::casename}_green.png
|
|
|
|
# random colors mode
|
|
vpointcloud p s -randcolors
|
|
vdump $::imagedir/${::casename}_rand.png
|
|
|
|
# mode with normals
|
|
vpointcloud p s -normals
|
|
vsetmaterial p COPPER
|
|
vdump $::imagedir/${::casename}_copper.png
|
|
|
|
vmoveto 200 200
|