//マルチメディアライブラリ:mmlib	小山智史(弘前大学)
DATE="2001.7.18-2004.2.12"
/*
Quick Reference:
round1(n)			nを小数点以下1桁に四捨五入
csv2array(s)		csvデータsを改行で分割した後","で分割した2次元配列を返す
frameset(option1,option2)	<frameset>のオプションを指定してdocumentを分割
initSND()			SOUNDレベルに応じてsndfileを埋めこむ
embed(sndfile)		sndfileを埋めこむ
sndplay(sndfile)	sndfileを再生する
randint(n)			1〜nの整乱数
shuffle(A)			配列Aをシャフル
shuffle1(A,n,o1)	配列A[o1〜]のn個の要素のシャフル
shuffle2(A,n,o1,o2)	配列A[o1〜], A[o2〜]のn個の要素の連動シャフル
shuffle3(A,n,o1,o2,o3)	配列A[o1〜], A[o2〜], A[o3〜]のn個の要素の連動シャフル
strsnd(A)			文字列Aを":"で分割し、初めのSndfileを返す
strhtm(A)			文字列Aを":"で分割し、初めのHtmfileを返す
strimg(A)			文字列Aを":"で分割し、初めのImgfileを返す
strimgtag(A)		文字列Aを":"で分割し、初めのImgfileからHTMLタグを作り(IMGALIGN, IMGWIDTH, IMGHEIGHTを含む)、返す
strtxt(A)			文字列Aを":"で分割し、初めのTxtfileを返す
IsImgfile(s)		文字列sの末尾が".gif"または".jpg"ならばtrue
IsSndfile(s)		文字列sの末尾が".wav"または".au"ならばtrue
IsHtmfile(s)		文字列sの末尾が".htm"ならばtrue
*/
//パラメータのデフォルト値
//---ここから---
SOUND=0
TITLE="MMI library "
CREDIT=""
IMG="img"		//image files are in this folder
SND="snd"		//sound files are in this folder
//---ここまで---
//function round1(x){return Math.round(x*10)/10}
function round1(x){		//2005.8.20
	var x10=Math.round(x*10)+"";
	var i=x10.substring(0,x10.length-1);
	if(i=="")		i="0";
	else if(i=="-")	i="-0";
	return i+"."+x10.charAt(x10.length-1);
}
function csv2array(s){
	var data=s.replace(/[\r\n]+/g,"\n").replace(/^\n/,"").replace(/\n$/,"").split("\n")
	for(var i=0;i<data.length;i++)	data[i]=data[i].replace(/[,\t]/g,",").split(",")
	return data
}

function description(){return CREDIT+"<br>"+DATE+" <a href='http://siva.cc.hirosaki-u.ac.jp/usr/koyama/mmilib/'>MMI library</a> by S.Koyama"}

var agt=navigator.userAgent.toLowerCase()
var is_major= parseInt(navigator.appVersion)
var is_nav	= ((agt.indexOf('mozilla')!=-1) && (agt.indexOf('compatible')==-1))
var is_nav4 = (is_nav && (is_major==4))
var is_nav4up=(is_nav && (is_major>=4))
var is_nav5up=(is_nav && (is_major>=5))
var is_ie   = (agt.indexOf("msie")!=-1)
var is_ie3  = (is_ie && (is_major< 4))
var is_ie4  = (is_ie && (is_major==4) && (agt.indexOf("msie 5.0")==-1) )
var is_ie4up= (is_ie && (is_major>=4))
var is_ie5up= (is_ie && !is_ie3 && !is_ie4)

if(document==top.document)	CtrlFrame=ButtonFrame=ScanFrame=MenuFrame=ContentFrame=top
else{
	CtrlFrame=ButtonFrame=ScanFrame=MenuFrame=top.frames[0]
	QAFrame=ContentFrame=top.frames[0]
	KRFrame=top.frames[1]
}

var sndidx=new Array();		Ns=0
var sndFIFO=new Array("");	NFIFO=0
var ie4str=""
if(is_ie4up)	document.write("<BGSOUND ID=BGSND>");

