#TITLE 【東方幻想的音楽】永遠の巫女 (定義なし@10,@13,@14)
#ARTIST ZUN
 /* (C)2000 ZUN */
#CODING Rikumaru

#OCTAVE REVERSE
#VELOCITY REVERSE
#USING POLY 8
#FMGAIN -55

/* Section */
$intro  = 1 r2; /*Ebmin, Time: 4/4*/
$preve  = 1; /*Time: 3/4*/
$verse  = 1; /*Time: 4/4*/
$break  = 1;
$precho = 1;
$chorus = 1;
$intro2 = 1;
$preve2 = 1; /*Time: 3/4*/
$outro  = 1 NS1; /*Emin, Time: 4/4*/
 /*Rest*/
$intro_  = /:$intro r2/:8r1:/:/;
$preve_  = /:$preve /:16r2.:/:/;
$verse_  = /:$verse /:16r1:/:/;
$break_  = /:$break /:4r1:/:/;
$precho_ = /:$precho /:16r1:/:/;
$chorus_ = /:$chorus /:16r1:/:/;
$intro2_ = /:$intro2 /:16r1:/:/;
$preve2_ = /:$preve2 /:16r2.:/:/;
$outro_  = /:$outro /:32r2.:/:/;

/* Inst. Def. */
 /*PC#001: Piano 1*/
$gm1 = @14 @F-2,100,63,50@E2,0,1,0,0;
 /*PC#004: Honky-tonk*/
$gm4A = @14 @F-2, 90,60,40@E2,0,3,0,0;
$gm4B = @14 @F-2,110,95,90@E2,0,6,0,0;
 /*PC#034: Fingered Bs.*/
$gm34 = @10@F1,120,105,60@E2,24,12,70,0 @E1,0,6,70,48,10,0;
 /*PC#049: Strings*/
$gm49 = @13@F1,100,92,40@E2,0,0,0,0 @E1,24,0,108,18,90,24;
 /*PC#081: Square Wave*/
$gm81 = @13@E1,4,12,90,16 @F1,120,120,10@E2,0,16,40,0;

/* Inst. Part */
$lev{level,pan} = @L%level,1,10-1,0,0,1 @P%pan @r4,0;
$cmn{level,pan} = $lev{%level,%pan}@pl8Q16;
$a02A = 1 $gm4A  $cmn{ 65, 58}         ;
$a02B = 1 $gm4B  $cmn{ 65, 58} @D-6    ;
$a02a = 1 $gm4A  $cmn{ 90, 70} @D-10r%4;
$a02b = 1 $gm4B  $cmn{ 90, 70} @D-16r%4;
$a03  = 1 $gm1   $cmn{ 87, 32} @D3;
$a04  = 1 $gm1   $cmn{ 91,112}          ;
$a04d = 1 $gm1   $cmn{121,112} @D-12r32.;
$a05C = 1 $gm49  $cmn{ 59, 50} @D-1198@'i';
$a05L = 1 $gm49  $cmn{ 59,  0} @D+10      ;
$a05R = 1 $gm49  $cmn{ 59,100} @D-6       ;
$a06  = 1 $gm34  $cmn{ 67, 50};
$a07A = 1 $gm4A  $cmn{ 77, 48} @D+1    ;
$a07B = 1 $gm4B  $cmn{ 77, 48} @D-5    ;
$a07a = 1 $gm4A  $cmn{ 97, 80} @D-9 r%4;
$a07b = 1 $gm4B  $cmn{ 97, 80} @D-15r%4;
$a08  = 1 $gm1   $cmn{104,112} @D8r8.;
$a09L = 1 $gm81  $cmn{ 54, 32} @D+2;
$a09R = 1 $gm81  $cmn{ 54, 96} @D-2;

/* Drum Def. */
$b = o6c%1&o5c*o0c%23;
$s = o7c*o6c;
$h = @E1,0,8,0,2e-;
$o = @E1,0,30,40,72,2,12e-;
$c{l} = o6e-%12&o5c-%%l;
$t = o6e-%1&o5e-*o3e-%23;
$l = $lev{74,34}NS-07$t;
$m = $lev{55,58}NS 00$t;
$n = $lev{66,82}NS 07$t;

