# test for creation of drill shape source $env(CSF_OCCTSamplesPath)/tcl/drill.tcl # make a snapshot vdump $imagedir/${test_image}.png puts "TEST COMPLETED"