projects
/
occt.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
0025570: New Tcl sample scripts created for CAD Assistant
[occt.git]
/
tests
/
demo
/
samples
/
snowflake
diff --git a/tests/demo/samples/snowflake
b/tests/demo/samples/snowflake
new file mode 100644
(file)
index 0000000..
8a977da
--- /dev/null
+++ b/
tests/demo/samples/snowflake
@@ -0,0
+1,7
@@
+# test for generating funny shape
+source $env(CASROOT)/samples/tcl/snowflake.tcl
+
+# make a snapshot
+vdump $imagedir/${test_image}.png
+
+puts "TEST COMPLETED"