/* Drum Part */
$drcmn{level,pan} = $cmn{%level,%pan}@pl1 @X115l16;
$bd          = 1 $drcmn{48,64} @10@F1,120,10,108@E2,0,30,30,4 @E1,0,24,0,6;
$tom         = 1 $drcmn{48,64} @13@F-1,100,8,105@E2,0,30,30,4 @E1,0,36,0,6;
$snr_m{mode} = 1 $drcmn{48,64}@o%mode,1@r0,0 @13 @E1,0,24,0,12;
$snr_c{sens} = 1 $drcmn{48,64}@i%sens,1      @13 @E1,0,32,0,18;
$hat_m{mode} = 1 $drcmn{67,84}@o%mode,2@r0,0 @13 @E1,0, 0,127,0;
$hat_c{sens} = 1 $drcmn{67,84}@i%sens,2      @13@F1,120,124,60@E2,0,0,0,0;
$cym_m{mode} = 1 $drcmn{67,84}@o%mode,3@r0,0 @13 @E1,0,0,127,0;
$cym_c{sens} = 1 $drcmn{67,84}@i%sens,3      @13@F1,120,124,60@E2,0,0,0,0 @E1,0,0,144,2,120,48,60,144,2,18;

/* Tempo */
T132
;

/* Ring Modulator */
$fade = @r5,0;
@5@W8@o1,0Q16@q0 X1 @E1,0,0,127,0@V116
/:$intro c2&/:8c1/&:/:/
/:$preve /:16c2./&:/:/
/:$verse /:16c1/&:/:/
/:$break /:4c1/&:/:/
/:$precho /:16c1/&:/:/
/:$chorus /:16c1/&:/:/
/:$intro2 /:16c1/&:/:/
/:$preve2 /:16c2./&:/:/
/:$outro /:8c2./&:/ @E1,0,4156,0,0@V100/:24c2./&:/:/
;;


$a02in = @V99o4l1 /:@q1[c-g-][d-a-]/[e-b-][g-2.>e-2.<]@q0[f4>d-4<]:/[e-&1b-&1];
$a02pv{fade} = l2.@q1/:/:[<e-b->g-]://:[<c-g->e-]:/:/ l8.@q0%fade/:/:8[<e-b->g-]:///:8[<c-g->e-]:/:/;
$a02pvP = l8/:12[<c->e-]:/;
$a02ouP = /:8[<c-g->e-]:/;
$a02all = @X113
    /:$intro r2$a02in:/
    /:$preve @V122o5 $a02pv{}$a02pvP:/
    /:$verse @V122 o5 l8
    /:4<[c-.g-.]>[e-.g-.][c-e-]<[e-.>c-.]<[c-.g-.]>[c-g-]<[d-.a-.]>[f.a-.][d-f]<[f.>d-.]<[d-.f.][fa-]
    [e-.b-.]>[e-.g-.][g-b-][b-.>e-.]<[g-.b-.][e-g-]<[e-.b-.]>[e-.g-.][g-b-]<[d-.a-.]>[d-.f.][fa-]:/
    :/
    /:$break o6l16@q0 /:r4.@V115g-@V113a-@V110b-@V106<b-@V103>g-@V99a-@V95b-@V90<b-@V85>g-@V80a-/r1:/@V115[<b-4.>d4.g-4.]r4.e-8f8:/
    /:$precho o6 l8@q0
    /:@V115r[e-g-][fa-][g-b-][<b-2>e-2]r[e-g-][a->d-<][b->e-<][<b-2>e-2]
    [f2a-2]@V120[a-4>d-4<][a-4>d4][df][<a->d]<[fa-][e-g-]/[df][<b->e-][<a-4>d4]:/[d4f4][f>c-<][fa-]
    /:/:3/:[e-g-][<b->e-]<[g-b-]>://[e-g-]<[g-b-]>:/[df]<[fa-]/>[df]<[fa-]>[fa-][df][a->d<][fa-][df]<[fa-]>:/[a-4.>d4.][d4.f4.][c-e-][<b->d]
    :/
    /:$chorus @V124 o4
    l1@q1/:[e-g-b-][d-fa-][c-e-g-][d-fa-]:/ l8@q0/:/:4[e-b-][b->g-<]://:4[d-a-][a->f<]://:4[c-g-][g->e-<]://:4[d-a-][a->f<]:/:/
    :/
    /:$intro2 $a02in l4/:[@q0c-1g-.r.@q8g-.&4>e-.&4<][@q0d-1a-.r.@q8a-.&4>f.&4<][@q0e-1b-.r.@q8b-.&4>g-.&4<]@q1[e-1b-1]:/:/
    /:$preve2 @V122o5 $a02pv{}$a02pvP:/
    /:$outro @V122o5 /:$a02pv{$fade}$a02ouP:/:/
