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

package/resources/DrawResources/Geometry.tcl

@@ -0,0 +1,96 @@
+# Copyright (c) 1999-2014 OPEN CASCADE SAS
+#
+# 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 License 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.
+
+proc cmp {} {
+    dtyp .
+    set name [lastrep id x y b]
+    global $name
+    lastrep id x1 y1 z1 b
+    cfindp $name id x y pole
+    if {[dval pole] == 0} return
+    dset x0 x1 y0 y1 z0 z1 b 0
+    draw id 6 $name
+    while {[dval b] == 0} {
+	pick id x2 y2 z2 b nowait
+	dset dx x2-x1 dy y2-y1 dz z2-z1  x1 x2  y1 y2  z1 z2
+	draw id 6 $name
+	cmovep $name pole dx dy dz
+	draw id 6 $name
+    }
+    draw id 6 $name
+    if {[dval b] == 1} return;
+    dset dx x0-x2 dy y0-y2 dz z0-z2
+    cmovep $name pole dx dy dz
+}
+
+proc smp {} {
+    dtyp .
+    set name [lastrep id x y b]
+    global $name
+    lastrep id x1 y1 z1 b
+    sfindp $name id x y upole vpole
+    if {[dval upole] == 0} return
+    dset x0 x1 y0 y1 z0 z1 b 0
+    draw id 6 $name
+    while { [dval b] == 0} {
+	pick id x2 y2 z2 b nowait
+	dset dx x2-x1  dy y2-y1  dz z2-z1 x1 x2 y1 y2 z1 z2
+	draw id 6 $name
+	movep $name upole vpole dx dy dz
+	draw id 6 $name
+    }
+    draw id 6 $name
+    if {[dval b] == 1} return
+    dset dx x0-x2  dy y0-y2  dz z0-z2
+    movep $name upole vpole dx dy dz
+}
+
+#################################################
+# smooth
+#################################################
+
+help smooth {smooth  cname tol [filename] } "DRAW Variables management"
+
+proc smooth {name tol {file ""}} {
+    if {$file == ""} {
+	uplevel #0 "bsmooth $name $tol"
+    } else {
+	global Draw_DataDir
+	uplevel #0 "bsmooth $name $tol $Draw_DataDir/$file"
+    }
+    return $name
+}
+
+#################################################
+# beziersmooth
+#################################################
+
+help beziersmooth { beziersmooth  cname tol deg [-GR -VA -PR] [filename] } "DRAW Variables management"
+
+proc beziersmooth {name tol deg option {file ""}} {
+    if {$file == ""} {
+	uplevel #0 "bzsmooth $name $tol $deg $option"
+    } else {
+	global Draw_DataDir
+	uplevel #0 "bzsmooth $name $tol  $deg $option $Draw_DataDir/$file"
+    }
+    return $name
+}
+
+help pickf {name : extract picked with mouse face as a new variable\
+} {DRAW Variables management}
+
+proc pickf {name} {
+    global $name
+    eval renamevar "[pickface]" $name
+}

package/resources/DrawResources/InitEnvironment.tcl

@@ -0,0 +1,50 @@
+# Copyright (c) 1999-2014 OPEN CASCADE SAS
+#
+# 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 License 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.
+
+################################################
+#
+#  find the name of the station
+#
+################################################
+proc wokstation {} {
+    set LINE_FROM_UNAME [ exec uname -a ] ;
+    if { [ regexp SunOS $LINE_FROM_UNAME ] } {
+	return "sun"
+    }  elseif { [ regexp IRIX $LINE_FROM_UNAME ] } {
+	return "sil"
+    } elseif { [ regexp OSF $LINE_FROM_UNAME ] } {
+	return "ao1" 
+    } elseif { [ regexp HP-UX $LINE_FROM_UNAME ] } {
+	return "hp"
+    } elseif { [ regexp Linux $LINE_FROM_UNAME ] } {
+	return "lin"
+    } elseif { [ regexp FreeBSD $LINE_FROM_UNAME ] } {
+	return "bsd"
+    } elseif { [ regexp Darwin $LINE_FROM_UNAME ] } {
+	return "mac"
+    } elseif { [ regexp AIX $LINE_FROM_UNAME ] } {
+	return "aix"
+    } else {
+	return "wnt"
+    }
+    
+}
+
+set env(STATION)     [ wokstation ] 
+
+# PMN LE 6/06/1997
+# Ce type d'environnement n'a rien n'a faire dans les sources
+# On doit le faire dans des ilots.tcl ou des ud.tcl ou bien
+# dans les procedures de test externes a WOK
+#set env(WBCONTAINER) /adv_20/BAG
+#set env(WBROOT)     "/adv_21/MDL/k1deb/ref"

