/* kzman.js - Kaluach halachic times Javascript routines
 *   Version 0.01 (initial beta release)
 *   Version 0.02 (fixed bug in display of Shabbat times)
 *   Version 1.00 (fixed bug displaying locations at 0 deg lat/lon)
 *   Version 2.01 (handle invalid sunrise/set, different knissat shabbat times)
 * Copyright (C) 5760,5761 (2000 CE), by Abu Mami and Yisrael Hersch.
 *   All Rights Reserved.
 *   All copyright notices in this script must be left intact.
 * Acknowledgment given to scripts by:
 *   - P. Lutus <lutusp@arachnoid.com>
 *     available under the www.arachnoid.com CareWare program
 *	 - Tomer and Yehuda Shiran (docjs.com)
 *   - irt.org
 *   - javascripter.net
 * Permission will be granted to use this script on your web page
 *   if you wish. All that's required is that you please ask.
 *   (Of course if you want to send a few dollars, that's OK too :-)
 * website: http://www.kaluach.net
 * email: abumami@kaluach.org
 */



var month = 12, day = 28, year = 2007;
var lat = 0 , lng = 0;	// sun's location
var latd = 43, latm = 42;// lat on earth
var lngd = 79, lngm = 25;// long on earth
var ns = 'N', ew = 'W';	// hemisphere
var dst = 0;			// daylight saving time
var ampm = 1;			// am/pm or 24 hour display (0 for 24hr)
var timezone = -5		// added to adjust time zone
var zman = new Array();
var sunsetmincha // used for passing shkia to davening schedule
var sunriseNeitz // used for passing shkia to davening schedule
var sunsetmariv // used for passing shkia to davening schedule
var plagMA // used for passing shkia to davening schedule
var plagGRA // used for passing shkia to davening schedule
function ChangeLotLat (sn, lad, lam, we, ld, lm, timez){
	latd = lad
	latm = lam
	lngd = ld
	lngm = lm
	
	ns = sn
	ew = we
	//document.write(timez)
	timezone= timez
}

function leap(y) {
	return ((y % 400 == 0) || (y % 100 != 0 && y % 4 == 0));
}

function civMonthLength(month, year) {
	if(month == 2)
		return 28 + leap(year);
	else if(month == 4 || month == 6 || month == 9 || month == 11)
	   return 30;
	else
		return 31;
}
// Removes pm from candle lighting time to fit on calendar. bypasses timeadj function from ksun.js
function timeadjNoPM(t, ampm) {
	var hour;
	var min;

	var time = t;

	var hour = Math.floor(time);
	var min  = Math.floor((time - hour) * 60.0 + 0.5);

	if(min >= 60) {
		hour += 1;
		min  -= 60;
	}

	if(hour < 0)
		hour += 24;

	if(ampm) {
		ampm_str = (hour > 11) ? '' : ' AM';
		hour %= 12;
		hour = (hour < 1) ? 12 : hour;
	}
	else
		ampm_str = '';

	var str = hour + ':' + ((min < 10) ? '0' : '') + min + ampm_str;
//	var str = hour + ':' + min + ampm_str;
	return str;

}
// the folowing function was ammended for receiving x for Daylight savings time.
function set_dst(x) {
	if (x==1)
	{dst = x}
	else
	{dst = 0}
	doit("");
}

function list_pos() {

	var str, place, desc
	var i;
	place = "Toronto"
	
	doit(place);

}

function man_pos() {

	

	var tz = - (12 - timezone);  
	doit("(manual entry)");
	return 1;
}

