0025236: Sample DRAW script to demonstrate XDE features
authorabv <abv@opencascade.com>
Fri, 12 Sep 2014 07:07:56 +0000 (11:07 +0400)
committerbugmaster <bugmaster@opencascade.com>
Thu, 18 Sep 2014 10:30:08 +0000 (14:30 +0400)
New sample added for XDE; test cases added for this and some other samples; description of Tcl samples in Overview updated

dox/overview/overview.md
samples/tcl/cad.tcl [moved from samples/tcl/challenge.tcl with 94% similarity, mode: 0644]
samples/tcl/raytrace.tcl
samples/tcl/xde.tcl [new file with mode: 0644]
tests/demo/samples/bottle
tests/demo/samples/cad [new file with mode: 0644]
tests/demo/samples/cutter [new file with mode: 0644]
tests/demo/samples/drill [new file with mode: 0644]
tests/demo/samples/materials [new file with mode: 0644]
tests/demo/samples/xde [new file with mode: 0644]

index a350685..899aca2 100644 (file)
@@ -512,11 +512,14 @@ Type pload ALL
   * DataExchangeDemo.tcl: demonstrates sample sequence of operations with writing and reading IGES file
   * ModelingDemo.tcl: demonstrates creation of simple shape and displaying it in HLR mode
   * VisualizationDemo.tcl: demonstrates use of 3d viewer
-  * challenge.tcl: creates solid shape looking like abbreviation "CAD"
+  * cad.tcl: creates solid shape looking like abbreviation "CAD"
   * bottle.tcl: creates bottle as in OCCT Tutorial
   * drill.tcl: creates twist drill bit shape
-  * mill.tcl: creates milling cutter shape
+  * cutter.tcl: creates milling cutter shape
+  * xde.tcl: demonstrates creation of simple assembly in XDE
+  * materials.tcl: demonstrates visual properties of materials supported by 3d viewer
   * raytrace.tcl: demonstrates use of ray tracing display in 3d viewer
+  * dimensions.tcl: demonstrates use of dimensions, clipping, and capping in 3d viewer
 
 **Getting Help**
 
old mode 100755 (executable)
new mode 100644 (file)
similarity index 94%
rename from samples/tcl/challenge.tcl
rename to samples/tcl/cad.tcl
index a0fc65e..d6a5931
@@ -54,8 +54,9 @@ bcommon res b9 c2
 
 # show result
 donly res
+trotate res 0 0 0 0 0 1 90
 vinit
 vdisplay res
 vsetdispmode 1
+vshowfaceboundary res 1 255 255 255
 vfit
-
index f203a17..31ad19a 100644 (file)
@@ -1,4 +1,4 @@
-# Script reproducing creation of bottle model as described in OCCT Tutorial
+# Script demonstrating ray tracing in 3d view
 
 # make bottle by calling another script
 source [file join [file dirname [info script]] bottle.tcl]
@@ -12,6 +12,7 @@ bcut glass glass_out glass_in
 ttranslate glass -30 -30 0
 
 # show table and glass
+vinit w=1024 h=1024
 vsetmaterial bottle aluminium
 vdisplay table
 vsetmaterial table bronze
diff --git a/samples/tcl/xde.tcl b/samples/tcl/xde.tcl
new file mode 100644 (file)
index 0000000..0ec06a2
--- /dev/null
@@ -0,0 +1,43 @@
+# Simple sample demonstrating work with assemblies in XDE, and assignment of 
+# names and colors to components vs. instances
+
+pload MODELING
+pload OCAF
+pload XDE
+
+puts "Make a link as assembly made of a pin and two instances of the same nut"
+pcylinder pin 1 10
+pcylinder nut 2 2
+compound nut nut nuts
+explode nuts
+ttranslate nuts_1 0 0 7
+ttranslate nuts_2 0 0 1
+compound pin nuts_1 nuts_2 link
+
+puts "Add link assembly in XCAF document, and add names and colors:"
+NewDocument D XCAF
+XAddShape D link
+SetName D [XFindShape D pin] "Pin"
+SetName D [XFindShape D nut] "Nut"
+SetName D [XFindShape D link] "Link"
+SetName D [XFindShape D link]:1 "Pin instance"
+SetName D [XFindShape D link]:2 "Nut instance 1"
+SetName D [XFindShape D link]:3 "Nut instance 2"
+
+puts "- Pin will be white"
+XSetColor D [XFindShape D pin] 1 1 1
+puts "- Nut itself will be dark gray"
+XSetColor D [XFindShape D nut] 0.1 0.1 0.1
+puts "- Nut instance #1 will be red"
+XSetColor D [XFindShape D link]:2 1 0 0
+puts "- Nut instance #2 will be green"
+XSetColor D [XFindShape D link]:3 0 1 0
+
+puts "Starting DF browser..."
+DFBrowse D
+puts "Expand the document tree to see its structure and assigned names"
+
+puts "Showing assembly in 3d view..."
+XShow D
+vfit
+vsetdispmode 1
index da284e6..e61d00d 100644 (file)
@@ -1,5 +1,3 @@
-puts "TODO ?OCC24130 Windows: TKOpenGl | Type\: Error | ID\: 0 | Severity\: High | Message\:"
-
 # test for creation of bottle as in tutorial (script is in samples)
 source $env(CASROOT)/samples/tcl/bottle.tcl
 
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"
diff --git a/tests/demo/samples/cutter b/tests/demo/samples/cutter
new file mode 100644 (file)
index 0000000..3549d1c
--- /dev/null
@@ -0,0 +1,7 @@
+# test for creation of cutter shape
+source $env(CASROOT)/samples/tcl/cutter.tcl
+
+# make a snapshot
+vdump $imagedir/${test_image}.png
+
+puts "TEST COMPLETED"
diff --git a/tests/demo/samples/drill b/tests/demo/samples/drill
new file mode 100644 (file)
index 0000000..02eb211
--- /dev/null
@@ -0,0 +1,7 @@
+# test for creation of drill shape
+source $env(CASROOT)/samples/tcl/drill.tcl
+
+# make a snapshot
+vdump $imagedir/${test_image}.png
+
+puts "TEST COMPLETED"
diff --git a/tests/demo/samples/materials b/tests/demo/samples/materials
new file mode 100644 (file)
index 0000000..7ef5cda
--- /dev/null
@@ -0,0 +1,7 @@
+# test for visual properties of materials in 3d viewer
+source $env(CASROOT)/samples/tcl/materials.tcl
+
+# make a snapshot
+vdump $imagedir/${test_image}.png
+
+puts "TEST COMPLETED"
diff --git a/tests/demo/samples/xde b/tests/demo/samples/xde
new file mode 100644 (file)
index 0000000..72c2d74
--- /dev/null
@@ -0,0 +1,7 @@
+# test for XDE sample
+source $env(CASROOT)/samples/tcl/xde.tcl
+
+# make a snapshot
+vdump $imagedir/${test_image}.png
+
+puts "TEST COMPLETED"