package/resources/DrawResources/Move.tcl

@@ -0,0 +1,85 @@
+# Copyright (c) 1999-2014 OPEN CASCADE SAS
+#
+# 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 License 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.
+
+#
+#  02/02/1996 : pbo : creation
+#  25/10/1996 : pbo : add 2d view
+#
+#  rotation/panning/zoom with buttons
+#
+
+frame .move -relief groove -borderwidth 1 
+#toplevel .move
+
+frame .move.rotate -borderwidth 1 
+label .move.rotate.title -text " Rotation "
+button .move.rotate.l   -text " < " -command {l ; repaint}
+button .move.rotate.r   -text " > " -command {r ; repaint}
+button .move.rotate.u   -text " ^ " -command {u ; repaint}
+button .move.rotate.d   -text " v " -command {d ; repaint}
+pack .move.rotate.title -side top
+pack .move.rotate.l -side left
+pack .move.rotate.r -side right
+pack .move.rotate.u -side top
+pack .move.rotate.d -side bottom
+pack .move.rotate
+
+frame .move.panning -borderwidth 1 
+label .move.panning.title -text " Panning "
+button .move.panning.l   -text " < " -command {pl ; 2dpl ; repaint}
+button .move.panning.r   -text " > " -command {pr ; 2dpr ; repaint}
+button .move.panning.u   -text " ^ " -command {pu ; 2dpu ; repaint}
+button .move.panning.d   -text " v " -command {pd ; 2dpd ; repaint}
+pack .move.panning.title -side top
+pack .move.panning.l -side left
+pack .move.panning.r -side right
+pack .move.panning.u -side top
+pack .move.panning.d -side bottom
+pack .move.panning
+
+frame .move.zoom -borderwidth 1 
+label .move.zoom.title -text " Zoom "
+button .move.zoom.mu   -text " + " -command {mu    ; 2dmu ; repaint}
+button .move.zoom.md   -text " - " -command {md    ; 2dmd ; repaint}
+button .move.zoom.fit  -text "max" -command {fit   ; 2dfit; repaint}
+button .move.zoom.w    -text "win" -command {wzoom ;        repaint}
+pack .move.zoom.title -side top
+pack .move.zoom.w -side left
+pack .move.zoom.fit -side right
+pack .move.zoom.mu -side top
+pack .move.zoom.md -side bottom
+pack .move.zoom
+
+frame .pick -borderwidth 1
+label .pick.title -text " Pick "
+button .pick.coords -text "Coords" -command {catch {puts [mpick]}}
+button .pick.dist -text "Dist" -command {catch {puts [mdist]}}
+button .pick.whatis -text "What is" -command {catch {puts [whatis .]}}
+button .pick.erase -text "Erase" -command {catch {puts [erase .]}}
+pack .pick.title
+pack .pick.coords -pady 2 -padx 10
+pack .pick.dist -pady 2 -padx 10
+pack .pick.whatis -pady 2 -padx 10
+pack .pick.erase -pady 2 -padx 10
+
+set ShowExtCommands 0
+
+proc ShowHideExtCommands {} {
+    global ShowExtCommands
+    if $ShowExtCommands {
+        pack .move -pady 1 -padx 1 -side left
+        pack .pick -pady 1 -padx 1
+    } else {
+        pack forget .move .pick
+    }
+}