#! /bin/tcsh -f # # Jiffy for changing wavelength set energy = "" if($?QUERY_STRING) set CGI if($?CGI) then # we are running as CGI echo "Content-Type: text/html\n" set path = ( `pwd` $path ) endif if("$1" != "") then set energy = `echo $1 | awk '$1+0>1000{print $1+0} $1+0<3 && $1+0>0.1{printf "%.2f", 12398.4245/$1}'` endif # allow use of element symbol/name if(("$1" =~ *[a-z]*)||("$1" =~ *[A-Z]*)) then set temp = `echo "$1" | elements | awk '{print $3, $4, $4-20, $4+20; exit}'` if($#temp == 4) then echo "$temp[1] edge: $temp[2]" set energy = $temp[2] endif endif if("$energy" != "") then echo "moving Mono to $energy eV" set newenergy = `blmotor.com Mono eV $energy | tail -1 | awk '$NF+0>2000{print $NF}'` if("$newenergy" == "") then echo "unable to move motor." set beamline = `beamline.com` echo 'please switch the beamline control computer (bl'${beamline}'b) to "Remote Control"' exit 9 else set energy = "$newenergy" endif else set energy = `blmotor.com Mono eV | awk '{printf "%.3f", $NF+0}'` endif if($?CGI) echo "
" echo "$energy"| awk '{printf "Energy: %.3f eV\n", $NF+0}' if($?CGI) echo "
" echo "$energy"| awk '{printf "Wavelength: %.5f A\n", 12398.4245/$1}' if($?CGI) echo "
"