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

puts "TODO ?OCC24130 Windows: TKOpenGl | Type\: Error | ID\: 0 | Severity\: High | Message\:"

# test for creation of bottle as in tutorial (script is in samples)
source $env(CASROOT)/samples/tcl/bottle.tcl

# check result for validity and make a snapshot
checkshape bottle
vdump $imagedir/${test_image}.png

puts "TEST COMPLETED"
Commit	Line	Data
38962ba6	1	puts "TODO ?OCC24130 Windows: TKOpenGl \| Type\: Error \| ID\: 0 \| Severity\: High \| Message\:"
38962ba6	2
40093367	3	# test for creation of bottle as in tutorial (script is in samples)
	4	source $env(CASROOT)/samples/tcl/bottle.tcl
	5
	6	# check result for validity and make a snapshot
	7	checkshape bottle
	8	vdump $imagedir/${test_image}.png
	9
	10	puts "TEST COMPLETED"