0025570: New Tcl sample scripts created for CAD Assistant
[occt.git] / tests / demo / samples / snowflake
CommitLineData
92ac0eb7 1# test for generating funny shape
2source $env(CASROOT)/samples/tcl/snowflake.tcl
3
4# make a snapshot
5vdump $imagedir/${test_image}.png
6
7puts "TEST COMPLETED"