R0 = 6371.0 ;
IE = 0.0;
NS = 0.0;
JS = 1.0;
KatVer=2;
InfoTime=new Date(2000,0,1,0,0,0);
UpdTime=new Date(2001,9,25);

Color1="#D12E57";
Color2="#9AACE9";
Color3="#B8C8FF";
Color4="#383078";

with (navigator) {
  ver=parseFloat(appVersion);
  if (appName.indexOf("Microsoft")>=0) {
    IE=ver;
    if (IE>=4.0) JS=1.2;
  }
  if (appName.indexOf("Netscape")>=0) {
    NS=ver;
    if (NS>=3) JS=1.1;
    if (NS>=4) JS=1.2;
    if (NS>=4.06) JS=1.3;
    if (NS>=4.6)  JS=1.4;
  }
}


var FAIWin=null;
function OpenFAIWin(ref)
{
  if (FAIWin!=null && !FAIWin.closed) {
    FAIWin.location.href=ref;
  } else {
	  Options="titlebar,resizable,scrollbars,toolbar";
  	Options+=",height="+Math.floor(screen.availHeight*0.75);
  	Options+=",width="+Math.floor(screen.availWidth*0.75);
  	FAIWin=window.open(ref,"FAIWin",Options);
  }
  FAIWin.focus();
}


function GCDist(c1,c2)
{
  with(Math) {
    var sinlat=sin(0.5*(c1.lat-c2.lat));
    var sinlon=sin(0.5*(c1.lon-c2.lon));
    return 2.0*R0*asin(sqrt(sinlat*sinlat + cos(c1.lat)*cos(c2.lat)*sinlon*sinlon));
  }
}

function atan2(y,x){
  with(Math) {
    if (x <0) return atan(y/x)+PI;
    if (x>0) {
      if (y>=0) return atan(y/x);
      return atan(y/x)+2*PI;
    }
    if (y>0) return PI/2;
    if (y<0) return 3*PI/2;
    alert("atan2(0,0) undefined");
    return 0;
  }
}

function Course(r)
{
  var grd=Math.round(r*180/Math.PI);
  while(grd<0) grd+=360;
  while(grd>=360) grd-=360;
  return grd;
}

function Clock(r)
{
  clk4=Math.round(r*24/Math.PI);
  while(clk4<=0) clk4+=48;
  while(clk4>48) clk4-=48;
  if (clk4%4) return ""+Math.floor(clk4/4)+":"+15*(clk4%4);
  return ""+clk4/4+":00";
}

function GCCourse(c1,c2)
{
  with(Math) {

    return atan2(sin(c2.lon-c1.lon)*cos(c2.lat),cos(c1.lat)*sin(c2.lat)-sin(c1.lat)*cos(c2.lat)*cos(c2.lon-c1.lon));

  }
}

var Task=new Array(12);

function RefreshTask()
{
  task.location.href=task.location.href;
  for(n=0;Task[n];n++);
  if (n>0 && Task[n-1]!=RefPkt) SetRefPkt(Task[n-1]);
  else menu.location.href=menu.location.href;
}

function AddTask(pkt)
{
  if (pkt==null) return;
  for(i=0;i<Task.length && Task[i]!=null;i++);
  if (i==Task.length) {
    alert("Kan ikke tilføje flere vendepunkter");
    return;
  }
  if (i>0 && pkt.coord.lon==Task[i-1].coord.lon && pkt.coord.lat==Task[i-1].coord.lat) return;
  Task[i]=pkt;
  RefreshTask();
}

function DelTask(p)
{
  for(i=p;i<Task.length-1;i++) Task[i]=Task[i+1];
  Task[i]=null;
  RefreshTask();
}

function ClearTask()
{
  for(i=1;i<Task.length;i++) Task[i]=null;
  RefreshTask();
}

function RevertTask()
{
  for(i=0;i<Task.length && Task[i]!=null;i++);
  i--;
  if (i<=0) return;
  SetRefPkt(Task[0]);
  for(j=0;j<i;j++,i--) {
    var pkt=Task[i];
    Task[i]=Task[j];
    Task[j]=pkt;
  }
  RefreshTask();
}


function CookieVar(v)
{
  with(document) {
    if (!cookie) return null;
    p=cookie.indexOf('; '+v+'=');
    if (p<0) {
      p=cookie.indexOf(v+'=');
      if (p<0) return null;
      p+=(v.length+1);
    } else p+=(v.length+3);
    q=cookie.indexOf(';',p);
    if (q<p) q=cookie.length;
    return cookie.slice(p,q);
  }
}


function LoadCookie()
{
  ver=0;
  val=CookieVar('Ver');
  if (val) {ver=parseInt(val); if (ver==NaN) ver=0;}

  val=CookieVar('Info');
  if (val) {x=parseInt(val);if (x!=NaN) InfoTime.setTime(x);}

  val=CookieVar('Task');
  if (val) {
    val=unescape(val);
    for(i=0,p=0;i<Task.length && p<val.length && val.charAt(p)=='[';) {
      q=val.indexOf(']',p);
      if (q==-1) q=val.length;
      var pkt=StrAsPkt(val.slice(p+1,q));
      if (pkt!=null) {
        if (ver==0 && pkt.pid>0 && pkt.pid<=VList.length && VList[pkt.pid-1]) {
          if (pkt.pid>=45) Task[i]=VList[pkt.pid-2];
          else Task[i]=VList[pkt.pid-1];
        } else Task[i]=pkt;
        i+=1;
      }
      p=q+1;
    }
    if (i>0) RefPkt=Task[i-1];
  }
  titel.location.href='top.htm';
  bund.location.href='bund.htm';
  task.location.href='opgave1.htm';
  list.location.href='list.htm';
  menu.location.href='menu.htm';

}

function SaveCookie()
{
  expiry=new Date();
  expiry.setYear(expiry.getYear()+1);
  expstr='; expires='+expiry.toGMTString();
  var str='';
  for(i=0;i<Task.length && Task[i]!=null;i++) str+='['+PktAsStr(Task[i])+']';
  document.cookie='Task='+escape(str)+expstr;
  document.cookie='Info='+InfoTime.getTime()+expstr;
  document.cookie='Ver='+KatVer+expstr;
}