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

package/resources/DrawResources/dftree.tcl

@@ -0,0 +1,381 @@
+# 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.
+
+###########################
+#                         #
+# Version 1.4             #
+# by SZV                  #
+#                         #
+###########################
+#
+# Open         : double-clic or +
+# Close        : double-clic or -
+# Refresh tree : close top level and re-open
+#
+# Attributes:
+# white     : interoperable
+# white + c : non interoperable
+# X         : X Reference
+# Red       : not yet committed in transaction #0
+# 
+#
+
+proc __update { args } {
+}
+
+proc dftree { DDF_Browser } {
+
+  global env
+  global DFTREE_WINDOWS
+  global DFTREE_GLOBALS
+  global $DDF_Browser
+    
+  puts $DDF_Browser
+
+  package require Tk
+
+  ## Create images
+  set DFTREE_GLOBALS(ImageLabel)     [DFOpenImage dfb_folder.gif]
+  set DFTREE_GLOBALS(ImageAttrOther) [DFOpenImage dfb_attribute.gif]
+  set DFTREE_GLOBALS(ImageAttrNS)    [DFOpenImage dfb_attribns.gif]
+
+##    set DFTREE_LabelStyle [tixDisplayStyle imagetext \
+##	    -font 9x15bold \
+##	    -background Bisque3 \
+##	    ]
+
+##    set DFTREE_LabelStyle1 [tixDisplayStyle imagetext \
+##	    -font 9x15bold \
+##	    -background Bisque3 \
+##	    -foreground SeaGreen2 \
+##	    ]
+
+##    set DFTREE_AttributeStyle [tixDisplayStyle imagetext \
+##	    -font 9x15 \
+##	    -background Bisque3 \
+##	    ]
+
+##    set DFTREE_AttributeStyle1 [tixDisplayStyle imagetext \
+##	    -font 9x15 \
+##	    -background Bisque3 \
+##	    -foreground DarkGreen \
+##	    ]
+
+##    set DFTREE_AttributeStyle2 [tixDisplayStyle imagetext \
+##	    -font 9x15 \
+##	    -background Bisque3 \
+##	    -foreground Red \
+##	    ]
+
+  set w .$DDF_Browser
+  toplevel $w -width 700 -height 400 -background bisque3
+  wm minsize $w 700 400
+
+  ########
+  # Tree #
+  ########
+
+  #set tree1 [ttk::treeview $w.tree -show tree]
+  set tree1 [ttk::treeview $w.tree -show tree -xscrollcommand "$w.tree.xscroll set" -yscrollcommand "$w.tree.yscroll set"]
+  set aScrollX [ttk::scrollbar $w.tree.xscroll -command "$w.tree xview" -orient horizontal]
+  set aScrollY [ttk::scrollbar $w.tree.yscroll -command "$w.tree yview"]
+  pack $aScrollX -side bottom -fill x
+  pack $aScrollY -side right  -fill y
+  $tree1 tag bind Label <<TreeviewOpen>> [list DFTREE:Tree:Open $DDF_Browser $w]
+  $tree1 tag configure Label -font 9x15bold -foreground DarkGreen
+  #$tree1 tag configure Attribute -font 9x15 -background bisque3
+  #$tree1 tag configure AttributeList -font 9x15 -background bisque3
+  pack $tree1 -expand yes -fill both -padx 4 -pady 4
+
+  # to see different fonts: /usr/openwin/lib/X11/fonts/misc or xlsfonts?
+  # 8x13 8x13bold 9x15 9x15bold
+  #	    hlist.font 8x13bold
+  #	    hlist.gap "15"
+  #	    hlist.indent "30"
+
+  set DFTREE_WINDOWS($w,tree) $tree1
+  set DFTREE_WINDOWS($w,root) [$tree1 insert {} end \
+                                 -text $DDF_Browser \
+                                 -values "" \
+                                 -tags Label]
+
+  # Here we need to open first node!
+  
+  return
+}
+
+###############################################################################
+#
+#
+proc DFTREE:Tree:Open { DDF_Browser w } {
+
+  global DFTREE_WINDOWS
+  global DFTREE_GLOBALS
+  global $DDF_Browser
+
+  set df_tree $DFTREE_WINDOWS($w,tree)
+  set df_node [$df_tree focus]
+
+  #if {$df_node == $DFTREE_WINDOWS($w,root)} {
+	# This is root
+    set chdlist [$df_tree children $df_node]
+    if {$chdlist != {}} {
+      # The root branch already exists in hlist.
+      # Clear all its children to force the tree to be updated.
+      $df_tree delete $chdlist
+    }
+  #}
+
+  #update
+  DFTREE:Tree:Fill $DDF_Browser $df_tree $df_node
+  return
+}
+
+###############################################################################
+#
+#
+proc DFTREE:Tree:Fill { DDF_Browser df_tree df_node } {
+
+  global DFTREE_GLOBALS
+  global $DDF_Browser
+
+  set loc  [lindex [$df_tree item $df_node -values] 0]
+  set type [lindex [$df_tree item $df_node -tags] 0]
+
+  switch -glob $type {
+
+    Label {
+      DFTREE:Tree:UpdateLabel $DDF_Browser $df_tree $df_node $loc
+    }
+
+    #AttributeList { 
+    #  DFTREE:Tree:UpdateAttributeList $DDF_Browser $df_tree $df_node $loc
+    #}
+
+    default {
+    }
+  }
+  return
+}
+
+###############################################################################
+# $df_entry is a label entry, "1:3:2" for example, or "" for root.
+#
+proc DFTREE:Tree:UpdateLabel  { DDF_Browser df_tree df_node df_entry } {
+
+  global DFTREE_GLOBALS
+  global $DDF_Browser
+
+  foreach fullname [split [DFOpenLabel $DDF_Browser $df_entry] "\\" ] {
+    FCTREE:Tree:DecodeLabelItem $DDF_Browser $df_tree $df_node $df_entry $fullname
+  }
+  return
+}
+
+###############################################################################
+#
+#
+proc DFTREE:Tree:UpdateAttributeList { DDF_Browser df_tree df_node df_entry} {
+
+  global DFTREE_GLOBALS
+  global $DDF_Browser
+
+  set image_other $DFTREE_GLOBALS(ImageAttrOther)
+  set image_ns    $DFTREE_GLOBALS(ImageAttrNS)
+  #set xrefimage   $DFTREE_GLOBALS(ImageAttrOther)
+
+  # abv: index attributes
+  set num 0
+  set attributes [split [DFOpenAttributeList $DDF_Browser $df_entry ] "\\" ]
+  set iattributes {}
+  foreach fullname $attributes {
+	set num [expr $num + 1]
+	lappend fullname $num
+	lappend iattributes $fullname
+  }
+  
+  foreach fullname [lsort $iattributes] {
+
+	# Information first split
+	set tmplist [split $fullname " "]
+	set name        [lindex $tmplist 0]
+	set transaction [lindex $tmplist 1]
+	set valid       [lindex $tmplist 2]
+	set forgotten   [lindex $tmplist 3]
+	set backuped    [lindex $tmplist 4]
+	set maybeopen   [lindex $tmplist 5]
+
+	# Name analysis to suppress the map address.
+	set shortlist [split $name "#"]
+	set shortname [lindex $shortlist 0]
+	set index     [lindex $shortlist 1]
+
+	# Package analysis to determine the icon type.
+	#set pk [lindex [split $name _] 0]
+	set node_img $image_other
+	#if {$pk == "TDataStd" || $pk == "TNaming"} {set node_img $standardimage}
+	#if {$pk == "TXRef"} {set node_img $xrefimage}
+    if {$shortname == "TNaming_NamedShape"} {set node_img $image_ns}
+
+	set textname "$shortname"
+
+#	if { [llength $tmplist] >5 } { set textname [lindex $tmplist 5] }
+    set textname "$textname [DFGetAttributeValue $DDF_Browser $df_entry [lindex $tmplist 6]]"
+
+	# Transaction analysis
+	if {$transaction == "0"} {
+#	    set locstyle $DFTREE_AttributeStyle
+	} else {
+#	    set textname "$textname T=$transaction"
+#	    set locstyle $DFTREE_AttributeStyle1
+	}
+
+	# Valid?
+	if {$valid == "NotValid"} {set textname "$textname $valid"}
+
+	# Forgotten?
+	if {$forgotten == "Forgotten"} {set textname "$textname $forgotten"}
+
+	# Backuped?
+	if {$backuped == "Backuped"} {set textname "$textname $backuped"}
+
+    set df_new [$df_tree insert $df_node end \
+                  -text $textname -image $node_img -tags Attribute]
+
+    if {$maybeopen == "1"} {
+      $df_tree item $df_new -open true
+      DFTREE:Tree:UpdateAttribute $DDF_Browser $df_tree $df_new $index
+    }
+  }
+}
+
+###############################################################################
+# $loc is always the attribute index
+#
+proc DFTREE:Tree:UpdateAttribute { DDF_Browser df_tree df_node a_index } {
+
+  global DFTREE_GLOBALS
+  global $DDF_Browser
+
+  set tmplist [split [DFOpenAttribute $DDF_Browser $a_index ] "\\"]
+
+  # Failed or not?
+  if {[lindex $tmplist 0] == "Failed"} {
+##	set locstyle $DFTREE_AttributeStyle2
+  } else {
+##	set locstyle $DFTREE_AttributeStyle
+  }
+
+  foreach name $tmplist {
+    $df_tree insert $df_node end -text $name -tags Terminal
+  }
+  return
+}
+
+###############################################################################
+# item:
+# "Entry Name=TheNameIfExists Modified|NotModified 0|1"
+proc FCTREE:Tree:DecodeLabelItem { DDF_Browser df_tree df_node df_entry labelItem} {
+
+  global DFTREE_GLOBALS
+  global $DDF_Browser
+
+  set tmplist [split $labelItem " " ]
+  set labname [lindex $tmplist 0]
+
+  set textname "$labname"
+
+  if {$labname == "AttributeList"} {
+  
+    # Attribute List
+	# --------------
+
+	#set modified  [lindex $tmplist 1]
+
+	# Modified or not?
+	#if {$modified == "Modified"} {
+    #  set textname "$textname $modified"
+##      set locstyle $DFTREE_AttributeStyle1
+	#} else {
+##      set locstyle $DFTREE_AttributeStyle
+	#}
+
+    #set df_new [$df_tree insert $df_node end \
+    #              -text $textname \
+    #              -image $DFTREE_GLOBALS(ImageAttrList) \
+    #              -tags AttributeList]
+
+    #$df_tree item $df_new -open true
+
+    DFTREE:Tree:UpdateAttributeList $DDF_Browser $df_tree $df_node $df_entry
+    
+  } else {
+
+    # Sub-label(s)
+    # ------------
+
+    set name      [lindex $tmplist 1]
+    set modified  [lindex $tmplist 2]
+    set maybeopen [lindex $tmplist 3]
+
+    # Name?
+    set ll [expr [string length $name] -2]
+    if {$ll > 0} {
+      set textname "$textname [string range $name 1 $ll]"
+	}
+
+	# Modified or not?
+	if {$modified == "Modified"} {
+      set textname "$textname $modified"
+    }
+
+    set df_new [$df_tree insert $df_node end \
+                  -text $textname \
+                  -image $DFTREE_GLOBALS(ImageLabel) \
+                  -values $labname \
+                  -tags Label]
+
+    if {$maybeopen == "1"} {
+      $df_tree item $df_new -open true
+    }
+
+    DFTREE:Tree:UpdateLabel $DDF_Browser $df_tree $df_new $labname
+  }
+}
+
+###############################################################################
+#
+#
+proc DFGetAttributeValue { DDF_Browser lab index } {
+
+    global $DDF_Browser; # necessary for DRAW command to see the browser
+
+    if {[catch "XAttributeValue $DDF_Browser $lab $index" ret]} {
+	return ""
+    }
+    if {"$ret" == ""} { return "" }
+    return "\[$ret\]"
+}
+
+###############################################################################
+#
+#
+proc DFOpenImage { img } {
+
+  global env
+
+  if {[catch "image create photo -file $env(CSF_OCCTResourcePath)/DrawResources/$img" ret]} {
+    return ""
+  }
+  return $ret
+}

