#! /bin/csh

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

set Params="-cmap bb -geometry 1200x1100 "
set Params2 = "-zscale -zoom .85 -frame first"
set Params3=" -zoom 0.85 "

  echo ""
echo "displaying window " $Params $Params2
  echo ""

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

echo carrot.$$
rsh sonar 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
  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.$$