;
/:$a02A $a02all:/;
/:$a02B $a02all:/;
/:$a02a $a02all:/;
/:$a02b $a02all:/;

$alt{n} = [<%n>%n];
$a03inA = /:o3@q1e->c-g->e-<d-<a->a->f <e->e-g->e-/@q0g-%71r%57<b-%120r%16g-%71r%49:/;
$a03inB = @q1/:>e->c-g-<<f>f>d-a- <b->fb->@q0f8/r%64f%71r%57<a-%71r%73[f%120 r4o3@q1g-]:/;
$a04in = l8 [<b-2>g-2]/:[<b->g-][<a->f][<f>d-]</[e-b-][a-2>e-2]:/[g->e-] <@q1[e-1b-1]@q0[g-2>e-2][<g-4>e-4][<a-4>f4]
         [<b-2>g-2][<b->g-][<a->f][<g->e-][<f>d-][<g-2>e-2][<b->g-][<a->f][<f>d-];
$a03pv = @V123l16@q0 /:g-g->e-fg-<b->f<a->/e-<g-fd-:/g-fe-<b-;
$a03ve = $a04in[<g-&1.>e-&1.][e-4g-4][f4a-4]
         /:[g-2b-2]/:[g-b-][fa-]/[e-g-][d-f][e-2g-2]:/[d-f]/[e-g-] @q1[<b-1>e-1]@q0[g-2b-2][e-4g-4][f4a-4]:/@q1[<b-&1&1>g-&1&1];
$a03br = o6l1 @q1[@V115<g-b->@V124g-][@V115<a->f@V124a-][@V115<d-f>@V124f]@q0[<b-4.>d4.b-4.]/:[e-8g-8]:/[f8a-8][g-4b-4];
$a03pc{expr} = @V124o6l4@q0 /:/:3[<b-.>e-.][e-g-][f8a-8]/[g-b-]:/[df][d.f.][e-.g-.]/[f8a-8][g-8b-8]:/[g->c-<]
                      /:/:3[e-.g-.][g-.b-.]/[e-g-]:/[df][d.f.]/[e-.g-.][f8a-8][g-8b-8]:/[a-.>c-.<]@X%expr[g-8b-8][f8a-8]; 
$a03co = @V124o6l4@q0
         /:$alt{f.}$alt{g-.}$alt{a-}$alt{f}$alt{g-8}$alt{f}$alt{e-8}$alt{d-} $alt{e-.}$alt{b-.}$alt{e-}$alt{e-.}$alt{b-8&2}
           $alt{f.}$alt{g-.}$alt{a-}$alt{f}$alt{g-8}$alt{a-}$alt{>d-8<}$alt{a-} $alt{g-.}$alt{f.}$alt{e-}$alt{f}$alt{g-8}/$alt{a-8&2}:/
;
/:$a03 @X115
/:$intro @X115@V111l4 r2$a03inA@V99[<e-1b-1>g-1]:/
/:$preve o4/:4$a03pv:/o5/:4$a03pv:/:/
/:$verse @V124o6 $a03ve:/
/:$break $a03br:/
/:$precho $a03pc{115}:/
/:$chorus $a03co$alt{a-8&2}:/
/:$intro2 @V111l4 /:$a03inA/<<e->e-g->e-:/@V99[<e-1b-1>g-1]:/
/:$preve2 o4/:4$a03pv:/o5/:4$a03pv:/:/
/:$outro @X120 /:o3/:4$a03pv:/o4$fade/:4$a03pv:/:/:/
:/;
/:$a03 @X115
/:$intro @V111o3l4r8 r2@q1g-$a03inBr1:/
$preve_ $verse_ $break_ $precho_ $chorus_
/:$intro2 @V111o3l4r8 @q1g-/:$a03inB/r8<<b->fb->f8 <<r8o3@q1g-:/r1:/
$preve2_ $outro_
:/;

