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

package/resources/DrawResources/SCAN.tcl

@@ -0,0 +1,192 @@
+# 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 2dscan {} {
+    dtyp .
+    set name [lastrep id x y MOUSEbutton]
+    global $name
+    lastrep id x1 y1 z1 MOUSEbutton
+    dset x0 x1 y0 y1 z0 z1 MOUSEbutton 0
+    erase $name
+    draw id 6 $name
+    while {[dval MOUSEbutton] == 0} {
+	pick id x2 y2 z2 MOUSEbutton nowait
+	dset dx x2-x1 dy y2-y1 dz z2-z1  x1 x2  y1 y2  z1 z2
+	draw id 6 $name
+	2dtranslate $name dx dy
+	draw id 6 $name
+    }
+    draw id 6 $name
+    if {[dval MOUSEbutton] == 1} { display $name; return; }
+    dset dx x0-x2 dy y0-y2 dz z0-z2
+    2dtranslate $name dx dy
+    display $name
+}
+
+proc scan {} {
+    dtyp .
+    set name [lastrep id x y MOUSEbutton]
+    global $name
+    lastrep id x1 y1 z1 MOUSEbutton
+    dset x0 x1 y0 y1 z0 z1 MOUSEbutton 0
+    erase $name
+    draw id 6 $name
+    while {[dval MOUSEbutton] == 0} {
+	pick id x2 y2 z2 MOUSEbutton nowait
+	dset dx x2-x1 dy y2-y1 dz z2-z1  x1 x2  y1 y2  z1 z2
+	draw id 6 $name
+	translate $name dx dy dz
+	draw id 6 $name
+    }
+    draw id 6 $name
+    if {[dval MOUSEbutton] == 1} { display $name; return; }
+    dset dx x0-x2 dy y0-y2 dz z0-z2
+    translate $name dx dy dz
+    display $name
+}
+
+proc scanx {} {
+    dtyp .
+    set name [lastrep id x y MOUSEbutton]
+    global $name
+    lastrep id x1 y1 z1 MOUSEbutton
+    dset x0 x1 y0 y1 z0 z1 MOUSEbutton 0
+    erase $name
+    draw id 6 $name
+    while {[dval MOUSEbutton] == 0} {
+	pick id x2 y2 z2 MOUSEbutton nowait
+	dset dx x2-x1 x1 x2
+	draw id 6 $name
+	translate $name dx 0 0
+	draw id 6 $name
+    }
+    draw id 6 $name
+    if {[dval MOUSEbutton] == 1} {display $name; return;}
+    dset dx x0-x2 
+    translate $name dx 0 0
+    display $name
+}
+
+proc scany {} {
+    dtyp .
+    set name [lastrep id x y MOUSEbutton]
+    global $name
+    lastrep id x1 y1 z1 MOUSEbutton
+    dset x0 x1 y0 y1 z0 z1 MOUSEbutton 0
+    erase $name
+    draw id 6 $name
+    while {[dval MOUSEbutton] == 0} {
+	pick id x2 y2 z2 MOUSEbutton nowait
+	dset dy y2-y1 y1 y2
+	draw id 6 $name
+	translate $name 0 dy 0
+	draw id 6 $name
+    }
+    draw id 6 $name
+    if {[dval MOUSEbutton] == 1} { display $name; return;}
+    dset dy y0-y2
+    translate $name 0 dy 0
+    display $name
+}
+
+proc scanz {} {
+    dtyp .
+    set name [lastrep id x y MOUSEbutton]
+    global $name
+    lastrep id x1 y1 z1 MOUSEbutton
+    dset x0 x1 y0 y1 z0 z1 MOUSEbutton 0
+    erase $name
+    draw id 6 $name
+    while {[dval MOUSEbutton] == 0} {
+	pick id x2 y2 z2 MOUSEbutton nowait
+	dset dz z2-z1 z1 z2
+	draw id 6 $name
+	translate $name 0 0 dz
+	draw id 6 $name
+    }
+    draw id 6 $name
+    if {[dval MOUSEbutton] == 1} { display $name; return;}
+    dset dz z0-z2
+    translate $name 0 0 dz
+    display $name
+}
+
+proc tscan {} {
+    dtyp .
+    set name [lastrep id x y MOUSEbutton]
+    global $name
+    lastrep id x1 y1 z1 MOUSEbutton
+    dset x0 x1 y0 y1 z0 z1 MOUSEbutton 0
+    while {[dval MOUSEbutton] == 0} {
+	pick id x2 y2 z2 MOUSEbutton nowait
+	dset dx x2-x0 dy y2-y0 dz z2-z0
+	eval ttranslate [explode $name e] dx dy dz
+	repaint
+    }
+    if {[dval MOUSEbutton] == 3} return;
+    dset dx x2-x0 dy y2-y0 dz z2-z0
+    ttranslate $name dx dy dz
+}
+
+proc tscanx {} {
+    dtyp .
+    set name [lastrep id x y MOUSEbutton]
+    global $name
+    lastrep id x1 y1 z1 MOUSEbutton
+    dset x0 x1 y0 y1 z0 z1 MOUSEbutton 0
+    while {[dval MOUSEbutton] == 0} {
+	pick id x2 y2 z2 MOUSEbutton nowait
+	dset dx x2-x0
+	eval ttranslate [explode $name e] dx 0 0
+	repaint
+    }
+    if {[dval MOUSEbutton] == 3} return;
+    dset dx x2-x0 
+    ttranslate $name dx 0 0
+}
+
+proc tscany {} {
+    dtyp .
+    set name [lastrep id x y MOUSEbutton]
+    global $name
+    lastrep id x1 y1 z1 MOUSEbutton
+    dset x0 x1 y0 y1 z0 z1 MOUSEbutton 0
+    while {[dval MOUSEbutton] == 0} {
+	pick id x2 y2 z2 MOUSEbutton nowait
+	dset dy y2-y0
+	eval ttranslate [explode $name e] 0 dy 0
+	repaint
+    }
+    if {[dval MOUSEbutton] == 3} return;
+    dset dy y2-y0
+    ttranslate $name 0 dy 0
+}
+
+proc tscanz {} {
+    dtyp .
+    set name [lastrep id x y MOUSEbutton]
+    global $name
+    lastrep id x1 y1 z1 MOUSEbutton
+    dset x0 x1 y0 y1 z0 z1 MOUSEbutton 0
+    while {[dval MOUSEbutton] == 0} {
+	pick id x2 y2 z2 MOUSEbutton nowait
+	dset dz z2-z0
+	eval ttranslate [explode $name e] 0 0 dz
+	repaint
+    }
+    if {[dval MOUSEbutton] == 3} return;
+    dset dz z2-z0
+    ttranslate $name 0 0 dz
+}
+
+

