#! /bin/csh

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

# set Params="-zoom tofit -zscale -cmap bb -geometry 900x1000"
set Params="-cmap bb -geometry 1200x930 "
set Params2="-scale limits -350 350 "
# set Params2=" "
set Params3=" -zoom 0.72 "

echo $Params $Params2

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
set i = 5670
#uncompress /mag/fd_M_96m_01d.00$i/*Z
while ( $i <= $end )
  @ j = $i + 1
  echo Day $i
  ds9 $Params3 $Params2 $Params /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.$$