From: abv Date: Fri, 18 May 2012 11:05:29 +0000 (+0400) Subject: 0023136: Increase visibility of DRAW samples X-Git-Tag: V6_5_4_beta1~180 X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=03392dd2e72bc8d6d8c876f529b7248a2b6051f5;p=occt-copy.git 0023136: Increase visibility of DRAW samples 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 --- diff --git a/data/occ/wing.brep b/data/occ/wing.brep new file mode 100644 index 0000000000..00c426f9ba --- /dev/null +++ b/data/occ/wing.brep @@ -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 index 0000000000..23eef635dd --- /dev/null +++ b/samples/tcl/DataExchangeDemo.tcl @@ -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 index 0000000000..f95508fa9e --- /dev/null +++ b/samples/tcl/ModelingDemo.tcl @@ -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 index 0000000000..377c441e3a --- /dev/null +++ b/samples/tcl/Readme.txt @@ -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 index 0000000000..af9a327f0d --- /dev/null +++ b/samples/tcl/VisualizationDemo.tcl @@ -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 index 0000000000..a0fc65e787 --- /dev/null +++ b/samples/tcl/challenge.tcl @@ -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 index e89ad8bd81..0000000000 --- a/src/DrawResources/DataExchangeDemo.tcl +++ /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 index ffb5a7e195..0000000000 --- a/src/DrawResources/ModelingDemo.tcl +++ /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 index a5f8401939..0000000000 --- a/src/DrawResources/OCAFDemo.tcl +++ /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 index a287bdd4cb..0000000000 --- a/src/DrawResources/VisualizationDemo.tcl +++ /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 index ced5b4d111..0000000000 --- a/src/DrawResources/demo +++ /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 index 9e140299c4..0000000000 --- a/src/DrawResources/demo.bat +++ /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 index ffb5a7e195..0000000000 --- a/src/DrawResources/demo.tcl +++ /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 index 00c426f9ba..0000000000 --- a/src/DrawResources/wing.brep +++ /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