tests/demo/samples/pencil

   1 # test for generating funny shape
   2 source $env(CSF_OCCTSamplesPath)/tcl/pencil.tcl
   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"