mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
be3752526f
OpenGl_Caps - flag ffpEnable is now initialized to false on desktop OpenGL. OpenGl_Context::init() - now prints error if OpenGL version does not support GLSL and switches OpenGl_Caps::ffpEnable to true. update test cases
32 lines
547 B
Plaintext
32 lines
547 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
|
|
vcaps -ffp 1
|
|
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
|