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

package/resources/DrawResources/DrawDefault

@@ -0,0 +1,130 @@
+# 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.
+
+# This script is to be executed automatically at DRAWEXE start.
+#
+# For that to happen, either environment DRAWDEFAULT should be set pointing
+# to this file, or CASROOT variable should be set, so that the script is
+# found as $CASROOT/src/DrawResources/DrawDefault
+
+# indicate that DRAW is interactive environment
+set tcl_interactive 1
+
+# define location of standard DRAW scripts; normally it is 
+# $CASROOT/src/DrawResources
+set dir ""
+if { [info exists env(DRAWHOME) ] } { 
+  set dir $env(DRAWHOME)  
+} else {
+  if { [info exists env(CASROOT) ] } {
+    set dir [file join $env(CASROOT) src DrawResources]
+    if { ! [file isdirectory $dir] } {
+      set dir [file join $env(CASROOT) resources DrawResources]
+    }
+  } else {
+    puts "Warning: CASROOT is not defined, some features may not load correctly"
+    set dir [file dirname [info script]]
+  }
+}
+
+# load standard DRAW scripts
+if { [file isdirectory $dir] } { 
+  foreach script {StandardCommands.tcl Geometry.tcl StandardViews.tcl
+                  TestCommands.tcl CheckCommands.tcl Vector.tcl} {
+    if [file exist [file join $dir $script]] {
+      source [file join $dir $script]
+    } else {
+      puts "Warning: could not find command file $script"
+    }
+  }
+
+  # and TK extensions
+  set stationname $tcl_platform(platform)
+  if [info exists tk_version] {
+    source [file join $dir DrawTK.tcl]
+    # setup the icon for main window
+    if { ${stationname} == "windows" } {
+      wm iconbitmap . -default [file join $dir lamp.ico]
+    }
+    wm title . Draw
+  }
+} else {
+  puts "Warning: could not find DRAW directory"
+}
+
+# set default testing environment (unless already defined before)
+if { ! [info exists env(CSF_TestScriptsPath)] } {
+  if {[info exists ::env(CSF_OCCTTestsPath)] && [file isdirectory $env(CSF_OCCTTestsPath)]} {
+    set env(CSF_TestScriptsPath) $env(CSF_OCCTTestsPath)
+  } elseif { [info exists env(CASROOT)] && [file isdirectory $env(CASROOT)/tests] } {
+    set env(CSF_TestScriptsPath) $env(CASROOT)/tests
+  }
+}
+if {[info exists ::env(CSF_OCCTDataPath)] && [file isdirectory $env(CSF_OCCTDataPath)]} {
+  if { ! [info exists env(CSF_TestDataPath)] } {
+    set env(CSF_TestDataPath) $env(CSF_OCCTDataPath)
+  } else {
+    set env(CSF_TestDataPath) $env(CSF_TestDataPath)[_path_separator]$env(CSF_OCCTDataPath)
+  }
+} elseif { [info exists env(CASROOT)] && [file isdirectory $env(CASROOT)/tests] } {
+  if { ! [info exists env(CSF_TestDataPath)] } {
+    set env(CSF_TestDataPath) $env(CASROOT)/data
+  } else {
+    set env(CSF_TestDataPath) $env(CSF_TestDataPath)[_path_separator]$env(CASROOT)/data
+  }
+}
+
+# load application-defined initialization script, which is expected to 
+# be found either in the file pointed by environment variable CSF_DrawAppliInit,
+# or in the file DrawAppliInit in the current directory
+set draw_appli_init_file DrawAppliInit
+if { [info exists env(CSF_DrawAppliInit)] } {
+  set draw_appli_init_file $env(CSF_DrawAppliInit)
+} 
+if { [file readable $draw_appli_init_file] } {
+  if { [catch {source $draw_appli_init_file} res] } {
+    puts "Warning: problem while loading file $draw_appli_init_file: $res"
+  }
+} 
+
+# on Windows, set special handler to update automatically environment variables
+# in C subsystem when Tcl environment changes (see Mantis issue #23197)
+if { $tcl_platform(platform) == "windows" && ! [catch {dgetenv PATH}] } {
+    proc _update_c_env {envenv var op} { 
+        global env
+        if { $op == "unset" } {
+            if { $var != "" } {
+                dsetenv $var
+            } else {
+	        #"array get env varname" command calls _update_c_env with op="unset" and var=""
+		#It leads to detach of trace from env array
+                trace add variable env array _update_c_env
+                trace add variable env read  _update_c_env
+                trace add variable env write _update_c_env
+                trace add variable env unset _update_c_env
+            }
+        } elseif { $op == "write" } {
+            dsetenv $var $env($var)
+        } elseif { $op == "read" } {
+            return dgetenv $var
+        }
+    }
+    #Execute "trace add ..." block from _update_c_env proc
+    _update_c_env env "" "unset"
+}
+
+# arm signal handler with default FPE setting
+dsetsignal
+
+# silent return from the script
+return

