# 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"