\feff0025129: Visualization - add interactive object for Points Cloud objects
[occt.git] / 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