[occt.git] / tests / v3d / point_cloud / sphere

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
Commit	Line	Data
d33222c1	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