#!/bin/sh
# the next line restarts using wish \
exec wish $0 $@

package require vtk
package require vtkinteraction
package require vtktesting

# MAKE sure that all of the sources are identified to the program
 
source [ file join $env(TCLTOOLS_HOME) TclToolInits.tcl ]
TclToolInits GPH GUI PLT UTILS UDF UDFDB GUIUTILS
 
lappend auto_path [file join $env(TCLTOOLS_HOME) TclEUVSim]
package require EUVSim
package require EUVSim_C

set msANS(cMinH)   1.0
set msANS(cMaxH)   2500.0
set msANS(cScaH)   LOG
set msANS(cMinM)   1.0
set msANS(cMaxM)   2500.0
set msANS(cScaM)   LOG
set msANS(cMinE)   1.0
set msANS(cMaxE)   2500.0
set msANS(cScaE)   LOG
set msANS(cLoc)   RHORIZONTAL
set msANS(pMin)   6.0
set msANS(pDec)   1
set msANS(pSm)    NO
set msANS(pRows)  0
set msANS(pCols)  0
set msANS(ZooM)   0.75
set msANS(Src)    EUV

if { $argc == 0 } {
   MsGUI
} else {
   set msANS(noGUI) 1
   GUIprefsRead
   set msANS(miFile) [lindex $argv 0]
   MsRead
   MsGUI
}
