0023136: Increase visibility of DRAW samples
authorabv <abv@opencascade.com>
Fri, 18 May 2012 11:05:29 +0000 (15:05 +0400)
committerabv <abv@opencascade.com>
Fri, 18 May 2012 11:05:29 +0000 (15:05 +0400)
Tcl samples moved from src/DrawResources to samples/tcl.
Scripts VisualisationDemo.tcl and ModelingDemo.tcl fixed to work on Windows.
File wing.brep moved from src/DrawResources to data/occ, and DataExchangeDemo.tcl corrected.
OCAFDemo.tcl removed, as it has little sense and referred data files are lost
Added sample Tcl script creating a model defined on the 'Open CASCADE challenge' web page

14 files changed:
data/occ/wing.brep [new file with mode: 0644]
samples/tcl/DataExchangeDemo.tcl [new file with mode: 0644]
samples/tcl/ModelingDemo.tcl [new file with mode: 0644]
samples/tcl/Readme.txt [new file with mode: 0644]
samples/tcl/VisualizationDemo.tcl [new file with mode: 0644]
samples/tcl/challenge.tcl [new file with mode: 0644]
src/DrawResources/DataExchangeDemo.tcl [deleted file]
src/DrawResources/ModelingDemo.tcl [deleted file]
src/DrawResources/OCAFDemo.tcl [deleted file]
src/DrawResources/VisualizationDemo.tcl [deleted file]
src/DrawResources/demo [deleted file]
src/DrawResources/demo.bat [deleted file]
src/DrawResources/demo.tcl [deleted file]
src/DrawResources/wing.brep [deleted file]

