dolpen/jsmml_conv.htm

## jsmml_conv.htm
<html>
 <head>
  <script type="text/javascript" src="http://svn.coderepos.org/share/lang/javascript/jsmml/trunk/src/JSMML.js"></script>
  <script type="text/javascript">
<!--
var mml=null;
JSMML.swfurl = 'http://svn.coderepos.org/share/lang/javascript/jsmml/trunk/src/JSMML.swf';
JSMML.onLoad = function() {mml = new JSMML();}
var $=function(n){return document.getElementById(n);};
var FimmlConverter=function(){
 this.base=8;
};

FimmlConverter.prototype.processSource=function(s,b,o,t){
 var i,j,l=s.length,nts=0,eqs=-1,nte=-1,r='';
 this.base=b;
 r+='t'+t+' l'+b+' o'+o+' ';
 for(i=0;i<l;i++){
  switch(s.charAt(i)){
   case '=':
    if(eqs==-1)eqs=i;
    break;
   case 'a':
   case 'b':
   case 'c':
   case 'd':
   case 'e':
   case 'f':
   case 'g':
   case 'r':
    if(eqs>=0){
     nte=i;
     r+=this.NotetoMML(s.substring(nts,eqs),nte-eqs+1);
     eqs=-1;
    }else if(nts>=0){
     r+=s.substring(nts,i);
    }
    nts=i;
    break;
   case '+':
   case '-':
    break;
   default:
    if(eqs>=0){
     nte=i;
     r+=this.NotetoMML(s.substring(nts,eqs),nte-eqs+1);
     eqs=-1;
    }else if(nts>=0){
     r+=s.substring(nts,i);
    }
    nts=-1;
    r+=s.charAt(i);
    break;
  }
 }
 if(eqs>=0){
  nte=l;
  r+=this.NotetoMML(s.substring(nts,eqs),nte-eqs+1);
 }else if(nts>0){
  r+=s.substring(nts,l);
 }
 return r;
};
// /:2a2a==a+b================:/
FimmlConverter.prototype.NotetoMML=function(e,l){
 var r='',b=this.base;
 while(l>0){
  for(i=2;i<=b && i<=l;i*=2);
  if(i>l||i>b)i/=2;
  l-=i;
  r+=e+((i>1)?(b/i):'')+((l>0)?'&':'');
 }
 return r;
};
var fc=new FimmlConverter();
window.onload=function(){
 $('btn').onclick=function(){
  $('to').value=fc.processSource(
   $('from').value,
   parseInt($('base').value,10),
   parseInt($('octave').value,10),
   parseInt($('tempo').value,10)
  );
 };
 $('play').onclick=function(){mml.play($('to').value);};
 $('pause').onclick=function(){mml.pause();};
 $('stop').onclick=function(){mml.stop();};

};

--->
</script>
</head>
<body>
<textarea id="from" cols="88" rows="12"></textarea><br>
<input type="button" id="btn" value="↓変換"/>
t<input type="text" id="tempo" value="120" />
&nbsp;
<select id="base">
<option value="4">l4</option>
<option value="8">l8</option>
<option value="16">l16</option>
<option value="32">l32</option>
</select>
&nbsp;
<select id="octave">
<option value="1">o1</option>
<option value="2">o2</option>
<option value="3">o3</option>
<option value="4">o4</option>
<option value="5">o5</option>
<option value="6">o6</option>
<option value="7">o7</option>
<option value="8">o8</option>
</select>
&nbsp;
<input type="button" id="play" value="＞"/>
<input type="button" id="pause" value=" | | "/>
<input type="button" id="stop" value="■"/>
<br>
<textarea id="to" cols="88" rows="12"></textarea>

</body>
</html>
	<html>
	<head>
	<script type="text/javascript" src="http://svn.coderepos.org/share/lang/javascript/jsmml/trunk/src/JSMML.js"></script>
	<script type="text/javascript">
	<!--
	var mml=null;
	JSMML.swfurl = 'http://svn.coderepos.org/share/lang/javascript/jsmml/trunk/src/JSMML.swf';
	JSMML.onLoad = function() {mml = new JSMML();}
	var $=function(n){return document.getElementById(n);};
	var FimmlConverter=function(){
	this.base=8;
	};

	FimmlConverter.prototype.processSource=function(s,b,o,t){
	var i,j,l=s.length,nts=0,eqs=-1,nte=-1,r='';
	this.base=b;
	r+='t'+t+' l'+b+' o'+o+' ';
	for(i=0;i<l;i++){
	switch(s.charAt(i)){
	case '=':
	if(eqs==-1)eqs=i;
	break;
	case 'a':
	case 'b':
	case 'c':
	case 'd':
	case 'e':
	case 'f':
	case 'g':
	case 'r':
	if(eqs>=0){
	nte=i;
	r+=this.NotetoMML(s.substring(nts,eqs),nte-eqs+1);
	eqs=-1;
	}else if(nts>=0){
	r+=s.substring(nts,i);
	}
	nts=i;
	break;
	case '+':
	case '-':
	break;
	default:
	if(eqs>=0){
	nte=i;
	r+=this.NotetoMML(s.substring(nts,eqs),nte-eqs+1);
	eqs=-1;
	}else if(nts>=0){
	r+=s.substring(nts,i);
	}
	nts=-1;
	r+=s.charAt(i);
	break;
	}
	}
	if(eqs>=0){
	nte=l;
	r+=this.NotetoMML(s.substring(nts,eqs),nte-eqs+1);
	}else if(nts>0){
	r+=s.substring(nts,l);
	}
	return r;
	};
	// /:2a2a==a+b================:/
	FimmlConverter.prototype.NotetoMML=function(e,l){
	var r='',b=this.base;
	while(l>0){
	for(i=2;i<=b && i<=l;i*=2);
	if(i>l\|\|i>b)i/=2;
	l-=i;
	r+=e+((i>1)?(b/i):'')+((l>0)?'&':'');
	}
	return r;
	};
	var fc=new FimmlConverter();
	window.onload=function(){
	$('btn').onclick=function(){
	$('to').value=fc.processSource(
	$('from').value,
	parseInt($('base').value,10),
	parseInt($('octave').value,10),
	parseInt($('tempo').value,10)
	);
	};
	$('play').onclick=function(){mml.play($('to').value);};
	$('pause').onclick=function(){mml.pause();};
	$('stop').onclick=function(){mml.stop();};

	};

	--->
	</script>
	</head>
	<body>
	<textarea id="from" cols="88" rows="12"></textarea><br>
	<input type="button" id="btn" value="↓変換"/>
	t<input type="text" id="tempo" value="120" />

	<select id="base">
	<option value="4">l4</option>
	<option value="8">l8</option>
	<option value="16">l16</option>
	<option value="32">l32</option>
	</select>

	<select id="octave">
	<option value="1">o1</option>
	<option value="2">o2</option>
	<option value="3">o3</option>
	<option value="4">o4</option>
	<option value="5">o5</option>
	<option value="6">o6</option>
	<option value="7">o7</option>
	<option value="8">o8</option>
	</select>

	<input type="button" id="play" value="＞"/>
	<input type="button" id="pause" value=" \| \| "/>
	<input type="button" id="stop" value="■"/>
	<br>
	<textarea id="to" cols="88" rows="12"></textarea>

	</body>
	</html>