// aboriginal_language_regions.js
// Javascript to accompany aboriginal_language_regions.html
// RJM Programming
// June, 2015

window.onload = doonload;

var coords=new Array("979","176","1169","589","786","329","519","62","622","296","616","425","531","485","553","381","559","417","120","728","746","790","949","1065","906","900","880","886","888","858","977","814","1025","826","1045","766","1087","786","1103","756","1025","724","1093","700");
var places=new Array("Cooktown","Cooktown","Brisbane","Brisbane","Mount Isa","Mount Isa","Darwin","Darwin","Tennent Creek","Tennent Creek","Alice Springs","Alice Springs","Uluru","Uluru","Yuendemu","Yuendemu","Papunya","Papunya","Perth","Perth","Adelaide","Adelaide","Hobart","Hobart","Melbourne","Melbourne","Ballarat","Ballarat","Bendigo","Bendigo","Wagga Wagga","Wagga Wagga","Canberra","Canberra","Bathurst","Bathurst","Sydney","Sydney","Newcastle","Newcastle","Dubbo","Dubbo","Tamworth","Tamworth");
var geolls=new Array("145.2833","-15.4667","153.0333","-27.4667","139.5","-20.7333","130.8333","-12.45","134.2","-19.65","133.87","-23.7","131.0361","-25.345","131.7833","-22.25","131.9","-23.2167","115.8589","-31.9522","138.601","-34.929","147.325","-42.8806","144.9631","-37.8136","143.85","-37.55","144.2667","-36.75","147.3689","-35.1189","149.1244","-35.3075","149.5778","-33.42","151.2094","-33.865","151.75","-33.9167","148.6011","-32.2569","150.9167","-31.0833");

var cbmv=false;
var url = "http://www.rjmprogramming.com.au/PHP/Map/map.php?title=Dublin&label=['Lat',&value='Lon','Name']&data=,[53.3478,-6.2597,~Dublin~]";

function doonload() {
  var was=document.body.innerHTML;
  var ah, ahspare, j;
  var is="";
  if (was.indexOf("<" + "table") == -1) {
    var bits=was.split("<area ");
    is = "<div id='mydiv'><table><tr><td><select id='mysel' onchange='selchange(this);'><option value=''>Google Web Search</option><option value='People'>People</option><option value='Welcome to Country'>Welcome to Country</option><option value='Land'>Land</option><option value='Dreamtime Stories and Paintings'>Dreamtime Stories and Paintings</option><option value='Tradition'>Tradition</option><option value='Sacred Sites'>Sacred Sites</option><option value='Arts and Culture'>Arts and Culture</option><option value='Sport'>Sport</option></select>&nbsp;&nbsp;<input id='cbi' type='checkbox' value='Images'>Images</input>&nbsp;&nbsp;<input id='cbv' type='checkbox' value='Videos'>Videos</input>&nbsp;&nbsp;<input id='cbm' type='checkbox' value='Map'>Map</input>&nbsp;&nbsp;<iframe id='myi' style='display:none;height:400px;width:400px;' src='javascript:none;'></iframe></td></tr><tr><td>" + bits[0];
    for (var i=1; i<bits.length; i++) {
      ah = bits[i].split("/>");
      //alert(ah[0]);
      if (ah[0].indexOf(">") != -1) {
        ahspare = ah[0].split(">");
        is += "<area " + ahspare[0] + ' onclick="oc(' + "'" + ahspare[0].replace(/=/g,"_").replace(/"/g,"~") + "'" + ');"';
        for (j=1; j<ahspare.length; j++) {
          is += '>' + ahspare[j];
        }
        if (ah.length > 1) is += ah[1];
      } else {
        is += "<area " + ah[0] + ' onclick="oc(' + "'" + ah[0].replace(/=/g,"_").replace(/"/g,"~") + "'" + ');" />' + ah[1];
      }
    }
    is += "</td></tr></table></div>";
    document.body.innerHTML = is;
  }
}