diff --git a/data/occ/wing.brep b/data/occ/wing.brep
new file mode 100644 (file)
index 0000000..00c426f
--- /dev/null
@@ -0,0 +1,404 @@
+DBRep_DrawableShape
+
+CASCADE Topology V1, (c) Matra-Datavision
+Locations 0
+Curve2ds 16
+1 0 0 0 1 
+1 0 0 1 0 
+1 1 0 0 1 
+1 0 1 1 0 
+1 0 0 0 1 
+1 0 0 1 0 
+1 1 0 0 1 
+1 0 1 1 0 
+1 0 0 0 1 
+1 0 0 1 0 
+1 1 0 0 1 
+1 0 1 1 0 
+1 0 0 0 1 
+1 0 0 1 0 
+1 1 0 0 1 
+1 0 1 1 0 
+Curves 16
+7 0 0  1 2 2  3.3500000000000001 0 0.84999599999999997  3.0956649999999999 3.3199999999999998 0.849997 
+ 0 2 1 2
+7 0 0  7 8 2  3.3500000000000001 0 0.84999599999999997  2.5594269999999999 0 1.0545310000000001  2.9291839999999998 0 0.94117300000000004  2.224526 0 1.0736730000000001  2.2209889999999999 0 0.96156200000000003  1.9382239999999999 0 0.984595  1.850238 0 0.91910099999999995  1.8500000000000001 0 0.84999999999999998 
+ 0 8 1 8
+7 0 0  1 2 2  1.8500000000000001 0 0.84999999999999998  1.7956650000000001 3.3199999999999998 0.84999999999999998 
+ 0 2 1 2
+7 0 0  7 8 2  3.0956649999999999 3.3199999999999998 0.849997  2.4105020000000001 3.3199999999999998 1.0272600000000001  2.7309580000000002 3.3199999999999998 0.92901699999999998  2.1202549999999998 3.3199999999999998 1.0438499999999999  2.1171880000000001 3.3199999999999998 0.94668699999999995  1.872126 3.3199999999999998 0.96664899999999998  1.795871 3.3199999999999998 0.909887  1.7956650000000001 3.3199999999999998 0.84999999999999998 
+ 0 8 1 8
+7 0 0  1 2 2  1.8500000000000001 0 0.84999999999999998  1.7956650000000001 3.3199999999999998 0.84999999999999998 
+ 0 2 1 2
+7 0 0  8 9 2  1.8500000000000001 0 0.84999999999999998  1.8497189999999999 0 0.76831300000000002  2.1391040000000001 0 0.76218600000000003  2.558659 0 0.68765799999999999  2.970672 0 0.84048500000000004  2.512594 0 0.70602500000000001  3.174499 0 0.87292999999999998  3.190143 0 0.84999999999999998  3.3500000000000001 0 0.84999599999999997 
+ 0 9 1 9
+7 0 0  1 2 2  3.3500000000000001 0 0.84999599999999997  3.0956649999999999 3.3199999999999998 0.849997 
+ 0 2 1 2
+7 0 0  8 9 2  1.7956650000000001 3.3199999999999998 0.84999999999999998  1.7954209999999999 3.3199999999999998 0.77920500000000004  2.0462220000000002 3.3199999999999998 0.773895  2.4098359999999999 3.3199999999999998 0.70930300000000002  2.7669139999999999 3.3199999999999998 0.841754  2.3699129999999999 3.3199999999999998 0.72522200000000003  2.9435639999999998 3.3199999999999998 0.86987300000000001  2.9571230000000002 3.3199999999999998 0.84999999999999998  3.0956649999999999 3.3199999999999998 0.849997 
+ 0 9 1 9
+7 0 0  1 2 2  3.0956649999999999 3.3199999999999998 0.849997  2.4870429999999999 4.75 1.180139 
+ 0 2 1 2
+7 0 0  7 8 2  3.0956649999999999 3.3199999999999998 0.849997  2.4105020000000001 3.3199999999999998 1.0272600000000001  2.7309580000000002 3.3199999999999998 0.92901699999999998  2.1202549999999998 3.3199999999999998 1.0438499999999999  2.1171880000000001 3.3199999999999998 0.94668699999999995  1.872126 3.3199999999999998 0.96664899999999998  1.795871 3.3199999999999998 0.909887  1.7956650000000001 3.3199999999999998 0.84999999999999998 
+ 0 8 1 8
+7 0 0  1 2 2  1.7956650000000001 3.3199999999999998 0.84999999999999998  1.9370430000000001 4.75 1.1801410000000001 
+ 0 2 1 2
+7 0 0  7 8 2  2.4870429999999999 4.75 1.180139  2.1971660000000002 4.75 1.2551349999999999  2.3327439999999999 4.75 1.213571  2.0743689999999999 4.75 1.262154  2.0730719999999998 4.75 1.221047  1.969392 4.75 1.229492  1.93713 4.75 1.2054769999999999  1.9370430000000001 4.75 1.1801410000000001 
+ 0 8 1 8
+7 0 0  1 2 2  1.7956650000000001 3.3199999999999998 0.84999999999999998  1.9370430000000001 4.75 1.1801410000000001 
+ 0 2 1 2
+7 0 0  8 9 2  1.7956650000000001 3.3199999999999998 0.84999999999999998  1.7954209999999999 3.3199999999999998 0.77920500000000004  2.0462220000000002 3.3199999999999998 0.773895  2.4098359999999999 3.3199999999999998 0.70930300000000002  2.7669139999999999 3.3199999999999998 0.841754  2.3699129999999999 3.3199999999999998 0.72522200000000003  2.9435639999999998 3.3199999999999998 0.86987300000000001  2.9571230000000002 3.3199999999999998 0.84999999999999998  3.0956649999999999 3.3199999999999998 0.849997 
+ 0 9 1 9
+7 0 0  1 2 2  3.0956649999999999 3.3199999999999998 0.849997  2.4870429999999999 4.75 1.180139 
+ 0 2 1 2
+7 0 0  8 9 2  1.9370430000000001 4.75 1.1801410000000001  1.9369400000000001 4.75 1.1501889999999999  2.0430480000000002 4.75 1.147942  2.196885 4.75 1.1206149999999999  2.3479559999999999 4.75 1.176652  2.1799940000000002 4.75 1.1273500000000001  2.4226930000000002 4.75 1.1885479999999999  2.4284289999999999 4.75 1.1801410000000001  2.4870429999999999 4.75 1.180139 
+ 0 9 1 9
+Polygon3D 0
+PolygonOnTriangulations 0
+Surfaces 4
+9 0 0 0 0 7 1 8 2 2 2 3.3500000000000001 0 0.84999599999999997  3.0956649999999999 3.3199999999999998 0.849997  
+2.5594269999999999 0 1.0545310000000001  2.4105020000000001 3.3199999999999998 1.0272600000000001  
+2.9291839999999998 0 0.94117300000000004  2.7309580000000002 3.3199999999999998 0.92901699999999998  
+2.224526 0 1.0736730000000001  2.1202549999999998 3.3199999999999998 1.0438499999999999  
+2.2209889999999999 0 0.96156200000000003  2.1171880000000001 3.3199999999999998 0.94668699999999995  
+1.9382239999999999 0 0.984595  1.872126 3.3199999999999998 0.96664899999999998  
+1.850238 0 0.91910099999999995  1.795871 3.3199999999999998 0.909887  
+1.8500000000000001 0 0.84999999999999998  1.7956650000000001 3.3199999999999998 0.84999999999999998  
+
+0 8
+1 8
+
+0 2
+1 2
+
+9 0 0 0 0 8 1 9 2 2 2 1.8500000000000001 0 0.84999999999999998  1.7956650000000001 3.3199999999999998 0.84999999999999998  
+1.8497189999999999 0 0.76831300000000002  1.7954209999999999 3.3199999999999998 0.77920500000000004  
+2.1391040000000001 0 0.76218600000000003  2.0462220000000002 3.3199999999999998 0.773895  
+2.558659 0 0.68765799999999999  2.4098359999999999 3.3199999999999998 0.70930300000000002  
+2.970672 0 0.84048500000000004  2.7669139999999999 3.3199999999999998 0.841754  
+2.512594 0 0.70602500000000001  2.3699129999999999 3.3199999999999998 0.72522200000000003  
+3.174499 0 0.87292999999999998  2.9435639999999998 3.3199999999999998 0.86987300000000001  
+3.190143 0 0.84999999999999998  2.9571230000000002 3.3199999999999998 0.84999999999999998  
+3.3500000000000001 0 0.84999599999999997  3.0956649999999999 3.3199999999999998 0.849997  
+
+0 9
+1 9
+
+0 2
+1 2
+
+9 0 0 0 0 7 1 8 2 2 2 3.0956649999999999 3.3199999999999998 0.849997  2.4870429999999999 4.75 1.180139  
+2.4105020000000001 3.3199999999999998 1.0272600000000001  2.1971660000000002 4.75 1.2551349999999999  
+2.7309580000000002 3.3199999999999998 0.92901699999999998  2.3327439999999999 4.75 1.213571  
+2.1202549999999998 3.3199999999999998 1.0438499999999999  2.0743689999999999 4.75 1.262154  
+2.1171880000000001 3.3199999999999998 0.94668699999999995  2.0730719999999998 4.75 1.221047  
+1.872126 3.3199999999999998 0.96664899999999998  1.969392 4.75 1.229492  
+1.795871 3.3199999999999998 0.909887  1.93713 4.75 1.2054769999999999  
+1.7956650000000001 3.3199999999999998 0.84999999999999998  1.9370430000000001 4.75 1.1801410000000001  
+
+0 8
+1 8
+
+0 2
+1 2
+
+9 0 0 0 0 8 1 9 2 2 2 1.7956650000000001 3.3199999999999998 0.84999999999999998  1.9370430000000001 4.75 1.1801410000000001  
+1.7954209999999999 3.3199999999999998 0.77920500000000004  1.9369400000000001 4.75 1.1501889999999999  
+2.0462220000000002 3.3199999999999998 0.773895  2.0430480000000002 4.75 1.147942  
+2.4098359999999999 3.3199999999999998 0.70930300000000002  2.196885 4.75 1.1206149999999999  
+2.7669139999999999 3.3199999999999998 0.841754  2.3479559999999999 4.75 1.176652  
+2.3699129999999999 3.3199999999999998 0.72522200000000003  2.1799940000000002 4.75 1.1273500000000001  
+2.9435639999999998 3.3199999999999998 0.86987300000000001  2.4226930000000002 4.75 1.1885479999999999  
+2.9571230000000002 3.3199999999999998 0.84999999999999998  2.4284289999999999 4.75 1.1801410000000001  
+3.0956649999999999 3.3199999999999998 0.849997  2.4870429999999999 4.75 1.180139  
+
+0 9
+1 9
+
+0 2
+1 2
+
+Triangulations 0
+
+TShapes 41
+Ve
+1e-07
+3.35 0 0.849996
+0 0
+
+0101100
+*
+Ve
+1e-07
+3.095665 3.32 0.849997
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  1 0 0 1
+2  1 1 0 0 1
+0
+
+0101000
++41 0 -40 0 *
+Ve
+1e-07
+1.85 0 0.849999999999998
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  2 0 0 1
+2  2 1 0 0 1
+0
+
+0101000
++41 0 -38 0 *
+Ve
+1e-07
+1.795665 3.32 0.849999999999998
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  3 0 0 1
+2  3 1 0 0 1
+0
+
+0101000
++38 0 -36 0 *
+Ed
+ 1e-07 1 1 0
+1  4 0 0 1
+2  4 1 0 0 1
+0
+
+0101000
++40 0 -36 0 *
+Wi
+
+0101100
+-39 0 +37 0 +35 0 -34 0 *
+Fa
+1  1e-07 1 0
+
+0111000
++33 0 *
+Ve
+1e-07
+1.85 0 0.85
+0 0
+
+0101100
+*
+Ve
+1e-07
+1.795665 3.32 0.85
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  5 0 0 1
+2  5 2 0 0 1
+0
+
+0101000
++31 0 -30 0 *
+Ve
+1e-07
+3.35000000000001 0 0.849996000000003
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  6 0 0 1
+2  6 2 0 0 1
+0
+
+0101000
++31 0 -28 0 *
+Ve
+1e-07
+3.09566500000001 3.32 0.849997000000003
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  7 0 0 1
+2  7 2 0 0 1
+0
+
+0101000
++28 0 -26 0 *
+Ed
+ 1e-07 1 1 0
+1  8 0 0 1
+2  8 2 0 0 1
+0
+
+0101000
++30 0 -26 0 *
+Wi
+
+0101100
+-29 0 +27 0 +25 0 -24 0 *
+Fa
+1  1e-07 2 0
+
+0111000
++23 0 *
+Ve
+1e-07
+3.095665 3.32 0.849997
+0 0
+
+0101100
+*
+Ve
+1e-07
+2.487043 4.75 1.180139
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  9 0 0 1
+2  9 3 0 0 1
+0
+
+0101000
++21 0 -20 0 *
+Ve
+1e-07
+1.79566500000001 3.32 0.850000000000001
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  10 0 0 1
+2  10 3 0 0 1
+0
+
+0101000
++21 0 -18 0 *
+Ve
+1e-07
+1.93704300000001 4.75 1.180141
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  11 0 0 1
+2  11 3 0 0 1
+0
+
+0101000
++18 0 -16 0 *
+Ed
+ 1e-07 1 1 0
+1  12 0 0 1
+2  12 3 0 0 1
+0
+
+0101000
++20 0 -16 0 *
+Wi
+
+0101100
+-19 0 +17 0 +15 0 -14 0 *
+Fa
+1  1e-07 3 0
+
+0111000
++13 0 *
+Ve
+1e-07
+1.795665 3.32 0.85
+0 0
+
+0101100
+*
+Ve
+1e-07
+1.937043 4.75 1.180141
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  13 0 0 1
+2  13 4 0 0 1
+0
+
+0101000
++11 0 -10 0 *
+Ve
+1e-07
+3.09566499999999 3.32 0.849997000000002
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  14 0 0 1
+2  14 4 0 0 1
+0
+
+0101000
++11 0 -8 0 *
+Ve
+1e-07
+2.487043 4.75 1.180139
+0 0
+
+0101100
+*
+Ed
+ 1e-07 1 1 0
+1  15 0 0 1
+2  15 4 0 0 1
+0
+
+0101000
++8 0 -6 0 *
+Ed
+ 1e-07 1 1 0
+1  16 0 0 1
+2  16 4 0 0 1
+0
+
+0101000
++10 0 -6 0 *
+Wi
+
+0101100
+-9 0 +7 0 +5 0 -4 0 *
+Fa
+1  1e-07 4 0
+
+0111000
++3 0 *
+Co
+
+1100000
++32 0 +22 0 +12 0 +2 0 *
+
++1 0 
diff --git a/samples/tcl/DataExchangeDemo.tcl b/samples/tcl/DataExchangeDemo.tcl
new file mode 100644 (file)
index 0000000..23eef63
--- /dev/null
@@ -0,0 +1,84 @@
+# Copyright (c) 1999-2012 OPEN CASCADE SAS
+#
+# The content of this file is subject to the Open CASCADE Technology Public
+# License Version 6.5 (the "License"). You may not use the content of this file
+# except in compliance with the License. Please obtain a copy of the License
+# at http://www.opencascade.org and read it completely before using this file.
+#
+# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
+# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
+#
+# The Original Code and all software distributed under the License is
+# distributed on an "AS IS" basis, without warranty of any kind, and the
+# Initial Developer hereby disclaims all such warranties, including without
+# limitation, any warranties of merchantability, fitness for a particular
+# purpose or non-infringement. Please see the License for the specific terms
+# and conditions governing the rights and limitations under the License.
+
+# Command to log a message to both command-line and dialog window
+proc sage { a} {
+    if { ![winfo exists .h ] } {
+        toplevel .h -bg azure3
+        wm title .h "INFO TEST HARNESS"
+        wm geometry .h +320+20
+    } 
+    if { [winfo exists .h.m ] } {
+        set astring [.h.m cget  -text]
+        set newstring "${astring} \n $a"
+        .h.m configure -text $newstring 
+        puts $a
+    } else {
+        message .h.m -justify left -bg azure2 -width 13c -relief ridge -bd 4 -text $a
+        puts $a
+    } 
+    pack .h.m
+    update
+}
+
+pload DATAEXCHANGE
+
+smallview
+if { [winfo exists .h ] } {
+    destroy .h
+}
+
+set ddir .
+if { [info exists env(CASROOT)] } {
+    set ddir [file join $env(CASROOT) data occ]
+}
+
+set tdir .
+if { [info exist env(TEMP)] } {
+    set tdir $env(TEMP)
+}
+
+sage " First, we retrieve a BREP File "
+sage "    restore $ddir/wing.brep wing"
+sage " "
+datadir .
+restore $ddir/wing.brep wing
+disp wing
+fit
+
+sage "Generate the IGES File of this BREP"
+sage "   brepiges wing $tdir/wing.igs"
+sage " "
+brepiges wing $tdir/wing.igs
+wait 3
+
+sage "we delete all DRAW data"
+sage ""
+dall
+fit
+wait 3
+
+sage "Restore this IGES File we have created " 
+sage "   igesbrep $tdir/wing.igs new *"
+sage ""
+igesbrep $tdir/wing.igs new *
+disp new
+fit
+
+puts "End IGES Elementary Test " 
+sage " "
+file delete $tdir/wing.igs
diff --git a/samples/tcl/ModelingDemo.tcl b/samples/tcl/ModelingDemo.tcl
new file mode 100644 (file)
index 0000000..f95508f
--- /dev/null
@@ -0,0 +1,121 @@
+# Copyright (c) 1999-2012 OPEN CASCADE SAS
+#
+# The content of this file is subject to the Open CASCADE Technology Public
+# License Version 6.5 (the "License"). You may not use the content of this file
+# except in compliance with the License. Please obtain a copy of the License
+# at http://www.opencascade.org and read it completely before using this file.
+#
+# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
+# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
+#
+# The Original Code and all software distributed under the License is
+# distributed on an "AS IS" basis, without warranty of any kind, and the
+# Initial Developer hereby disclaims all such warranties, including without
+# limitation, any warranties of merchantability, fitness for a particular
+# purpose or non-infringement. Please see the License for the specific terms
+# and conditions governing the rights and limitations under the License.
+
+# Command to log a message to both command-line and dialog window
+proc sage { a} {
+    if { ![winfo exists .h ] } {
+        toplevel .h -bg azure3
+        wm title .h "INFO TEST HARNESS"
+        wm geometry .h +320+20
+    } 
+    if { [winfo exists .h.m ] } {
+        set astring [.h.m cget  -text]
+        set newstring "${astring} \n $a"
+        .h.m configure -text $newstring 
+        puts $a
+    } else {
+        message .h.m -justify left -bg azure2 -width 13c -relief ridge -bd 4 -text $a
+        puts $a
+    } 
+    pack .h.m
+    update
+}
+
+pload MODELING
+
+smallview
+if { [winfo exists .h ] } {
+    destroy .h
+}
+sage " Creating a box"
+sage "    box  b -10 -10 -10 20 20 20"
+sage " "
+box b -10 -10 -10 20 20 20
+fit
+nexplode b f
+erase b
+sage " Draft of two lateral faces "
+sage "    depouille r b  0 0  -1 b_6 -15 10 -10 10  0 0 -1 "
+sage "    nexplode r f"
+sage "    depouille rr r  0 0 -1   r_1 -15 -10 -10 10  0 0 -1 "
+sage " "
+depouille r b  0 0  -1 b_6 -15 10 -10 10  0 0 -1 
+clear
+nexplode r f
+depouille rr r  0 0 -1   r_1 -15 -10 -10 10  0 0 -1 
+clear
+nexplode rr e
+sage " Fillet on four lateral edges, then on the top and bottom edges  "
+sage "    nexplode rr e"
+sage "    blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11"
+sage "    nexplode result e"
+sage "    blend result result 2 result_11 3 result_12"
+sage " "
+blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11
+erase rr
+erase result
+nexplode result e
+blend result result 2 result_11 3 result_12 
+clear
+nexplode result f
+sage " Creating a profile on the top face "
+sage "    nexplode result f"
+sage "    profile p  S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
+"
+sage " "
+profile p  S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
+sage " Creating a prism"
+sage "    prism rr p 0 0 20"
+sage " "
+prism rr p 0 0 20
+fit
+sage " Fusion of this prism with the original part "
+sage "    fuse result rr result"
+sage " "
+fuse result rr result
+donl result
+nexplode result f
+erase result
+fit
+
+sage " Opening the top face"
+sage "    offsetshape r result -1 0.0001 result_17"
+sage " "
+
+nexplode result f
+offsetshape r result -1 0.0001 result_17
+sage " Creating a cylinder and positionning it"
+sage "    pcylinder cyl 2 300"
+sage "    trotate cyl cyl 0 0 0  1 0 0 45"
+sage "    ttranslate cyl cyl 0 7.5 0"
+sage " "
+pcylinder cyl 2 30
+trotate cyl cyl 0 0 0  1 0 0 45
+ttranslate cyl cyl 0 7.5 0
+sage " Display the Shape on Hidden Line Mode "
+sage "   hlr hid r"
+sage ""
+donl r
+hlr hid r
+sage " Display the Shape on HLR Mode "
+sage "   hlr nohid r"
+sage "   hlr hlr r"
+sage ""
+donl r
+hlr nohid r
+hlr hlr r
+sage "Demo completed"
diff --git a/samples/tcl/Readme.txt b/samples/tcl/Readme.txt
new file mode 100644 (file)
index 0000000..377c441
--- /dev/null
@@ -0,0 +1,4 @@
+This directory provides a set of demo scripts for using OCCT functionality from
+within DRAW Test Harness. Call the scripts from DRAW prompt, e.g.:
+
+Draw[]> source samples/tcl/VisualizationDemo.tcl
diff --git a/samples/tcl/VisualizationDemo.tcl b/samples/tcl/VisualizationDemo.tcl
new file mode 100644 (file)
index 0000000..af9a327
--- /dev/null
@@ -0,0 +1,163 @@
+# Copyright (c) 1999-2012 OPEN CASCADE SAS
+#
+# The content of this file is subject to the Open CASCADE Technology Public
+# License Version 6.5 (the "License"). You may not use the content of this file
+# except in compliance with the License. Please obtain a copy of the License
+# at http://www.opencascade.org and read it completely before using this file.
+#
+# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
+# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
+#
+# The Original Code and all software distributed under the License is
+# distributed on an "AS IS" basis, without warranty of any kind, and the
+# Initial Developer hereby disclaims all such warranties, including without
+# limitation, any warranties of merchantability, fitness for a particular
+# purpose or non-infringement. Please see the License for the specific terms
+# and conditions governing the rights and limitations under the License.
+
+# Command to log a message to both command-line and dialog window
+proc sage { a} {
+    if { ![winfo exists .h ] } {
+        toplevel .h -bg azure3
+        wm title .h "INFO TEST HARNESS"
+        wm geometry .h +320+20
+    } 
+    if { [winfo exists .h.m ] } {
+        set astring [.h.m cget  -text]
+        set newstring "${astring} \n $a"
+        .h.m configure -text $newstring 
+        puts $a
+    } else {
+        message .h.m -justify left -bg azure2 -width 13c -relief ridge -bd 4 -text $a
+        puts $a
+    } 
+    pack .h.m
+    update
+}
+
+if { [winfo exists .h ] } {
+    destroy .h
+}
+
+pload MODELING VISUALIZATION
+
+sage " Creating the V3D Viewer"
+sage "    vinit"
+sage " " 
+vinit
+vclear
+clear
+
+sage " Creating the Topological Viewer"
+sage "    smallview"
+sage " " 
+smallview
+sage " Creating a box"
+sage "    box  b -10 -10 -10 20 20 20"
+sage " "
+box b -10 -10 -10 20 20 20
+fit
+sage " Display the box in the V3D Viewer"
+sage "    vdisplay b"
+sage " "
+vdisplay b
+vfit
+nexplode b f
+erase b
+sage " Draft of two lateral faces "
+sage "    nexplode b f"
+sage "    depouille r b  0 0  -1 b_6 -15 10 -10 10  0 0 -1 "
+sage "    nexplode r f"
+sage "    depouille rr r  0 0 -1   r_1 -15 -10 -10 10  0 0 -1 "
+sage " "
+depouille r b  0 0  -1 b_6 -15 10 -10 10  0 0 -1 
+clear
+nexplode r f
+depouille rr r  0 0 -1   r_1 -15 -10 -10 10  0 0 -1 
+clear
+nexplode rr e
+verase b
+vdisplay rr
+vfit
+sage " Fillet on four lateral edges, then on the top and bottom edges  "
+sage "    nexplode rr e"
+sage "    blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11"
+sage "    nexplode result e"
+sage "    blend result result 2 result_11 3 result_12"
+sage " "
+blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11
+erase rr
+erase result
+nexplode result e
+blend result result 2 result_11 3 result_12 
+clear
+nexplode result f
+verase rr
+vdisplay result
+vfit
+sage " Creating a profile on the top face "
+sage "    nexplode result f"
+sage "    profile p  S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
+"
+sage " "
+profile p  S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
+sage " Creating a prism"
+sage "    prism rr p 0 0 20"
+sage " "
+prism rr p 0 0 20
+sage " Change some attributs : MATERIAL , TRANSPARENCY"
+sage "    vsetmaterial rr PLASTIC"
+sage "    vsetcolor rr RED"
+sage "    vsettransparency result 0.5"
+sage "    vsetdispmode 1"
+sage " "
+vdisplay rr
+vsetmaterial rr PLASTIC
+vsettransparency rr 0.5
+vsetcolor rr RED
+vsettransparency result 0.5
+vsetdispmode 1
+vfit
+fit
+sage " Fusion of this prism with the original part "
+sage "    fuse result rr result"
+sage " "
+fuse result rr result
+donl result
+vdisplay result
+vdonly result
+vfit
+nexplode result f
+erase result
+fit
+
+sage " Opening the top face"
+sage "    offsetshape r result -1 0.0001 result_17"
+sage " "
+nexplode result f
+
+offsetshape r result -1 0.0001 result_17
+vdisplay r
+vdonly r
+vfit
+vsetcolor r MATRABLUE
+vsettransparency r 0
+
+sage " Creating a cylinder and positionning it"
+sage "    pcylinder cyl 2 300"
+sage "    trotate cyl cyl 0 0 0  1 0 0 45"
+sage "    ttranslate cyl cyl 0 7.5 0"
+sage " "
+pcylinder cyl 2 30
+vdisplay cyl 
+vsetcolor cyl RED
+vfit
+trotate cyl cyl 0 0 0  1 0 0 45
+ttranslate cyl cyl 0 7.5 0
+vdisplay cyl 
+vsetcolor cyl RED
+vfit
+vdisplay cyl 
+vsetcolor cyl RED
+vfit
+sage "Demo completed"
diff --git a/samples/tcl/challenge.tcl b/samples/tcl/challenge.tcl
new file mode 100644 (file)
index 0000000..a0fc65e
--- /dev/null
@@ -0,0 +1,61 @@
+# This script creates a model described at
+# http://www.caddd.org/2010/04/opencascade-challenge.html
+
+pload MODELING VISUALIZATION
+
+# make base 
+box b0 0  0 0 12 7 6
+explode b0 e
+blend b01 b0 1 b0_8
+blend b02 b01 1 b0_6
+
+# make cut at bottom
+box b1 3 -1 0 2 9 1.5
+bcut b2 b02 b1
+explode b2 e
+blend b3 b2 1 b2_27
+blend b4 b3 1 b2_30
+
+# make central cut
+box h1 3 -1 2.5 2 9 0.5
+box h2 3 -1 3 2 9 2
+plane p 4 -1 3 0 1 0
+pcylinder c p 1 9
+bcommon h3 h2 c
+bcut b5 b4 h1
+bcut b6 b5 h3
+
+# make side cut
+box b7 9 -1 1 2 9 4
+explode b7 e
+blend b71 b7 1 b7_6
+blend b72 b71 1 b7_8
+bcut b8 b6 b72
+
+# make box for inner cylindrical cut
+box bc1 -1 0 2 9 1 4
+box bc2 2 -1 2 4 3 3
+bcut bc3 bc1 bc2
+explode bc3 e
+blend bc4 bc3 1 bc3_20
+blend bc5 bc4 1 bc3_23
+blend bc6 bc5 1.99 bc3_21
+blend bc7 bc6 1.99 bc3_22
+
+# make inner cylindrical cut
+explode bc7 f
+revol r bc7_1 -1 0 6 1 0 0 100
+bcut b9 b8 r
+
+# make outer cylindrical cut
+plane p2 -1 0 6 1 0 0
+pcylinder c2 p2 6 15
+bcommon res b9 c2
+
+# show result
+donly res
+vinit
+vdisplay res
+vsetdispmode 1
+vfit
+
diff --git a/src/DrawResources/DataExchangeDemo.tcl b/src/DrawResources/DataExchangeDemo.tcl
deleted file mode 100755 (executable)
index e89ad8b..0000000
+++ /dev/null
@@ -1,90 +0,0 @@
-# Copyright (c) 1999-2012 OPEN CASCADE SAS
-#
-# The content of this file is subject to the Open CASCADE Technology Public
-# License Version 6.5 (the "License"). You may not use the content of this file
-# except in compliance with the License. Please obtain a copy of the License
-# at http://www.opencascade.org and read it completely before using this file.
-#
-# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
-# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
-#
-# The Original Code and all software distributed under the License is
-# distributed on an "AS IS" basis, without warranty of any kind, and the
-# Initial Developer hereby disclaims all such warranties, including without
-# limitation, any warranties of merchantability, fitness for a particular
-# purpose or non-infringement. Please see the License for the specific terms
-# and conditions governing the rights and limitations under the License.
-
-
-set stationname $tcl_platform(platform)
-if { ${stationname} == "windows" } {
-   proc winfo { aTest aWindow } { return False }
-}
-
-
-proc sage { a} {
-    global stationname 
-    if { ${stationname} != "windows" } {
-       
-       if { ![winfo exists .h ] } {
-           toplevel .h -bg azure3
-           wm title .h "INFO DATAEXCHANGE TEST HARNESS"
-           wm geometry .h +320+20
-           
-       } 
-       if { [winfo exists .h.m ] } {
-           set astring [.h.m cget  -text]
-           set newstring "${astring} \n $a"
-           .h.m configure -text $newstring 
-           puts $a
-       } else {
-           message .h.m -justify left -bg azure2 -width 13c -relief ridge -bd 4\
-                   -text $a
-           puts $a
-       } 
-       pack .h.m
-       update
-   }
-}
-
-
-smallview
-if { [winfo exists .h ] } {
-    destroy .h
-}
-
-if { [info exists env(CASROOT)] } {
-    set thedir [file join $env(CASROOT) src DEResource]
-    cd ${thedir}
-}
-
-datadir .
-sage " First, we retrieve a BREP File "
-sage "    datadir ."
-sage "    restore wing.brep wing"
-sage " "
-datadir .
-restore wing.brep wing
-disp wing
-fit
-sage "Generate the IGES File of this BREP"
-sage "   brepiges wing /tmp/wing.igs"
-sage " "
-brepiges wing /tmp/wing.igs
-wait 3
-sage "we delete all data"
-sage ""
-dall
-sage "Restore this IGES File we have created " 
-sage "   igesbrep wing.igs new *"
-sage ""
-cd /tmp
-igesbrep wing.igs new *
-disp new
-fit
-if { [winfo exists .h ] } {
-    destroy .h
-}
-puts "End IGES Elementary Test " 
-sage " "
-unlink /tmp/wing.igs
diff --git a/src/DrawResources/ModelingDemo.tcl b/src/DrawResources/ModelingDemo.tcl
deleted file mode 100755 (executable)
index ffb5a7e..0000000
+++ /dev/null
@@ -1,133 +0,0 @@
-# Copyright (c) 1999-2012 OPEN CASCADE SAS
-#
-# The content of this file is subject to the Open CASCADE Technology Public
-# License Version 6.5 (the "License"). You may not use the content of this file
-# except in compliance with the License. Please obtain a copy of the License
-# at http://www.opencascade.org and read it completely before using this file.
-#
-# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
-# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
-#
-# The Original Code and all software distributed under the License is
-# distributed on an "AS IS" basis, without warranty of any kind, and the
-# Initial Developer hereby disclaims all such warranties, including without
-# limitation, any warranties of merchantability, fitness for a particular
-# purpose or non-infringement. Please see the License for the specific terms
-# and conditions governing the rights and limitations under the License.
-
-
-set stationname $tcl_platform(platform)
-if { ${stationname} == "windows" } {
-   proc winfo { aTest aWindow } { return False }
-}
-
-
-proc sage { a} {
-    global stationname 
-    if { ${stationname} != "windows" } {
-       
-       if { ![winfo exists .h ] } {
-           toplevel .h -bg azure3
-           wm title .h "INFO TEST HARNESS"
-           wm geometry .h +320+20
-           
-       } 
-       if { [winfo exists .h.m ] } {
-           set astring [.h.m cget  -text]
-           set newstring "${astring} \n $a"
-           .h.m configure -text $newstring 
-           puts $a
-       } else {
-           message .h.m -justify left -bg azure2 -width 13c -relief ridge -bd 4\
-                   -text $a
-           puts $a
-       } 
-       pack .h.m
-       update
-   }
-}
-
-
-smallview
-if { [winfo exists .h ] } {
-    destroy .h
-}
-sage " Creating a box"
-sage "    box  b -10 -10 -10 20 20 20"
-sage " "
-box b -10 -10 -10 20 20 20
-fit
-nexplode b f
-erase b
-sage " Draft of two lateral faces "
-sage "    depouille r b  0 0  -1 b_6 -15 10 -10 10  0 0 -1 "
-sage "    nexplode r f"
-sage "    depouille rr r  0 0 -1   r_1 -15 -10 -10 10  0 0 -1 "
-sage " "
-depouille r b  0 0  -1 b_6 -15 10 -10 10  0 0 -1 
-clear
-nexplode r f
-depouille rr r  0 0 -1   r_1 -15 -10 -10 10  0 0 -1 
-clear
-nexplode rr e
-sage " Fillet on four lateral edges, then on the top and bottom edges  "
-sage "    nexplode rr e"
-sage "    blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11"
-sage "    nexplode result e"
-sage "    blend result result 2 result_11 3 result_12"
-sage " "
-blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11
-erase rr
-erase result
-nexplode result e
-blend result result 2 result_11 3 result_12 
-clear
-nexplode result f
-sage " Creating a profile on the top face "
-sage "    nexplode result f"
-sage "    profile p  S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
-"
-sage " "
-profile p  S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
-sage " Creating a prism"
-sage "    prism rr p 0 0 20"
-sage " "
-prism rr p 0 0 20
-fit
-sage " Fusion of this prism with the original part "
-sage "    fuse result rr result"
-sage " "
-fuse result rr result
-donl result
-nexplode result f
-erase result
-fit
-
-sage " Opening the top face"
-sage "    offsetshape r result -1 0.0001 result_17"
-sage " "
-
-nexplode result f
-offsetshape r result -1 0.0001 result_17
-sage " Creating a cylinder and positionning it"
-sage "    pcylinder cyl 2 300"
-sage "    trotate cyl cyl 0 0 0  1 0 0 45"
-sage "    ttranslate cyl cyl 0 7.5 0"
-sage " "
-pcylinder cyl 2 30
-trotate cyl cyl 0 0 0  1 0 0 45
-ttranslate cyl cyl 0 7.5 0
-sage " Display the Shape on Hidden Line Mode "
-sage "   hlr hid r"
-sage ""
-donl r
-hlr hid r
-sage " Display the Shape on HLR Mode "
-sage "   hlr nohid r"
-sage "   hlr hlr r"
-sage ""
-donl r
-hlr nohid r
-hlr hlr r
-sage "Demo completed"
-
diff --git a/src/DrawResources/OCAFDemo.tcl b/src/DrawResources/OCAFDemo.tcl
deleted file mode 100755 (executable)
index a5f8401..0000000
+++ /dev/null
@@ -1,93 +0,0 @@
-# Copyright (c) 1999-2012 OPEN CASCADE SAS
-#
-# The content of this file is subject to the Open CASCADE Technology Public
-# License Version 6.5 (the "License"). You may not use the content of this file
-# except in compliance with the License. Please obtain a copy of the License
-# at http://www.opencascade.org and read it completely before using this file.
-#
-# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
-# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
-#
-# The Original Code and all software distributed under the License is
-# distributed on an "AS IS" basis, without warranty of any kind, and the
-# Initial Developer hereby disclaims all such warranties, including without
-# limitation, any warranties of merchantability, fitness for a particular
-# purpose or non-infringement. Please see the License for the specific terms
-# and conditions governing the rights and limitations under the License.
-
-# first , Opening Document write on Unix 
-puts "First , Opening Document write on Unix "
-set Data [file join $env(CASROOT) src TCAF]
-
-set DocName [file join ${Data} FileUnix.std]
-if [ file exists ${DocName}  ] {
-    
-    Open ${DocName} Unix
-    DumpDocument Unix
-} else {
-    puts "  ${DocName} does not exist "
-}
-
-# first , Opening Document write on WindowsNT
-puts ""
-puts "now , Opening Document write on WindowsNT "
-puts ""
-
-set DocName [file join ${Data} FileWNT.std]
-puts "trying to Open : ${DocName}  "
-if  [ file exists  ${DocName} ] {
-    catch {  Open ${DocName} WNT } filesta
-    if { ${filesta} == "" } { 
-       DumpDocument WNT
-    } else {
-       puts " Problem when trying to read ${DocName}  ==> $filesta "
-    }
-} else {
-    puts "  ${DocName} does not exist "
-}
-puts "List the Document in the Session :"
-ListDocuments
-
-puts ""
-puts "now , We create  new Document "
-puts ""
-NewDocument New MDTV-Standard
-UndoLimit New 5
-NewCommand New
-
-Label   New  0:20
-SetReal New  0:20 .12345
-
-
-set newName /tmp/New.std
-if { [info exists env(TEMP)] } {
-    set newName $env(TEMP)/New.std
-}
-SaveAs New  ${newName}
-puts " "
-puts "List the Document in the Session :"
-ListDocuments
-puts " "
-puts "We close it"
-Close  New
-puts "List the Document in the Session :"
-ListDocuments
-
-puts "Verify if the new Document is saved : ${newName} "
-if   [file exists ${newName}] { 
-   puts " ... exists : Yes "
-   puts " ... size   : [file size ${newName}]"
-
-   puts " "
-   puts " We try to read it :"
-   Open ${newName} ReadDoc
-   DumpDocument ReadDoc
-    puts "List the Document in the Session :"
-    ListDocuments
-}  else {
-   puts " ... exists : No "
-}
-puts " "
-puts " "
-puts "end "
diff --git a/src/DrawResources/VisualizationDemo.tcl b/src/DrawResources/VisualizationDemo.tcl
deleted file mode 100755 (executable)
index a287bdd..0000000
+++ /dev/null
@@ -1,173 +0,0 @@
-# Copyright (c) 1999-2012 OPEN CASCADE SAS
-#
-# The content of this file is subject to the Open CASCADE Technology Public
-# License Version 6.5 (the "License"). You may not use the content of this file
-# except in compliance with the License. Please obtain a copy of the License
-# at http://www.opencascade.org and read it completely before using this file.
-#
-# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
-# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
-#
-# The Original Code and all software distributed under the License is
-# distributed on an "AS IS" basis, without warranty of any kind, and the
-# Initial Developer hereby disclaims all such warranties, including without
-# limitation, any warranties of merchantability, fitness for a particular
-# purpose or non-infringement. Please see the License for the specific terms
-# and conditions governing the rights and limitations under the License.
-
-
-set stationname $tcl_platform(platform)
-if { ${stationname} == "windows" } {
-   proc winfo { aTest aWindow } { return False }
-}
-
-
-proc sage { a} {
-    global stationname 
-    if { ${stationname} != "windows" } {
-       
-       if { ![winfo exists .h ] } {
-           toplevel .h -bg azure3
-           wm title .h "INFO AISViewer"
-           wm geometry .h +320+20
-           
-       } 
-       if { [winfo exists .h.m ] } {
-           set astring [.h.m cget  -text]
-           set newstring "${astring} \n $a"
-           .h.m configure -text $newstring 
-           puts $a
-       } else {
-           message .h.m -justify left -bg azure2 -width 13c -relief ridge -bd 4\
-                   -text $a
-           puts $a
-       } 
-       pack .h.m
-       update
-   }
-}
-
-if { [winfo exists .h ] } {
-    destroy .h
-}
-
-sage " Creating the V3D Viewer"
-sage "    vinit"
-sage " " 
-vinit
-vclear
-clear
-
-sage " Creating the Topological Viewer"
-sage "    smallview"
-sage " " 
-smallview
-sage " Creating a box"
-sage "    box  b -10 -10 -10 20 20 20"
-sage " "
-box b -10 -10 -10 20 20 20
-fit
-sage " Display the box in the V3D Viewer"
-sage "    vdisplay b"
-sage " "
-vdisplay b
-vfit
-nexplode b f
-erase b
-sage " Draft of two lateral faces "
-sage "    nexplode b f"
-sage "    depouille r b  0 0  -1 b_6 -15 10 -10 10  0 0 -1 "
-sage "    nexplode r f"
-sage "    depouille rr r  0 0 -1   r_1 -15 -10 -10 10  0 0 -1 "
-sage " "
-depouille r b  0 0  -1 b_6 -15 10 -10 10  0 0 -1 
-clear
-nexplode r f
-depouille rr r  0 0 -1   r_1 -15 -10 -10 10  0 0 -1 
-clear
-nexplode rr e
-verase b
-vdisplay rr
-vfit
-sage " Fillet on four lateral edges, then on the top and bottom edges  "
-sage "    nexplode rr e"
-sage "    blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11"
-sage "    nexplode result e"
-sage "    blend result result 2 result_11 3 result_12"
-sage " "
-blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11
-erase rr
-erase result
-nexplode result e
-blend result result 2 result_11 3 result_12 
-clear
-nexplode result f
-verase rr
-vdisplay result
-vfit
-sage " Creating a profile on the top face "
-sage "    nexplode result f"
-sage "    profile p  S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
-"
-sage " "
-profile p  S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
-sage " Creating a prism"
-sage "    prism rr p 0 0 20"
-sage " "
-prism rr p 0 0 20
-sage " Change some attributs : MATERIAL , TRANSPARENCY"
-sage "    vsetmaterial rr PLASTIC"
-sage "    vsetcolor rr RED"
-sage "    vsettransparency result 0.5"
-sage "    vsetdispmode 1"
-sage " "
-vdisplay rr
-vsetmaterial rr PLASTIC
-vsettransparency rr 0.5
-vsetcolor rr RED
-vsettransparency result 0.5
-vsetdispmode 1
-vfit
-fit
-sage " Fusion of this prism with the original part "
-sage "    fuse result rr result"
-sage " "
-fuse result rr result
-donl result
-vdisplay result
-vdonly result
-vfit
-nexplode result f
-erase result
-fit
-
-sage " Opening the top face"
-sage "    offsetshape r result -1 0.0001 result_17"
-sage " "
-nexplode result f
-
-offsetshape r result -1 0.0001 result_17
-vdisplay r
-vdonly r
-vfit
-vsetcolor r MATRABLUE
-vsettransparency r 0
-
-sage " Creating a cylinder and positionning it"
-sage "    pcylinder cyl 2 300"
-sage "    trotate cyl cyl 0 0 0  1 0 0 45"
-sage "    ttranslate cyl cyl 0 7.5 0"
-sage " "
-pcylinder cyl 2 30
-vdisplay cyl 
-vsetcolor cyl RED
-vfit
-trotate cyl cyl 0 0 0  1 0 0 45
-ttranslate cyl cyl 0 7.5 0
-vdisplay cyl 
-vsetcolor cyl RED
-vfit
-vdisplay cyl 
-vsetcolor cyl RED
-vfit
-sage "Demo completed"
diff --git a/src/DrawResources/demo b/src/DrawResources/demo
deleted file mode 100755 (executable)
index ced5b4d..0000000
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/bin/csh -f
-#
-# This is a simple script demo for Draw Module on Unix platform.
-#
-# The V.E. CASROOT must be setted to the directory where CasCade 3.0 has been
-# downloaded.
-#
-setenv station `uname`
-if ( ${station} == "IRIX64" ) setenv station IRIX
-
-if (! ($?LD_LIBRARY_PATH) ) setenv LD_LIBRARY_PATH ""
-setenv LD_LIBRARY_PATH "${CASROOT}/${station}/lib:${LD_LIBRARY_PATH}"
-
-if ( ${station} == "AIX" ) then
-   setenv LIBPATH ${LD_LIBRARY_PATH}
-endif
-if ( ${station} == "HP-UX" ) then
-   setenv SHLIB_PATH ${LD_LIBRARY_PATH}
-endif
-if ( ${station} == "Linux" ) then
-   setenv LIBPATH "/usr/X11R6/lib:${LD_LIBRARY_PATH}"
-endif
-
-#
-# This is for setting VE used by Draw
-#
-# POP : Since C31 Version ; this Varaible are not Mandatory
-#setenv DRAWHOME    $CASROOT/src/DrawResources
-#setenv DRAWDEFAULT $DRAWHOME/DrawDefault
-echo ""
-echo " Running demo using :"
-echo ""
-echo "LD_LIBRARY_PATH : $LD_LIBRARY_PATH"
-echo "CASROOT         : $CASROOT"
-if ($?DRAWHOME)    then 
-    echo "DRAWHOME        : $DRAWHOME"
-endif
-if ($?DRAWDEFAULT) then
-    echo "DRAWDEFAULT     : $DRAWDEFAULT"
-endif
-#
-# Run the executable.
-#
-$CASROOT/${station}/bin/TTOPOLOGY
-#
-exit
diff --git a/src/DrawResources/demo.bat b/src/DrawResources/demo.bat
deleted file mode 100755 (executable)
index 9e14029..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-echo ON
-
-echo " Open CASCADE "
-
-if not DEFINED CASROOT     echo CASROOT is mandatory
-
-if %PROCESSOR_ARCHITECTURE% EQU x86 Set STATION=Windows_NT
-
-
-
-rem =========================================
-rem
-rem    LD_LIBRARY_PATH definition 
-rem
-rem =========================================
-
-if NOT DEFINED OLDPATH set OLDPATH=%PATH%
-
-
-
-set PATH=%PATH%;%CASROOT%\%STATION%\dll;
-
-rem the Path where Tcl is installed
-
-set PATH=D:/DevTools/Tcltk/bin/;%PATH%;
-
-rem ======================================
-
-
-Set DrawExe=%CASROOT%\%STATION%\bin\TTOPOLOGY.exe
-
-# POP : Since C31 Version ; this Varaible are not Mandatory
-rem if not DEFINED DRAWHOME    Set DRAWHOME=%CASROOT%/src/DrawResources
-rem if not DEFINED DRAWDEFAULT set DRAWDEFAULT=%DRAWHOME%\\DrawDefault
-
-Set MMGT_CLEAR=1
-%DRAWEXE% 
-
-
-
diff --git a/src/DrawResources/demo.tcl b/src/DrawResources/demo.tcl
deleted file mode 100755 (executable)
index ffb5a7e..0000000
+++ /dev/null
@@ -1,133 +0,0 @@
-# Copyright (c) 1999-2012 OPEN CASCADE SAS
-#
-# The content of this file is subject to the Open CASCADE Technology Public
-# License Version 6.5 (the "License"). You may not use the content of this file
-# except in compliance with the License. Please obtain a copy of the License
-# at http://www.opencascade.org and read it completely before using this file.
-#
-# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
-# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
-#
-# The Original Code and all software distributed under the License is
-# distributed on an "AS IS" basis, without warranty of any kind, and the
-# Initial Developer hereby disclaims all such warranties, including without
-# limitation, any warranties of merchantability, fitness for a particular
-# purpose or non-infringement. Please see the License for the specific terms
-# and conditions governing the rights and limitations under the License.
-
-
-set stationname $tcl_platform(platform)
-if { ${stationname} == "windows" } {
-   proc winfo { aTest aWindow } { return False }
-}
-
-
-proc sage { a} {
-    global stationname 
-    if { ${stationname} != "windows" } {
-       
-       if { ![winfo exists .h ] } {
-           toplevel .h -bg azure3
-           wm title .h "INFO TEST HARNESS"
-           wm geometry .h +320+20
-           
-       } 
-       if { [winfo exists .h.m ] } {
-           set astring [.h.m cget  -text]
-           set newstring "${astring} \n $a"
-           .h.m configure -text $newstring 
-           puts $a
-       } else {
-           message .h.m -justify left -bg azure2 -width 13c -relief ridge -bd 4\
-                   -text $a
-           puts $a
-       } 
-       pack .h.m
-       update
-   }
-}
-
-
-smallview
-if { [winfo exists .h ] } {
-    destroy .h
-}
-sage " Creating a box"
-sage "    box  b -10 -10 -10 20 20 20"
-sage " "
-box b -10 -10 -10 20 20 20
-fit
-nexplode b f
-erase b
-sage " Draft of two lateral faces "
-sage "    depouille r b  0 0  -1 b_6 -15 10 -10 10  0 0 -1 "
-sage "    nexplode r f"
-sage "    depouille rr r  0 0 -1   r_1 -15 -10 -10 10  0 0 -1 "
-sage " "
-depouille r b  0 0  -1 b_6 -15 10 -10 10  0 0 -1 
-clear
-nexplode r f
-depouille rr r  0 0 -1   r_1 -15 -10 -10 10  0 0 -1 
-clear
-nexplode rr e
-sage " Fillet on four lateral edges, then on the top and bottom edges  "
-sage "    nexplode rr e"
-sage "    blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11"
-sage "    nexplode result e"
-sage "    blend result result 2 result_11 3 result_12"
-sage " "
-blend result rr 3 rr_2 3 rr_3 3 rr_10 3 rr_11
-erase rr
-erase result
-nexplode result e
-blend result result 2 result_11 3 result_12 
-clear
-nexplode result f
-sage " Creating a profile on the top face "
-sage "    nexplode result f"
-sage "    profile p  S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
-"
-sage " "
-profile p  S result_16 F 10 4 D 1 0 C 2 90. Y 8 C 2 90. X -2 C 2 90. Y -8 C 2 90. X 2
-sage " Creating a prism"
-sage "    prism rr p 0 0 20"
-sage " "
-prism rr p 0 0 20
-fit
-sage " Fusion of this prism with the original part "
-sage "    fuse result rr result"
-sage " "
-fuse result rr result
-donl result
-nexplode result f
-erase result
-fit
-
-sage " Opening the top face"
-sage "    offsetshape r result -1 0.0001 result_17"
-sage " "
-
-nexplode result f
-offsetshape r result -1 0.0001 result_17
-sage " Creating a cylinder and positionning it"
-sage "    pcylinder cyl 2 300"
-sage "    trotate cyl cyl 0 0 0  1 0 0 45"
-sage "    ttranslate cyl cyl 0 7.5 0"
-sage " "
-pcylinder cyl 2 30
-trotate cyl cyl 0 0 0  1 0 0 45
-ttranslate cyl cyl 0 7.5 0
-sage " Display the Shape on Hidden Line Mode "
-sage "   hlr hid r"
-sage ""
-donl r
-hlr hid r
-sage " Display the Shape on HLR Mode "
-sage "   hlr nohid r"
-sage "   hlr hlr r"
-sage ""
-donl r
-hlr nohid r
-hlr hlr r
-sage "Demo completed"
-
diff --git a/src/DrawResources/wing.brep b/src/DrawResources/wing.brep
deleted file mode 100755 (executable)
index 00c426f..0000000
+++ /dev/null
@@ -1,404 +0,0 @@
-DBRep_DrawableShape
-
-CASCADE Topology V1, (c) Matra-Datavision
-Locations 0
-Curve2ds 16
-1 0 0 0 1 
-1 0 0 1 0 
-1 1 0 0 1 
-1 0 1 1 0 
-1 0 0 0 1 
-1 0 0 1 0 
-1 1 0 0 1 
-1 0 1 1 0 
-1 0 0 0 1 
-1 0 0 1 0 
-1 1 0 0 1 
-1 0 1 1 0 
-1 0 0 0 1 
-1 0 0 1 0 
-1 1 0 0 1 
-1 0 1 1 0 
-Curves 16
-7 0 0  1 2 2  3.3500000000000001 0 0.84999599999999997  3.0956649999999999 3.3199999999999998 0.849997 
- 0 2 1 2
-7 0 0  7 8 2  3.3500000000000001 0 0.84999599999999997  2.5594269999999999 0 1.0545310000000001  2.9291839999999998 0 0.94117300000000004  2.224526 0 1.0736730000000001  2.2209889999999999 0 0.96156200000000003  1.9382239999999999 0 0.984595  1.850238 0 0.91910099999999995  1.8500000000000001 0 0.84999999999999998 
- 0 8 1 8
-7 0 0  1 2 2  1.8500000000000001 0 0.84999999999999998  1.7956650000000001 3.3199999999999998 0.84999999999999998 
- 0 2 1 2
-7 0 0  7 8 2  3.0956649999999999 3.3199999999999998 0.849997  2.4105020000000001 3.3199999999999998 1.0272600000000001  2.7309580000000002 3.3199999999999998 0.92901699999999998  2.1202549999999998 3.3199999999999998 1.0438499999999999  2.1171880000000001 3.3199999999999998 0.94668699999999995  1.872126 3.3199999999999998 0.96664899999999998  1.795871 3.3199999999999998 0.909887  1.7956650000000001 3.3199999999999998 0.84999999999999998 
- 0 8 1 8
-7 0 0  1 2 2  1.8500000000000001 0 0.84999999999999998  1.7956650000000001 3.3199999999999998 0.84999999999999998 
- 0 2 1 2
-7 0 0  8 9 2  1.8500000000000001 0 0.84999999999999998  1.8497189999999999 0 0.76831300000000002  2.1391040000000001 0 0.76218600000000003  2.558659 0 0.68765799999999999  2.970672 0 0.84048500000000004  2.512594 0 0.70602500000000001  3.174499 0 0.87292999999999998  3.190143 0 0.84999999999999998  3.3500000000000001 0 0.84999599999999997 
- 0 9 1 9
-7 0 0  1 2 2  3.3500000000000001 0 0.84999599999999997  3.0956649999999999 3.3199999999999998 0.849997 
- 0 2 1 2
-7 0 0  8 9 2  1.7956650000000001 3.3199999999999998 0.84999999999999998  1.7954209999999999 3.3199999999999998 0.77920500000000004  2.0462220000000002 3.3199999999999998 0.773895  2.4098359999999999 3.3199999999999998 0.70930300000000002  2.7669139999999999 3.3199999999999998 0.841754  2.3699129999999999 3.3199999999999998 0.72522200000000003  2.9435639999999998 3.3199999999999998 0.86987300000000001  2.9571230000000002 3.3199999999999998 0.84999999999999998  3.0956649999999999 3.3199999999999998 0.849997 
- 0 9 1 9
-7 0 0  1 2 2  3.0956649999999999 3.3199999999999998 0.849997  2.4870429999999999 4.75 1.180139 
- 0 2 1 2
-7 0 0  7 8 2  3.0956649999999999 3.3199999999999998 0.849997  2.4105020000000001 3.3199999999999998 1.0272600000000001  2.7309580000000002 3.3199999999999998 0.92901699999999998  2.1202549999999998 3.3199999999999998 1.0438499999999999  2.1171880000000001 3.3199999999999998 0.94668699999999995  1.872126 3.3199999999999998 0.96664899999999998  1.795871 3.3199999999999998 0.909887  1.7956650000000001 3.3199999999999998 0.84999999999999998 
- 0 8 1 8
-7 0 0  1 2 2  1.7956650000000001 3.3199999999999998 0.84999999999999998  1.9370430000000001 4.75 1.1801410000000001 
- 0 2 1 2
-7 0 0  7 8 2  2.4870429999999999 4.75 1.180139  2.1971660000000002 4.75 1.2551349999999999  2.3327439999999999 4.75 1.213571  2.0743689999999999 4.75 1.262154  2.0730719999999998 4.75 1.221047  1.969392 4.75 1.229492  1.93713 4.75 1.2054769999999999  1.9370430000000001 4.75 1.1801410000000001 
- 0 8 1 8
-7 0 0  1 2 2  1.7956650000000001 3.3199999999999998 0.84999999999999998  1.9370430000000001 4.75 1.1801410000000001 
- 0 2 1 2
-7 0 0  8 9 2  1.7956650000000001 3.3199999999999998 0.84999999999999998  1.7954209999999999 3.3199999999999998 0.77920500000000004  2.0462220000000002 3.3199999999999998 0.773895  2.4098359999999999 3.3199999999999998 0.70930300000000002  2.7669139999999999 3.3199999999999998 0.841754  2.3699129999999999 3.3199999999999998 0.72522200000000003  2.9435639999999998 3.3199999999999998 0.86987300000000001  2.9571230000000002 3.3199999999999998 0.84999999999999998  3.0956649999999999 3.3199999999999998 0.849997 
- 0 9 1 9
-7 0 0  1 2 2  3.0956649999999999 3.3199999999999998 0.849997  2.4870429999999999 4.75 1.180139 
- 0 2 1 2
-7 0 0  8 9 2  1.9370430000000001 4.75 1.1801410000000001  1.9369400000000001 4.75 1.1501889999999999  2.0430480000000002 4.75 1.147942  2.196885 4.75 1.1206149999999999  2.3479559999999999 4.75 1.176652  2.1799940000000002 4.75 1.1273500000000001  2.4226930000000002 4.75 1.1885479999999999  2.4284289999999999 4.75 1.1801410000000001  2.4870429999999999 4.75 1.180139 
- 0 9 1 9
-Polygon3D 0
-PolygonOnTriangulations 0
-Surfaces 4
-9 0 0 0 0 7 1 8 2 2 2 3.3500000000000001 0 0.84999599999999997  3.0956649999999999 3.3199999999999998 0.849997  
-2.5594269999999999 0 1.0545310000000001  2.4105020000000001 3.3199999999999998 1.0272600000000001  
-2.9291839999999998 0 0.94117300000000004  2.7309580000000002 3.3199999999999998 0.92901699999999998  
-2.224526 0 1.0736730000000001  2.1202549999999998 3.3199999999999998 1.0438499999999999  
-2.2209889999999999 0 0.96156200000000003  2.1171880000000001 3.3199999999999998 0.94668699999999995  
-1.9382239999999999 0 0.984595  1.872126 3.3199999999999998 0.96664899999999998  
-1.850238 0 0.91910099999999995  1.795871 3.3199999999999998 0.909887  
-1.8500000000000001 0 0.84999999999999998  1.7956650000000001 3.3199999999999998 0.84999999999999998  
-
-0 8
-1 8
-
-0 2
-1 2
-
-9 0 0 0 0 8 1 9 2 2 2 1.8500000000000001 0 0.84999999999999998  1.7956650000000001 3.3199999999999998 0.84999999999999998  
-1.8497189999999999 0 0.76831300000000002  1.7954209999999999 3.3199999999999998 0.77920500000000004  
-2.1391040000000001 0 0.76218600000000003  2.0462220000000002 3.3199999999999998 0.773895  
-2.558659 0 0.68765799999999999  2.4098359999999999 3.3199999999999998 0.70930300000000002  
-2.970672 0 0.84048500000000004  2.7669139999999999 3.3199999999999998 0.841754  
-2.512594 0 0.70602500000000001  2.3699129999999999 3.3199999999999998 0.72522200000000003  
-3.174499 0 0.87292999999999998  2.9435639999999998 3.3199999999999998 0.86987300000000001  
-3.190143 0 0.84999999999999998  2.9571230000000002 3.3199999999999998 0.84999999999999998  
-3.3500000000000001 0 0.84999599999999997  3.0956649999999999 3.3199999999999998 0.849997  
-
-0 9
-1 9
-
-0 2
-1 2
-
-9 0 0 0 0 7 1 8 2 2 2 3.0956649999999999 3.3199999999999998 0.849997  2.4870429999999999 4.75 1.180139  
-2.4105020000000001 3.3199999999999998 1.0272600000000001  2.1971660000000002 4.75 1.2551349999999999  
-2.7309580000000002 3.3199999999999998 0.92901699999999998  2.3327439999999999 4.75 1.213571  
-2.1202549999999998 3.3199999999999998 1.0438499999999999  2.0743689999999999 4.75 1.262154  
-2.1171880000000001 3.3199999999999998 0.94668699999999995  2.0730719999999998 4.75 1.221047  
-1.872126 3.3199999999999998 0.96664899999999998  1.969392 4.75 1.229492  
-1.795871 3.3199999999999998 0.909887  1.93713 4.75 1.2054769999999999  
-1.7956650000000001 3.3199999999999998 0.84999999999999998  1.9370430000000001 4.75 1.1801410000000001  
-
-0 8
-1 8
-
-0 2
-1 2
-
-9 0 0 0 0 8 1 9 2 2 2 1.7956650000000001 3.3199999999999998 0.84999999999999998  1.9370430000000001 4.75 1.1801410000000001  
-1.7954209999999999 3.3199999999999998 0.77920500000000004  1.9369400000000001 4.75 1.1501889999999999  
-2.0462220000000002 3.3199999999999998 0.773895  2.0430480000000002 4.75 1.147942  
-2.4098359999999999 3.3199999999999998 0.70930300000000002  2.196885 4.75 1.1206149999999999  
-2.7669139999999999 3.3199999999999998 0.841754  2.3479559999999999 4.75 1.176652  
-2.3699129999999999 3.3199999999999998 0.72522200000000003  2.1799940000000002 4.75 1.1273500000000001  
-2.9435639999999998 3.3199999999999998 0.86987300000000001  2.4226930000000002 4.75 1.1885479999999999  
-2.9571230000000002 3.3199999999999998 0.84999999999999998  2.4284289999999999 4.75 1.1801410000000001  
-3.0956649999999999 3.3199999999999998 0.849997  2.4870429999999999 4.75 1.180139  
-
-0 9
-1 9
-
-0 2
-1 2
-
-Triangulations 0
-
-TShapes 41
-Ve
-1e-07
-3.35 0 0.849996
-0 0
-
-0101100
-*
-Ve
-1e-07
-3.095665 3.32 0.849997
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  1 0 0 1
-2  1 1 0 0 1
-0
-
-0101000
-+41 0 -40 0 *
-Ve
-1e-07
-1.85 0 0.849999999999998
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  2 0 0 1
-2  2 1 0 0 1
-0
-
-0101000
-+41 0 -38 0 *
-Ve
-1e-07
-1.795665 3.32 0.849999999999998
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  3 0 0 1
-2  3 1 0 0 1
-0
-
-0101000
-+38 0 -36 0 *
-Ed
- 1e-07 1 1 0
-1  4 0 0 1
-2  4 1 0 0 1
-0
-
-0101000
-+40 0 -36 0 *
-Wi
-
-0101100
--39 0 +37 0 +35 0 -34 0 *
-Fa
-1  1e-07 1 0
-
-0111000
-+33 0 *
-Ve
-1e-07
-1.85 0 0.85
-0 0
-
-0101100
-*
-Ve
-1e-07
-1.795665 3.32 0.85
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  5 0 0 1
-2  5 2 0 0 1
-0
-
-0101000
-+31 0 -30 0 *
-Ve
-1e-07
-3.35000000000001 0 0.849996000000003
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  6 0 0 1
-2  6 2 0 0 1
-0
-
-0101000
-+31 0 -28 0 *
-Ve
-1e-07
-3.09566500000001 3.32 0.849997000000003
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  7 0 0 1
-2  7 2 0 0 1
-0
-
-0101000
-+28 0 -26 0 *
-Ed
- 1e-07 1 1 0
-1  8 0 0 1
-2  8 2 0 0 1
-0
-
-0101000
-+30 0 -26 0 *
-Wi
-
-0101100
--29 0 +27 0 +25 0 -24 0 *
-Fa
-1  1e-07 2 0
-
-0111000
-+23 0 *
-Ve
-1e-07
-3.095665 3.32 0.849997
-0 0
-
-0101100
-*
-Ve
-1e-07
-2.487043 4.75 1.180139
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  9 0 0 1
-2  9 3 0 0 1
-0
-
-0101000
-+21 0 -20 0 *
-Ve
-1e-07
-1.79566500000001 3.32 0.850000000000001
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  10 0 0 1
-2  10 3 0 0 1
-0
-
-0101000
-+21 0 -18 0 *
-Ve
-1e-07
-1.93704300000001 4.75 1.180141
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  11 0 0 1
-2  11 3 0 0 1
-0
-
-0101000
-+18 0 -16 0 *
-Ed
- 1e-07 1 1 0
-1  12 0 0 1
-2  12 3 0 0 1
-0
-
-0101000
-+20 0 -16 0 *
-Wi
-
-0101100
--19 0 +17 0 +15 0 -14 0 *
-Fa
-1  1e-07 3 0
-
-0111000
-+13 0 *
-Ve
-1e-07
-1.795665 3.32 0.85
-0 0
-
-0101100
-*
-Ve
-1e-07
-1.937043 4.75 1.180141
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  13 0 0 1
-2  13 4 0 0 1
-0
-
-0101000
-+11 0 -10 0 *
-Ve
-1e-07
-3.09566499999999 3.32 0.849997000000002
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  14 0 0 1
-2  14 4 0 0 1
-0
-
-0101000
-+11 0 -8 0 *
-Ve
-1e-07
-2.487043 4.75 1.180139
-0 0
-
-0101100
-*
-Ed
- 1e-07 1 1 0
-1  15 0 0 1
-2  15 4 0 0 1
-0
-
-0101000
-+8 0 -6 0 *
-Ed
- 1e-07 1 1 0
-1  16 0 0 1
-2  16 4 0 0 1
-0
-
-0101000
-+10 0 -6 0 *
-Wi
-
-0101100
--9 0 +7 0 +5 0 -4 0 *
-Fa
-1  1e-07 4 0
-
-0111000
-+3 0 *
-Co
-
-1100000
-+32 0 +22 0 +12 0 +2 0 *
-
-+1 0