/****************************************************************************
*                                                                           *
*            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 inquiries                   *
*                                                                           *
****************************************************************************/
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 aDW = new Array('Dom','Seg','Ter','Qua','Qui','Sex','Sab'); var aDW2 = new Array('Domingo','Segunda','Terça','Quarta','Quinta','Sexta','Sábado'); var aM = new Array('Janeiro','Fevereiro','Março','Abril','Maio','Junho','Julho','Agosto','Setembro','Outubro','Novembro','Dezembro'); var aM2 = new Array('Jan','Fev','Mar','Abr','Mai','Jun','Jul','Ago','Set','Out','Nov','Dez'); 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="Lua Nova"; } 
	else if( (ph_p>=2.5) && (ph_p<=22.49) ) { d="Lua Crescente"; } 
	else if( (ph_p>=22.5) && (ph_p<=27.49) ) { d="Quarto Crescente"; } 
	else if( (ph_p>=27.5) && (ph_p<=47.49) ) { d="Lua Crescente"; }
	else if( (ph_p>=47.5) && (ph_p<=52.49) ) { d="Lua Cheia"; } 
	else if( (ph_p>=52.5) && (ph_p<=73.49) ) { d="Lua Minguante"; } 
	else if( (ph_p>=73.5) && (ph_p<=77.49) ) { d="Quarto Minguante"; } 
	else if( (ph_p>=77.5) && (ph_p <= 97.49) ) { d="Lua Minguante"; } 
	else { d="Lua Nova"; } 
*/	
	var d; if( (ph_p>=2.57) && (ph_p<=29.55) ) { d="Lua Nova"; } 
	else if( (ph_p>=29.56) && (ph_p<=52.06) ) { d="Lua Crescente"; }
	else if( (ph_p>=52.07) && (ph_p<=75.40) ) { d="Lua Cheia"; } 
	else if( (ph_p>=75.41) && (ph_p <= 99.99) ) { d="Lua Minguante"; } 
	else { d="Lua Minguante"; } 

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