mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
4b3541c68b
Possibility to customize layout of installation of OCCT is introduced by: - variable INSTALL_DIR_LAYOUT - select one of the two predefined layouts: either Windows (classic OCCT layout) or Unix (Linux standard) - variables INSTALL_DIR_* (BIN, LIB, INCLUDE, RESOURCE, DOC, TESTS, SCRIPT, SAMPLES, DATA) - specify locations of relevant components - variable INSTALL_DIR_WITH_VERSION (bool) - specifies whether full version of OCCT should be used in paths in Unix layout Files LICENSE_LGPL_21.txt and OCCT_LGPL_EXCEPTION.txt are always installed. Environment is extended to support non-default layouts. For that, environment variables "CSF_OCCT*Path" are defined, corresponding to CMake variables INSTALL_DIR_* described above. Visual Studio environment, DRAW, tests, samples are amended to use these variables instead of (or as alternative to) CASROOT. Settings of Products-specific vars are removed from environment scripts. File genconf.bat was corrected to avoid error message for the case when path to TCL contains spaces. Product name in rc files changed to "Open CASCADE Technology".
86 lines
2.1 KiB
Tcl
86 lines
2.1 KiB
Tcl
# Copyright (c) 1999-2014 OPEN CASCADE SAS
|
|
#
|
|
#Category: Demos
|
|
#Title: Import and export
|
|
#
|
|
# 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 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.
|
|
|
|
# Command to log a message to both command-line and dialog window
|
|
proc sage { a} {
|
|
if { ![winfo exists .h ] } {
|
|
toplevel .h -bg azure3
|
|
wm title .h "INFO TEST HARNESS"
|
|
wm geometry .h +320+20
|
|
}
|
|
if { [winfo exists .h.m ] } {
|
|
set astring [.h.m cget -text]
|
|
set newstring "${astring} \n $a"
|
|
.h.m configure -text $newstring
|
|
puts $a
|
|
} else {
|
|
message .h.m -justify left -bg azure2 -width 13c -relief ridge -bd 4 -text $a
|
|
puts $a
|
|
}
|
|
pack .h.m
|
|
update
|
|
}
|
|
|
|
pload DATAEXCHANGE
|
|
|
|
smallview
|
|
if { [winfo exists .h ] } {
|
|
destroy .h
|
|
}
|
|
|
|
set ddir .
|
|
if { [info exists env(CSF_OCCTDataPath)] } {
|
|
set ddir [file join $env(CSF_OCCTDataPath) occ]
|
|
} else if { [info exists env(CASROOT)] } {
|
|
set ddir [file join $env(CASROOT) data occ]
|
|
}
|
|
|
|
set tdir .
|
|
if { [info exist env(TEMP)] } {
|
|
set tdir $env(TEMP)
|
|
}
|
|
|
|
sage " First, we retrieve a BREP File "
|
|
sage " restore $ddir/wing.brep wing"
|
|
sage " "
|
|
datadir .
|
|
restore $ddir/wing.brep wing
|
|
disp wing
|
|
fit
|
|
|
|
sage "Generate the IGES File of this BREP"
|
|
sage " brepiges wing $tdir/wing.igs"
|
|
sage " "
|
|
brepiges wing $tdir/wing.igs
|
|
wait 3
|
|
|
|
sage "we delete all DRAW data"
|
|
sage ""
|
|
dall
|
|
fit
|
|
wait 3
|
|
|
|
sage "Restore this IGES File we have created "
|
|
sage " igesbrep $tdir/wing.igs new *"
|
|
sage ""
|
|
igesbrep $tdir/wing.igs new *
|
|
disp new
|
|
fit
|
|
|
|
puts "End IGES Elementary Test "
|
|
sage " "
|
|
file delete $tdir/wing.igs
|