// rev 2005-8-9

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

// navigation bars
function navbar(lvl)
{
  var p;
  if (lvl==0) p = ""; else p = "../";
  w('<P><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>');
  w('<P><HR><P>');
}

// footer info
function footer(revdate, filename, copyrightdate)
{
  window.onresize = redoPage;
  var dirurl = "http://www2.bitstream.net/~bunlion/bpi/";
  var fullurl = dirurl+filename;
  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('<P>Revision date: '+revdate+'<BR>');
  w('This page\'s URL is <A HREF="'+fullurl+'">'+fullurl+'</A>.<BR>');
  w('The home page of this web site is <A HREF="'+dirurl+'">'+dirurl+'</A>.<BR>');
  w('&copy; Copyright '+copyrightdate+', BioPsciences Institute.  All Rights Reserved.');
}

// 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>');
}

// 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 condglyph(g)
{
  if (g != '') w('<IMG SRC="glyph/'+g+'.gif" HSPACE=2>');
}

// "number of years since" function ??