#!/usr/bin/tcsh -f
cd /home/skrutski/weather

set i=0
set j=0
if ($#argv == 1) set j=$1

set da=`date -u +%y%m%d`
wget -N -q http://www.wrh.noaa.gov/wrhq/CURRENT/wv8.gif
cp wv8.gif l8est.gif
giftoppm wv8.gif > wv.$j.ppm
if ($status == 1) @ j--
sleep 15m

while($i <  50)

   @ i++
   wget -N -q http://www.wrh.noaa.gov/wrhq/CURRENT/wv8.gif
   diff wv8.gif l8est.gif > /dev/null
   if ($status == 1) then
         @ j++
         cp wv8.gif l8est.gif
         giftoppm wv8.gif > wv.$j.ppm
         if ($status == 1) @ j--
    endif
   sleep 15m

end

while ($j <  30)

   set i = $j
   @ i++
   cp wv.$j.ppm wv.$i.ppm
   @ j++

end

mpeg_encode /home/skrutski/weather/wv.param

mv wv.mpg wv$da.mpg
at -f /home/skrutski/tools/wvg 0005