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

package/resources/samples/tcl/drill.tcl

@@ -0,0 +1,147 @@
+# Sample: creation of simple twist drill bit
+#Category: Modeling
+#Title: Drill
+
+pload MODELING VISUALIZATION
+
+# drill parameters (some terms taken from http://www.drill-bits.cn/drill-bits-quality.asp)
+dset R  4.    ;# outer radius
+dset D  2*R   ;# diameter
+dset Rr 3.5   ;# chisel radius (outer radius minus body clearance)
+
+dset b  1.    ;# web thickness (approximate)
+dset d  b/2
+
+dset H  80.   ;# height of the spiral part
+dset a  3.*pi ;# total angle of spiral rotation
+
+dset sigma 118 ;# point angle, in degrees
+
+# Create section profile by sequence of Boolean operations
+# on simple planar objects
+puts "Creating the drill section profile..."
+
+polyline rectangle1 d -R 0  R -R 0  -d R 0  -R R 0  d -R 0
+
+circle circle1 0 0 0  0 0 1 R
+mkedge circle1 circle1
+wire circle1 circle1
+
+circle circle2 0 0 0  0 0 1 Rr
+mkedge circle2 circle2
+wire circle2 circle2
+
+plane p0
+mkface rectangle1 p0 rectangle1
+mkface circle1 p0 circle1
+mkface circle2 p0 circle2
+
+bcommon sec rectangle1 circle1
+bfuse sec sec circle2
+unifysamedom sec sec
+
+# Construct flute profile so as to have cutting lip straight after sharpening.
+# Here we need to take into account spiral shift of the flute edge
+# along the point length -- the way to do that is to make spiral
+# from the desired cutting lip edge and then intersect it by plane
+polyline lip d -d/2 0  d -R -R/tan(sigma/2*pi/180)
+
+polyline sp 0 0 0  0 0 H
+cylinder cc 0 0 0  0 0 1  0 -4 0  4
+line ll 0 0 a 80
+trim ll ll 0 sqrt(a*a+H*H)
+
+vertex v1 0 -R 0
+vertex v2 0 -R H
+trotate v2 0 0 0 0 0 1 180.*a/pi
+mkedge ee ll cc v1 v2
+wire gg ee
+ 
+mksweep sp
+setsweep -G gg 0 0
+addsweep lip
+buildsweep spiral -S
+
+mkface f0 p0 -R R -R R
+bsection sflute spiral f0
+
+# here we rely on that section curve is parameterized from 0 to 1 
+# and directed as cutting lip edge;
+# note that this can change if intersection algorithm is modified
+explode sflute e
+mkcurve cflute sflute_1
+cvalue cflute 0. x0 y0 z0
+cvalue cflute 1. x1 y1 z1
+vertex vf0 x0 y0 z0 
+vertex vf1 x1 y1 z1
+
+# -- variant: replace curve by arc with start at x0,y0,z0 and end at x1,y1,z1,
+# -- such that tangent at start point is along Y
+#dset Rflute ((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0))/(2*(x1-x0))
+#circle aflute x0+Rflute y0 0  0 0 1  Rflute
+#mkedge sflute_1 aflute vf0 vf1
+
+# make rounding in the flute; use circle with radius Rr/2
+circle cround x0+Rr/2 y0 0  0 0 1 Rr/2
+vertex vf3 x0+Rr y0 0 
+mkedge sflute_2 cround vf3 vf0
+vertex vf2 R -R 0
+edge sflute_3 vf3 vf2
+edge sflute_4 vf2 vf1
+wire w2 sflute_1 sflute_2 sflute_3 sflute_4
+mkface flute p0 w2
+
+# cut flute from profile
+bcut sec sec flute
+trotate flute 0 0 0 0 0 1 180.
+bcut sec sec flute
+donly sec
+
+# sweep profile to get a drill body
+puts "Sweeping the profile..."
+
+mksweep sp
+setsweep -G gg 0 0
+explode sec w
+addsweep sec_1
+buildsweep base -S
+
+# sharpen the drill (see http://tool-land.ru/zatochka-sverla.php)
+puts "Sharpening..."
+
+dset theta a*R/H*sin((90-sigma/2)*pi/180)
+plane ax1 d 1.9*D "H+1.9*D/tan(pi/180.*sigma/2.)" 0 -1 -1
+pcone sh1 ax1 0 100*sin((sigma-90)/2*pi/180.) 100
+trotate sh1 0 0 0 0 0 1 -theta*180/pi
+tcopy sh1 sh2
+trotate sh2 0 0 0 0 0 1 180
+box sh -D/2 -D/2 72 D D 20
+bcommon qq sh1 sh2
+bcut sharpener sh qq
+
+bcut body base sharpener
+
+# make a shank
+puts "Making a shank..."
+plane pl2 0 0 -40  0 0 1
+pcylinder shank pl2 4 40
+pcone transit R 0 R
+plane pl3 0 0 -40  0 0 -0.5
+pcone tail pl3 R 0 0.5
+bfuse shank shank tail
+bfuse shank shank transit
+bfuse drill body shank
+
+# check result
+checkshape drill
+
+# show result
+puts "Displaying result..."
+incmesh drill 0.01
+vdisplay drill
+vsetdispmode drill 1
+vrenderparams -msaa 8
+vfit
+
+# show section and sweep path
+ttranslate sec_1 0 0 H; trotate sec_1 0 0 0 0 0 1 a*180/pi; incmesh gg 0.01; vdisplay gg sec_1

