/*
楽譜: 
https://imslp.org/wiki/Special:ReverseLookup/7420

変な書き方をしたせいでテンポ変更の難度が高い。できなくはないはずだけど超だるそうなのでシカトすることにした。

備忘録: 引数つきマクロの引数にコンマを含めたい場合、その引数をダブルクォーテーションで括るとちゃんと読んでくれる。初めて使った。
http://sketch.txt-nifty.com/blog/2009/07/flmml---sync-33.html#comment-40758544

time=(60/tempo)*4*(tick/384)*127
*/

$SKIP=/:0r2:/;/*DEBUG=1推奨*/
$REVERB=1;
$DEBUG=0;/*REVERBと併用しない*/
$DIMINUENDO=1;

$I=/*行頭*/;

/*アー*/
$VIBRATO{s}=@L25,12%s@L0;
$J{s,t}=%s16&$VIBRATO{%s%t};/*ブレス後すぐでない%25以上*//*頭に&を付けないのは「<&」「>&」が無理な為*/
$K{s}=@u0%s&@u1;/*ブレス後すぐの%24以下*/
$JK{s,t}=$K{%s}$VIBRATO{%s%t};/*ブレス後すぐの%25以上*/
$N=<c+&>b+&;
$S{s,t}=/:$DIMINUENDO%s:/%t$VOICE;
$V_SCORE=
 $I /:r4.o6L16$K{e}d+&$J{e,&4&}c+&d+ &$J{e,&}d+&c+&$J{d+,&}>b&<c+ &$J{d+,&2}$K{c+}>b&<$J{c+,&}>a&b
 $I &<$J{c+,&2&}>b&a&$J{g+,8&}f+ &$J{g+,8&}a&$J{g+,4}$K{a}<c+&e&$J{f+,8&}g+ &$J{e,&4&}$J{d,&}$J{c+,&8&}L32>b+&L48$NL64$NL96$N$NL128$N$NL192$NL32a+&b+&
 $I L16$S{@q0,"<$J{c+,&4.}"}r8$JK{c+,&8&}>$J{b,&} $J{a+,&2}$JK{a+,&}$J{b,&}<$J{c+,&}

 $I $J{c+,&}>b&<c+&$J{d+,&4}$K{>g+}a+&$J{b,&}<c+&d+& $J{e+,&2}$JK{c++,&}$J{d+,&}$J{e+,&}
 $I $J{e+,&}d+&e+&$J{f+,&4&}$J{e+,&}$J{d+,&}$J{c+,&} $J{d+,&4&}c+&>b+&<$J{c+,&4}$K{>g+}a+ &$J{b+,&}<c+&d+&$J{e,&4&}$J{d+,&}$J{c+,&}>$J{b,&}
 $I $J{b,&}a+&b&<$J{c+,&4}$K{>b}a+&$J{b,&}f+&g+ &$J{a+,&}b&<c+&$J{d,&4&}$J{c+,&}>$J{b,&}$J{a,&} $J{g+,&4.&}$J{f++,&4}<$JK{c+,&}
 $I $J{d+,8&}c+&>b&<c+&>$J{a+,&} / $S{"@q0@e1,0,1089,127,91,0,0","$J{g+,&2..}"}:/ $S{@q0,"$J{g+,&4.}"}r8<$JK{d+,&8&}$J{c+,&}

 $I /:>$J{b+,&8&}<$J{d+,&4}$JK{d+,&8&}$J{c+,&} >$J{b+,&8&}<$J{d+,&4}$JK{e,&}$J{d+,&}$J{c+,&} >$J{b,&}<$J{c+,&}$J{d+,&}>$J{b,&}$J{g+,4&}a+&b+&<f+
 $I &$S{@q0,"$J{e,&4.}"}r8$JK{e,&8&}$J{d+,&} $J{c+,&8&}$J{e,&4}$JK{e,&}$J{d+,&}c+&>b&
 $I <$J{c+,&8&}$J{e,&4&}$J{f+,&}$J{e,&}$J{d+,&} $J{c+,&}$J{d+,&}$J{e,&}$J{c+,&}>$J{a,4}$K{b}<c+&e
 $I &$J{f+,&4.&}>$J{g+,&4}<$JK{f+,&} $J{g+,&8&2&}$J{f+,&8&} $J{e+,&}d+&e+&$J{f+,&4}$JK{e,&}$J{d+,&}$J{c+,&}

 $I >$J{b+,&}b&b+&<$J{c+,&4}>$JK{b,&8&}$J{a,&} $J{g+,8&}f+&e&f+&$J{d+,&} / $S{@q0,"$J{c+,&4.}"}r8<$JK{d+,&8&}$J{c+,&}:/
 $I $S{@q0,"$J{c+,&4.}"}r4$JK{e,&}$J{f+,&} $J{g+,&}f+&g+&$J{a,&}g+&a &$J{b,&4}$K{a}b&<$J{c+,&8&}$J{d+,&8&}
 $I /:1$J{e,&4&}$J{f+,&}$J{g+,&2} $JK{a,&}$J{b,&}<$J{c+,&}>$J{a,&}$J{g+,&}$J{f+,&}e&f+ &$J{g+,&4}$JK{f+,&}$J{e,&8&}$J{d+,&8&}:/
  $I/:0/*上行のブレス箇所別案→*/$J{e,&4}$JK{f+,&}$J{g+,&2&} $J{a,&}$J{b,&}<$J{c+,&}>$J{a,&}$J{g+,&}$J{f+,&}e&f+ &$J{g+,&4}$JK{f+,&}$J{e,&8&}$J{d+,&8&}:/
 $I $S{"@q0@e1,0,1179,127,272,0,0","$J{c+,&2.. &4./*ten. ad lib.*/}"}r8 r1
