// rev 2009-8-24

// document.write() abbrev
function w(s)
{
  document.write(s);
}

// navigation bars
function navbar(lvl)
{
  w('<P>');
  justnavbar(lvl);
  w('<P><HR><P>');
}

function justnavbar(lvl)
{
  var p;
  if (lvl==0) p = ""; else p = "../";
  w('<A HREF="#top">Top</A> - <A HREF="#bottom">Bottom</A> -');
  w(' <A HREF="'+p+'index.html"> BPI Home</A> -');
  w(' <A HREF="'+p+'AstrRoot.html">Astrology</A> -');
  w(' <A HREF="'+p+'FERoot.html"> FE</A> -');
  w(' <A HREF="'+p+'BpiNav.html">Nav Tips</A>');
}

// footer info
function footer(revdate, filename, copyrightdate)
{
  window.onresize = redoPage;
  var dirurl = "www.BioPscInst.com/bpi/";
  var fullurl = dirurl+filename;
  w('<TABLE NCOLS="2" CELLPADDING="10" WIDTH="100%">');
  w('<TR VALIGN="TOP"><TD WIDTH="33%">');
  w('<ADDRESS>');
  w('<H4>Martin Bulgerin<BR>BioPsciences Institute<BR>P.O. Box 11026<BR>');
  w('Minneapolis, MN 55412<BR>612-872-7998<BR>');
  w('Email: <A HREF="mailto:bunlion@bitstream.net">bunlion@bitstream.net</A></H4>');
  w('</ADDRESS>');
  w('</TD><TD>');
  w('<P>Revision date: '+revdate+'<BR>');
  w('This page\'s URL is <A HREF="http://'+fullurl+'">'+fullurl+'</A>.<BR>');
  w('The home page of this web site is <A HREF="http://'+dirurl+'">'+dirurl+'</A>.<BR>');
  w('&copy; Copyright '+copyrightdate+', BioPsciences Institute.  All Rights Reserved.');
  w('</TD></TR></TABLE>');
}

// list all anchors in a separate window
function showanchors()
{
  var htmldoc = window.document;
  var w = window.open("", "ancwin", "width=400,height=200,scrollbars=yes" );
  var d = w.document;
  var spaces = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" ;
  var i, j = 5;
  var a;
  d.open();
  for (i=0; i<htmldoc.anchors.length; i++)
  {
    a = htmldoc.anchors[i].name;
    if (a.length<2) { d.write("<H3>"+a+"</H3>"); j = 5; }
    else { d.write(a+spaces); j-- ; }
    if (j == 0) { d.write("<br>"); j = 5; }
  }
  d.close();
}

// reload page (to handle resize bug)
function redoPage()
{
  var myURL = window.location.href;
  window.location.replace(myURL);
}

// link table to ephemeris pages ###
function ephmlink(yr)
{
  w('<TR ALIGN=CENTER><TH>'+yr+'</TH>');
  w('<TD>');
  em(yr, '01', 'Jan'); em(yr, '02', 'Feb'); em(yr,'03','Mar');
  w('</TD>');
  w('<TD>');
  em(yr, '04', 'Apr'); em(yr, '05', 'May'); em(yr,'06','Jun');
  w('</TD>');
  w('<TD>');
  em(yr, '07', 'Jul'); em(yr, '08', 'Aug'); em(yr,'09','Sep');
  w('</TD>');
  w('<TD>');
  em(yr, '10', 'Oct'); em(yr, '11', 'Nov'); em(yr,'12','Dec');
  w('</TD>');
  w('</TR>');
}

function em(yr, mn, mnname)
{
  w('<A HREF="E'+yr+mn+'.html">'+mnname+'</A><BR>');
}

function getephmdoc()
{
  var yrx =  document.ephmform.ephmyr.selectedIndex;
  var mnx = document.ephmform.ephmmon.selectedIndex;
  var yr = document.ephmform.ephmyr.options[yrx].value;
  var mn = document.ephmform.ephmmon.options[mnx].value;
  var pgname = "E"+yr+mn+".html";
  window.location = pgname;
}

// glyphs + headings for transit pages
function gh(h, g1, g2, g3, g4)
{
  w('<H3>');
  condglyph(g1, ''); condglyph(g2, ''); condglyph(g3, ''); condglyph(g4, '');
  w(h); w(' </H3> ');
}

function gh1(h, g1, g2, g3, g4)
{
  w('<H3>');
  condglyph(g1, '../'); condglyph(g2, '../'); condglyph(g3, '../'); condglyph(g4, '../');
  w(h); w(' </H3> ');
}

function condglyph(g, lvl)
{
  var dir = lvl+'glyph/';
  if (g != '') w('<IMG SRC="'+dir+g+'.gif" HSPACE=2>');
}

// "number of years since" function
function yearssince(begyr)
{
  var now = new Date();
  var curryr = now.getFullYear();
  w(' '+(curryr-begyr)+' ');
}

// Energy Patterns graph applet xface
function epapplet(lab, gmt)
{ epa3(lab, gmt, document.bgColor); }

function epa3(lab, gmt, bgc)
{
  w('<APPLET CODE="Epg.class" CODEBASE="kk" HEIGHT="250" WIDTH="420">');
  w('<PARAM NAME="lab" VALUE="'+lab+'">');
  w('<PARAM NAME="gmt" VALUE="'+gmt+'">');
  w('<PARAM NAME="bgc" VALUE="'+bgc+'">');
  w('</APPLET>');
}