package/resources/samples/tcl/logo2019.tcl

@@ -0,0 +1,89 @@
+# The following example constructs a 3D object looking like new OCC logo on top view.
+#
+#Category: Modeling
+#Title: OCC Logo 2019
+
+pload MODELING VISUALIZATION XDE OCAF
+
+# spheric body
+psphere s 1
+box b 0 0 -2 1.5 1.5 4
+bcut sb s b
+
+# toroidal handle
+ptorus t 1 0.5
+trotate t 0 0 0 0 0 1 -90
+ttranslate t 1.5 1.5 0
+bcut tb t b
+
+pcylinder p1 0.5 0.5
+trotate p1 0 0 0 0 0 1 180
+trotate p1 0 0 0 1 0 0 90
+ttranslate p1 0.5 1.5 0
+
+pcylinder p2 0.5 0.5
+trotate p2 0 0 0 0 0 1 180
+trotate p2 0 0 0 1 0 0 90
+trotate p2 0 0 0 0 0 1 90
+ttranslate p2 1 0.5 0
+
+bfuse tp tb p1
+bfuse tp tp p2
+
+# intermediate part
+
+# - get surfaces and edges on half of spheric and toroidal parts for filling
+box b -2 -2 -2 4 4 2
+bcut sbh sb b
+bcut tph tp b
+unset b
+
+explode sbh f
+renamevar sbh_1 sbf
+explode sbf e
+
+explode tph f
+renamevar tph_2 tpf1
+renamevar tph_13 tpf2
+explode tpf1 e
+explode tpf2 e
+
+# - make curved surface by plate
+#plate r 0 4 tpf1_1 tpf1 1 tpf2_3 tpf2 1 sbf_2 sbf 1 sbf_4 sbf 1
+approxplate r1 0 4 tpf1_1 tpf1 0 tpf2_1 tpf2 0 sbf_2 sbf 0 sbf_4 sbf 0 0.00001 100 3 0
+
+# - make solid
+tcopy r1 r2
+tmirror r2 0 0 0 0 0 1
+explode sb f
+explode tp f
+sewing rr 0.001 r1 r2 sb_2 sb_3 tp_2 tp_5
+ssolid rr rs
+
+# rotate all solids by 45 deg to have standard orientation of the logo on top view
+trotate sb 0 0 0 0 0 1 -45
+trotate tp 0 0 0 0 0 1 -45
+trotate rs 0 0 0 0 0 1 -45
+
+# create XDE document
+catch {Close D}
+XNewDoc D
+set main [XNewShape D]
+XAddComponent D $main sb
+XAddComponent D $main tp
+XAddComponent D $main rs
+XUpdateAssemblies D
+SetName D $main "OCC Logo 2019"
+SetName D [XFindShape D sb] "Core"
+SetName D [XFindShape D tp] "Loop"
+SetName D [XFindShape D rs] "Connector"
+XSetColor D sb FF3652
+XSetColor D tp 00AADA
+XSetColor D rs 0073B0
+
+# display
+vinit View1
+vbackground -color WHITE
+XDisplay -dispMode 1 D
+vtop
+vfit

