%%let hwvbody_extras= ' onLoad="startstop();" ' let%%

%%hwi=header%%
%%let hwvchoice6color= '%%hwvhctxtcolor%%' let%%

%%hwi=nav_state%%

%%hwi=radar_header%%

<!-- ---------------BEGIN RADAR DATA--------------- //-->

<!-- Determine radar url //-->
%%let hwvradartype= ('%%hwvradartype%%') ? '%%hwvradartype%%' : 'base' let%%

%%IF ('%%hwvradartype%%' eq 'base') THEN %%let hwvradarpath='DS.p19r0' let%%  %%let hwvradarname='Base Reflectivity' let%% %%let hwvchoice2color= '%%hwvhctxtcolor%%' let%% IF%%
%%IF ('%%hwvradartype%%' eq 'composite') THEN %%let hwvradarpath='DS.p38cr' let%%  %%let hwvradarname='Composite Reflectivity' let%% %%let hwvchoice3color= '%%hwvhctxtcolor%%' let%% IF%%
%%IF ('%%hwvradartype%%' eq 'onehr') THEN %%let hwvradarpath='DS.78ohp' let%%  %%let hwvradarname='Rainfall 1 Hour Total' let%% %%let hwvchoice4color= '%%hwvhctxtcolor%%' let%% IF%%
%%IF ('%%hwvradartype%%' eq 'stormtotal') THEN %%let hwvradarpath='DS.80stp' let%%  %%let hwvradarname='Rainfall Storm Total' let%% %%let hwvchoice5color= '%%hwvhctxtcolor%%' let%% IF%%
<!-- end Determine radar url //-->


%%FORECAST forecast=nexradloop radar_icao=%%radar_icao%% hwvradartype=%%hwvradartype%% config=%%url_config%% FORECAST%%

%%let hwvnrbc= (%%nexrad_total_loop_images%%-3) >=0 ? 3 : 1 let%%
%%let hwvnrtotal= %%nexrad_total_loop_images%%-%%hwvnrbc%%+1 let%%

<script>

/* This code is Copyright (c) 1996 Nick Heinle and Athenia Associates,
 * all rights reserved. In order to receive the right to license this
 * code for use on your site the original code must be copied from the
 * Web site webreference.com/javascript/. License is granted to user to
 * reuse this code on their own Web site if and only if this entire copyright
 * notice is included. Code written by Nick Heinle of webreference.com.
 * Code extremely modified by Lee Huffman of HAMweather, LLC
 * in January 2001.
 */


delay = 1000;
imgNumber = 0;
totalimgNumber = %%hwvnrtotal%%;
anim = new Array();
nws_url = 'http://weather.noaa.gov/radar/images/%%hwvradarpath%%/SI.%%lc_radar_icao%%/';
dot_url = '%%hwvMainIMagesPath%%loopcontrol/';
var start_stop  = 0;

bluedot = new Image (5, 5);
reddot = new Image(5,5);
bluedot.src = dot_url + 'bluedot.gif';
reddot.src = dot_url + 'reddot.gif';


stopbutton = new Image(40,20);
startbutton = new Image(40,20);
stopbutton.src = dot_url + 'stop.gif';
startbutton.src = dot_url + 'start.gif';


for (i = 0; i < totalimgNumber; i++) {
   anim[i] = new Image (620, 620);
}



%%REPEAT %%hwvnrbc%% %%nexrad_total_loop_images%% %%let hwvnum= %%hwcounter%% -%%hwvnrbc%% let%% anim[%%hwvnum%%].src = nws_url +'%%nexrad_loop_images%%hwcounter%%%%'; %%lf%%  REPEAT%%



function Switch() {
   document.radarloop.src = anim[imgNumber].src;

    var oldimgNum = imgNumber -1;
    if (oldimgNum < 0) { oldimgNum = totalimgNumber -1; }

    eval('document.dot' + oldimgNum + '.src = bluedot.src;');
    eval('document.dot' + imgNumber + '.src = reddot.src;');

   imgNumber++;
   if(imgNumber >= totalimgNumber) imgNumber = 0;
}

function SwitchTo(num) {
   if (num < 0) num=0;
   if (num > totalimgNumber) num=totalimgNumber;

   imgNumber=num;
   document.radarloop.src = anim[imgNumber].src;
}


var myTimer;
function animate() {
   if (start_stop == 1) {
      Switch();
      myTimer=setTimeout("animate()", delay);
   }
}

function slower(amount) {
   if (start_stop == 1) {
      delay+=amount;
      if(delay > 4000) delay = 4000;
   }
}

