0025236: Sample DRAW script to demonstrate XDE features
[occt.git] / tests / demo / samples / cad
diff --git a/tests/demo/samples/cad b/tests/demo/samples/cad
new file mode 100644 (file)
index 0000000..a2ec5f6
--- /dev/null
@@ -0,0 +1,8 @@
+# test for generating funny shape 
+source $env(CASROOT)/samples/tcl/cad.tcl
+
+# check shape validity and make a snapshot
+checkshape res
+vdump $imagedir/${test_image}.png
+
+puts "TEST COMPLETED"