package/resources/samples/tcl/markers.tcl

@@ -0,0 +1,76 @@
+# Markers demo
+#
+# It shows the various marker types supported by OCCT.
+
+#Category: Visualization
+#Title: Markers in 3d viewer
+
+pload MODELING VISUALIZATION
+
+# reflects Aspect_TypeOfMarker enumeration
+set aMarkerTypeNames {
+  Aspect_TOM_POINT
+  Aspect_TOM_PLUS
+  Aspect_TOM_STAR
+  Aspect_TOM_X
+  Aspect_TOM_O
+  Aspect_TOM_O_POINT
+  Aspect_TOM_O_PLUS
+  Aspect_TOM_O_STAR
+  Aspect_TOM_O_X
+  Aspect_TOM_RING1
+  Aspect_TOM_RING2
+  Aspect_TOM_RING3
+  Aspect_TOM_BALL
+  Aspect_TOM_USERDEFINED
+}
+
+# custom marker
+set aCustom1 [locate_data_file images/marker_box1.png]
+set aCustom2 [locate_data_file images/marker_box2.png]
+set aCustom3 [locate_data_file images/marker_kr.png]
+set aCustom4 [locate_data_file images/marker_dot.png]
+
+set aFontFile ""
+catch { set aFontFile [locate_data_file DejaVuSans.ttf] }
+set aLabelFont "Arial"
+if { "$aFontFile" != "" } {
+  vfont add "$aFontFile" SansFont
+  set aLabelFont "SansFont"
+}
+
+# reset the viewer
+vclear
+vclose ALL
+vinit name=View1 l=32 t=32 w=512 h=512
+
+puts "Draw box in advance which should fit all our markers"
+box b -8 -8 0 16 16 2
+vbottom
+vdisplay -noupdate -dispmode 0 b
+vfit
+vremove -noupdate b
+
+puts "Draw markers of different type and size"
+for { set aMarkerType 0 } { $aMarkerType <= 13 } { incr aMarkerType } {
+  set aRow [expr $aMarkerType - 7]
+  set aCol 5
+  set aName [lindex $aMarkerTypeNames $aMarkerType]
+  vdrawtext "$aName" "$aName" -pos 0 [expr $aRow + 0.5] 0 -color 7FFFFF -halign center -valign center -angle 000 -zoom 0 -height 12 -aspect bold -font $aLabelFont -noupdate
+  vdisplay -top -noupdate "$aName"
+  if { $aMarkerType == 13 } {
+    vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom1
+    set aCol [expr $aCol - 1]
+    vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom2
+    set aCol [expr $aCol - 1]
+    vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom3
+    set aCol [expr $aCol - 1]
+    vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 PointsOnSide=1 FileName=$aCustom4
+  } else {
+    for { set aMarkerScale 1.0 } { $aMarkerScale <= 7 } { set aMarkerScale [expr $aMarkerScale + 0.5] } {
+      vmarkerstest m${aMarkerType}_${aCol} $aCol $aRow 0 MarkerType=$aMarkerType Scale=$aMarkerScale PointsOnSide=1
+      set aCol [expr $aCol - 1]
+    }
+  }
+}
+puts "All markers have been displayed"

package/resources/samples/tcl/materials.tcl