function doit(title) {

	var d, m, y;
	var nsi, ewi;
	var i;
 
	
	i = ns.indexOf("N");
	nsi = (i != -1) ? 0 : 1;
	
	i = ew.indexOf("W");
	ewi = (i != -1) ? 0 : 1;
	
		
 	d = day; // removed +1
	m = month + 1;
	y = year;
 
	var adj = timezone;    
	adj += dst;

	var time;
	var sunrise, sunset;
	var shaa_zmanit;

	time = suntime(d, m, y, 90, 50, lngd, lngm, ewi, latd, latm, nsi, adj);
	if(time[1] == 0) {
		sunrise = time[2];
		sunsetmincha = time[3]; // used for davening schedule
		sunriseNeitz = time[2]; // used for davening schedule
		
		sunset  = time[3];
		zman[1] = timeadj(sunrise, ampm);
		zman[2] = timeadj(sunset, ampm);
		shaa_zmanit = (sunset - sunrise) / 12;
	}
	else {
		zman[1]  = "";
		zman[2]  = "";
	}
	// Alos
	time = suntime(d, m, y, 106, 6, lngd, lngm, ewi, latd, latm, nsi, adj); 
	Alos=time[2];
	if(time[1] == 0)
		zman[3]  = timeadj(time[2], ampm);
	else
		zman[3]  = "";
	// Misheyahar
	time = suntime(d, m, y, 101, 0, lngd, lngm, ewi, latd, latm, nsi, adj);
	if(time[1] == 0)
		zman[4]  = timeadj(time[2], ampm);
	else
		zman[4] = "";
	// tzeis
	time = suntime(d, m, y, 98, 30, lngd, lngm, ewi, latd, latm, nsi, adj);
	if(time[1] == 0)
		zman[5] = timeadj(time[3], ampm);
	else	
		zman[5] = "";
	sunsetmariv=time[3]; // used for davening schedule
	zman[6]    = timeadj(sunrise + shaa_zmanit * 3, ampm);
	zman[7] = timeadj(sunrise + shaa_zmanit * 4, ampm);
	zman[8]  = timeadj(sunrise + shaa_zmanit * 6, ampm);
	zman[9]  = timeadj(sunrise + shaa_zmanit * 6.5, ampm);
	zman[10]  = timeadj(sunrise + shaa_zmanit * 9.5, ampm);
	zman[11]     = timeadj(sunrise + shaa_zmanit * 10.75, ampm);
	plagGRA=sunrise + shaa_zmanit * 10.75; // used for davening schedule
	plagMA= Alos + ((sunsetmariv - Alos) / 12) * 10.75;// used for davening schedule
	var yom = new Date (y, m-1, d);
	//if(yom.getDay() == 6 || yom.getDay() == 5) {

		// motzei shabbat (3 small stars)
		time = suntime(d, m, y, 98, 30, lngd, lngm, ewi, latd, latm, nsi, adj);
		if(time[1] == 0)
			{zman[12] = timeadj(time[3], ampm);
			zman[14] = timeadjNoPM(time[3], ampm);}
		else
			{zman[12] = "";
			zman[14]="";}
		// knissat shabbat (sunset from day before)
		//var day_before = new Date(yom.getTime() - 86400000);
		//db = day_before.getDate();
		//mb = day_before.getMonth() + 1;
		//yb = day_before.getYear();
		//if(yb < 1900)
		//	yb += 1900;
		//time = suntime(db, mb, yb, 90, 50, lngd, lngm, ewi, latd, latm, nsi, adj);
		
		zman[13] = timeadj(sunset - 18.0/60.0, ampm);
		zman[15] = timeadjNoPM(sunset - 18.0/60.0, ampm);
		
		// added for 72 minutes tzeis
		zman[16] = timeadj(sunset + 72.0/60.0, ampm);
		// added for misheyakar 45 min 
		zman[17] = timeadj(sunrise - 45.0/60.0, ampm);
		// added for Sof Zman Shena for Magen Avroham
		zman[18] = timeadj(sunrise + shaa_zmanit * 3 - 36.0/60.0, ampm);
		// added for 72 min Alos Hashachar 
		zman[19] = timeadj(sunrise - 72.0/60.0, ampm);
	//}
	//else {
	//	document.data.motzeiShabbat.value = '';
	//	document.data.knissatShabbat.value = '';
	//}*/

}

function set_date_vars(d,m,y) {
	month = m 
	day   = d 
	year  = y  

	var len = civMonthLength(month+1, year);
	if(day >= len) {
		day = len - 1;
		d = day; 
	}
}

function date_vars_doit() {
	set_date_vars();
	doit("");
}

function set_default_date(dd,mm,yy) {
	
	var d =dd 
	var m =mm
	year =yy 
	if(year < 1900)
		year += 1900;
	d=d-1
	set_date_vars(d,m,year);
}