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