// ********** Const
// ***** Timer
var m_iAnimeMilliSec = 33;

// ********** Common
var m_dStart;
var m_bFocus = 0;

// ********** Const
var m_iCvWt = 480;
var m_iCvHt = 480;
var m_strURLSend = '/cgi-bin/generator/kyusho.cgi';

var m_iWait = 10;
var m_iRlMove = 40;
var m_iMargin = 0;
var m_iPathSize = 1000;

var m_strColor;

var m_iLineWidth = 1;

// ********** Draw
var m_iAnimeIdx;
var m_iAnimeMax = 0;
var m_timAnime;
var m_strDefine;
var m_iPatnCnt;
var m_astrInit = [];
var m_astrLabel = [];;
var m_astrPath = [];
var m_astrZahyo = [];
var m_aiX = [];
var m_aiY = [];

var m_strReq = '';

// ********** Draw
var m_elmPn;

var m_iMainLayer = 6;
var m_astrArrayCv = new Array('frst','frdm','desc');
var m_astrArrayNb = new Array('dbox');
var m_aelmCv = [];
var m_actxCv = [];
var m_aelmNb = [];
var m_astrNo = [];
var m_astrNn = [];

window.onload = sbInit;

function sbInit() {
	// ********** Init Canvas
	// Init Canvas
	m_elmPn = document.getElementById('gen_pn');
	for (iIdx = 0; iIdx < m_astrArrayCv.length; iIdx++) {
		strIdx = m_astrArrayCv[iIdx];
		m_aelmCv[strIdx] = document.getElementById('gen_cv' + iIdx);
		m_actxCv[strIdx] = m_aelmCv[strIdx].getContext('2d');
	}
	
	// Init Text
	for (iIdx = 0; iIdx < m_astrArrayNb.length; iIdx++) {
		strIdx = m_astrArrayNb[iIdx];
		m_aelmNb[strIdx] = document.getElementById('gen_nb' + iIdx);
	}
	
	sbInitGame();
	
	// Get Param
	var astrParam = [];
	astrParam = sbGetParam();
	var strReq = '';
	if ('n' in astrParam) {
		strReq = decodeURI(astrParam['n']);
		if (strReq != '') {
			strReq = strReq.replace(/,/g,"\n");
			document.getElementById('gen_name').value = strReq;
			document.getElementById('gen_res').value = '';
			sbSend();
		}
	}
	
	// ********** Start Timer
	m_timAnime = setInterval('sbAnime()',m_iAnimeMilliSec);
}

// ********************************************************************************
function sbInitGame() {
	var iIdx,strIdx,iTemp;
	
	// ********** Resize Canvas
	m_elmPn.style.width  = m_iCvWt + 'px';
	m_elmPn.style.height = m_iCvHt + 'px';
	for (iIdx = 0; iIdx < m_astrArrayCv.length; iIdx++) {
		strIdx = m_astrArrayCv[iIdx];
		m_aelmCv[strIdx].width  = m_iCvWt;
		m_aelmCv[strIdx].height = m_iCvHt;
		m_actxCv[strIdx].lineWidth = m_iLineWidth;
	}
	
	// ********** Clear And Hidden
	sbClearAll('frst,frdm,desc','dbox');
	sbViewLayer('frst,frdm,desc','dbox');
	
	// ********** Init Value
	m_strDefine = '';
}

