occt-gltf-addon-linux-x64 0.1.1 → 0.1.2

package/resources/samples/tcl/MBBGehauseRohteil.tcl

@@ -0,0 +1,268 @@
+# The following example constructs (however, not trying to follow the drawings
+# precisely) an airplane part called Gehause Rohteil from MBB Deutsche Aerospace.
+# In this example the planar geometry is combined together with cylindrical parts.
+# There are many ways to create a single mechanical workpiece like the following
+# one. Here we choose Booleans as a main tool for material cutting. Fillets
+# (presented in the original model) are not employed herein as we are focused
+# on BOPs only. However, Gehause Rohteil is a good model to test blendings as well.
+#
+# This model was used as a test part for comparing modeling systems in 1979 and
+# again in 1983. The tests were organized by Computer Aided Manufacturing
+# International (CAM-I).
+#
+#Category: Modeling
+#Title: MBB Gehause Rohteil (classic test for CAD modelling by CAM-I)
+
+pload MODELING XSDRAW
+
+# -----------------------------------------------------------------------------
+# Prepare base contour
+# -----------------------------------------------------------------------------
+
+point p1  0  0
+point p2  35 0
+point p3  39 4
+point p4  39 10
+point p5  35 13
+point p6  27 13
+point p7  27 10
+point p8  22 10
+point p9  20 8
+point p10 20 4
+point p11 11 4
+point p12 11 3
+point p13 5  3
+point p14 5  13
+point p15 0  13
+point p16 0  9
+point p17 4  9
+point p18 4  4
+point p19 0  4
+
+line l1 0 0 1 0; trim l1 l1 0 35
+line l2 39 4 0 1; trim l2 l2 0 6
+line l3 35 13 -1 0; trim l3 l3 0 8
+line l4 27 13 0 -1; trim l4 l4 0 3
+line l5 27 10 -1 0; trim l5 l5 0 5
+line l6 20 8 0 -1; trim l6 l6 0 4
+line l7 20 4 -1 0; trim l7 l7 0 9
+line l8 11 4 0 -1; trim l8 l8 0 1
+line l9 11 3 -1 0; trim l9 l9 0 6
+line l10 5 3 0 1; trim l10 l10 0 10
+line l11 5 13 -1 0; trim l11 l11 0 5
+line l12 0 13 0 -1; trim l12 l12 0 4
+line l13 0 9 1 0; trim l13 l13 0 4
+line l14 4 9 0 -1; trim l14 l14 0 5
+line l15 4 4 -1 0; trim l15 l15 0 4
+line l16 0 4 0 -1; trim l16 l16 0 4
+
+# We use Bezier curves here instead of circles. This does not make
+# a great sense since we are focused on a principle rather than
+# trying to follow the drawing precisely
+2dbeziercurve c1 3 35 0 1 39 0 1 39 4 1
+2dbeziercurve c2 3 39 10 1 39 13 1 35 13 1
+2dbeziercurve c3 3 22 10 1 20 10 1 20 8 1
+
+# Circle for a big hole
+circle cbig 33 6.5 4.0
+
+# Create topology
+mkedge e1 l1
+mkedge e2 c1
+mkedge e3 l2
+mkedge e4 c2
+mkedge e5 l3
+mkedge e6 l4
+mkedge e7 l5
+mkedge e8 c3
+mkedge e9 l6
+mkedge e10 l7
+mkedge e11 l8
+mkedge e12 l9
+mkedge e13 l10
+mkedge e14 l11
+mkedge e15 l12
+mkedge e16 l13
+mkedge e17 l14
+mkedge e18 l15
+mkedge e19 l16
+wire wout e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13 e14 e15 e16 e17 e18 e19
+mkedge ein1 cbig
+wire win1 ein1
+mkplane f wout
+mkplane f1 win1
+fixshape f f
+fixshape f1 f1
+bcut f f f1
+
+# -----------------------------------------------------------------------------
+# Make extrusion
+# -----------------------------------------------------------------------------
+
+prism p f 0 0 3
+
+# -----------------------------------------------------------------------------
+# Prepare a contour on top face
+# -----------------------------------------------------------------------------
+
+point p1  0  0
+point p2  28 0
+point p3  28 13
+point p4  27 13
+point p5  27 10
+point p6  22 10
+point p7  20 8
+point p8  20 4
+point p9  11 4
+point p10 11 3
+point p11 5  3
+point p12 5  13
+point p13 0  13
+line l1 0 0 1 0; trim l1 l1 0 28
+line l2 28 0 0 1; trim l2 l2 0 13
+line l3 28 13 -1 0; trim l3 l3 0 1
+line l4 27 13 0 -1; trim l4 l4 0 3
+line l5 27 10 -1 0; trim l5 l5 0 5
+line l6 20 8 0 -1; trim l6 l6 0 4
+line l7 20 4 -1 0; trim l7 l7 0 9
+line l8 11 4 0 -1; trim l8 l8 0 1
+line l9 11 3 -1 0; trim l9 l9 0 6
+line l10 5 3 0 1; trim l10 l10 0 10
+line l11 5 13 -1 0; trim l11 l11 0 5
+line l12 0 13 0 -1; trim l12 l12 0 13
+2dbeziercurve c3 3 22 10 1 20 10 1 20 8 1
+
+# Create topology on top face
+plane top_pln 0 0 3
+to3d l1 l1 top_pln
+to3d l2 l2 top_pln
+to3d l3 l3 top_pln
+to3d l4 l4 top_pln
+to3d l5 l5 top_pln
+to3d c3 c3 top_pln
+to3d l6 l6 top_pln
+to3d l7 l7 top_pln
+to3d l8 l8 top_pln
+to3d l9 l9 top_pln
+to3d l10 l10 top_pln
+to3d l11 l11 top_pln
+to3d l12 l12 top_pln
+mkedge e1 l1
+mkedge e2 l2
+mkedge e3 l3
+mkedge e4 l4
+mkedge e5 l5
+mkedge e6 c3
+mkedge e7 l6
+mkedge e8 l7
+mkedge e9 l8
+mkedge e10 l9
+mkedge e11 l10
+mkedge e12 l11
+mkedge e13 l12
+wire wout e1 e2 e3 e4 e5 e6 e7 e8 e9 e10 e11 e12 e13
+mkface ftop top_pln wout
+fixshape ftop ftop
+
+# -----------------------------------------------------------------------------
+# Make top extrusion
+# -----------------------------------------------------------------------------
+
+prism ptop ftop 0 0 1.5
+
+# -----------------------------------------------------------------------------
+# Fuse top and bottom parts and make features
+# -----------------------------------------------------------------------------
+
+# Fuse top and bottom
+bfuse p p ptop
+
+# Create a hole
+plane top_pln 0 0 10
+circle csmall 23 6.5 2.0
+to3d hole_top csmall top_pln
+plane bot_pln 0 0 -10
+to3d hole_bot csmall bot_pln
+mkedge ehole_top hole_top
+mkedge ehole_bot hole_bot
+wire whole_top ehole_top
+wire whole_bot ehole_bot
+thrusections tool 1 1 whole_top whole_bot
+bcut p p tool
+
+# Add extrusion around the hole
+plane top_pln 0 0 4.5
+circle csmall_outer 23 6.5 3.0
+circle csmall_inner 23 6.5 2.0
+to3d hole_top_outer csmall_outer top_pln
+to3d hole_top_inner csmall_inner top_pln
+mkedge e_hole_top_outer hole_top_outer
+mkedge e_hole_top_inner hole_top_inner
+wire w_hole_top_outer e_hole_top_outer
+wire w_hole_top_inner e_hole_top_inner
+mkface ftube_outer top_pln w_hole_top_outer
+mkface ftube_inner top_pln w_hole_top_inner
+fixshape ftube_outer ftube_outer
+fixshape ftube_inner ftube_inner
+prism ptube_outer ftube_outer 0 0 3
+prism ptube_inner ftube_inner 0 0 3
+bcut ptube ptube_outer ptube_inner
+bfuse p p ptube
+
+# Build elevation "teeths" near the big hole
+box t1 26 0 0 3 2.5 7
+box t2 26 13 0 3 -3 7
+bfuse p p t1
+bfuse p p t2
+
+# Build elevation "teeths" near the tail
+box t1 0 0 0 5 3 8
+box t2 0 13 0 5 -3 8
+bfuse p p t1
+bfuse p p t2
+
+# Remove some material from tail "teeths"
+box blend_box 0 -5 0 5 25 5
+trotate blend_box blend_box 0 0 0 0 1 0 -10
+ttranslate blend_box blend_box 2.5 0 2.25
+bcut p p blend_box
+
+# Remove some material from "teeths" near big hole
+box blend_box 0 -5 0 5 25 5
+trotate blend_box blend_box 0 0 0 0 1 0 -9
+ttranslate blend_box blend_box 14.5 0 1.5
+bcut p p blend_box
+
+# Hole at the tail
+ellipse tail_hole1 0 0 0.75 0.5
+plane base_pln 2 6.5 0
+to3d tail_hole_3d1 tail_hole1 base_pln
+mkedge e_tail_hole1 tail_hole_3d1
+wire w_tail_hole1 e_tail_hole1
+plane base_pln 2 6.5 20
+to3d tail_hole_3d2 tail_hole1 base_pln
+mkedge e_tail_hole2 tail_hole_3d2
+wire w_tail_hole2 e_tail_hole2
+thrusections tail_tube 1 1 w_tail_hole1 w_tail_hole2
+bcut p p tail_tube
+
+# Chamfer at tail
+box blend_box 0 3 0 5 7 5
+trotate blend_box blend_box 0 0 0 0 1 0 -5
+ttranslate blend_box blend_box 2 0 1.5
+bcut p p blend_box
+
+# -----------------------------------------------------------------------------
+# Extract final solid and simplify it
+# -----------------------------------------------------------------------------
+
+explode p So
+unifysamedom result  p_1
+
+# Show result
+pload VISUALIZATION
+vinit Driver1/Viewer1/View1
+vbackground -color C8C8FF
+vdisplay -dispMode 1 result
+vfit
+vaspects result -setFaceBoundaryDraw 1