package/resources/SHMessage/FILES

@@ -0,0 +1,2 @@
+msgfile:::SHAPE.fr
+msgfile:::SHAPE.us

package/resources/SHMessage/SHAPE.fr

@@ -0,0 +1,267 @@
+! Message file for Shape Healing
+
+
+! ------------------------------------------------------------------------------
+! Messages for shape names
+!
+.Name.Shape.MSG0
+!
+.Name.Vertex.MSG0
+!
+.Name.Edge.MSG0
+!
+.Name.Wire.MSG0
+!
+.Name.Face.MSG0
+!
+.Name.Shell.MSG0
+!
+.Name.Solid.MSG0
+!
+.Name.CompSolid.MSG0
+!
+.Name.Compound.MSG0
+!
+! ------------------------------------------------------------------------------
+! Messages for sequence of operators
+! 
+.SP.Sequence.Info.Seq
+Sequence d'operateurs: %s
+!
+.SP.Sequence.Info.Operator
+Operateur %d/%d: %s
+!
+.SP.Sequence.Error.NoOp
+Error: Operator %s is not found
+!
+.SP.Sequence.Error.Except
+Error: Operator %s failed with exception %s
+!
+.SP.Sequence.Warn.NoSeq
+Warning: Shape Processing: sequence not defined for %s
+!
+! ------------------------------------------------------------------------------
+! Messages for printing results of shape processing
+! 
+.PrResult.Print.MSG50
+  Shells:
+!
+.PrResult.Print.MSG55
+  Faces:
+!
+.PrResult.Print.MSG100
+Mapping:
+!
+.PrResult.Print.MSG110
+    Le Resultat est un Shell        : %d
+!
+.PrResult.Print.MSG115
+    Le Resultat est une Face        : %d
+!
+.PrResult.Print.MSG150
+    Pas de Resultat                 : %d
+!
+.PrResult.Print.MSG200
+Taux de Preparation:
+!
+.PrResult.Print.MSG205
+  Shells: %d pour cent
+!
+.PrResult.Print.MSG210
+  Faces : %d pour cent
+!
+!
+! ==============================================================================
+! Messages for Shape Healing
+! 
+! ------------------------------------------------------------------------------
+! Messages for ShapeFix_Wire
+! 
+.FixWire.FixDegenerated.MSG0
+Detection d'Arete(s) degeneree(s)
+!
+.FixWire.FixDegenerated.MSG5
+L'Arete n0 %d est degeneree
+!
+.FixWire.FixCurve3d.Removed
+Incomplete edge (with no pcurves or 3d curve) removed
+!
+.FixAdvWire.FixSmall.MSG0
+Petite(s) arete(s) supprimee(s)
+! 
+.FixAdvWire.FixSmall.MSG5
+L'arete n0 %d etait petite, supprimee
+! 
+.FixAdvWire.FixIntersection.MSG0
+Auto-intersection corrigee
+!
+.FixAdvWire.FixIntersection.MSG5
+L'arete etait auto-intersectante, corrigee
+!
+.FixAdvWire.FixIntersection.MSG10
+Les aretes s'intersectent, corrigees
+!
+.FixAdvWire.FixLacking.MSG0
+Insertion d'arete(s) manquante(s)
+!
+.FixAdvWire.FixLacking.MSG5
+Arete n0 %d manquante, inseree
+!
+.FixAdvWire..MSG0
+!
+.FixAdvWire..MSG5
+!
+.FixAdvWire..MSG10
+!
+! ------------------------------------------------------------------------------
+! Messages for ShapeFix_Face
+!
+.FixAdvFace.FixMissingSeam.MSG0
+Arete de couture manquante, ajoutee
+!
+.FixAdvFace.FixSmallAreaWire.MSG0
+Contour d'aire nulle, supprime
+!
+.FixAdvFace.FixOrientation.MSG0
+Face creee avec bords naturels
+!
+.FixAdvFace.FixOrientation.MSG5
+Contour sur face inverse
+!
+.FixAdvFace.FixOrientation.MSG11
+Impossible d'orienter le contour
+!
+! ------------------------------------------------------------------------------
+! Messages for ShapeFix_Wireframe
+! 
+.FixWireframe.FixSmallEdges.MSG0
+Small edge removed
+!
+.FixWireframe.FixSmallEdges.MSG1
+Small wire removed
+!
+.FixWireframe.FixSmallEdges.MSG2
+Small face removed
+!
+.FixWireframe.FixFixWireGaps.MSG0
+Gaps in a wire fixed
+!
+!
+.Fix.SplitCommonVertex.MSG0
+Wires with common vertex fixed
+!
+!
+.FixAdvShell.FixOrientation.MSG20
+Impossible d'orienter les faces dans le shell, creation de plusieurs shells
+!
+.FixAdvShell.FixOrientation.MSG30
+Shell avec connexions incorrectes, divise en plusieurs parties
+!
+.FixAdvSolid.FixShell.MSG10
+Impossible de creer un Solide a partir d'un shell ouvert
+!
+.FixAdvSolid.FixOrientation.MSG20
+L'Orientation du/des shell(s) dans le solida ete corrigee
+!
+.FixAdvSolid.FixOrientation.MSG30
+Solide avec connexions incorrectes, divise en plusieurs parties
+!
+.FixAdvFace.FixLoopWire.MSG0
+Wire was split on several wires
+!
+.FixAdvFace..MSG5
+!
+.FixAdvFace..MSG10
+!
+.FixEdge.SameParameter.MSG0
+Not same parameter edge fixed
+!
+! ------------------------------------------------------------------------------
+! Messages for ShapeFix_FixSmallFace
+!
+.FixAdvFace.FixSpotFace.MSG0
+Spot face removed
+!
+.FixAdvFace.FixStripFace.MSG0
+Strip face removed
+!
+! ------------------------------------------------------------------------------
+! Messages for ShapeFix_FixSmallSolid
+!
+.ShapeFix.FixSmallSolid.MSG0
+Small solid removed
+!
+.ShapeFix.FixSmallSolid.MSG1
+Small solid merged with other
+!
+! ------------------------------------------------------------------------------
+! Messages for ShapeFix_Shell
+!
+.FixAdvShell.FixOrientation.MSG0
+Faces mal orientees dans le shell, corrigees
+!
+.FixAdvShell.FixOrientation.MSG5
+Faces mal orientees dans le shell, non corrigees
+!
+.FixAdvShell.FixClosedFlag.MSG0
+Shell has incorrect flag isClosed
+!
+.FixAdvShell..MSG5
+!
+.FixAdvShell..MSG10
+!
+! ------------------------------------------------------------------------------
+! Messages for ShapeUpgrade
+!
+.ShapeDivide.FaceDivide.MSG0
+Face divided
+!
+.ShapeDivide.WireDivide.MSG0
+Wire divided
+!
+.ShapeDivide.EdgeDivide.MSG0
+Edge divided
+!
+.ShapeDivide.FaceConvertToBezier.MSG0
+Face converted to Bezier
+!
+.ShapeDivide.WireConvertToBezier.MSG0
+Wire converted to Bezier
+!
+.ShapeDivide.EdgeConvertToBezier.MSG0
+Edge converted to Bezier
+!
+! ------------------------------------------------------------------------------
+! Messages for ShapeCustom
+!
+.BSplineRestriction.NewSurface.MSG0
+Face converted to BSpline
+!
+.BSplineRestriction.NewSurface.MSG1
+BSpline Face re-approximated
+!
+.BSplineRestriction.NewCurve.MSG0
+Edge converted to BSpline
+!
+.BSplineRestriction.NewCurve.MSG1
+BSpline Edge re-approximated
+!
+!
+.ConvertToBSpline.NewSurface.MSG0
+Face converted to BSpline
+!
+.ConvertToBSpline.NewCurve.MSG0
+Edge converted to BSpline
+!
+!
+.ConvertToRevolution.NewSurface.MSG0
+Face converted to surface of revolution
+!
+!
+.DirectModification.NewSurface.MSG0
+Direction of Face of revolution corrected
+!
+!
+.SweptToElementary.NewSurface.MSG0
+Swept Face converted to elementary
+!