// rf3000 Mapic map scroller
// Copyright 2005 Tom Greenwood, Bernie Redman

var ab=400;var bb=250000;var cb=5;var db="../../../maps/";var eb=4.5;var fb=new Array();var MAX=21;var gb=new Array();var hb=360000000;function profile(ib){window.location=db+"profiles/"+(ib.toLowerCase())+".html";}function jb(kb){kb=Math.round((kb-(kb%60))/60);while(kb<0){kb+=360;}while(kb>360){kb-=360;}if(kb>=100){return kb;}else if(kb>=10){return'0'+kb;}else{return'00'+kb;}}function lb(kb){var r=new Array();kb=Math.round(kb*3600);r[2]=kb%60;kb=Math.round((kb-r[2])/60);r[1]=kb%60;r[0]=Math.round((kb-r[1])/60);return r;}function mb(nb,ob,pb){nb=1*nb+1*ob/60+1*pb/3600;while(nb<0){nb+=360;}while(nb>=360){nb-=360;}return nb;}function DMStoString(qb){return qb[0]+"&#176;"+qb[1]+"'"+qb[2]+'&quot;';}function rb(){if(typeof XMLHttpRequest!="undefined"){return new XMLHttpRequest();}else{try{return new ActiveXObject("Msxml2.XMLHTTP");}catch(e){try{return new ActiveXObject("Microsoft.XMLHTTP");}catch(sb){}}return null;}}function tb(name,ub){name=document.getElementById(name+"_dbout");if(name){name.innerHTML+=(ub+"<br />");}}function vb(name,kb){kb=Math.round(kb>=0?kb:0);var b=fb[name][9];var r="";do{r=(kb%b)+r;kb=Math.round((kb-(kb%b))/b);}while(kb>0);return r;}function wb(kb,xb){var r="";if(kb<0){r="-";kb=-kb;}r+=Math.floor(kb);kb-=Math.floor(kb);if(xb){r+='.';while(xb-->0){kb*=10;}if(kb>1){r+=Math.floor(kb);}else{r+="0";}}return r;}function showEl(name,yb){if(document.getElementById(yb)){document.getElementById(yb).style.display="inline";}fb[name][17]=yb;}function hideEl(yb){if(document.getElementById(yb)){document.getElementById(yb).style.display="none";}}function toggleDisplay(name,zb){if(!zb){zb="block";}name=document.getElementById(name);if(name&&name.style.display!=zb){name.style.display=zb;}else if(name){name.style.display="none";}}function $b(name,text){if(document.getElementById(name+"_caption")){document.getElementById(name+"_caption").innerHTML='<p class="caption">'+text+'</p>';}}function _b(name){var z=fb[name];var ac=document.getElementById(name+'_scalebar');if(ac){ac.src=z[4]+z[5]+'/scalebar.PNG';}ac=document.getElementById(name+'_scalebar3');if(ac){ac.src=z[4]+z[5]+'/scalebar3.PNG';}ac=document.getElementById(name+'_zoomtext');z=z[5];if(z>1000){z=Math.round((z-(z%1000))/1000)+",000";}if(ac){ac.innerHTML="1:"+z+" ";ac=document.getElementById(name+'_zoomtext3');if(ac){z=Math.round(fb[name][5]/3);if(z>1000){z=Math.round((z-(z%1000))/1000)+","+(z%1000);}ac.innerHTML="1:"+z+' ';}}}function bc(w,h,cc,dc,ec){return'<img src="../../../images/orangedot.gif" width="'+w+'" height="'+h+'" style="z-index:3;position:absolute;'+cc+ec+dc+ec+'%" />';}function mapContents(name,fc){if(!fc){fc="";}var m=fb[name];document.write('<div id="'+name+'_contents_'+fc+'" style="width:100%;height:100%"></div>');}function mapCaption(name){document.write('<div id="'+name+'_caption" style="width:100%; height:100%"></div>');}function mapScaleBar(name,gc,hc){if(!hc){hc="px";}if(!gc){gc="";}document.write('<img alt="Scale bar missing." id="'+name+'_scalebar'+gc+'" style="vertical-align: bottom; height: 21px;'+(fb[name]?2*(fb[name][2]*2+1)*fb[name][3]:0)+hc+'" />');}function ic(name,jc,e,n){var kc="[^\\d\\{\\}]";kc=e+kc+"+"+n+"("+kc+"+\\d+"+kc+"+\\d+)*"+kc+"*\\{([^\\}]*)\\}";e=new RegExp(kc);e=e.exec(gb[jc]);gb[name]=jc;if(e){jc=document.getElementById(name+"_contents_");if(jc){jc.innerHTML='<p class="content">'+e[2]+'</p>';}}else{}}function lc(name){var m=fb[name];var e=m[0]+m[2];var n=m[1]+m[2];var b=m[9];var mc=vb(name,Math.round((e-(e%b))/b));var nc=vb(name,Math.round((n-(n%b))/b));e=e%b;n=n%b;var oc=m[4]+m[5]+"/db/"+mc+"x-"+nc+"y.txt";if(gb[oc]){ic(name,oc,e,n);}else{var HTTPobj=rb();if(HTTPobj){HTTPobj.open("GET",oc,true);HTTPobj.onreadystatechange=function(){if(HTTPobj.readyState==4&&HTTPobj.responseText){gb[oc]=HTTPobj.responseText;ic(name,oc,e,n);}else{}};try{HTTPobj.send(null);}catch(e){}}}}function innerTileCorners(name){var ec=fb[name][2]*100/(2*fb[name][2]+1);var pc=bc(2,15,"top:","%;left:",ec);pc+=bc(2,15,"bottom:","%;left:",ec);pc+=bc(2,15,"top:","%;right:",ec);pc+=bc(2,15,"bottom:","%;right:",ec);pc+=bc(15,2,"top:","%;left:",ec);pc+=bc(15,2,"bottom:","%;left:",ec);pc+=bc(15,2,"top:","%;right:",ec);pc+=bc(15,2,"bottom:","%;right:",ec);name=document.getElementById(name+"_grid_view");if(name){name.innerHTML+=pc;}}function bigMapSquare(name,hc){if(!hc){hc="px";}var ac=fb[name];ac=(ac[2]*2+1)*ac[3];document.write('<div id="'+name+'_big_view" style="width:'+ac+hc+'; height:'+ac+hc+'; z-index: 2; position: relative"></div>');}function newMapSquares(name,qc,rc,hc){if(!hc){hc="px";}fb[name]=new Array();var m=fb[name];m[2]=Math.floor(qc/2);m[3]=document.getElementById(name+'_scalebar');if(m[3]){m[3].style.width=2*qc*rc+hc;}m[3]=rc;m[4]=db;m[7]=125;m[8]=7;m[9]=cb;m[10]=document.images.length;m[20]=true;var ec=100/qc;ec='<img style="width:'+ec+'%;height:'+ec+'%; position:absolute; bottom:';var pc='<div id="'+name+'_grid_view" style="width:'+(rc*qc)+hc+';height:'+(rc*qc)+hc+';z-index:2;position:relative">';var j;var i;for(j=qc-1;j>=0;j--){for(i=0;i<qc;i++){pc+='<a href="javascript:scrollMapInc(\''+name+'\','+(j*qc+i)+');" title="Click to focus">'+ec+(j*100/qc)+'%; left:'+(i*100/qc)+'%" onerror="this.src=\'../../../images/defaultbg.png\'" alt="" src="'+(i==j&&i*2==qc-1?'" id="'+name+'_centre':'')+'" /></a>';}}document.write(pc+'<span id="'+name+'_plot_points"></span></div>');}function sc(name,qc,rc,hc){document.write('<div id="'+name+'_grid_holder" style="overflow:hidden;width:'+(rc*qc)+hc+'; height:'+(rc*qc)+hc+';position:relative">');tc(name,1*qc+2,rc,hc);document.write('</div>');}function uc(vc){var wc=/^[\w\xc]+(\.[\w\xc]+)*@[\w\xc]+(\.[\w\xc]+)*\.\w+$/;if(!wc||vc.match(wc)){return true;}alert('"'+vc+'" is not an e-mail address.');return false;}function yc(zc,$c,_c,ad){if(!zc){zc="No message body.";}if(!$c){$c="Some sort of error.";}if(!_c||!uc(_c)){_c="spraff@spraff.net";}if(!ad||!uc(ad)){ad="error@spraff.net";}$c=$c.replace(/\s/g,"%20");zc=zc.replace(/\s/g,"%20");var bd=rb();if(bd){$c="../../pouch/got_email.php?to_email="+_c+"&from_email="+ad+"&subject="+$c+"&message_body="+zc;bd.open("GET",$c,true);bd.onreadystatechange=function(){};try{bd.send(null);}catch(e){}}else{}}function printMap(name,cd){if(!cd){cd="printer.html";}var m=fb[name];m=cd+"?setPlots('"+name+"','"+document.forms[name].plots.value+"');setMode('"+name+"','"+m[6]+"');scrollLL('map',"+m[11]+","+m[12]+","+m[5]+");";var dd=window.open(m,"rf3000_printer");if(!dd){window.location=m;}else{dd.focus();}}function emailMap(name){var ed;do{ed=prompt("Send to what address?");}while(!uc(ed));var fd=prompt("Message for "+ed+"?");var m=fb[name];m="http:/"+"/rf3000.org"+document.location.pathname+"?setPlots('"+name+"','"+document.forms[name].plots.value+"');setMode('"+name+"','"+m[6]+"');scrollLL('map',"+m[11]+","+m[12]+","+m[5]+");";yc('<p>You are invited to visit <a href="'+m+'">a map at rf3000.org</a></p><p>'+fd+'</p>',"Mapic-no-reply@rf3000.org",ed,"mapic@rf3000.org");}function help(name,vc){var gd=document.getElementById(name+"_big_view");if(!vc){vc=name+'help.html';}var m=fb[name];if(vc=="database"){vc=gb[name];var hd=/^(.*)\/[^\/]*$/.exec(window.location);if(window.clipboardData&&window.clipboardData.setData){window.clipboardData.setData("Text",hd+vc);}if(document.getElementById(name+"_dbout")){document.getElementById(name+"_dbout").innerHTML+=hd[1]+vc+"<br />";}vc='.'+vc;}if(gd){gd.innerHTML='<iframe src="'+vc+'" style="width:100%;height:100%;position:absolute;top:0;left:0;">'+'You browser needs frame support for this to work.'+'</iframe>';}}function about(name){alert("about whatever...");}var id=0;function jd(){alert(id+" mouse up");id=0;return true;}function kd(){id=1;return true;}function ld(e,name,md){if(!e){e=window.event;e.cancelBubble=true;}if(e.stopPropagation){e.stopPropagation();}if(e.button==2){nd(name);return false;}return true;}var od=false;function pd(name,qd,rd){var m=qd.title.match(/(\d+)-(\d+)/);if(m&&od&&((!rd&&qd.src.match(/\d+-\d+/))||(rd&&document.getElementById(name+"_big_img_view").src.match(/\d+-\d+/)))){return"getImg.php?z="+fb[name][5]+"&e="+m[1]+"&n="+m[2]+"&t="+fb[name][6];}else{return'defaultbg.png';}}function sd(name,td,ud){var m=fb[name];var z=m[5]/3000000;var r=new Array();r[0]=td*z+m[7];r[1]=ud*z+m[8];r[2]=r[0]+z;r[3]=r[1]+z;return r;}function vd(r){var m=fb[r];var c=m[2]*2+1;var z=m[5]/3000000;r=new Array();r[0]=m[0]*z+m[7];r[1]=m[1]*z+m[8];r[2]=(m[0]+c)*z+m[7];r[3]=(m[1]+c)*z+m[8];return r;}var wd=0;function setPlots(name,pc){name=document.forms[name];if(name){name=name.plots;}if(name){name.value=pc;}pc=/(\d+),\d+,\d+:$/.exec(pc);wd=pc?1*pc[1]+1:0;}function xd(name,e,n){name=document.forms[name];e=Math.round(e*hb);n=Math.round(n*hb);if(name&&!name.plots.value.match(new RegExp(','+e+','+n+':'))){name.plots.value+=wd+","+e+","+n+":";}wd++;}function yd(name,pc){eb/=fb[name][2];var zd=/(\d+),(\d+),(\d+)/;var dd=vd(name);var $d="";dd[0]*=hb;dd[1]*=hb;dd[2]*=hb;dd[3]*=hb;pc=pc.split(/:/);var j;for(j=pc.length-1;j>=0;j--){var kc=zd.exec(pc[j]);if(kc&&kc[2]>dd[0]&&kc[2]<dd[2]&&kc[3]>dd[1]&&kc[3]<dd[3]){$d+='<a href="javascript:void()"><img src="../../../images/plotcross.gif" style="width:'+eb+'%;height:'+eb+'%;position:absolute;left:'+(100*(kc[2]-dd[0])/(dd[2]-dd[0])-eb/2)+'%;bottom:'+(100*(kc[3]-dd[1])/(dd[3]-dd[1])-eb/2)+'%" onclick="deletePlot(\'map\','+kc[1]+')" title="';kc[0]=DMStoString(lb(kc[2]/hb))+'E '+DMStoString(lb(kc[3]/hb))+'N Click to remove.';$d+=kc[0]+'" alt="'+kc[0]+'" /></a>';}}kc=document.getElementById(name+"_plot_points");if(kc){kc.innerHTML=$d;}eb*=fb[name][2];}function _d(pc){if(pc.toString().indexOf('.')<0){pc=pc+".";}return pc+"0000";}function ae(name,be,ce){var f=document.forms[name];if(f){if(f.zoom){f.zoom.value=fb[name][5];}if(f.type){f.type.value=fb[name][6];}var ac=lb(be);ac[2]=Math.round(be*3600)%60;if(f.easts){f.easts.value=_d(ac[2]);}else{ac[1]+=ac[2]/60;}if(f.eastm){f.eastm.value=_d(ac[1]);}else{ac[0]+=ac[1]/60;}if(f.eastd){f.eastd.value=ac[0];}}var de=document.getElementById(name+"_showLLPretty");if(de){de.innerHTML=DMStoString(lb(be))+"E";}ac=lb(ce);ac[2]=Math.round(ce*3600)%60;if(de){de.innerHTML+="&nbsp;-&nbsp;"+DMStoString(ac)+"N";}if(f){if(f.norths){f.norths.value=_d(ac[2]);}else{ac[1]+=ac[2]/60;}if(f.northm){f.northm.value=_d(ac[1]);}else{ac[0]+=ac[1]/60;}if(f.northd){f.northd.value=ac[0];}}}function ee(name,be,ce,fe){var f=document.forms[name];if(f){if(f.zoom){f.zoom.value=fb[name][5];}if(f.type){f.type.value=fb[name][6];}if(f.meast){f.meast.value=be;}if(f.mnorth){f.mnorth.value=ce;}if(f.zone){f.zone.value=fe;}}f=document.getElementById(name+"_showUTME");if(f){f.innerHTML=be;}f=document.getElementById(name+"_showUTMN");if(f){f.innerHTML=ce;}}function UTMCMfromLongZone(ZoneCell){return(ZoneCell-1)*6-180+3;}function UTMCM(ge,he){if(ge>=72&&he>=0){if(he<9){return 3;}if(he<21){return 15;}if(he<33){return 27;}if(he<42){return 39;}}if(ge>=56&&ge<64&&he>=3&&he<12){return 9;}return Math.round(he/6)*6+3;}var ie="This function below belongs to Alan Morton of DMAP ajmorton@dmap.co.uk";function TMtoLL(E,N,fe){var je=UTMCMfromLongZone(fe);var Deg2Rad=Math.PI/180;var F0;var A1;var B1;var K0;var L0;var N0;var E0;F0=0.9996;A1=6378137*F0;B1=6356752.3142*F0;K0=0;L0=je*Deg2Rad;N0=0;E0=500000;var N1=(A1-B1)/(A1+B1);var N2=N1*N1;var N3=N2*N1;var E2=((A1*A1)-(B1*B1))/(A1*A1);var NRel=N-N0;var K=NRel/A1+K0;var K3;var K4;var J3;var J4;var J5;var J6;var M;do{K3=K-K0;K4=K+K0;J3=K3*(1+N1+1.25*(N2+N3));J4=Math.sin(K3)*Math.cos(K4)*(3*(N1+N2+0.875*N3));J5=Math.sin(2*K3)*Math.cos(2*K4)*(1.875*(N2+N3));J6=Math.sin(3*K3)*Math.cos(3*K4)*35/24*N3;M=(J3-J4+J5-J6)*B1;if(Math.abs(NRel-M)<0.001){break;}K=K+(NRel-M)/A1;}while(true);var SINK=Math.sin(K);var COSK=Math.cos(K);var TANK=SINK/COSK;var TANK2=TANK*TANK;var Temp=1-E2*SINK*SINK;var V=A1/Math.sqrt(Temp);var R=V*(1-E2)/Temp;var H2=V/R-1;var V3=V*V*V;var Y1=E-E0;var Y12=Y1*Y1;J3=TANK/(2*R*V);J4=TANK/(24*R*V3)*(5+3*TANK2+H2-9*TANK2*H2);J5=TANK/(720*R*Math.pow(V,5))*(61+90*TANK*TANK+45*Math.pow(TANK,4));var K9=K-Y12*J3+Y12*Y12*J4-Math.pow(Y1,6)*J5;J6=1/(COSK*V);var J7=1/(COSK*6*V3)*(V/R+2*TANK2);var J8=1/(COSK*120*Math.pow(V,5))*(5+28*TANK*TANK+24*Math.pow(TANK,4));var J9=1/(COSK*5040*Math.pow(V,7));J9=J9*(61+662*TANK*TANK+1320*Math.pow(TANK,4)+720*Math.pow(TANK,6));var L=L0+Y1*J6-Y1*Y12*J7+Math.pow(Y1,5)*J8-Math.pow(Y1,7)*J9;K=K9;return new Array(L/Deg2Rad,K/Deg2Rad);}function LLtoTM(he,ge){var ke=Math.PI;var K0=0.9996;var le=6378137;var me=0.00669438;var ne=me*me;var oe=me*ne;var r=new Array();while(he<-180){he+=360;}while(he>=180){he-=360;}var fe=Math.round((he+180)/6)+1;if(ge>=56&&ge<64&&he>=3&&he<12){fe=32;}if(ge>=72&&ge<84){if(he>=0&&he<9){fe=31;}if(he>=9&&he<21){fe=33;}if(he>=21&&he<33){fe=35;}if(he>=33&&he<42){fe=37;}}he=he*ke/180;ge=ge*ke/180;var pe=((fe-1)*6-180+3)*ke/180;var qe=me/(1-me);var N=Math.sin(ge);N=le/Math.sqrt(1-me*N*N);var T=Math.tan(ge);T*=T;var C=Math.cos(ge);var A=C*(he-pe);C=qe*C*C;var M=le*((1-me/4-3*ne/64-5*oe/256)*ge-(3*me/8+3*ne/32+45*oe/1024)*Math.sin(2*ge)+(15*ne/256+45*oe/1024)*Math.sin(4*ge)-35*oe/3072);r[0]=K0*N*(A+(1-T+C)*A*A*A/6+(5-18*T*T*T+72*C-58*qe)*A*A*A*A*A/120)+500000;r[1]=K0*(M+N*Math.tan(ge)*(A*A/2+(5-T+9*C+4*C*C)*A*A*A*A/24+(61-58*T+T*T+600*C-330*qe)*A*A*A*A*A*A/720));if(ge<0){r[1]+=10000000;}r[0]=Math.round(r[0]);r[1]=Math.round(r[1]);r[2]=fe;return r;}function re(se,te,ue,ve,we,xe,ye,ze,$e,_e){se*=1;te*=1;ue*=1;ve*=1;we=1.0/we;xe*=1;ye=1.0/ye;ze*=1;$e*=1;_e*=1;var af=2*we-we*we;var bf=1-we;var cf=xe-ve;var df=ye-we;var ef=Math.sin(se);var ff=Math.cos(se);var gf=Math.sin(te);var hf=Math.cos(te);var Rn=ve/Math.sqrt(1.0-af*ef*ef);var Rm=ve*(1.0-af)/Math.pow(1.0-af*ef*ef,3/2);var jf=-ze*ef*hf-$e*ef*gf+_e*ff+cf*Rn*af*ef*ff/ve;jf=(jf+df*(Rm/bf+Rn*bf)*ef*ff)/(Rm+ue);var kf=(-ze*gf+$e*hf)/((Rn+ue)*ff);var lf=ze*ff*hf+$e*ff*gf+_e*ef-cf*ve/Rn+df*bf*Rn*ef*ef;return new Array(se+jf,te+kf,ue+lf);}function mf(be,ce){return re(be,ce,0,6378137.0,298.257223563,6378206.400,294.978698214,133,79,72);}function nf(be,ce){return re(be,ce,0,6378206.400,294.978698214,6378137.0,298.257223563,-133,-79,-72);}function change_datum(name,of){var pf;var qf;name=fb[name];var rf=name[11];var sf=name[12];if(of.innerHTML=="to LUZON"){pf=mf(rf,sf);qf=nf(pf[0],pf[1]);alert("wgs to clarke:\t"+pf[0]+" E,\t"+pf[1]+" N\n(converting back:\t"+qf[0]+" E\t"+qf[1]+" N\nError (seconds):\t"+(qf[0]-rf)*3600+" E\t"+(qf[1]-sf)*3600);of.innerHTML="to WGS84";}else{pf=nf(rf,sf);qf=mf(pf[0],pf[1]);alert("clarke to wgs:\t"+pf[0]+" E,\t"+pf[1]+" N\n(converting back:\t"+qf[0]+" E\t"+qf[1]+" N\nError (seconds):\t"+(qf[0]-rf)*3600+" E\t"+(qf[1]-sf)*3600);of.innerHTML="to LUZON";}}function tf(name,uf){var m=fb[name];var vf=document.images;var wf=m[10];var xf=m[2]*2+1;var yf;var zf=m[4]+m[5]+'/'+m[6]+'/';var n=m[1];var e=m[0];var $f;var _f=m[20];if(!uf){var i;var j;for(j=0;j<xf;j++){for(i=0;i<xf;i++){yf=vf[wf+i+(xf-j-1)*xf];var ag=vb(name,e+i);var bg=vb(name,n+j);$f=ag+"-"+bg;yf.src=_f?"tile.php?zoom="+m[5]+"&type="+m[6]+"&east="+ag+"&north="+bg:zf+$f+'.jpg';yf.title="Click to focus: "+$f;}}}var cg=sd(name,e+m[2],n+m[2]);$f='<a href="javascript:void()"><img id="'+name+'_big_img_view" style="width:100%; height:100%" alt="" src="'+document.getElementById(name+"_centre").src+'" onmousedown="return'+' false;" onerror="this.src=\'defaultbg.png\'" /></a>';var dg=wb((100*(m[12]-cg[1])/(cg[3]-cg[1])),10);var eg=wb((100*(m[11]-cg[0])/(cg[2]-cg[0])-5),10);$f+='<img src="../../../images/orangedot.gif" style="width:10%;height:2px;position:absolute;bottom:'+dg+'%'+';left:'+eg+'%" />';dg=wb((100*(m[12]-cg[1])/(cg[3]-cg[1])-5),10);eg=wb((100*(m[11]-cg[0])/(cg[2]-cg[0])),10);$f+='<img src="../../../images/orangedot.gif" style="width:2px;height:10%;position:absolute;bottom:'+dg+'%'+';left:'+eg+'%" />';_b(name);if(document.getElementById(name+"_big_view")){document.getElementById(name+"_big_view").innerHTML=$f;}lc(name);$f=document.forms[name];if($f){$f=$f.plots;if($f){yd(name,$f.value);}}xf=document.getElementById(name+"_big_img_view");if(!xf){}else{xf.onmouseup=cBS;if(xf.captureEvents){xf.captureEvents(Event.CLICK);}}e=nf(m[11],m[12]);if(fb[name][18]){ae(name,e[0],e[1]);}else{ae(name,m[11],m[12]);}e=LLtoTM(e[0],e[1]);ee(name,e[0],e[1],e[2]);}function scrollLL(name,be,ce,fg,uf){var m=fb[name];m[11]=be;m[12]=ce;if(fg){m[5]=fg;}m[0]=Math.floor((be-m[7])*3000000/m[5])-m[2];m[1]=Math.floor((ce-m[8])*3000000/m[5])-m[2];tf(name,uf);}function scrollLLdm(name,gg,hg,ig,jg,fg){scrollLL(name,1*gg+1*hg/60,1*ig+1*jg/60,fg);}function scrollUTM(name,kg,lg,fe,fg){if(!fe){fe=52;}var f=document.forms[name];if(!(f&&f.meast&&f.mnorth)){return;}f.meast.value=kg;f.mnorth.value=lg;if(fg){fb[name][5]=fg;}var mg=TMtoLL(kg,lg,fe);mg=mf(mg[0],mg[1]);scrollLL(name,mg[0],mg[1]);}function scrollLLform(name,ng){var f=document.forms[name];if(!(f&&f.eastd&&f.northd)){return;}if(f.zoom){fb[name][5]=1*f.zoom.value;}if(f.type){fb[name][6]=f.type.value;}var x=1*f.eastd.value;var y=1*f.northd.value;if(f.eastm){x+=(1*f.eastm.value)/60;}if(f.easts){x+=1*f.easts.value/3600;}if(f.northm){y+=1*f.northm.value/60;}if(f.norths){y+=1*f.norths.value/3600;}if(fb[name][18]!=0){var og=mf(x,y);x=og[0];y=og[1];}if(ng){xd(name,x,y);}scrollLL(name,x,y);}function scrollUTMform(name,ng){var f=document.forms[name];if(!(f&&f.meast&&f.mnorth)){return;}if(f.meast.value=="debug"){toggleDisplay(name+"_debug");}else if(f.meast.value=="offline"){fb[name][20]=false;}else{if(f.zoom){fb[name][5]=1*f.zoom.value;}if(f.type){fb[name][6]=f.type.value;}var pg=52;if(f.zone){pg=1*f.zone.value;}var qg=4;if(f.area){qg=1*f.area.value;}if(ng){ng=TMtoLL(f.meast.value,f.mnorth.value,pg);ng=mf(ng[0],ng[1]);xd(name,ng[0],ng[1]);}scrollUTM(name,1*f.meast.value,1*f.mnorth.value,pg,0,qg);}}function rg(name,be,dg){var m=fb[name];m[0]+=be;m[1]+=dg;dg=sd(name,m[0]+m[2],m[1]+m[2]);m[11]=(dg[0]+dg[2])/2;m[12]=(dg[1]+dg[3])/2;tf(name);}function scrollMapInc(name,y){var m=fb[name][2];var c=m*2+1;var x=y%c;y=Math.floor(y/c);if(!document.images[fb[name][10]+x+c*(c-1-y)].src.match(/sg\.png$/)){rg(name,x-m,y-m);}}function zoomin(name){var m=fb[name];var b=m[9];if(m[5]/b>=ab){m[5]=Math.round(m[5]/b);scrollLL(name,m[11],m[12]);_b(name);}}function zoomout(name){var m=fb[name];if(m[5]*m[9]<=bb){m[5]*=m[9];scrollLL(name,m[11],m[12]);_b(name);}}function setMode(name,tg,ug){if(tg=="ll_luzon"){fb[name][18]=0;}else if(tg=="ll_wgs84"){fb[name][18]=1;}else if(tg=="utm_luzon"){fb[name][19]=0;}else if(tg=="utm_wgs84"){fb[name][19]=1;}else{fb[name][6]=tg;if(ug){tf(name);}}}function deletePlot(name,kb){var f=document.forms[name];if(f){f=f.plots;}if(f){var kc=new RegExp(kb+",(\\d+),(\\d+):");var eg=kc.exec(f.value);f.value=f.value.replace(kc,"");scrollLL(name,eg[1]/hb,eg[2]/hb);}}function scrollMapByLink(gd,vg){var name=gd;var wg=/\?(.*)$/;var xg=wg.exec(location.search);setMode(name,document.forms[name].llmode.value);setMode(name,document.forms[name].utmmode.value);setMode(name,document.forms[name].type.value);if(xg){eval(xg[1]);}else if(vg){alert("This page was not launched from a well-formed link.");window.location="about:blank";}else{setMode(name,document.forms[name].llmode.value);setMode(name,document.forms[name].utmmode.value);scrollLLform(name);help(name);}name=document.forms[name];if(name){name=name.plots;if(name){name=/(\d+),\d+,\d+:$/.exec(name.value);wd=name?1*name[1]+1:0;}}return true;}function tryForm(name){var m=fb[name];if(!m){tb(name,"no "+name);return;}m=m[17];if(!m){tb(name,"no value for name[17]");return;}if(m.match(/yg/)){scrollLLform(name);}else if(m.match(/utm/)){scrollUTMform(name);}else{tb(name,m+" does not yield a coordinate type.");}}function cBS(e){if(!e){e=window.event;}var zg;var $g;if(e.offsetX||e.offsetY){zg=1*e.offsetX;$g=1*e.offsetY;}else if(e.layerX||e.layerY){zg=1*e.layerX;$g=1*e.layerY;}else{return;}e=new RegExp("^(.*)_big_img_view$");var REs=/^(\d+\.?\d*)\D*$/;e=e.exec(this.id);e[0]=document.getElementById(e[1]+"_big_view");e[3]=REs.exec(e[0].style.width);e[2]=e[3][1];e[3]=REs.exec(e[0].style.height);e[3]=e[3][1];e[0]=fb[e[1]];var _g=sd(e[1],e[0][0]+e[0][2],e[0][1]+e[0][2]);scrollLL(e[1],_g[0]+(zg/e[2])*(_g[2]-_g[0]),_g[1]+(1-$g/e[3])*(_g[3]-_g[1]));}