;

/*ピアノ*/
$L{s,t}=L16%sr%trL8;
$M=<c+r>b+r;
$P_SCORE=[
 $I @v0/:o6L8g+ec+>g+ec+r$Xc+eg+rc+4/:eg+r:/>b2</:4c+eg+r:/ >a2</:c+eg+r:/c+d+f+rf+d+>br g+2./:4b<d+f+r>://:b<c+er>:/f+4/:a<c+er>:/
 $I e2/:4g+<c+er>:/d+4/:g+<c+f+r>:/d4/:g+b+<f+r>:/ c+2./:g+b<f+r>://:g+b<e+r>:/$Y>f+4$X</:a<c+er>:/$Z>>b4$Y<b4$X</:ab<d+r>:/ $Y>c+4$X<c+4/:g+<c+er>:/$Y>f+4$X<a<ef+rf+d>af+r$Y>g+2$X<e4/:g+<c+g+r>:/d+4/:g+b+<f+r>:/
 $I $Y>c+2$X<c+2/:3g+<c+er/>:/g+e$L{c+,>b}<c+rg+ec+$L{>b,a+}b</:c+eg+/r:/$L{>f++,g+} $Y>c+2$X<c+2a+4.r</:c+eg+r:/>a+<e$L{a+,g+}>c+4a+<ea+r>a+<e$L{g+,f++}>d+a+<d+g+r>ea+<c+$L{f++,f+}

 $I f++4$Y>>g+%240$X<d+4./:a+b<d+r/>:/g+2.d+>brb<d+$L{>g+,f+}g+b<d+rd+>b$L{f+,e+}f+b<d+rd+>b$L{e+,d+} $Y>g+1$X<c++%240/:4b<e+/r>:/$L{g+,f+}g+e+>brd+4b$L{<f+,e+}f+>brb$L{e+<c++e+,f+d+>d+}
 $I $Y>f+4.$X<c++4<g+4/:e+>a+r/<:/d+a+<d+f+rf+d+$L{>a+,g++}a+%240</:3d+f+r:/c+e+r c+d+rd+c+$L{>a,g+}$Z>>f+2$Y<f+2$X<a4.</:4c+d+/r:/$L{>g+,f++}$Z>>e+4$Y<e+4$X<g+4.</:c+d+r:/ $Z>>>e2$Y<e2$X<b+<d+rd+>b+g+rg+<c+rc+$L{>g+$Y>g+,a+$X<a+}b4./*2*/$Y>b2.e4.r$X</:g+<c+r>:/$Y>f+$X<f+b<c+r
 $I c+>be$Y>g+rf+$X<f+b<c+r$Z>>>e2$Y<e2$X<g+b<c+rc+>b$L{g,f+}g4./:3<c+>b/r:/$Z>>d+4$Y<d+4r$X<a+<c+$L{>f+,e+} $Z>>d2$Y<d2$X<f+4.a+<c+rc+>a+/*f+*/r/*f+*/brb$L{f+$Y>f+,g+$X<g+}$Y>d2a2$X<a2r/:3f+br:/ $Y>d4$X</:e+g+br:/$Y>c+4$X</:eg+br:/e4.f++4.a+c+r$Y>b$X<br<c+$Y>>a+ra$X<f++<c+$L{d+,e}
 $I f+.>b+f+$Y>g+r$X<c+e$L{a<e,f++>a+}c++e+b$L{<e+g+,a+}>d+<c+d+f++r / g+4.d+4.>b4./:4g+/r:/4<b+$L{g+<eg+,f+d+>f+}eg+b<eg+r>>g+4<a+$L{f+<d+f+,ec+>e}<f+>a4f+$L{d<d,c+>d+}>g+<g+b+$L{e<e,f+d+>d+} :/ g+2d+>bg+4.rb<d+rd+4>b4r$L{f+,g+}a2r/:3b+</d+f+r>:/$L{d+f+,eg+}

 $I /:a4.f+d+>b+$Z>>g+r$Y<g+4$X<d+4/:b+<d+f+r>:/b+$L{a<f+a,g+e>g+}ab+<f+ar>b+a$L{g+<eg+,f+d+>f+}g+ab+<eg+r>b+a$L{f+<d+f+,g+e>g+} a4.b+<d+f+a4.rf+d+>b+$Z>>g+r$Y<g+4$X<d+4b+<d+f+r>b+$L{<d+f+,eg+}a4.f+4.$Y>>f+2$X<c+2/:4a<c+/r>:/$L{eg+,f+} g+4.$Z>>>b2$Y<b2$X</:4ab</d+r>:/$L{f+,e}f+4.$Y>>g+2$X<d+4/:3g+b/r:/+erf+g+b+$L{<e,d+}
 $I $Y>>c+4.$X<e4.<e4./:3c+>g+r<:/eg+$L{c+<c+,>b>b}<c+eg+<c+r>eg+$L{b>b,a+<a+}bg+e>br<c+e$L{f++>f++,g+<g+} >c+4.f++4.<a+4./:3f++e>a+/r<:/$Y>c+4r$X<<eg+$L{c+<c+,>b>b}<c+eg+<c+r>eg+$L{b>b,a+<a+}bg+e>br<c+e$L{f++>f++,g+<g+}
 $I >c+4.f++4.<a+4./:3f++e>a+/r<:/$Y>c+4r$X<<eg$L{a>a,g+<g+}>c+4.a4.<a4.ge/:rge>a/<:/$Y>c+4r$X<<c+e$L{g+>g+,f++<f++} >c+4g+<c+eg+rc+$L{e>e,f+<f+}$Y>>b4$X<<g%240/:3ec+>g/r<:/$Y>a4.r$X</:g<c+er>:/g$L{a$Y>a,b$X<b}
 $I <c+>a4.f+4.c+$Y>d2r$L{b+$X<b+,b$Y>b}b+$X<b+rf+$L{g+$Y>g+,a$X<a}$Y>d+2b%120$X<b%120/:3f+g+/r:/$L{,b+$Y>b+}$X<f+g+$L{c+<c+,c++>c++} $Y>c2$X<d+g+4.b+4.<d+r$L{d>d,c+<c+}d>drg+$L{b$Y>b,b+$X<b+}$Y>e+4$X<c+4g+b<c+4r>bg+rb+af+$Y>b+4d+rd$X<f+$L{g+,a} bg+e+c+4$Y>c+4r$X<e+$L{a,g+}a4.$Y>f+4$Z>f+4$X<</:c+f+r:/c+4rf+araf+d+rea<c+$L{e,d+}

 $I e>b+ag+$Y>f+2.r$X<f+ab+$L{<d,d+}e4.>e2/:4a<c+/r>:/$L{d+,e}f+c+>ad+rab+$L{d<e,f+>d+} / /*←タイ長が変化する為*/$Y>g+1$X<eg+<c+g+2rf+c+>af+rf++a+<c+erf+d+>b+g+2r c+4.</:3c+er:/$L{>f+,g+}a2r/:3b+</d+f+r>:/$L{d+f+,eg+}:/ /*タイ長変化後→*/$Y>g+2.$X<eg+<c+g+2rf+c+>af+rf++a+<c+erf+d+>b+g+4r
 $I c+</:4c+e/r:/g+$L{<e,d+}e4.>>b2</:4c+eg+/r:/$L{<c+,d+} e>>a2</:c+eg+/r:/$L{<d+,c+}d+>f+d+c+r>b<d+f+$L{b,<c+} d+%240>>g+2./:4b<d+f+r>://:a<c+e/r>:/$L{<c+,>b}<c+>>f+4/:a<c+d+/r>:/$L{a,b}
 $I <c+%240>>e2/:4g+<c+er>:/d+4/:g+<c+f+/r>:/$L{b,a}g+.>b+f+d4rf+b+$L{,<f+} g+.>c+2/:g+b<f+/r>:/$L{,a}g+%120/:e+c+>br/<:/$Y>f+4$X<c+4a<c+e$L{,a}>a<c+e$L{<c+,e}f+>a$Y>>b4r%4$X<f+%44r%4<d+%40r%40<g+>a$L{>a<c+,d+} >c+4g+4<e4g+<c+e4.rc+>g+r>f+<f+ar<d>af+$L{>e,f+}g+2<eg+<c+4r>g+erd+f+@q0L32b+rL48$ML64$ML96$M$Xd+8f+8@q0$ML128$M$ML192$ML32a+rb+r
 $I $XL8<c+4.>ec+$L{>a,g+}<f+d+$L{>a,b}<g+e$L{c+,d}c+e+$L{a<c+,>bg+>b}a<c+ea<c+r>>b4<d+$L{g+b,af+>a}<bd$L{g>g,g+<f+}c+e+$L{a>a,g+<g+b} <c+1.>af+c+2$L{>f+,d+}<af+$L{>e,f+}<g+e$L{>g+,a}<f+d+>g+r c+.<c+erg+e$L{,>g+}<c+2./:eg+rL8eg+r/eg+rL4:/
];

