/* * * * * * * * * * * * * * *
 *     Today's Maya Date     *
 *        (JavaScript)       *
 *        version 1.13       *
 *    by Thiago Cavalcanti   *
 *                           *
 *       Projeto CMAIA       *
 * www.calendariosagrado.org *
 *                           *
 *     with some code by     *
 *        John Walker        *
 *    Ivan Van Laningham     *
 *                           *
 *  please keep the credits  *
 *   feel free to make any   *
 *   changes in the script   *
 * * * * * * * * * * * * * * */

function CMAIA() {
  	today=new Date();
  	day=today.getDate();
  	month=(today.getMonth()+1);
  	year=today.getFullYear();
 	if (month<3) { month+=12; year-=1 };
	a=Math.floor(year/100);
	b=2-a+Math.floor(a/4);
	j=Math.floor(365.25*(year+4716))+Math.floor(30.6001*(month+1))+day+b-1524;
	lcd=j-584283;
	pik13=1872000-lcd;
	haabd=(lcd+348)%365;
	hm=Math.floor(haabd/20);
	haabday=haabd%20;
	t13=(lcd+4)%13;
	if (t13==0) t13=13;
	baktun=Math.floor(lcd/144000);
	lcd-=baktun*144000;
	katun=Math.floor(lcd/7200);
	lcd-=katun*7200;
	tun=Math.floor(lcd/360);
	lcd-=tun*360;
	winal=Math.floor(lcd/20);
	lcd-=winal*20;
	kin=Math.floor(lcd/1);
	lc=baktun+'.'+katun+'.'+tun+'.'+winal+'.'+kin;
	tzolkinglyph=["Ajaw","Imix","Ik’","Akb’al","K’an","Chikchan","Kimi","Manik’","Lamat","Muluk","Ok","Chuwen","Eb’","B’en","Ix","Men","Kib’","Kab’an","Etz’nab’","Kawak"];
	haabmonth=["Pop","Wo","Sip","Sotz’","Sek","Xul","Yaxk’in","Mol","Ch’en","Yax","Sak","Kej","Mak","K’ank’in","Muwan","Pax","K’ayab’","Kumk’u","Wayeb’"];
	tzolkin=t13+' '+tzolkinglyph[kin];
	haab=haabday+' '+haabmonth[hm];
	lon=((winal*2)+kin)%9;
	if (lon==0) lon=9;
	mayatoday=lc+'<br>'+tzolkin+' '+haab+' '+'G'+lon+'<br>'+'('+day+'/'+month+'/'+year+')';
	;+'<br><br><font style="color:red">EXPERIMENTAL</font>:<br> '+pik13+' dias para o fim do 13º Pik';
	document.getElementById('mayadate').innerHTML=mayatoday;
}