@@ -0,0 +1,75 @@
+# Script displays properties of different materials available in OCCT
+
+#Category: Visualization
+#Title: Material properties in viewer
+
+set THE_MATERIALS {brass bronze copper gold jade neon_phc pewter obsidian plaster plastic satin silver steel stone chrome aluminium water glass diamond charcoal}
+set THE_COLORS    {default red green blue}
+set THE_ROW_DIST  35
+
+proc drawLabels {} {
+  set x 20
+  set y 15
+  foreach aMatIter $::THE_MATERIALS {
+    vdrawtext "$aMatIter" "$aMatIter" -pos $x $y 0 -color GRAY10 -halign right -valign center -angle 000 -zoom 0 -height 14 -aspect regular -font Arial
+    incr y 10
+  }
+  set x 40
+  set y  5
+  foreach aColIter $::THE_COLORS {
+    set aLabColor "$aColIter"
+    if { "$aColIter" == "default" } { set aLabColor BLACK }
+    vdrawtext "$aColIter" "$aColIter" -pos $x $y 0 -color "$aLabColor" -halign center -valign center -angle 000 -zoom 0 -height 14 -aspect regular -font Arial
+    incr x $::THE_ROW_DIST
+  }
+}
+
+proc drawObjects {theRow theColor} {
+  set aSize    4
+  set aCtr    -2
+  set aCounter 0
+  set x [expr 30 + $theRow * $::THE_ROW_DIST]
+  set y 15
+  foreach aMatIter $::THE_MATERIALS {
+    set aSph s${theRow}_${aCounter}
+    set aBox b${theRow}_${aCounter}
+    uplevel #0 psphere $aSph $aSize
+    uplevel #0 box     $aBox $aCtr $aCtr $aCtr $aSize $aSize $aSize
+    uplevel #0 ttranslate   $aSph $x $y 0
+    uplevel #0 ttranslate   $aBox [expr $x + 10] $y 0
+    uplevel #0 vdisplay     -noredraw -dispMode 1 $aSph $aBox
+    uplevel #0 vsetmaterial -noredraw $aSph $aBox $aMatIter
+    if {$theColor != ""} {
+      uplevel #0 vsetcolor  -noredraw $aSph $aBox $theColor
+    }
+    incr aCounter
+    incr y 10
+  }
+}
+
+# setup 3D viewer content
+pload MODELING VISUALIZATION
+
+vclear
+vclose ALL
+vinit View1 w=768 h=768
+vtop
+vglinfo
+vbackground -gradient B4C8FF B4B4B4 -gradientMode VERTICAL
+
+vlight -change 0 -dir 0.577 -0.577 -0.577
+vrenderparams -msaa 8
+
+# adjust scene bounding box
+box bnd 0 0 0 180 210 1
+vdisplay -noredraw -dispMode 0 bnd
+vfit
+vremove -noredraw  bnd
+
+# draw spheres and boxes with different materials
+drawLabels
+drawObjects 0 ""
+drawObjects 1 red
+drawObjects 2 green
+drawObjects 3 blue1
+vrepaint

package/resources/samples/tcl/pathtrace_ball.tcl

@@ -0,0 +1,79 @@
+# Script demonstrating Global illumination materials
+# using path tracing rendering engine in 3D view
+
+#Category: Visualization
+#Title: Path tracing - Ball
+
+set aBallPath [locate_data_file occ/Ball.brep]
+
+pload MODELING VISUALIZATION
+# Ray-Tracing doesn't work with Compatible Profile on macOS
+if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
+
+# Setup 3D viewer
+vclear
+vinit name=View1 w=512 h=512
+vglinfo
+vvbo 0
+vsetdispmode 1
+
+# Setup view parameters
+vcamera -persp
+vviewparams -scale 18 -eye 44.49 -0.15 33.93 -at -14.20 -0.15 1.87 -up -0.48 0.00 0.88
+
+# Load the model from disk
+puts "Importing shape..."
+restore $aBallPath ball
+
+# Tessellate the model
+incmesh ball 0.01
+
+# Display the model and assign material
+vdisplay -noupdate ball
+vsetmaterial -noupdate ball glass
+
+# Create a sphere inside the model
+psphere s 8
+incmesh s 0.01
+vdisplay -noupdate s
+vsetlocation -noupdate s 0 0 13
+vsetmaterial -noupdate s plaster
+
+# Create chessboard-style floor
+box tile 10 10 0.1
+eval compound [lrepeat 144 tile] tiles
+explode tiles
+for {set i 0} {$i < 12} {incr i} {
+  for {set j 1} {$j <= 12} {incr j} {
+    ttranslate tiles_[expr 12 * $i + $j] [expr $i * 10 - 90] [expr $j * 10 - 70] -0.15
+    vdisplay -noupdate tiles_[expr 12 * $i + $j]
+
+    vsetmaterial -noupdate tiles_[expr 12 * $i + $j] plaster
+
+    if {($i + $j) % 2 == 0} {
+      vbsdf tiles_[expr 12 * $i + $j] -kd 0.85
+    } else {
+      vbsdf tiles_[expr 12 * $i + $j] -kd 0.45
+    }
+  }
+}
+
+# Configure light sources
+vlight -change 0 -headLight 0
+vlight -change 0 -direction -0.25 -1 -1
+vlight -change 0 -smoothAngle 17
+vlight -change 0 -intensity 10.0
+
+# Load environment map
+vtextureenv on 1
+
+puts "Trying path tracing mode..."
+vrenderparams -ray -gi -rayDepth 10
+
+# Start progressive refinement mode
+#vprogressive
+
+puts "Make several path tracing iterations to refine the picture, please wait..."
+vfps 100
+puts "Done. To improve the image further, or after view manipulations, give command:"
+puts "vfps \[nb_iteratons\] or vrepaint -continuous"

