MyBuildingTclViewer.tcl: Difference between revisions
Jump to navigation
Jump to search
(New page: <tcl>MyBuildingTclViewer.tcl</tcl>) |
No edit summary |
||
(4 intermediate revisions by the same user not shown) | |||
Line 1: | Line 1: | ||
< | __NOTOC__ | ||
[[Image:BuildingTclLogo.gif|link=BuildingTcl|right]] | |||
<source lang="Tcl"> | |||
################################ | |||
# BuildingTcl Library Files Setup | |||
# | |||
# Silvia Mazzoni, 2008 | |||
# University of California, Berkeley | |||
################################ | |||
# place this file in your working directory # | |||
# source it within OpenSeesTk # | |||
################################ | |||
# | |||
# Folder Path for all BuildingTcl Library Files | |||
variable LibPath "C:/Users/AASilvia/AAProjects/OpenSees/BuildingTcl_All/BuildingTcl_Release1.9/BuildingTclProgramFiles"; | |||
# | |||
# Add the BuildingTcl Commands to Tcl | |||
source $LibPath/LibBuildingTclLibraryFiles.tcl; | |||
# | |||
# set up | |||
# | |||
# initialize all data lists and arrays | |||
initializeAll ; | |||
# | |||
global GlobalizeUnits | |||
eval $GlobalizeUnits; | |||
# | |||
# | |||
# run viewer | |||
# | |||
BuildingTclViewer | |||
# | |||
</source> | |||
---- | |||
Return to [[BuildingTcl Installation Instructions]] |
Latest revision as of 17:09, 30 October 2009
################################
# BuildingTcl Library Files Setup
#
# Silvia Mazzoni, 2008
# University of California, Berkeley
################################
# place this file in your working directory #
# source it within OpenSeesTk #
################################
#
# Folder Path for all BuildingTcl Library Files
variable LibPath "C:/Users/AASilvia/AAProjects/OpenSees/BuildingTcl_All/BuildingTcl_Release1.9/BuildingTclProgramFiles";
#
# Add the BuildingTcl Commands to Tcl
source $LibPath/LibBuildingTclLibraryFiles.tcl;
#
# set up
#
# initialize all data lists and arrays
initializeAll ;
#
global GlobalizeUnits
eval $GlobalizeUnits;
#
#
# run viewer
#
BuildingTclViewer
#
Return to BuildingTcl Installation Instructions