#! /bin/csh -f

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

unalias ds9
rsh tarax -e carrot $argv[1] > /tmp/carrot.jeneen
@ beg = `grep FIRST /tmp/carrot.jeneen | awk '{print $5}' | awk -F\. '{print $1}'`
@ end = `grep LAST /tmp/carrot.jeneen | 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
#  uncompress /mag/fd_M_96m_01d.00$j/*Z & 
  ds9 -zoom .5 -zscale -cmap bb -geometry 720x810 /mag/fd_M_96m_01d.00$i/fd_M_96m_01d.$i.00??.fits
#  compress /mag/fd_M_96m_01d.00$i/*.fits &
  @ i++
end

#compress /mag/fd_M_96m_01d.00*/*fits