$a04pv = @V124o5l16 /:8b-b->g-f8.<a-8.g-8f8b-b->g-fr<b-r>b-a-g-f<:/;
$a04all{e1,e2,e3} = @X%e1
    /:$intro @V105 o6  @q0[<g-4>e-4][<a-4>f4]
    $a04in@q1[<g-&1&1>e-&1&1]
    :/
    /:$preve $a04pv:/
    /:$verse @V124o6 $a03ve:/
    /:$break $a03br:/
    /:$precho $a03pc{%e2}:/
    /:$chorus $a03co$alt{a-8}@V105o6@q0[<g->e-][<a->f]:/
    /:$intro2 @V105 o6
    /:$a04in@q1/[<g-&1.>e-&1.]@q0[<g-4>e-4][<a-4>f4]:/[<g-&1&1>e-&1&1]
    :/
    /:$preve2 @X%e3 $a04pv:/
    $outro_
;
/:$a04  $a04all{124,124,124}:/;
/:$a04d $a04all{124,124,124}:/;

$a05pv = @V80o5l16 /:<e-8>e-g-<b-8>g-b-<g-8>e-g-<e-8>d-f<e-8>e-g-<g-8>g-b- /:<c-8>c-e-/<e-8>e-g-:/<g-8>e-g-<c-8>c-e-<e-8>e-g-:/;
$a05co = [g-&1b-&1<e-b-> r<d-a->];
$a05all = @X120
    $intro_
    /:$preve /:$a05pv:/:/
    /:$verse @V90 o3 l1
    /:4@q1[c-g-][d-a-][e-b-]@q0[e-2b-2][d-2a-2]:/
    :/
    /:$break o5l1 @V90@q1[<e-b->g-][<fa->a-][<d-f>f][@V100<d>@q0<b-4.>b-4. r2.@V90<a-4>f4]:/
    /:$precho l1 o4@V100@q1/:4[e-b-][c-g-][d-a-]/[<b->f]:/[<b-2.>f2.]@V95o6@q0[<f4a-4>f4a-4]:/
    /:$chorus @V95o6l1@q0
    [<e-b->g-b-][<d-a->g-b-]/:[<c-g->b->e-<][<d-2a-2>d-2f2][<d-4a-4>e-4g-4][<d-4a-4>f4a-4]$a05co[<c-g->c-e-]/[<d-a->d-f] $a05co:/[<d-2a-2>d-2f2]r2
    :/
     $intro2_
    /:$preve2 /:$a05pv:/:/
    /:$outro $a05pv$fade/:3$a05pv:/:/
;
/:$a05C $a05all:/;
/:$a05L $a05all:/;
/:$a05R $a05all:/;

$a06all = @X120
    $intro_ $preve_ $verse_
    /:$break @V110o4l8 /:3r1:/r4.dfa->d<f:/
    /:$precho @V110o5l8 /:4/:<e->e-<g->e-<b->e-<g->e-:/<f>f<a->fd-f<a->f<d>d<f>d<a->d<f>d:/:/
    /:$chorus @V125o4l8 /:7r1:/r2.d-a- /:/:4e-b-://:4d-a-://:4c-g-:/d-a-d-a-/d-a-d-a-:/@V50e-4f4:/
     $intro2_ $preve2_ $outro_
;
/:$a06 $a06all:/;

/:$a07A $a04all{100,120,110}:/;
/:$a07B $a04all{100,120,110}:/;
/:$a07a $a04all{100,120,110}:/;
/:$a07b $a04all{100,120,110}:/;