function frameset0(foption){with(document){
	var nf=foption.split(",").length
	open()
	write("<title>"+TITLE+"</title>")
//	write("<frameset border=0 "+foption+">")
	write("<frameset "+foption+">")
//	write("	<frame frameborder=0 src=about:blank>")
	write("	<frame src=about:blank scrolling=yes>")
	write("	<frame src=about:blank scrolling=yes>")
//	for(var i=1;i<nf;i++) write("<frame frameborder=0 src=about:blank>")
	for(var i=1;i<nf;i++) write("<frame src=about:blank scrolling=yes>")
	write("</frameset>")
	close()
}}
function frameset(foption1,foption2){with(document){
	var nf1=foption1.split(",").length
	open()
	write("<title>"+TITLE+"</title>")
//	write("<frameset border=0 "+foption1+">")
	write("<frameset "+foption1+">")
	if(frameset.arguments.length==2){
		var nf2=foption2.split(",").length
//		write("	<frameset border=0 "+foption2+">")
		write("	<frameset "+foption2+">")
//		write("		<frame frameborder=0 src=about:blank>")
		write("		<frame src=about:blank scrolling=yes>")
		write("		<frame src=about:blank scrolling=yes>")
//		for(var i=2;i<nf2;i++) write("<frame frameborder=0 src=about:blank SCROLLING='auto'>")
		for(var i=2;i<nf2;i++) write("<frame src=about:blank scrolling=yes>")
		write("	</frameset>")
//	}else	write("	<frame frameborder=0 src=about:blank>")
	}else	write("	<frame src=about:blank scrolling=yes>")
	write("	<frame src=about:blank scrolling=yes>")
//	for(var i=2;i<nf1;i++) write("<frame frameborder=0 src=about:blank SCROLLING=auto>")
	for(var i=2;i<nf1;i++) write("<frame src=about:blank scrolling=yes>")
	write("</frameset>")
	close()
}}

function irt(){											//タイマー割り込み
	if(NFIFO==0)	return
	if( is_ie4up &&document.embeds[sndidx[sndFIFO[0]]].playState ||
		is_nav4  &&document.embeds[sndidx[sndFIFO[0]]].IsPlaying())	return
	else{												//再生終了
		for(i=0;i<NFIFO-1;i++)	sndFIFO[i]=sndFIFO[i+1]	//詰める
		sndFIFO[--NFIFO]=""
		if(NFIFO>0){
			if(is_nav4 || is_ie4up)	document.embeds[sndidx[sndFIFO[0]]].play()
//			else if(is_nav5up)		document.embeds[sndidx[sndFIFO[0]]].Play()
		}
	}
}

function initSND(){
	if(SOUND>=0)	setInterval("irt()",100)
	if(SOUND>=1){
		PINPONsnd=new Array("pinpon.au","seikai.au","dekita.au","yatta.au")
		BUUsnd=new Array("buu.au","chigau.au","zannen.au")
		for(i=0;i<PINPONsnd.length;i++)	embed(PINPONsnd[i])
		for(i=0;i<BUUsnd.length;i++)	embed(BUUsnd[i])
	}
	if(SOUND>=2){
		AAsnd=new Array("fan2.au","aames.au")
		Asnd=new Array("pin3.au","ames.au")
		Bsnd=new Array("ganbare.au","bmes.au")
		Csnd=new Array("down1.au","cmes.au")
		for(i=0;i<AAsnd.length;i++)	embed(AAsnd[i])
		for(i=0;i<Asnd.length;i++)	embed(Asnd[i])
		for(i=0;i<Bsnd.length;i++)	embed(Bsnd[i])
		for(i=0;i<Csnd.length;i++)	embed(Csnd[i])
	}
	if(SOUND>=3){
		if(strsnd(Qmes)!="")	embed(strsnd(Qmes))
		NUMsnd=new Array("0.au","1.au","2.au","3.au","4.au","5.au","6.au","7.au","8.au","9.au","10.au")
		for(i=0;i<NUMsnd.length;i++)	embed(NUMsnd[i])
		embed("tsugie.au");	embed("owari.au")
		embed("seikaiwa.au");	embed("monchu.au");	embed("monseika.au")
	}
//	if(is_ie4up)	onload=function(){	document.body.insertAdjacentHTML("BeforeEnd",ie4str);}
}
function embed(fname){if(fname!="" && !sndidx[fname]){
//	if(is_ie4up)	ie4str+="<embed src="+((SND=="")?"":(SND+"/"))+fname+" hidden=true autostart=false>"
	if(is_ie4up || is_nav4up)	document.write("<embed src="+((SND=="")?"":(SND+"/"))+fname+" hidden=true autostart=false>")
	sndidx[fname]=Ns++
}}
function sndplay(fname){if(fname){
	sndFIFO[NFIFO++]=fname
	if(NFIFO==1){
		if(is_nav4 || is_ie4up)	document.embeds[sndidx[sndFIFO[0]]].play()
//		else if(is_nav5up)	document.embeds[sndidx[sndFIFO[0]]].Play()
	}
}}
function swap(A,i,j){var t=A[i]; A[i]=A[j]; A[j]=t }
function sign(n){if(n==0){return 0;}else if(n>0){return 1;}else{return -1;}}
function randint(n){	return (n==0)?0:Math.floor(n*Math.random())	}
function shuffle(A){
	for(var i=0;i<A.length;i++){var r=randint(A.length-i);	swap(A,i,i+r)	}
}
function shuffle1(A,n,ofs1){
	for(var i=0;i<n;i++){	var r=randint(n-i);	swap(A,i+ofs1,i+r+ofs1)	}
}
function shuffle2(A,n,ofs1,ofs2){
	for(var i=0;i<n;i++){
		var r=randint(n-i)
		swap(A,ofs1+i,ofs1+i+r);	swap(A,ofs2+i,ofs2+i+r)
	}
}
function shuffle3(A,n,ofs1,ofs2,ofs3){
	for(var i=0;i<n;i++){
		var r=randint(n-i)
		swap(A,ofs1+i,ofs1+i+r);swap(A,ofs2+i,ofs2+i+r);swap(A,ofs3+i,ofs3+i+r)
	}
}
function csv2Array(s){
	var r=s.replace(/[\r\n]+/g,"\n").replace(/\n$/,"").split("\n")
	for(var i=0;i<r.length;i++)	r[i]=r[i].replace(/,+$/,"").split(",")
	return r
}
function strsnd(A){	var qq=A.split(":")
	for(var i=0;i<qq.length;i++)	if(IsSndfile(qq[i]))	return qq[i]
	return ""}