t999999$SKIPt42;/*テンポ変更非推奨*/

/*アー*/
$BREATH=12;
$_VOICE{s}=%s@3@w25@e1,10,0,127,$BREATH@e2,10,0,127,$BREATH@f1,40,40,0@'a'@x90q16@q4@u2,40@L0;
$VOICE=$_VOICE{@d1@v30};
$VOICE$V_SCORE;
$VOICE=$_VOICE{@d7@v10/:$DEBUG@v0:/};
/:$REVERB r48$VOICE$V_SCORE:/;
$VOICE=$_VOICE{@d13@v5/:$DEBUG@v0:/};
/:$REVERB r24$VOICE$V_SCORE:/;

/*ピアノ*/
$PF{s,t,u}=@14-%s@v%t/:$REVERB@v%u:/q16@q0/:$DEBUG@1-0@e1,1,0,127,1@e2,0,0,127,1@f1,0,90,50@v13q16@q1:/;
$_X=$PF{0,102,89};/*o4以上*/
$_Y=$PF{1,102,89};/*o3*/
$_Z=$PF{2,103,90};/*o2以下*/
$X=$_X;$Y=$_Y;$Z=$_Z;
/:$REVERB@p44://:$DEBUG@p64:/@d1$P_SCORE;
$X=/:$DEBUG@x0:/$_X;$Y=/:$DEBUG@x0:/$_Y;$Z=/:$DEBUG@x0:/$_Z;
/:$REVERB@p84@d2$P_SCORE;:/;
$H=@0-0@v31/:$DEBUG@v0:/;$X=$H;$Y=$H;$Z=$H;
/:$REVERB @p024 @d3 /: @x16 q8 @e1,5,0,127,240 @ns00 $P_SCORE; / @p104 @d2 :/ :/;
/:$REVERB @p004 @d4 /: @x02 q8 @e1,5,0,127,260 @ns12 $P_SCORE; / @p124 @d3 :/ :/;

#OPN@0 { 2  5
/*      AL FB
 AR DR SR RR SL TL KS ML DT1 AME */
 31 12  1 20 12 40  1  1   0   0
 31  0  0  0  0 40  0 12   0   0
 31 12  1 20 12 40  1  3   0   0
 24  6  4 22 20  0  2  1   0   0
}
#OPN@1 { 2  5
/*      AL FB
 AR DR SR RR SL TL KS ML DT1 AME */
 31 12  1 20 12 38  1  1   0   0
 31  0  0  0  0 38  0 12   0   0
 31 12  1 20 12 38  1  3   0   0
 24  6  4 21 20  0  2  1   0   0
}
#OPN@2 { 2  5
/*      AL FB
 AR DR SR RR SL TL KS ML DT1 AME */
 31 12  1 20 12 36  1  1   0   0
 31  0  0  0  0 36  0 12   0   0
 31 12  1 20 12 36  1  3   0   0
 24  6  4 18 20  0  2  1   0   0
}
#FMGAIN 110
#USING POLY 64 force