function faster(amount) {
   if (start_stop == 1) {
      delay-=amount;
      if(delay < 500) delay = 500;
   }
}

function startstop() {
   if (start_stop == 0) {
      start_stop=1;
      animate();

   }
   else {
      start_stop=0;
      clearTimeout("myTimer");

   }

   adjust_start_stop_button();

}

function gotoImage (num) {
   if (num < 0) { num = 0; }
   if (num >= totalimgNumber) { num = totalimgNumber; }

    var oldimgNum = imgNumber -1;
    if (oldimgNum < 0) { oldimgNum = totalimgNumber -1; }
    eval('document.dot' + oldimgNum + '.src = bluedot.src;');

   imgNumber = num;
   document.radarloop.src = anim[imgNumber].src;
   eval('document.dot' + imgNumber + '.src = reddot.src;');


}



function adjust_start_stop_button() {
   if (start_stop == 0) {
      document.loopstartstop.src = startbutton.src;
   }
   else {
      document.loopstartstop.src = stopbutton.src;
   }
}

</script>









<table border=0 width="100%">
   <tr>
      <td valign="top" bgcolor="%%hwvhbgcolor%%">
         <table width="100%" border=0 cellspacing=0 cellpadding=0><tr>
            <td valign="top" align="left"><font color="%%hwvhtxtcolor%%"><strong><big>Local %%hwvradarname%% Radar Loop:</big> <a href="http://weather.noaa.gov/radar/mosaic/DS.p19r0/ar.us.conus.shtml" style="text-decoration: none; color: rgb(255,255,255)"><font face="%%hwvface%%" size=2 color="%%hwvhtxtcolor%%"><em>(via NWS)</em></font></a><br></strong></font></td>
            <td valign="top" align="right"><a href="%%scripturl%%?config=%%url_config%%&forecast=pass&pass=local_radar&dpp=1&radar_icao=%%radar_icao%%&hwvradartype=%%hwvradartype%%&place=%%url_place%%&state=%%url_state%%&zipcode=%%url_zipcode%%&country=%%url_country%%&county=%%county%%&zone=%%zone%%"><font
                face="%%hwvface%%" size=2 color="%%hwvhtxtcolor%%"><strong><em>Latest</em></strong></font></a>&nbsp;</td>
         </tr></table>
      </td>
   </tr>


   <tr>
      <td align="center" width="100%">
      %%hwi=nav_radar_loop%%
      </td>
   </tr>

%%let hwvTotalImages= %%nexrad_total_loop_images%% - %%hwvnrbc%% let%%

%%IF '%%radar_icao%%' THEN __
            <tr><td align="right"><table  border=0 align="left" width="100%" cellspacing=0 cellpadding=0><tr><td>  __
         &nbsp;&nbsp;<img  src="%%hwvMainIMagesPath%%loopcontrol/stop.gif" name="loopstartstop" border=0 width=40 height=20 onClick="startstop();">&nbsp; __
         <img  src="%%hwvMainIMagesPath%%loopcontrol/slower.gif" name="loopslower" border=0 width=40 height=20 onClick="slower(500);">&nbsp; __
         <img  src="%%hwvMainIMagesPath%%loopcontrol/faster.gif" name="loopfaster" border=0 width=40 height=20 onClick="faster(500);">&nbsp;&nbsp;&nbsp; __
            </td><td><table  border=0 align="right" cellspacing=0 cellpadding=0><tr> __
               <td align="left"><font size=2 face="%%hwvface%%" color="blue">Click Block For Image -></font>&nbsp;</td>__
                  %%_REPEAT 0 %%hwvTotalImages%%  <td align="center" width=15><a href="javascript:gotoImage(%%hwcounter%%);"><img name="dot%%hwcounter%%" src="%%hwvMainIMagesPath%%loopcontrol/bluedot.gif" width="5" height="5" border=0></a>&nbsp;&nbsp;</td> __
                      %%lf%%  _REPEAT%% __
               </tr></table></td></tr></table></td></tr> __
  IF%%



   <tr>
      <td align="center">
         %%IF '%%radar_icao%%' THEN __
               <img name="radarloop" src="http://weather.noaa.gov/radar/images/%%hwvradarpath%%/SI.%%lc_radar_icao%%/latest.gif"  width="620" height="620" border="0" alt="%%hwvradarname%%"> __
            ELSE <b><font face="%%hwvface%%">No Local Radar Available</font></b> __
          IF%%</font></td>
      </tr>


</table>


<!-- ---------------END WARNIGNS DATA--------------- //-->


%%hwi=footer%%