function sbAnime() {
	var iIdx;
	var strDefine;
	var astrDefine = [];
	var iConstDefine = 2;
	var astrTempPath = [];
	var strTemp;
	var iTemp;
	
	strDefine = '' + document.getElementById('gen_res').value;
	
	// ********** Start Animation
	if (strDefine != '' && strDefine != m_strDefine) {
		sbInitGame();
		
		// ********** Init
		astrDefine = strDefine.split('~');
		m_astrInit    = astrDefine[0].split(';');
		m_astrLabel   = astrDefine[1].split(';');
		m_astrZahyo   = astrDefine[2].split(';');
		astrTempPath  = astrDefine[3].split(';');
		
		m_iPatnCnt = (astrDefine[3] == '' ? 0 : astrTempPath.length);
		for (iIdx = 0; iIdx < m_iPatnCnt; iIdx++) {
			m_astrPath[iIdx] = fnAdjustPath(astrTempPath[iIdx],m_iPathSize,m_iPathSize,m_iCvWt,m_iCvHt,0);
		}
		
		for (iIdx = 0; iIdx < m_astrZahyo.length; iIdx++) {
			if (m_astrZahyo[iIdx] != '') {
				m_aiX[iIdx] = Number(m_astrZahyo[iIdx].split(',')[0]);
				m_aiY[iIdx] = Number(m_astrZahyo[iIdx].split(',')[1]);
			}
		}
		
		// ********** Time
		if (m_bFocus == 0) {
			document.getElementById('gen_wait').style.display = 'none';
			document.getElementById('gen_all').style.display = 'block';
			document.getElementById('gen_name').focus();
			m_bFocus = 1;
		}
		m_dStart = new Date();
		
		// ********** Init Value
		m_iAnimeIdx = 0;
		m_iAnimeMax = m_iRlMove * 5;
		m_strDefine = strDefine;
		
		m_actxCv['frst'].clearRect(0,0,m_iCvWt,m_iCvHt);
		m_actxCv['frdm'].clearRect(0,0,m_iCvWt,m_iCvHt);
		m_actxCv['desc'].clearRect(0,0,m_iCvWt,m_iCvHt);
		
		// ********** Set Permalink 
		strTemp = window.location.href
		iTemp = strTemp.indexOf('?');
		if (iTemp >= 0) {
			strTemp = strTemp.substring(0,iTemp);
		}
		if (m_astrInit[1] != '') {
			strTemp = strTemp + '?n=' + encodeURI(m_astrInit[1]);
		}
		document.getElementById('gen_url').value = strTemp;
		m_aelmCv['frst'].style.backgroundColor = '#ddd';
	}
	
	// ********** Draw
	var iAnime;
	var iTrun;
	var iSt,iEd;
	var iPar,iPar2,iPar3;
	var iW,iM,iH;
	var iX,iY,iZ;
	var iShotIdx;
	var iBox,iR,iTempR,iTempX,iTempY;
	iM = m_iCvHt * 0.01;
	iW = m_iCvWt * 0.2;
	iH = m_iCvHt * 0.08;
	iFontSize  = iH * 0.3;
	
	if (m_iAnimeIdx < 0 || m_iAnimeIdx > m_iAnimeMax + m_iWait) {
		return;
	}
	
	if (m_iAnimeIdx < m_iAnimeMax) {
		// ***** Calc
		iAnime = m_iAnimeIdx - m_iRlMove * Math.floor(m_iAnimeIdx / m_iRlMove);
		iTrun = Math.floor(m_iAnimeIdx / m_iRlMove);
		iPar = (iAnime % m_iRlMove) / (m_iRlMove - 1);
		
		if       (iTrun >= 0 && iTrun <= 3) {
			m_actxCv['frdm'].clearRect(0,0,m_iCvWt,m_iCvHt);
			iX = m_iCvWt / 2 + Math.cos(iPar * 3 * Math.PI) * m_iCvWt * 0.1;
			iY = m_iCvHt / 2 + Math.sin(iPar * 4 * Math.PI) * m_iCvHt * 0.45;
			m_actxCv['frdm'].strokeStyle = '#f00';
			m_actxCv['frdm'].beginPath();
			m_actxCv['frdm'].arc(iX,iY,5,0 * Math.PI,2 * Math.PI,1);
			m_actxCv['frdm'].closePath();
			m_actxCv['frdm'].stroke();
			iX = m_iCvWt / 2 + Math.cos(iPar * 5 * Math.PI) * m_iCvWt * 0.1;
			iY = m_iCvHt / 2 + Math.sin(iPar * 7 * Math.PI) * m_iCvHt * 0.45;
			m_actxCv['frdm'].beginPath();
			m_actxCv['frdm'].arc(iX,iY,5,0 * Math.PI,2 * Math.PI,1);
			m_actxCv['frdm'].closePath();
			m_actxCv['frdm'].stroke();
		}
		if       (iTrun == 0) {
			if (iPar == 0) {
				sbDrawLine(m_actxCv['frst'],m_iCvWt,m_iCvHt,0,0,m_iCvWt,m_iCvHt,m_astrPath[0],m_astrPath[0],0,1,m_iLineWidth,'#aaa','');
				m_astrNn['dbox'] += sbDrawLabel(0,iM,m_iCvWt * 0.5 - iM * 5,iH,'r',iFontSize,'#000',m_astrLabel[iTrun]);
			}
		} else if (iTrun >= 1 && iTrun <= 3) {
			if (iPar == 1 && m_astrLabel[1] != '') {
				iX = m_iCvWt * (0.5 + m_aiX[iTrun - 1]);
				iY = m_iCvHt * (0.5 + m_aiY[iTrun - 1]);
				m_actxCv['frst'].strokeStyle = '#f00';
				m_actxCv['frst'].beginPath();
				m_actxCv['frst'].arc(iX,iY,5,0 * Math.PI,2 * Math.PI,1);
				m_actxCv['frst'].closePath();
				m_actxCv['frst'].stroke();
				m_astrNn['dbox'] += sbDrawLabel(iX + iM * 2,iY - iH * 0.5,iW,iH,'l',iFontSize,'#000',m_astrLabel[iTrun]);
			}
			
			if (iTrun == 3 && iPar == 1) {
				m_actxCv['frdm'].clearRect(0,0,m_iCvWt,m_iCvHt);
				if (m_astrPath[1] != '') {
					sbDrawLine(m_actxCv['frst'],m_iCvWt,m_iCvHt,0,0,m_iCvWt,m_iCvHt,m_astrPath[1],m_astrPath[1],0,1,m_iLineWidth,'#aaa','');
				}
			}
		} else if (iTrun == 4) {
			if (iPar == 1) {
				m_astrNn['dbox'] += sbDrawLabel(iM,m_iCvHt - iH - iM,m_iCvWt - iM * 2,iH,'c',iFontSize,'#000',m_astrLabel[iTrun]);
				m_aelmCv['frst'].style.backgroundColor = '#fff';
			}
		}
	}
	
	// ********** End Animation
	if (m_iAnimeIdx == m_iAnimeMax + m_iWait) {
		sbViewLayer('frst,frdm,desc','dbox');
		//Amazon
		if (m_astrInit.length > 2) {
			sbGetAmazonImage('links2','kyusho-22','Books',encodeURIComponent(m_astrInit[2]),'',700,4,1);
		}
		
		// ********** Check Time
		dNow = new Date();
		//alert(parseInt((dNow.getTime() - m_dStart.getTime())));
	}
	
	// ********** Add FrameCount
	m_iAnimeIdx ++;
	
	// View Text
	sbViewText();
}

