/*
　　▼Title　雪の華
　　▼by　レッド
*/
#USING POLY 16 FORCE
#FMGAIN 127

$patch_base{p,d,v,r}=@14-0 @p%p q16 @q1 @d%d @v%v r%%r;
$patch_1=$patch_base{32,5,100,2};
$patch_2=$patch_base{48,-2,110,0};
$patch_3=$patch_base{80,2,110,1};
$patch_4=$patch_base{96,-5,100,3};
$no_skip=1;

$phrase_1=o6l8g+a+ ba+ba+16b.a+g+f+ g+<d+16d+16&4>a+b16a+.f+16g+16& 4.<c+16>a+16&4.g+16f+16
g+4.ba+2& a+2./:$no_skip t73:/>g+l16a+b& b2.d+8f+f+& f+e8e&2g+8ba+& 2.g+8a+b&
b4b8<e8b4./*1番*/>f+8 <d+8c+8d+8f+c+4..>f+f+ g+8bb8g+f+2b<c+ d+8c+8d+8g+f+8d+8.&8d+d+
e8d+c+8>b<d+c+4..>f+8 <d+8c+8d+8f+c+4..>f+f+ g+8bb8g+8f+4..b<c+ d+8c+8d+8g+f+8d+8.&8d+d+
e8d+c+8>bb4.r8>b<d+ e4l8g+b <f+&2ed+c+ c+>ba+b4.g+b
<f+4.l16g+f+8.ed+8c+d+8& 2.>g+8g+8 <g+4.a+8b8a+8g+8ff+& f+4.g+8a8g+8f+8e8
d+8>bb&4c+4g+8b8 <g+&4gg+a+&4d+8d+8 b8a+8b8a+b8.a+8g+8f+8
g+8<d+d+&4r>a+8b{<c+>a+g+}4 g+8f+f+&2{d+ef+}4 f+8e8e8g+f+8d+c+>b8.g+b
<f+8e8e8g+g+8.g8g+8a+8 b8a+8b8a+b8.a+8g+8f+8 g+8<d+d+&4r>a+8b{<c+>a+g+}4
g+8f+8f+8<c+>b&4{d+ef+}4 f+8e8e8f+8d+4c+8>bb& 2.d+8f+f+& f+e8e&2g+8ba+&
2.g+8a+b& 2[<e4.r64f+4&16..r64b4&16.]/*2番*/>f+8 <d+8c+8d+8f+c+4..>f+f+ g+8bb8g+f+2b<c+
d+8c+8d+8g+f+8d+8.&8d+d+ e8d+c+8>b<d+c+4..>f+8 <d+8c+8d+8f+c+4..>f+f+
g+8bb8g+8f+4..b<c+ d+8c+8d+8g+f+8d+8.&8d+d+ e8d+c+8>bb4.l8b<d+
ed+>g+b <f+&2ed+c+ c+>ba+b4.g+b <f+4.l16g+f+8.ed+8c+d+8&
d+2.>g+8g+8 <g+4.a+8b8a+8g+8ff+& f+4.g+8a8g+8f+8e8 d+8>bb&2g+8b8
<g+&4gg+a+&4d+8d+8 b8a+8b8a+b8.a+8g+8f+8 g+8<d+d+&4r>a+8b{<c+>a+g+}4
g+8f+f+&2{d+ef+}4 f+8e8e8g+f+8d+c+>b8.g+b <f+8e8e8g+g+8.g8g+8a+8
b8a+8b8a+b8.a+8g+8f+8 g+8<d+d+&4r>a+8b{<c+>a+g+}4 g+8f+8f+8<c+>b&4{d+ef+}4
f+8e8e8f+8d+4c+8>bb& bf+b<c+d+>f+b<c+d+8.e8.f+8 /*間奏*/g+8g+8g+8ba+8.b<c+8.>a+f+&
8f+8d+8f+g+&4.d+8 e8d+8>b8<c+d+8.d+8c+8>b8 <c+8>b<c+8f+d+4.>b8b8
<g+8g+g+8.b8a+8b<c+8.>a+8 f+8f+<c+8>a+b4.g+8a+8 b8bb8a+b4g+8a+8b8
[b4.f+4.>b4.][<c+f+<c+][c+&2>c+&2f+&2] d+fgg+{a+g+a+b<c+d+}4e2.>d+8d+8 b8a+8b8a+b8.a+8g+8f+8
g+8<d+d+&4r>a+8b{<c+>a+g+}4 g+8f+f+&2{d+ef+}4 f+8e8e8g+f+8d+c+>b8.g+b
<f+8e8e8g+g+8.g8g+8a+8 /*ラスサビ*/b8a+8b8a+b8.a+8g+8f+8 g+8<d+d+&4r>a+8b{<c+>a+g+}4
g+8f+f+&2{d+ef+}4 f+8e8e8g+f+8d+c+>b8.g+b <f+8e8e8g+g+8.g8g+8a+8t73/*降雪*/
b8a+8b8a+b8.a+8g+8f+8 g+8<d+d+&4r>a+8b{<c+>a+g+}4 g+8f+8f+8<c+>b&4{d+ef+}4
f+8e8e8g+f+8>bb4g+b <f+8e8e8g+f+8bb4>b<c+ e8d+8e8f+d+&4c+>b<c+f+
c+<c+8.&1 o5b8a+b& 2.d+8f+f+& f+e8e&2g+8ba+& [a+2.c+2.f+2.]g+8a+b&
l8[bg+e]>b<ef+b<ef+b4. [>b2.r64<c+2&8...r64d+2&8..r64f+2&8.&64]{c+f+b}4 <c+f+4. r16[o8c+1r64f+1r64b1]
;
$phrase_2=o5l2r4 g+f+ ed+ c+d+ ef+& f+1 o3l8b<f+b<d+&2 >>b1 b<f+a+<c+&2
l2>>b<b b1 b.a+4 g+<d+ ef+ >b1 b.a+4 g+<d+ e4f+4>b l4c+d+ e.e8d+g g+.g+8f+.f+8
e.e8d+g g+.g+8f+.f+8 f.f8a+.a+8 d+.d+8g+.g+8
c+.c+8c+.c+8 d+.d+8fg g+.g+8f+.f+8
e.e8e.e8 d+.d+8g+.g+8 c+.c+8d+.d+8
e.e8a+d+ g+.g+8f+.f+8 e.e8e.e8
d+gg+f+ c+.c+8f+2 >b1 b.<g+8&2
>b2<<f+2 >b1 l8>b<f+b<d+f+2 >>b<eg+b<d+4c+4
>>g+<d+g+ba+2 [>e<e]g+b<ec+4>f+4 >b<f+b<d+f+2
>>b<g+b<ed+4c+4 >>g+<d+g+ba+2 l4ef+>b2
<c+d+ e.e8d+g g+.g+8f+.f+8 e.e8d+g
g+.g+8f+.f+8 f.f8a+.a+8 d+.d+8g+.g+8 c+.c+8c+.c+8
d+.d+8fg g+.g+8f+.f+8 e.e8e.e8
d+.d+8g+.g+8 c+.c+8d+.d+8 e.e8a+d+
g+.g+8f+.f+8 e.e8e.e8 d+gg+f+
c+.c+8f+2 >b2b8.<c+8.d+8 e.e8e.e8
d+gg+.g+8 c+.c+8f+.f+8 >b.b8<c+d+
e.e8e.e8 d+gg+.g+8 c+2<c+2
l16>>f+8.<c+f+c+f+<c+f+g+a+b<c+4 >>d+>a+<d+a+<d+>a+d+>a+d+1 l4<g+g+f+f+
eeee d+d+g+g+ c+c+d+d+
eea+d+ g+.g+8f+.f+8 e.e8e.e8
d+.d+8g+.g+8 c+.c+8d+.d+8 e.e8a+d+
[<d+2>g+.r.g+8][<d+2>f+.r.f+8] [<d+2>e.r.e8][<c+2>e.r.e8] [<c+2>d+rg][<d+2>g+rf+]
[g+2c+.r.c+8][b2d+.r.d+8] [b2e.r.e8][b2d+.r.d+8] [g+2c+2][f+2a+2r<e]
[o3f+1&4r64<<c+2.....&4] r4 o3b1 b1 b1
b1&4 [>b1r6<b12&2.] r2 o7l64r[c+1rf+1rb1]
;
$phrase_3=o6l2r4 d+d+ >ba+ g+a+ b<c+& c+1 o5l8r4.f+4>b4. g+4.f+g+4e4 <c+4.rf+4r4
g+>b[<e&2rg+2rb4.]r /:l2[bf+]a+ ed+ ba+/ g+a+:/ l4g+a+[f+d+]l16>>b<f+r8 l4g+b b2.a+ <d+2.d+
>b.b8a+<d+ b2.>b <b2<d2 >a+2<c2
>g+2e2 c+2d+a+ <d+2>d+<d+
>b2<c+2& c+2>b2 g+c+>b<f+
b2<ed+8c+8 d+2>d+<d+ >b2<c+2
>a+<d+>d+2 g+2a+2 l8r>f+b<c+d+4>b4 rg+brb2
[<c+f+]>f+a+<c+>a+2 <e4c+...b64&b2 f+2a+2 e2l4>ba+
b2<f+2 >b<g+a+c+ f+2a+2
e2>ba+ b2<f+2 g+l8a+ed+f+d+f+
l4g+>b b2.a+ <d+2.d+ >b.b8a+<d+
b2.>b <b2<d2 >a+2<c2 >g+2e2
c+2d+a+ <d+2>d+<d+ >b2<c+2&
c+2>b2 g+c+>b<f+ b2<e[>a+<d+8r8c+8]
d+2>d+<d+ >b2<c+2 >a+<d+>d+2
g+2a+2 d+2f+8.g+8.>b8 b2[<c+2a+2]
a+2b2 g+2a+2 f+2.d+
b2<c+2 c+ed+>b <ed+[e.l8r>br<c+]e
l4ra+g+a+ >a+2[>g1r64<a+2.....r64<d+2.] >d+d+d+d+
[d+b][d+b][c+b][c+b] [c+a+][c+a+][d+b][d+b] [b>g+][g+<b][f+>b][b<f+]
[g+>b][b<g+][g+<c+][>a+l8<d+rc+] >/:3l16bg+b<d+g+d+>bg+:/ a+f+a+<c+f+c+>a+f+
a+f+a+<c+f+c+>a+f+ bg+b<d+g+d+>bg+ ec+eg+<c+>g+ec+ d+>b<d+f+bf+d+>b <e>b<eg+bg+e>b <c+ega+d+ga+<c+
>/:3l16bg+b<d+g+d+>bg+:/ a+f+a+<c+f+c+>a+f+ <d+>a+<d+f+>a+<f+d+>a+ bg+b<d+g+d+>bg+
/:e>b<eg+bg+e>b <d+>b<d+f+bf+d+>b<:/ ec+eg+bg+b<ef+>c+f+a+&4
r32f+2....&4 r4 l8r>f+b<f+&2 >g+bg+[<e&2b&2] r{>f+a+<c+f+}4<c+&2
o4g+1&4 r4l12c+f+b<c+f+br4 r2<b1
;
$phrase_4=o5l16/:79r1:/ r2.b8a+8b8a+b8.a+8g+8f+8 g+8<d+d+&4r>a+8b{<c+>a+g+}4
g+8f+f+&2{d+ef+}4 f+8e8e8g+f+8d+c+>b8.g+b <f+8e8e8g+g+8.g8g+8a+8
b8a+8b8a+b8.a+8g+8f+8 g+8<d+d+&4r>a+8b{<c+>a+g+}4 g+8f+8f+8<c+>b&4{d+ef+}4
f+8e8e8g+f+8>bb4g+b <f+8e8e8g+f+8bb4>b<c+ e8d+8e8f+d+&4
;
$phrase_5=o6l2/:84r1:/ r2r8.... <g+d+ >b<c+ f+d+ >b<d+ >b<d+ ef+;
$phrase_6=o7l2/:84r1:/ r2r8....r64 <g+d+ >b<c+ f+d+ >b<d+ >b<d+ ef+;
$phrase_7=o6l2/:84r1:/ r2r8....r128 <bb g+a+ a+b g+f+ g+f+ g+a+;
$phrase_8=o6l4;

