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

# MAKE sure that all of the sources are identified to the program

source [ file join $env(TCLTOOLS_HOME) TclToolInits.tcl ]
TclToolInits FFT GPH GUI PLT UTILS

lappend auto_path [file join $env(TCLTOOLS_HOME) TclSN]
package require ShockNormal
 
# FIRE up the GUI interface

SNguiDefaults
if { $argc == 1 } {
   set guiAns(ReadName) [lindex $argv 0]
   set guiAns(SaveName) [lindex $argv 0]
   set guiAns(NeedRead) 1
} else { set guiAns(NeedRead) 0 }
SNguiStart