function strhtm(A){	var qq=A.split(":")
	for(var i=0;i<qq.length;i++)	if(IsHtmfile(qq[i]))	return qq[i]
	return ""}
function strimg(A){	var qq=A.split(":")
	for(var i=0;i<qq.length;i++)	if(IsImgfile(qq[i]))	return qq[i]
	return ""}
function strimgtag(img){
	var s=""
	if(IMGALIGN.toLowerCase()=="center")	s+="<center>"
	s+=("<img src="+((IMG=="")?"":(IMG+"/"))+strimg(img))
	if(IMGALIGN.toLowerCase()!="center")	s+=" align=right"
	if(IMGWIDTH>0)	s+=(" WIDTH="+IMGWIDTH)
	if(IMGHEIGHT>0)	s+=(" HEIGHT="+IMGHEIGHT)
	s+=">"
	if(IMGALIGN.toLowerCase()=="center")	s+="</center>"
	return s
}
function strtxt(A){	var qq=A.split(":")
	for(var i=0;i<qq.length;i++)	if(!IsImgfile(qq[i]) && !IsSndfile(qq[i]) && !IsHtmfile(qq[i]))	return qq[i]
	return ""}
function IsImgfile(s){	return (s.substr(s.length-4).toLowerCase()==".gif" || s.substr(s.length-4).toLowerCase()==".jpg")}
function IsSndfile(s){	return (s.substr(s.length-4).toLowerCase()==".wav" || s.substr(s.length-3).toLowerCase()==".au")}
function IsHtmfile(s){	return (s.substr(s.length-4).toLowerCase()==".htm")}

function selectform(item){with(document){
	if(item=="TSCAN")	write("<b>スキャン周期:</b> マウスの左ボタンに外部スイッチを接続すれば、肢体不自由の方も1個のスイッチ操作で楽しめます。<br>")
	else if(item=="SOUND")	write("<b>サウンド:</b> サウンドを指定できます。<br>")
	write("<select name='"+item+"'>")
	if(item=="TSCAN"){
		write("  <option VALUE=0 selected>スキャンオフ")
		write("  <option VALUE=1000>1秒")
		write("  <option VALUE=1500>1.5秒")
	}else if(item=="SOUND"){
		write("  <option VALUE=0 selected>オフ")
		write("  <option VALUE=1>少し音がでます")
		write("  <option VALUE=2>音が変化します")
		write("  <option VALUE=3>問題や解答を読み上げます")
	}
	write("</select><p>")
}}