/****************************************************************************
*                                                                           *
*            Copyright © BLUEMARMOT.COM - All Rights Reserved               *
*                                                                           *
*              This program may not be distributed or copied                *
*            in any way except as authorized by BlueMarmot.com              *
*                   Go to www.bluemarmot.com for more info                  *
*                                                                           *
****************************************************************************/
var SYN = 29.5305882; var MSPD = 24*60*60*1000; var NM = new Date(Date.UTC(2000,0,6,18,14,0)); var FM = new Date(NM.getTime(NM)-(SYN/2*MSPD)); var GC = new Date(1582,9,15,0,0,0); var aDW = new Array('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); var aDW2 = new Array('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'); var aM = new Array('January','February','March','April','May','June','July','August','September','October','November','December'); var aM2 = new Array('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); function gPh(a_date,full) { var base=NM; if(gPh.arguments.length==2) base=FM; var diff = a_date - base + MSPD; var pre_base=false; if(diff < 0 ) { diff = -diff; pre_base=true; } var phase = diff / (SYN * MSPD); phase *=100; while(phase>100) { phase -= 100; } if(pre_base) { phase=100-phase; } return phase; } function phD(ph_p) { var d; if( (ph_p>=0) && (ph_p<=2.49) ) { d="New Moon"; } else if( (ph_p>=2.5) && (ph_p<=22.49) ) { d="Waxing Crescent"; } else if( (ph_p>=22.5) && (ph_p<=27.49) ) { d="First Quarter Moon"; } else if( (ph_p>=27.5) && (ph_p<=47.49) ) { d="Waxing Gibbous"; } else if( (ph_p>=47.5) && (ph_p<=52.49) ) { d="Full Moon"; } else if( (ph_p>=52.5) && (ph_p<=73.49) ) { d="Waning Gibbous"; } else if( (ph_p>=73.5) && (ph_p<=77.49) ) { d="Third Quarter Moon"; } else if( (ph_p>=77.5) && (ph_p <= 97.49) ) { d="Waning Crescent"; } else { d="New Moon"; } return d; } function rnd(val, prec) { if(rnd.arguments.length==1) prec=0; val = val * Math.pow(10,prec); val = Math.round(val); val = val / Math.pow(10,prec); return val; } var tdy=new Date(); var ph_p=gPh(tdy); var FM_ph_p = gPh(tdy,1); var ph_name=phD(ph_p); var ph_dec=rnd(ph_p,0)/100; var mimg=rnd((ph_dec*40),0); if(ph_p<=50.0) { var p_o_f=ph_p*2; } else { var p_o_f = (100-ph_p)*2; } var d_t_n = (1-ph_p/100)*SYN; var d_t_f = (1-FM_ph_p/100)*SYN; var n_NM = new Date(tdy.valueOf() + (d_t_n * MSPD)); var n_FM = new Date(tdy.valueOf() + (d_t_f * MSPD));