package/resources/DrawResources/DrawPlugin

@@ -0,0 +1,64 @@
+! Description of available plugins for DRAW Test Harness
+! *****************************************************************************
+!
+! Format of the file is compliant with the standard Open CASCADE resource files
+! (see the Resource_Manager.cdl file for details).
+!
+! Each key defines a sequence of either further keys or a name of the dynamic
+! library. Keys can be nested down to an arbitrary level. However, make sure
+! there are no cyclic dependencies (internal checks are not performed).
+! 
+! For details how to implement a DRAW plugin refer to the Test Harness User's
+! Guide.
+!
+! To load a plugin use the following command in DRAW:
+!
+! Draw> pload [-PluginFileName] [[Key1] [Key2]...], where:
+!     <-PluginFileName> - Defines the name of a resource file.
+!                         If this parameter is omitted then the default name DrawPlugin
+!                         is used.
+!                         According to the Open CASCADE resource file management rules
+!                         the environment variable CSF_<PluginFileName>Defaults must
+!                         be set and point to the directory storing the file. If it is
+!                         omitted then it defaults to $CASROOT/src/DrawResources.
+!     [Key]             - Defines the key(s) enumerating plugins to be loaded.
+!                         If no keys are specified then the key named DEFAULT is used
+!                         (if there is no such in the file then no plugins are loaded).
+!
+!
+! NOTE: Make sure the DATAEXCHANGE or XDE key succeeds the OCAF key in a sequence
+!
+
+DEFAULT            : MODELING
+MODELING           : TOPTEST
+VISUALIZATION      : AISV
+OCAFKERNEL         : DCAF
+DATAEXCHANGEKERNEL : XSDRAW, DE
+OCAF               : VISUALIZATION, OCAFKERNEL
+DATAEXCHANGE       : XDE, VISUALIZATION
+XDE                : DATAEXCHANGEKERNEL, XDEDRAW, STEP, IGES, GLTF, OBJ, PLY, STL, VRML
+ALL                : MODELING, OCAFKERNEL, DATAEXCHANGE
+
+TOPTEST            : TKTopTest
+DCAF               : TKDCAF
+AISV               : TKViewerTest
+GL                 : TKOpenGlTest
+OPENGL             : TKOpenGlTest
+GLES               : TKOpenGlesTest
+OPENGLES           : TKOpenGlesTest
+D3DHOST            : TKD3DHostTest
+XSDRAW             : TKXSDRAW
+XDEDRAW            : TKXDEDRAW
+TOBJ               : TKTObjDRAW
+DFBROWSER          : TKDFBrowser
+QAcommands         : TKQADraw
+VIS                : TKIVtkDraw
+INSPECTOR          : TKToolsDraw
+DE                 : TKXSDRAWDE
+STEP               : TKXSDRAWSTEP
+IGES               : TKXSDRAWIGES
+GLTF               : TKXSDRAWGLTF
+OBJ                : TKXSDRAWOBJ
+PLY                : TKXSDRAWPLY
+STL                : TKXSDRAWSTL
+VRML               : TKXSDRAWVRML