package/resources/DrawResources/SURFACES.tcl

@@ -0,0 +1,35 @@
+# 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.
+
+if { [info commands addmenu] == "" } { return }
+
+global theMenus
+if [info exists theMenus(Surfaces)] {
+  destroy [string trimright $theMenus(Surfaces) ".menu"]
+  unset theMenus(Surfaces)
+}
+
+proc dialanasurf {command sname args} {
+    set com "dialbox $command name $sname origin {0 0 0} normal {0 0 1} xdir {1 0 0} "
+    foreach l $args {append com " $l"}
+    eval $com
+}
+
+addmenu Surfaces "Plane"      {dialanasurf plane p {}}
+addmenu Surfaces "Cylinder"   {dialanasurf cylinder c {radius 1}}
+addmenu Surfaces "Cone"       {dialanasurf cone c {angle 30 radius 0}}
+addmenu Surfaces "Sphere"     {dialanasurf sphere s {radius 1}}
+addmenu Surfaces "Torus"      {dialanasurf torus t {radii {1 0.8}}}
+addmenu Surfaces "Revolution" {dialbox revsur name r basis . origin {0 0 0} axis {0 0 1}}
+addmenu Surfaces "Extrusion"  {dialbox extsurf name e basis . direction {0 0 1}}
+redrawhelp

package/resources/DrawResources/StandardCommands.tcl

