// WWV loader

function WWVforms() {
  document.forms.wwv_values.SF.value = solar_flux;
  document.forms.wwv_values.A.value = a_index;
  document.forms.wwv_values.K.value = k_index;
}



function loadWWV() {
  var now = new Date();
  //document.write("<script language='javascript' src='http://69.89.27.221/~strooba1/hamwaves/cgi-bin/wwv.cgi'></script>");
  setTimeout('WWVforms()',2000);
}



//K1TTT's Java Applet


function K1TTTApplet() {
  document.writeln('<applet archive=frequency/mofjava.zip code=mofjava.class width=720 height=493>'); //950x650
  document.writeln('<param name=MapWidth value=560>'); //800
  document.writeln('<param name=MapHeight value=420>'); //570
  document.writeln('<param name=Rows value=42>'); //30
  document.writeln('<param name=Cols value=56>'); //40
  //document.writeln('<param name=LAT value=42.4>');
  //document.writeln('<param name=LON value=73.2>');
  document.writeln('<param id=param_SF name=SF value=' + solar_flux + '>');
  document.writeln('<param name=A value=' + a_index + '>');
  document.writeln('<param name=K value=' + k_index + '>');
  document.writeln('</applet>');
}



// World MUF map loader


function loadMufMapWorld() {
  var now = new Date();
  document.mufmap_world.src = "http://www.spacew.com/www/realtime.gif?" + now.getTime();

//  document.mufmap_hfprop.src = "http://www.tech-pro.net/g4ilo/images/prop.jpg?" + now.getTime();
//  document.mufmap_hfprop.src = "http://www.g4ilo.com/images/prop.jpg?" + now.getTime();
}



//Script to load latest European MUF(3000)F2 forecast


function y2k(number) { return (number < 1000) ? number + 1900 : number; }

function ad02Hour(number) { return (number < 10) ? "" + 0 + number : number; }

function makeArray() {
    this[0] = makeArray.arguments.length;
    for (i = 0; i<makeArray.arguments.length; i++)
        this[i+1] = makeArray.arguments[i];
}

var accumulate    = new makeArray(0, 31, 59, 90,120,151,181,212,243,273,304,334);
var accumulateLY  = new makeArray(0, 31, 60, 91,121,152,182,213,244,274,305,335);

function LeapYear(year) {
    if ((year/4)   != Math.floor(year/4))   {return false;}
    if ((year/100) != Math.floor(year/100)) {return true;}
    if ((year/400) != Math.floor(year/400)) {return false;}
    return true;
}

function pad(number,length) {
    var str = '' + number;
    while (str.length < length)
        str = '0' + str;
    return str;
}

function getJulianDay(year,month,day) {
    if (LeapYear(year))
            return pad(day + accumulateLY[month],3);
    else
            return pad(day + accumulate[month],3);
}

function loadMufMapEurope() {
if ((navigator.appVersion.indexOf('MSIE 3') == -1))
    var fiddle = 1;
else
    var fiddle = -1;

var cDate = new Date();
cDate.setTime(cDate.getTime() + cDate.getTimezoneOffset()*60*1000*fiddle - 1*60*60*1000 );


var yy = y2k(cDate.getYear()).toString().substring(2,4);
var year = y2k(cDate.getYear());
var month = cDate.getMonth()+1;
var day = cDate.getDate();

var julianDate = '' + yy + getJulianDay(year,month,day);

document.mufmap_europe.src = "http://ionosphere.rcru.rl.ac.uk/STIFmaps/Current_Forecasts/" + julianDate + ad02Hour(cDate.getHours()) + "/G" + julianDate + ad02Hour(cDate.getHours()) + "_01.gif";
}



// Image load countdown counters


function minCounters() {
  var now = new Date();
  var minutes = now.getMinutes();
  var seconds = now.getSeconds();

  var min2ReloadWWV = 70-minutes;
  if (minutes <= 9) {min2ReloadWWV = 10-minutes;}
  document.forms.wwv_values.min2reload.value = min2ReloadWWV;

  var min2ReloadWorld = 6-mod(minutes,5);
  if (mod(minutes,5) === 0) {min2ReloadWorld = 1;}
  document.forms.minCounterWorld.min2reload.value = min2ReloadWorld;

//	var min2ReloadHFProp = 61-minutes;
//  if (minutes === 0){ min2ReloadHFProp = 1;}
//  document.forms.minCounterHFProp.min2reload.value = min2ReloadHFProp;

  var min2ReloadEurope = 94-minutes;
  if (minutes <= 33) {min2ReloadEurope = 34-minutes;}
  document.forms.minCounterEurope.min2reload.value = min2ReloadEurope;

  //if(minutes === 10) loadWWV();
  if(mod(minutes,5)===1) {loadMufMapWorld();}
  if(minutes === 34) {loadMufMapEurope();}
  setTimeout('minCounters()',(60-seconds)*1000);
  }