function iframeurl(atitle, inx, iny) {
    var ii=0, jj, vsdist=-1.0, thisdist=0.0, closestis=-1, nextis=-1, closestc="", nextc="";
    var closestx, closesty, closestlong, closestlat;
    var nextx, nexty, nextlong, nextlat;
    
    for (ii=0; ii<eval(coords.length / 2); ii++) {
      thisdist = eval((eval(inx) - eval(coords[eval(ii * 2)])) * (eval(inx) - eval(coords[eval(ii * 2)])) + (eval(iny) - eval(coords[eval((ii * 2) + 1)])) * (eval(iny) - eval(coords[eval((ii * 2) + 1)])));
      if (vsdist < 0 || thisdist < vsdist) {
        closestis=eval(ii * 2);
        closestc=places[eval(ii * 2)];
        closestx=coords[eval(ii * 2)];
        closesty=coords[eval((ii * 2) + 1)];
        closestlong=geolls[eval(ii * 2)];
        closestlat=geolls[eval((ii * 2) + 1)];
        vsdist = thisdist;
        //alert(coords.length + " " + closestc);
      }
    }
    vsdist=-1.0;
    for (ii=0; ii<eval(coords.length / 2); ii++) {
      if (eval(ii * 2) != closestis) {
       thisdist = eval((eval(inx) - eval(coords[eval(ii * 2)])) * (eval(inx) - eval(coords[eval(ii * 2)])) + (eval(iny) - eval(coords[eval((ii * 2) + 1)])) * (eval(iny) - eval(coords[eval((ii * 2) + 1)])));
       if (vsdist < 0 || thisdist < vsdist) {
        nextis=eval(ii * 2);
        nextc=places[eval(ii * 2)];
        nextx=coords[eval(ii * 2)];
        nexty=coords[eval((ii * 2) + 1)];
        nextlong=geolls[eval(ii * 2)];
        nextlat=geolls[eval((ii * 2) + 1)];
        vsdist = thisdist;
       }
      }
    }
    //alert(closestc + " " + closestx + " " + closesty + " " + closestlong + " " + closestlat + "," + nextc + " " + nextx + " " + nexty + " " + nextlong + " " + nextlat);
    //alert("eval(eval(" + closestlong + ") + (((eval(" + inx + ") - eval(" + closestx + ")) / ((eval(" + nextx + ") - eval(" + closestx + "))) * (eval(" + nextlong + ") - eval(" + closestlong + ")))))");
    var ourlong = eval(eval(closestlong) + (((eval(inx) - eval(closestx)) / ((eval(nextx) - eval(closestx))) * (eval(nextlong) - eval(closestlong)))));
    //alert(ourlong + " " + closestc + " " + closestx + " " + closesty + " " + closestlong + " " + closestlat + "," + nextc + " " + nextx + " " + nexty + " " + nextlong + " " + nextlat);
    //alert("eval(eval(" + closestlat + ") + (((eval(" + iny + ") - eval(" + closesty + ")) / ((eval(" + nexty + ") - eval(" + closesty + "))) * (eval(" + nextlat + ") - eval(" + closestlat + ")))))");
    var ourlat = eval(eval(closestlat) + (((eval(iny) - eval(closesty)) / ((eval(nexty) - eval(closesty))) * (eval(nextlat) - eval(closestlat)))));
    //alert(ourlong + "," + ourlat + " " + closestc + " " + closestx + " " + closesty + " " + closestlong + " " + closestlat + "," + nextc + " " + nextx + " " + nexty + " " + nextlong + " " + nextlat);

    window.open("http://www.rjmprogramming.com.au/PHP/Map/map.php?title=" + atitle.replace(/ /g, "%20") + "&label=['Lat',&value='Lon','Name']&data=,[" + ourlat + "," + ourlong + ",~" + atitle.replace(/ /g, "%20") + "~]", atitle, "top=150,left=150,width=440,height=400");
    return ""; //"http://www.rjmprogramming.com.au/PHP/Map/map.php?title=" + atitle.replace(/ /g, "%20") + "&label=['Lat',&value='Lon','Name']&data=,[" + ourlat + "," + ourlong + ",~" + atitle.replace(/ /g, "%20") + "~]";
}

function oc(coordsare) {
  var ii=0, jj=3;
  if (1 == 2) alert(coordsare);
  var words=coordsare.split(" "), avx=0.0, avy=0.0;
  for (ii=0; ii<words.length; ii++) {
    if (words[ii].indexOf("coords_~") != -1) jj=ii;
  }
  if (words.length >= 4) {
    var cbmo=document.getElementById('cbm');
    cbmv=cbmo.checked;
    var care=words[jj].replace(/ /g,"").replace("coords_~", "").replace("~ ", ",").replace("~", ",").split(",");
    var title=words[2].replace("title_~", "").replace("alt_~", "").replace(/~/g, ' ');
    if (cbmv && 1 == 2) alert(words[jj].replace("coords_~", "").replace("~ ", ",").replace("~", ",") + " " + care[0] + "," + care[1]);
    for (ii=0; ii<eval(care.length / 2); ii++) {
      if (cbmv && 1 == 2) alert(ii + " vs " + eval(care.length / 2) + " vs " + care.length);
      //alert(avy + " vs " + care[eval(ii * 2) + 1]);
      if (care[eval(ii * 2)] != "" && care[eval(ii * 2)].indexOf("undefined") == -1) {
       avx=eval((eval(care[eval(ii * 2)]) + eval(avx * ii)) / (eval(ii + 1)));
       //alert(avy + " " + care[eval(ii * 2) + 1]);
       if (cbmv && 1 == 2) alert(ii + " Vs " + eval(care.length / 2) + " vs " + care.length);
       if (care[eval(eval(ii * 2) + 1)] != "" && care[eval(ii * 2) + 1].indexOf("undefined") == -1) avy=eval((eval(care[eval(eval(ii * 2) + 1)]) + eval(avy * ii)) / (eval(ii + 1)));
       if (cbmv && 1 == 2) alert(ii + " VS " + eval(care.length / 2) + " vs " + care.length);
      }
    }
    if (cbmv) {
       var ifurl = iframeurl(title, avx, avy);
       if (ifurl != "") {
         document.getElementById('myi').src = ifurl;
         document.getElementById('myi').style.display = "inline";
       }
    } 
  }
}

function selchange(osel) {
  var ov=osel.value;
  var oi=osel.id;
  var cbio=document.getElementById('cbi');
  var cbiv=cbio.checked;
  var cbvo=document.getElementById('cbv');
  var cbvv=cbvo.checked;
  var cbmo=document.getElementById('cbm');
  cbmv=cbmo.checked;
  var was=document.body.innerHTML;
  if (cbiv) {
    was = was.replace(/q=/g, "source=lnms&tbm=isch&sa=X&ei=&q=");
  } else if (cbvv) {
    was = was.replace(/q=/g, "source=lnms&tbm=vid&sa=X&ei=&q=");
  }   document.body.innerHTML = was.replace(/" target="_blank"/g, "+'" + ov.replace(/ /g, "%20") + "'" + '" target="_blank"');
  document.getElementById(oi).value = ov;
  document.getElementById('cbi').checked = cbiv;
  document.getElementById('cbv').checked = cbvv;
  document.getElementById('cbm').checked = cbmv;
}