#! /bin/csh

if ( $#argv != 1 ) then
  echo ""
  echo "new_cr CR"
  echo ""
  exit
endif

umask 2
unalias ds9
alias carrot "echo \!* > /tmp/cr;echo \!*;~kehcheng/work/synop/carrot < /tmp/cr"

echo carrot.$$
rsh sonar -e carrot $argv[1] > /tmp/carrot.$$
@ beg = `grep FIRST /tmp/carrot.$$ | awk '{print $5}' | awk -F\. '{print $1}'`
@ end = `grep LAST /tmp/carrot.$$ | awk '{print $5}' | awk -F\. '{print $1}'`
@ end = $end + 4

@ i = $beg
#uncompress /mag/fd_M_96m_01d.00$i/*Z
while ( $i <= $end )
  @ j = $i + 1
  ds9 -zoom .75 -zscale -cmap bb -geometry 900x1000 /mag/fd_M_96m_01d.00$i/fd_M_96m_01d.$i.00??.fits
  @ i++
end

#compress /mag/fd_M_96m_01d.00*/*fits
rm /tmp/carrot.$$