[occt.git] / tests / demo / samples / pencil

# test for generating funny shape 
source $env(CSF_OCCTSamplesPath)/tcl/pencil.tcl

# check shape validity and make a snapshot
XGetOneShape res D
checkshape res
vdump $imagedir/${test_image}.png

puts "TEST COMPLETED"
Commit	Line	Data
92ac0eb7	1	# test for generating funny shape
4b3541c6	2	source $env(CSF_OCCTSamplesPath)/tcl/pencil.tcl
92ac0eb7	3
	4	# check shape validity and make a snapshot
	5	XGetOneShape res D
	6	checkshape res
	7	vdump $imagedir/${test_image}.png
	8
	9	puts "TEST COMPLETED"