$a08inA = /:o3Q8@q1e->c-g->e-<d-<a->a->f <e->e-g->e-/Q16@q0r3<b-8.r16r4r6:/;
$a08inB = /:>e->c-g-<<f>f>d-a- <b->fb->Q16f8/@q20g-6f6r6<@q24a-8.g-8.@q0f8. r16o3Q8@q1g-:/;
/:$a08 @X115
/:$intro @V111l4 r2$a08inA@V99Q16[<e-1b-1>g-1]:/
/:$preve o4/:4$a03pv:/o5/:4$a03pv:/:/
/:$verse @V124o6 $a03ve:/
/:$break $a03br:/
/:$precho $a03pc{115}:/
/:$chorus @V124o6l4@q0 /:f.g-.a-fg-8fe-8d- e-.b-.e-e-.b-8&2 f.g-.a-fg-8a->d-8<a- g-.f.e-fg-8a-8&2:/:/
/:$intro2 @V111l4 /:$a08inA/<<e->e-g->e->:/@V99Q16[<e-1b-1>g-1]:/
/:$preve2 o4/:4$a03pv:/o5/:4$a03pv:/:/
/:$outro @X120 /:o3/:4$a03pv:/o4$fade/:4$a03pv:/:/:/
:/;
/:$a08 @X115
/:$intro @V111o3l4r2 r8Q8@q1g-$a08inBr1:/
$preve_ $verse_ $break_ $precho_ $chorus_
/:$intro2 @V111o3l4 r8Q8@q1g-/:$a08inB/Q8r8<<b->fb->f o3@q1g-:/r1:/
$preve2_ $outro_
:/;

$a09all = @X119
    $intro_
    /:$preve @V115o4 $a02pv{}$a02pvP:/
    $verse_ $break_ $precho_ $chorus_ $intro2_
    /:$preve2 @V115o4 $a02pv{}$a02pvP:/
    /:$outro @V122o4 /:$a02pv{$fade}$a02ouP:/:/
;
/:$a09L $a09all:/;
/:$a09R $a09all:/;

/* A10 */
$bdpv = @V92 /:4/:4r$b$b://:3$b$br8:/:/ /:24$b$br8:/;
/:$bd
/:$intro r2/:7r1:/r2..@V92$b$b:/
/:$preve $bdpv:/
/:$verse @V92 /:64$br8.:/:/
/:$break @V106 r1r1r1./:$br8.:/:/
/:$precho @V106/:62$br8.://:$b)14$b$b$b(14:/:/
/:$chorus @V106/:4$brr4(98$brr4$br8.)98://:4$brr4(14$brr4$br8./)14:/ /:31$br8.:/r4:/
/:$intro2 /:15r1:/r2..@V92$b$b:/
/:$preve2 $bdpv:/
/:$outro /:24$b$br8:/$fade/:72$b$br8:/:/
:/;

/:$tom
$intro_
/:$preve /:15r2.:/@V106r8$m$m$n$n$n$n$m$m$l$l:/
$verse_ $break_
/:$precho /:15r1:/r2@V106$n$nr$m$mr$lr:/
/:$chorus /:@V78r4$n$nr2$nrr2r8$n$nr4@V64r8$nrr4/:4$nr:/)14$mr$mr$n$nr/rr2:/)28$n$n$n$n$m$m$m$l$l /:8r1:/:/
$intro2_
/:$preve2 /:15r2.:/@V106r8$m$m$n$n$n$n$m$m$l$l:/
$outro_
:/;

