#############################################################
# SPECT_GEN.TCL: generate an x-ray spectrum
#############################################################
# Variable definition for spect_gen.tcl
#
set target     74       ;#    Z: target atomic number
set angle      12       ;#angle: angle from surface,degrees
set waveform   1        ;# wave: applied waveform               \
                                   wave=1=constant potential \
                                   wave=2=single phase       \
                                   wave=3=mono
set energy     120      ;#    E: kVp, peak kilovolts, or energy
set incr       1        ;# dkeV: energy increment for spectrum
#
# Execute spect_gen
set in "$target $angle $waveform $energy $incr \n"
#
if [catch {exec $BIN/spect_gen << $in} result] {
        puts stderr "ERROR in SPECT_GEN:\n $result"}
# 
