TrackName={"タイの変換"}
Copyright={"森と泉"}

/*8分音符と^のみで表したMMLが対象です。MMLが見にくいので、見やすい
数字の音長に一括変換します。Str AA={};のカッコ内にMMLを入れて下さい。
^が7個なら1、6個なら2..、5個なら2.、4個なら2^8、3個なら2、2個なら4.、
1個なら4に一括変換します。
結果はサクラでもピコサクラでも下側タブに出て、変換後に演奏します。*/

Str AA={Tempo=160
TR=1 CH=1 l8 V(100) P(64) q100 @(NewAgePad) P.onNoteWave(32,96,!4) r1
 o5v100c o4v120g^ o5v100c^^ o4v120g^
ff^crfa^&	
af^fc^^^
rg^^ddf^&
ff^^f^^^&
ff^^g^^b
fa^ o5v100c^^fr
rd^g^^b^
 o6v80cc^rcce^&
e o5v100b^g^^^^&
g o6v80c^ o5v100gec^ o4v120g
f^^^^^^^&
 fc^cf^f^
re^rg^^^
rc^fcf^^
dd^a o5v100drd o4v120a
 o5v100d^^r^bb^&
b^^b^^ o6v80d^
crg^c^^^
dg+^ee^^^&
ee^c^^c^&
cc^^^^rg&
g^^^^^^^
ac^fc^ff
c^^ce^^^&
e^^^e^^^
cc^c^^ o5v100a^
g^^^ o6v80c^^^
dd^ o5v100b o6v80e^^^&
e^^rrae^
rf^d^^dd
g^^bg^^^
d^^^ o5v100a^^ o6v80d
ff^cracc&
cf^fccrf&
fd^^rf^d
ra^racf^&
fg^g^^^^
ed^^^d^^
 o5v100a o6v80c^ o5v100a^^^^&
ae^^e^^^
dd^ o4v120a o5v100d^d^
cc^crfc^&
cd^ o4v120a o5v100d^^^&
d^^ o4v120b^^^^
 o5v100e^^rc^^^&
c^^^e^g^
 o6v80c^^ o5v100aea^^&
aa^^^^^^&
af^rd^^^&
d^^g^^b^&
b^^^^^^^
aa^ o6v80cc^^^
 o5v100a o6v80d^^f^d^
 o5v100a^^^e^^^&
er^^e^ o4v120b^
ae^r^aae&
eg^rcge^
f+^^^^^d^&
d^^dd^^^
crc^ec^^&
c^^cf^f^&
frb^^^rg&
g o5v100c^cccc^}

AA=Replace(AA,"^^^^^^^","1",on);
AA=Replace(AA,"^^^^^^","2..",on);
AA=Replace(AA,"^^^^^","2.",on);
AA=Replace(AA,"^^^^","\",on);
AA=Replace(AA,"^^^","2",on);
AA=Replace(AA,"^^","4.",on);
AA=Replace(AA,"^","4",on);
AA=Replace(AA,"\","2^8",on);

Print(AA);
Play(AA);