$snpvA = @V106 /:3/:4%sr8://:3r8%sr:/://:3%sr8:/%s@V22/:7%s%s)14:/;
$snpvB = @V106 /:18r8%sr:/@V8/:8%s%s)14://:8%s:/;
$snrco{v,w} = @V%v%s%s@V106%s@V%w%s;
$snrall{s} =
    $intro_
    /:$preve $snpvA$snpvB:/
    /:$verse @V106 /:/:16r8%s/r:/%s /:14r8%sr:///:r8%sr:/://:5%s:/r%s%s:/
    /:$break @V92/:3%sr2...:/)28%sr4..r4.(14%sr:/
    /:$precho /:7r1:/r2/:15r4.%sr:/r8/:7%sr:/:/
    /:$chorus @V92 /:7r1:/r2/:r8%sr:/ /:24r8%sr:/$snrco{8,22}$snrco{36,50}$snrco{64,78}$snrco{92,106})14/:9%s:/r8.(28%sr8.:/
    $intro2_
    /:$preve2 $snpvA$snpvB:/
    /:$outro $snpvB$fade/:3$snpvB:/:/
;
/:$snr_m{2}NS12@D-2 $snrall{$s}:/;
/:$snr_m{2}NS07@D+2 $snrall{$s}:/;
/:$snr_c{6}NS00     $snrall{$b}:/;
/:$snr_c{0}NS12     $snrall{$b}:/;

$hatpv = @V92 /:4/:3%o8.:/%o8)14%h(14/:3%h%h%o8:/:/ /:18%h%h%o8://:6)14%h%h(14%o8:/;
$hatall{h,o} = o6
    /:$intro @V92 r2/:7r1:/%o1:/
    /:$preve $hatpv:/
    /:$verse @V92 /:16%h%h)14%o8(14%h%h)28%o(28%h/:%h%h)14%o8(14:/:/:/
    /:$break @V120 /:3%o2..(14%h%h)14:/%o2&8(14%hr8.%h%h:/
    /:$precho @V106 /:32r8%hr://:16r8%hr%h%hr8:/:/
    /:$chorus @V106 /:8/:r4%h%h:/r8%hr:/(14/:8%h%h%o8%h%h%o%h//:%h%h%o8:/:/%hrr4%h%h:/
    /:$intro2 @V92 /:15r1:/%o1:/
    /:$preve2 $hatpv:/
    /:$outro @V92 /:24%h%h%o8:/$fade/:72%h%h%o8:/:/
;
/:$hat_m{2}NS32 $hatall{e-,e-}:/;
/:$hat_m{2}NS23 $hatall{e-,e-}:/;
/:$hat_c{6}NS00 $hatall{"$h","$o"}:/;

$cymall =
    $intro_
    /:$preve @V78 /:14r2.:/$c{564}:/
    /:$verse /:4@V120$c{372}@V50/:3$c{372}:/:/:/
    /:$break @V120/:4$c{372}:/:/
    /:$precho @V120 /:15r1:/r2/:4$c{36}:/:/
    /:$chorus @V106 /:8$c{372}:/)14/:7$c{372}://:3$c{84}:/r4:/
    $intro2_
    /:$preve2 @V78 /:14r2.:/$c{564}:/
    $outro_
;
/:$cym_m{2}NS32 $cymall:/;
/:$cym_m{2}NS23 $cymall:/;
/:$cym_m{2}NS06 $cymall:/;
/:$cym_c{8}NS00 $cymall:/;
;;


/* 平板波形(@L用) */
#WAV10 1,0

/* 備忘録-1 (音量調整) */
 /* - なるべくMIDIでの数値関係を崩さないことを目標にしています*/
 /* - @14はX2仕様の音量変化しかできない(OPMのTLの仕様上)ので、@10,@13と絡ませるなら@Vなどの値には変換をかけた方が良いです*/
 /*[このピコでの変換式]*/
  /*@V = 127 + floor(32 * log_2((MIDI Vel.) / 127)) [@14]*/
  /*@V = (MIDI Vel.)                                [@10,@13]*/
  /*@X = (MIDI Expr.) [全て共通]*/
  /*@Ldepth = 127 - ((MIDI Level) / (1 + |MIDI Pan| / 63)) / 2   [@14]
  /*@Ldepth = 127 - ((MIDI Level) / (1 + |MIDI Pan| / 63)) / 1.5 [@10,13]*/
   /*(MIDI Pan)は-63で最左、0で中央、63で最右*/

/* 備忘録-2 (@14のデフォルトパラメータ) */
 /*(flmml-on-html5/src/flmml/MOscOPM.ts line58-65)*/
 /* #OPM@0{
     4 5
     31 05 00 00 00 023 1 01 3 0 0
     20 10 03 07 08 000 1 01 3 0 0
     31 03 00 00 00 025 1 01 7 0 0
     31 12 03 07 10 002 1 01 7 0 0 
    }
 */
 
/* 備忘録-3 (フェードに@rを使おうとして困ったこと)*/
 /*2107(OffGao氏による@rのサンプル)を参考にしたとき、以下のようなことに躓きました*/
 /* - @5で@W8が指定できない
    ...`#USING POLY`の`force`を外すと直りました*/
 /* - @o,@rに0番以外のパイプを指定すると上手くいかない
    ...ドラムに0~2番、フェードに3番を割り当てたときは正常動作しませんでした*/