/****************************************************************************
*                                                                           *
*            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="Lua Nova";   //New Moon
 } else if( (ph_p>=2.5) && (ph_p<=22.49) ) { d="Lua Crescente";  //Waxing Crescent
 } else if( (ph_p>=22.5) && (ph_p<=27.49) ) { d="Quarto Crescente";  //First Quarter Moon
 } else if( (ph_p>=27.5) && (ph_p<=47.49) ) { d="Lua Crescente";  //Waxing Gibbous
 } else if( (ph_p>=47.5) && (ph_p<=52.49) ) { d="Lua Cheia"; //Full Moon
 } else if( (ph_p>=52.5) && (ph_p<=73.49) ) { d="Lua Minguante";   //Waning Gibbous
 } else if( (ph_p>=73.5) && (ph_p<=77.49) ) { d="Quarto Minguante";   //Third Quarter Moon
 } else if( (ph_p>=77.5) && (ph_p <= 97.49) ) { d="Lua Minguante";  //Waning Crescent
  } else { d="Lua Nova"; } 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));