t9999 /:$no_skip t62:/;
$patch_1/:2$phrase_1/;$patch_2:/;$patch_3/:2$phrase_1/;$patch_4:/;
$patch_1/:2$phrase_2/;$patch_2:/;$patch_3/:2$phrase_2/;$patch_4:/;
$patch_1/:2$phrase_3/;$patch_2:/;$patch_3/:2$phrase_3/;$patch_4:/;
$patch_1/:2$phrase_4/;$patch_2:/;$patch_3/:2$phrase_4/;$patch_4:/;
$patch_1/:2$phrase_5/;$patch_2:/;$patch_3/:2$phrase_5/;$patch_4:/;
$patch_1/:2$phrase_6/;$patch_2:/;$patch_3/:2$phrase_6/;$patch_4:/;
$patch_1/:2$phrase_7/;$patch_2:/;$patch_3/:2$phrase_7/;$patch_4:/;
$patch_1/:2$phrase_8/;$patch_2:/;$patch_3/:2$phrase_8/;$patch_4:/;

#OPM@0 {
/* AL FB */
    6  7
/* AR DR SR RR SL TL KS ML D1 D2 AM */
   30 12  8  4  1 28  0 12  7  0  0
   30  0  9  5  0 18  0  4  7  0  0
   30  0  9  5  0 46  0  4  7  0  0
   30  0  9  6  0  8  0  1  7  0  0
/* OM */
   15
}