/****************************************************************************

*                                                                           *

*            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));