function sbSend() {
	var strReq;
	var strName;
	
	strName = document.getElementById('gen_name').value;
	
	strReq = '';
	strReq += '&name=' + encodeURIComponent(strName);
	strReq += '&plat=' + document.getElementById('gen_plat').value;
	strReq += '&lang=' + document.getElementById('gen_lang').value;
	
	// Cache 
	var dNow = new Date();
	
	if (m_iAnimeIdx > m_iAnimeMax + m_iWait || strReq != m_strReq) {
		m_strReq = strReq;
		
		// Create Object
		var xmlhttp = fnCreateXMLHttp();
		if (xmlhttp) {
			xmlhttp.open('GET', m_strURLSend + '?time=' + dNow.getTime() + strReq);
			xmlhttp.onreadystatechange = function() {
				if (xmlhttp.readyState == 4 && xmlhttp.status == 200) {
					document.getElementById('gen_res').value = xmlhttp.responseText;
				}
			}
			xmlhttp.send(null);
		}
	}
	return false;
}

// EnterKey Event
var m_elmFocus;
function sbFocus(elmTemp){
	m_elmFocus = elmTemp
	elmTemp.style.backgroundColor = '#888';
	elmTemp.select();
}
function sbBlur(elmNum){
	elmNum.style.backgroundColor = '';
}
function fnGetKeycode(e){
	if (document.all) {
		return event.keyCode;
	} else if (document.getElementById) {
		return (e.keyCode!=0) ? e.keyCode : e.charCode;
	} else if(document.layers){
		return e.which;
	}
}
function fnKeyPress(e){
	if(fnGetKeycode(e) == 13) {
		if        (m_elmFocus.id == 'gen_send') { document.getElementById('gen_name').focus(); sbSend();
		} else if (m_elmFocus.id == 'gen_name') { document.getElementById('gen_send').focus();
		}
		return false;
	}
}
document.onkeypress = fnKeyPress;