package/resources/samples/tcl/ModelingDemo.tcl

@@ -0,0 +1,120 @@
+# Copyright (c) 1999-2014 OPEN CASCADE SAS
+#
+#Category: Demos
+#Title: Modeling operations
+#
+# This file is part of Open CASCADE Technology software library.
+#
+# This library is free software; you can redistribute it and / or modify it
+# under the terms of the GNU Lesser General Public version 2.1 as published
+# by the Free Software Foundation, with special exception defined in the file
+# OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
+# distribution for complete text of the license and disclaimer of any warranty.
+#
+# Alternatively, this file may be used under the terms of Open CASCADE
+# commercial license or contractual agreement.
+
+# 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
+donly 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 positioning 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 ""
+donly r
+hlr hid r
+sage " Display the Shape on HLR Mode "
+sage "   hlr nohid r"
+sage "   hlr hlr r"
+sage ""
+donly r
+hlr nohid r
+hlr hlr r
+sage "Demo completed"

package/resources/samples/tcl/Penrose.tcl

@@ -0,0 +1,87 @@
+# Generate set of boxes resembling OCC logo and arranged in the shape of 
+# Penrose triangle on perspective view.
+# The sample shows how the viewer can be manipulated to produce required 
+# visual effect
+
+#Category: Visualization
+#Title: Penrose triangle on perspective view
+
+pload MODELING VISUALIZATION
+# Ray-Tracing doesn't work with Compatible Profile on macOS
+if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
+
+# procedure to define box dimensions
+set scale 1.
+set ratio 0.94
+proc defbox {} { 
+  global scale ratio
+  set scale [expr $scale * $ratio]
+  return [list 1.8*$scale 1.8*$scale 1.3*$scale]
+}
+
+# make set of boxes
+eval box b1 0 0 0 [defbox] 
+eval box b2 2 0 0 [defbox]
+eval box b3 4 0 0 [defbox] 
+eval box b4 6 0 0 [defbox] 
+eval box b5 6 -1.5 0 [defbox] 
+eval box b6 6 -3 0 [defbox] 
+eval box b7 6 -4.5 0 [defbox] 
+eval box b8 6 -6 0 [defbox] 
+eval box b9 6 -6 1 [defbox]
+eval box b10 6 -6 2 [defbox]
+
+# cut last box by prisms created from the first two to make impression
+# that it is overlapped by these on selected view (see vviewparams below)
+explode b1 f
+explode b2 f
+prism p0 b1_5 12.3 -14 6.8
+bcut bx b10 p0
+prism p1 b2_3 12 -14 6.8
+bcut bxx bx p1
+tcopy bxx b10
+
+# make some boxes hollow
+for {set i 1} {$i <= 1} {incr i} {
+  set dim [bounding b$i -save xmin ymin zmin xmax ymax zmax]
+  set dx [dval xmax-xmin]
+  set x1 [dval xmin+0.1*$dx]
+  set x2 [dval ymin+0.1*$dx]
+  set x3 [dval zmin+0.1*$dx]
+  box bc $x1 $x2 $x3 0.8*$dx 0.8*$dx $dx
+  bcut bb b$i bc
+  tcopy bb b$i
+}
+
+# prepare a view
+vinit Penrose w=1024 h=512
+vbackground -color WHITE
+vrenderparams -rayTrace -fsaa on -reflections off -shadows off
+
+# set camera position and adjust lights
+vcamera -persp -fovy 25
+vviewparams -eye 14 -14 6.8 -up 0 0 1 -at 4 -4 0 -scale 70
+vsetdispmode 1
+vlight -defaults
+vlight dirlight1 -type DIRECTIONAL -direction 1 -2 -10 -head 1 -color WHITE
+vlight dirlight2 -type DIRECTIONAL -direction 0 -10 0  -head 1 -color WHITE
+
+# display boxes
+vdisplay b1 b2 b3 b4 b5 b6 b7 b8 b9 b10
+
+# set colors like in boxes of on OCC logo
+vsetcolor b1  DD0029
+vsetcolor b2  F6DD00
+vsetcolor b3  98F918
+vsetcolor b4  E9007A
+vsetcolor b5  007ABC
+vsetcolor b6  93007A
+vsetcolor b7  EE9800
+vsetcolor b8  00B489
+vsetcolor b9  00A47A
+vsetcolor b10 007ABC
+
+# set material to plastic for better look
+for {set i 1} {$i <= 10} {incr i} {vsetmaterial b$i plastic}
+
+vdrawtext label "Which\nbox\nis\ncloser\nto\nyou?" -pos 0 -6 -2 -color BLACK -halign left -valign bottom -angle 0 -zoom 0 -height 40

package/resources/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 resources/samples/tcl/VisualizationDemo.tcl

package/resources/samples/tcl/VisualizationDemo.tcl

@@ -0,0 +1,162 @@
+# Copyright (c) 1999-2014 OPEN CASCADE SAS
+#
+#Category: Demos
+#Title: Displaying 3d viewer
+#
+# This file is part of Open CASCADE Technology software library.
+#
+# This library is free software; you can redistribute it and / or modify it
+# under the terms of the GNU Lesser General Public version 2.1 as published
+# by the Free Software Foundation, with special exception defined in the file
+# OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
+# distribution for complete text of the license and disclaimer of any warranty.
+#
+# Alternatively, this file may be used under the terms of Open CASCADE
+# commercial license or contractual agreement.
+
+# 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 attributes : 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 positioning 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"