tests/demo/samples/cad

   1 # test for generating funny shape
   2 source $env(CASROOT)/samples/tcl/cad.tcl
   3
   4 # check shape validity and make a snapshot
   5 checkshape res
   6 vdump $imagedir/${test_image}.png
   7
   8 puts "TEST COMPLETED"