@@ -0,0 +1,451 @@
+# 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.
+
+#
+# Draw standard initialisation
+#
+
+#################################################
+# prompts
+#################################################
+
+set Draw_CmdIndex 0
+set tcl_prompt1 {
+    incr Draw_CmdIndex
+    puts -nonewline "Draw\[$Draw_CmdIndex\]> "
+}
+
+set tcl_prompt2 {puts -nonewline "> "}
+
+#################################################
+# the help command in TCL
+#################################################
+proc help {{theCommand ""} {theHelpString ""} {theGroup "Procedures"}} {
+  global Draw_Helps Draw_Groups
+  if {$theCommand == ""} {
+    # help general
+    set aCmdWidth 15
+    foreach aGrpIter [lsort [array names Draw_Groups]] {
+      dputs -intense "\n\n$aGrpIter"
+      set i 1
+      set aLine ""
+      foreach aCmdIter [lsort $Draw_Groups($aGrpIter)] {
+        if {$i == 1} {
+          puts -nonewline "$aLine\n"
+          set aLine "  "
+        }
+
+        append aLine $aCmdIter
+        set aLineLen [string length $aLine]
+        for {set j [expr $aLineLen + 1]} {$j < [expr $aCmdWidth * $i + 2]} {incr j} {
+          append aLine " "
+        }
+        append aLine " "
+        incr i
+        if {$i == 5} {set i 1}
+      }
+      puts "$aLine"
+    }
+  } elseif {$theHelpString == ""} {
+    # help function
+    set isFound 0
+    foreach aCmdIter [lsort [array names Draw_Helps]] {
+      if {[string match $theCommand $aCmdIter]} {
+        dputs -nonewline -intense $aCmdIter
+        set aLines [split $Draw_Helps($aCmdIter) "\n"]
+        set aNbLines [llength $aLines]
+        set isFirstLine 0
+        for {set aLineIter 0} {$aLineIter < $aNbLines} {incr aLineIter} {
+          set aLine [lindex $aLines $aLineIter]
+          if { "$aLine" == "" && ($aLineIter == 0 || $aLineIter == [expr $aNbLines - 1]) } { continue }
+          if { $isFirstLine == 0 } {
+            set isFirstLine 1
+            for {set j [string length $aCmdIter]} {$j < 15} {incr j} {
+              puts -nonewline " "
+            }
+            puts -nonewline " : "
+          } else {
+            if { ![string match "\t\t:*" $aLine] } {
+              puts -nonewline "                : "
+            }
+          }
+          puts -nonewline "${aLine}\n"
+        }
+        set isFound 1
+      }
+    }
+    if {!$isFound} {
+      if {[string first * $theCommand] != -1} {
+        puts "No matching commands found!"
+      } else {
+        puts "No help found for '$theCommand'! Please try 'help $theCommand*' to find matching commands."
+      }
+    }
+  } else {
+    # set help
+    lappend Draw_Groups($theGroup) $theCommand
+    set Draw_Helps($theCommand) $theHelpString
+  }
+  flush stdout
+}
+
+help help {help pattern, or help command string group, to set help} {DRAW General Commands}
+#################################################
+# the getsourcefile command in TCL
+#################################################
+
+help getsourcefile {getsourcefile, or getsourcefile command } {DRAW General Commands}
+
+proc getsourcefile {{command ""}} {
+
+    global Draw_Helps Draw_Groups Draw_Files
+
+    set out {}
+    if {$command == ""} {
+
+	# help general
+	foreach h [lsort [array names Draw_Groups]] {
+	    lappend out "" "" "$h"
+	    set i 0
+	    foreach f [lsort $Draw_Groups($h)] {
+		if {$i == 0} {
+		    lappend out ""
+		}
+		incr i
+#
+# check that the command has its source file set
+#
+		foreach command_that_has_file [array names Draw_Files] {
+		    if {($command_that_has_file == $f)} {
+			lappend out [format {%-20s %s} $f $Draw_Files($f)]
+		    }
+		}
+	    }
+	}
+    } else {
+
+	# getsourcefile fonction
+	append command "*"
+	foreach f [lsort [array names Draw_Files]] {
+	    if {[string match $command $f]} {
+                lappend out [format {%-20s %s} $f $Draw_Files($f)]
+	    }
+	}
+	
+    } 
+    return [join $out "\n"]
+}
+
+#################################################
+# whatis
+#################################################
+
+#proc gwhatis {aVarName} {
+#    global $aVarName
+#    puts -nonewline $aVarName; puts -nonewline " is a "; puts [dtyp ${aVarName}]
+#}
+
+help whatis "whatis object1 object2 ..." 
+
+proc whatis args {
+    set __out_string ""
+    foreach i $args {
+	if {$i == "."} {set i [dname $i]}
+	#gwhatis $i
+	global $i
+	set __tmp_string "$i is a [dtyp $i]\n"
+	set __out_string "${__out_string}${__tmp_string}"
+    }
+    return ${__out_string}
+}
+
+#################################################
+# library, lsource
+#################################################
+
+proc library lib {
+    global auto_path
+    set auto_path [linsert $auto_path 0 $lib]
+    if [file readable $lib/LibraryInit] {
+	puts "Loading $lib/LibraryInit"
+	uplevel "source $lib/LibraryInit"
+    }
+}
+
+proc lsource file {
+    if [file readable $file] {source $file} else {
+	global auto_path
+	foreach dir $auto_path {
+	    if [file readable $dir/$file] {
+		uplevel #0 "source $dir/$file"
+		break
+	    }
+	}
+    }
+}
+
+#################################################
+# directory
+#################################################
+
+proc isgdraw {var} {
+    global $var
+    return [isdraw $var]
+}
+
+help directory {directory [pattern], list draw variables} {DRAW Variables management}
+
+proc directory {{joker *}} {
+    set res ""
+    foreach var [info globals $joker] { 
+	if [isgdraw $var] {lappend res $var}
+    }
+    return $res
+}
+
+proc lsd {} { exec ls [datadir] }
+
+proc dall {} {
+    set schmurtz ""
+    foreach var [info globals] { 
+	global $var
+	if [isdraw $var] {
+	    if ![isprot $var] {
+		lappend schmurtz $var; unset $var
+	    }
+	}
+    }
+    return $schmurtz
+}
+
+#################################################
+# repeat, do
+#################################################
+
+proc repeat {val script} {
+    for {set i 1} {$i <= $val} {incr i} {uplevel $script}
+}
+
+proc do {var start end args} {
+    global errorInfo errorCode
+    if {[llength args] == 1} {
+	set incr 1
+	set body args
+    } else {
+	set incr [lindex 1 args]
+	set body [lindex 2 args]
+    }
+    upvar $var v
+    if {[dval $incr] < 0} {set rel >=} else {set rel <=}
+    for {dset v $start} {[dval v] $rel [dval end]} {dset v [dval v+($incr)]} {
+	set code [catch {uplevel $body} string]
+	if {$code == 1} {
+	    return -code error -errorInfo $errorInfo -errorcode $errorCode $string
+	} elseif {$code == 2} {
+	    return -code return $string
+	}elseif {$code == 3} {
+	    return
+	} elseif {$code > 4} {
+	    return -code $code $string
+	}
+    }
+}
+
+#################################################
+# datadir, save, restore
+#################################################
+
+set Draw_DataDir "."
+
+help datadir {datadir [directory]} "DRAW Variables management"
+
+proc datadir {{dir ""}} {
+    global Draw_DataDir
+    if {$dir != ""} {
+	if {![file isdirectory $dir]} {
+	    error "datadir : $dir is not a directory"
+	} else {
+	    set Draw_DataDir $dir
+	}
+    }
+    return $Draw_DataDir
+}
+
+help save {save variable [filename]} "DRAW Variables management"
+
+proc save {name {file ""}} {
+    if {$file == ""} {set file $name}
+    upvar $name n
+    if {![isdraw n]} {error "save : $name is not a Draw variable"}
+    global Draw_DataDir
+    bsave n [file join $Draw_DataDir $file]
+    return [file join $Draw_DataDir $file]
+}
+
+help restore {restore filename [variablename]} "DRAW Variables management"
+
+proc restore {file {name ""}} {
+    if {$name == ""} {
+        # if name is not given explicitly, use name of the file w/o extension
+        set name [file rootname [file tail $file]]
+    }
+    global Draw_DataDir
+    upvar $name n
+    brestore [file join $Draw_DataDir $file ] n
+    return $name
+}
+
+#################################################
+# misc...
+#################################################
+
+proc ppcurve {a} {
+	2dclear;
+	uplevel pcurve $a;
+	2dfit;
+}
+
+#################################################
+# display and donly with jokers
+#################################################
+
+help disp {display variables matched by glob pattern} "DRAW Variables management"
+
+proc disp { args } {
+    set res ""
+    foreach joker $args {
+	if { $joker == "." } {
+             dtyp .
+             set joker [lastrep id x y b]
+	}
+        foreach var [info globals $joker] { 
+	   if { $var == "." } {
+               dtyp .
+               set var [lastrep id x y b]
+	   }
+	   if [isgdraw $var] {lappend res $var}
+        }
+    }
+    uplevel #0 eval display $res
+    return $res
+}
+
+help don {display only variables matched by glob pattern} "DRAW Variables management"
+
+proc don { args } {
+    set res ""
+    foreach joker $args {
+	if { $joker == "." } {
+             dtyp .
+             set joker [lastrep id x y b]
+	}
+        foreach var [info globals $joker] { 
+	   if { $var == "." } {
+               dtyp .
+               set var [lastrep id x y b]
+	   }
+	   if [isgdraw $var] {lappend res $var}
+        }
+    }
+    uplevel #0 eval donly $res
+    return $res
+}
+
+help del {unset (remove) variables matched by glob pattern} "DRAW Variables management"
+
+proc del args {
+    set res ""
+    foreach joker [eval concat $args] {
+        if { $joker == "." } {
+            dtyp .
+            set joker [lastrep id x y b]
+        }
+        foreach var [directory $joker] {
+            global $var
+            if ![isprot $var] {
+                lappend res $var; unset $var
+            }
+        }
+    }
+    return $res
+}
+
+help era {erase variables matched by glob pattern} "DRAW Variables management"
+
+proc era args {
+    set res ""
+    foreach joker [eval concat $args] {
+        if { $joker == "." } {
+            dtyp .
+            set joker [lastrep id x y b]
+        }
+        eval lappend res [directory $joker]
+    }
+    if [llength $res] {
+        uplevel \#0 eval erase $res
+    }
+}
+
+# The following commands (definitions are surrounded by if) are
+# available in extended Tcl (Tclx).
+# These procedures are added just to make full-working simulations of them.
+
+if {[info commands lvarpop] == ""} {
+    proc lvarpop args {
+	upvar [lindex $args 0] lvar
+	set index 0
+	set len [llength $lvar]
+	if {[llength $args] > 1} {
+	    set ind [lindex $args 1]
+	    if [regexp "^end" $ind] {
+		set index [expr $len-1]
+	    } elseif [regexp "^len" $ind] {
+		set index $len
+	    } else {set index $ind}
+	}
+	set el [lindex $lvar $index]
+	set newlvar {}
+	for {set i 0} {$i < $index} {incr i} {
+	    lappend newlvar [lindex $lvar $i]
+	}
+	if {[llength $args] > 2} {
+	    lappend newlvar [lindex $args 2]
+	}
+	for {set i [expr $index+1]} {$i < $len} {incr i} {
+	    lappend newlvar [lindex $lvar $i]
+	}
+	set lvar $newlvar
+	return $el
+    }
+}
+
+if {[info commands lmatch] == ""} {
+    proc lmatch args {
+	set mode [switch -- [lindex $args 0] {
+	    -exact {format 0}
+	    -glob {format 1}
+	    -regexp {format 2}}]
+	if {$mode == ""} {set mode 1} else {lvarpop args}
+	if {[llength $args] < 2} {puts "usage: lmatch ?mode? list pattern";return}
+	set list [lindex $args 0]
+	set pattern [lindex $args 1]
+	set res {}
+	foreach a $list {
+	    if [switch $mode {
+		0 {expr [string compare $a $pattern] == 0}
+		1 {string match $pattern $a}
+		2 {regexp $pattern $a}}] {lappend res $a}
+	}
+	return $res
+    }
+}