package/resources/samples/tcl/pathtrace_cube.tcl

@@ -0,0 +1,85 @@
+# Script demonstrating Global illumination effects using non-interactive 
+# path tracing rendering engine in 3d view
+
+#Category: Visualization
+#Title: Path tracing - Cube
+
+pload MODELING VISUALIZATION
+# Ray-Tracing doesn't work with Compatible Profile on macOS
+if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
+
+# setup 3D viewer content
+vclear
+vinit name=View1 w=512 h=512
+vglinfo
+
+# setup light sources
+vlight -clear
+vlight -add POSITIONAL -headLight 0 -pos 0.5 0.5 0.85 -smoothRadius 0.06 -intensity 30.0 -name pntlight
+
+vvbo 0
+vsetdispmode 1
+vcamera -persp
+
+# setup outer box
+box b 1 1 1 
+explode b FACE 
+vdisplay -noupdate b_1 b_2 b_3 b_5 b_6
+vlocation -noupdate b_1 -setLocation  1  0  0
+vlocation -noupdate b_2 -setLocation -1  0  0
+vlocation -noupdate b_3 -setLocation  0  1  0
+vlocation -noupdate b_5 -setLocation  0  0  1
+vlocation -noupdate b_6 -setLocation  0  0 -1
+
+vsetmaterial -noupdate b_1 plastic
+vsetmaterial -noupdate b_2 plastic
+vsetmaterial -noupdate b_3 plastic
+vsetmaterial -noupdate b_5 plastic
+vsetmaterial -noupdate b_6 plastic
+vbsdf b_1 -kd 1 0.3 0.3 -ks 0
+vbsdf b_2 -kd 0.3 0.5 1 -ks 0
+vbsdf b_3 -kd 1 -ks 0
+vbsdf b_5 -kd 1 -ks 0
+vbsdf b_6 -kd 1 -ks 0
+
+vfront
+vfit
+
+# setup first inner sphere
+psphere s 0.2
+vdisplay     -noupdate s
+vlocation    -noupdate s -setLocation 0.21 0.3 0.2
+vsetmaterial -noupdate s glass
+vbsdf s -absorpColor 0.8 0.8 1.0
+vbsdf s -absorpCoeff 6
+
+# setup first inner box
+box c 0.3 0.3 0.2
+vdisplay     -noupdate c
+vlocation    -noupdate c -reset -rotate 0 0 0 0 0 1 -30 -translate 0.55 0.3 0.0
+vsetmaterial -noupdate c plastic
+vbsdf c -kd 1.0 0.8 0.2 -ks 0.3 -n
+
+# setup second inner box
+box g 0.15 0.15 0.3
+vdisplay     -noupdate g
+vlocation    -noupdate g -reset -rotate 0 0 0 0 0 1 10 -translate 0.7 0.25 0.2
+vsetmaterial -noupdate g glass
+vbsdf g -absorpColor 0.8 1.0 0.8
+vbsdf g -absorpCoeff 6
+
+# setup second inner sphere
+psphere r 0.1
+vdisplay -noupdate r
+vsetmaterial -noupdate r plastic
+vbsdf r -kd 0.5 0.9 0.3 -ks 0.3 -baseRoughness 0.0 -n
+vbsdf r -baseFresnel Constant 1.0
+vlocation r -setLocation 0.5 0.65 0.1
+
+puts "Trying path tracing mode..."
+vrenderparams -ray -gi -rayDepth 8
+
+puts "Make several path tracing iterations to refine the picture, please wait..."
+vfps 100
+puts "Done. To improve the image further, or after view manipulations, give command:"
+puts "vfps \[nb_iteratons\] or vrepaint -continuous"