# test for creation of cutter shape
source $env(CASROOT)/samples/tcl/cutter.tcl

# make a snapshot
vdump $imagedir/${test_image}.png

puts "TEST COMPLETED"