// ********************************************************************************
// Common
// ********************************************************************************
function sbDrawLabel(iX,iY,iW,iH,strAlign,iFontSize,strColor,strText) {
	var strStyleAlign;
	var strTemp;
	var strHTML;
	
	iX = Math.round(iX);
	iY = Math.round(iY);
	iW = Math.round(iW);
	iH = Math.round(iH);
	iFontSize = Math.round(iFontSize);
	
	iW = (iW > 0 ? iW : m_iCvWt - iX);
	strStyleAlign = (strAlign == 'c' ? 'center' : (strAlign == 'r' ? 'right' : 'left'));
	
	strHTML = '';
	if (iX >= 0 && iY >= 0 && iX + iW <= m_iCvWt && iY + iH <= m_iCvHt) {
		strTemp = strText.replace(/#/g, '<br />');
		strHTML += '<table style="left:' + iX + 'px; top:' + iY + 'px; width:' + iW + 'px;height:' + iH + 'px; font-size:' + iFontSize + 'px; color:' + strColor + '; text-align:' + strStyleAlign + ';"><tr><td>' + strTemp + '</td></tr></table>';
	}
	return strHTML;
}

// ********************************************************************************
// Common Layer
// ********************************************************************************
function sbViewLayer(strCv,strNb) {
	strCv = ',' + strCv + ',';
	strNb = ',' + strNb + ',';
	var iIdx,strIdx;
	
	for (iIdx = 0; iIdx < m_astrArrayCv.length; iIdx++) {
		strIdx = m_astrArrayCv[iIdx];
		m_aelmCv[strIdx].style.visibility = (strCv.indexOf(strIdx) >= 0 ? 'visible' : 'hidden');
	}
	for (iIdx = 0; iIdx < m_astrArrayNb.length; iIdx++) {
		strIdx = m_astrArrayNb[iIdx];
		m_aelmNb[strIdx].style.visibility = (strNb.indexOf(strIdx) >= 0 ? 'visible' : 'hidden');
	}
}

function sbClearAll(strCv,strNb) {
	strCv = ',' + strCv + ',';
	strNb = ',' + strNb + ',';
	var iIdx,strIdx;
	
	for (iIdx = 0; iIdx < m_astrArrayCv.length; iIdx++) {
		strIdx = m_astrArrayCv[iIdx];
		if (strCv.indexOf(strIdx) >= 0) {
			m_actxCv[strIdx].clearRect(0,0,m_iCvWt,m_iCvHt);
		}
	}
	for (iIdx = 0; iIdx < m_astrArrayNb.length; iIdx++) {
		strIdx = m_astrArrayNb[iIdx];
		if (strNb.indexOf(strIdx) >= 0) {
			m_astrNo[strIdx] = '';
			m_astrNn[strIdx] = '';
			m_aelmNb[strIdx].innerHTML = '';
		}
	}
}
function sbViewText() {
	var iIdx,strIdx;
	for (iIdx = 0; iIdx < m_astrArrayNb.length; iIdx++) {
		strIdx = m_astrArrayNb[iIdx];
		if (m_astrNn[strIdx] != m_astrNo[strIdx]) {
			m_astrNo[strIdx] = m_astrNn[strIdx];
			m_aelmNb[strIdx].innerHTML = m_astrNo[strIdx];
		}
	}
}

// ********************************************************************************
// Common Graphic
// ********************************************************************************
function fnAdjustPath(strPathCt,iScaleW,iScaleH,iCvWt,iCvHt,iMargin) {
	var astrPathCt = [];
	var aiTemp = [];
	var iTempW;
	var iTempH;
	var iZoomin;
	var iMarginX;
	var iMarginY;
	var iX,iY;
	var iIdx;
	var strPath;
	
	astrPathCt = strPathCt.split(' ');
	
	iTempW = (iCvWt - iMargin) / iScaleW;
	iTempH = (iCvHt - iMargin) / iScaleH;
	iZoomin = (iTempW < iTempH ? iTempW : iTempH)
	iMarginX = iCvWt / 2 - iScaleW * iZoomin / 2;
	iMarginY = iCvHt / 2 - iScaleH * iZoomin / 2;
	
	strPath = '';
	for (iIdx = 0; iIdx < astrPathCt.length; iIdx++) {
		if        (astrPathCt[iIdx].length == 0) {
		} else if (astrPathCt[iIdx].length == 1) {
			strPath += astrPathCt[iIdx] + ' ';
		} else {
			aiTemp = astrPathCt[iIdx].split(',');
			iX = Number(aiTemp[0]) * iZoomin + iMarginX;
			iY = Number(aiTemp[1]) * iZoomin + iMarginY;
			strPath += iX + ',' + iY + ' ';
		}
	}
	return strPath;
}

function sbDrawLine(ctxCv,iCvWt,iCvHt,iBaseX,iBaseY,iBaseW,iBaseH,strPathSt,strPathEd,iPar,iSize,iLineWidth,strColorStroke,strColorFill) {
	var iX,iY;
	var aiX = [];
	var aiY = [];
	var aiTemp = [];
	var aiCurve = [];
	var iCurve;
	var iIdx,iIdx2;
	var strMode;
	var iCol;
	var astrPathSt = [];
	var astrPathEd = [];
	var iCnt;
	var iIdx3;
	
	astrPathSt = strPathSt.split(' ');
	astrPathEd = strPathEd.split(' ');
	iCnt = astrPathSt.length;
	
	ctxCv.lineWidth = iLineWidth;
	ctxCv.strokeStyle = strColorStroke;
	ctxCv.fillStyle = strColorFill;
	
	iPar = (iPar < 0 ? 0 : (iPar > 1 ? 1 : iPar));
	
	var iLoopSt = (strColorStroke != '' ? 0 : 1);
	var iLoopEd = (strColorFill   != '' ? 2 : 1);
	
	for (iIdx3 = iLoopSt; iIdx3 < iLoopEd; iIdx3++) {
		strMode = '';
		iCol = 0;
		for (iIdx = 0; iIdx < iCnt; iIdx++) {
			if        (astrPathSt[iIdx].length == 0) {
			} else if (astrPathSt[iIdx].length == 1) {
				strMode = astrPathSt[iIdx];
				if        (strMode == 'M')  {
				} else if (strMode == 'C')  { iCurve = 0;
				} else if (strMode == 'L')  {
				} else if (strMode == 'z')  {
					if        (1 == 0)  {
					} else if (iIdx3 == 0 && strColorStroke != '') { ctxCv.stroke();
					} else if (iIdx3 == 1 && strColorFill   != '') { ctxCv.fill();
					}
				} else if (strMode == "\n") {
				} else                      {
				}
			} else {
				if (iPar == 0) {
					aiTemp = astrPathSt[iIdx].split(',');
					iX = Number(aiTemp[0]);
					iY = Number(aiTemp[1]);
				} else if (iPar == 1) {
					aiTemp = astrPathEd[iIdx].split(',');
					iX = Number(aiTemp[0]);
					iY = Number(aiTemp[1]);
				} else {
					for (iIdx2 = 0; iIdx2 <= 1; iIdx2++) {
						aiTemp = (iIdx2 == 0 ? astrPathSt[iIdx] : astrPathEd[iIdx]).split(',');
						aiX[iIdx2] = Number(aiTemp[0]);
						aiY[iIdx2] = Number(aiTemp[1]);
					}
					iX = Math.round(aiX[0] + (aiX[1] - aiX[0]) * iPar);
					iY = Math.round(aiY[0] + (aiY[1] - aiY[0]) * iPar);
				}
				
				iX = iX * iSize - iCvWt * iSize / 2 + iCvWt / 2;
				iY = iY * iSize - iCvHt * iSize / 2 + iCvHt / 2;
				
				iX = iBaseX + iX * (iBaseW / iCvWt);
				iY = iBaseY + iY * (iBaseH / iCvHt);
				
				if        (strMode == 'M') {
					iCol = (iCol + 1) % 2;
					ctxCv.beginPath();
					ctxCv.moveTo(iX,iY);
				} else if (strMode == 'C') { 
					aiCurve[iCurve * 2 + 0] = iX;
					aiCurve[iCurve * 2 + 1] = iY;
					iCurve++;
					
					if (iCurve == 3)   {
						ctxCv.bezierCurveTo(aiCurve[0],aiCurve[1],aiCurve[2],aiCurve[3],aiCurve[4],aiCurve[5]);
					}
				} else if (strMode == 'L') { ctxCv.lineTo(iX,iY);
				} else if (strMode == 'z') {
				} else                     {
				}
			}
		}
	}
}

function sbGetParam() {
	var iIdx,iTemp;
	var strKey,strVal;
	var astrParam = [];
	var strQuery = window.location.search.substring(1);
	var astrParam = strQuery.split('&');
	for (iIdx = 0; iIdx < astrParam.length; iIdx++) {
		var iTemp = astrParam[iIdx].indexOf('=');
		if (iTemp > 0) {
			strKey = astrParam[iIdx].substring(0,iTemp);
			strVal = astrParam[iIdx].substring(iTemp + 1);
			astrParam[strKey] = strVal;
		}
	}
	return astrParam;
}

function fnCreateXMLHttp() {
	if(window.ActiveXObject){
		try {
			return new ActiveXObject("Msxml2.XMLHTTP");
		} catch (e) {
			try {
				return new ActiveXObject("Microsoft.XMLHTTP");
			} catch (e2) {
				return null;
	 		}
	 	}
	} else if(window.XMLHttpRequest){
		return new XMLHttpRequest();
	} else {
		return null;
	}
}

function fnGetColor(iPar) {
	iPar = (iPar < 0) ? 0 : iPar;
	iPar = (iPar > 1) ? 1 : iPar;
	var strColor = '0123456789ABCDEF'.charAt(Math.floor(15 * iPar));
	return '#' + strColor + strColor + strColor + strColor + strColor + strColor;
}