/* 神々が恋した幻想郷 (「東方風神録 ~ Mountain of Faith.」より) 作曲: ZUN */ $loop=4; $echoOff=; /* $echoOff=1;で軽くなります */ /* 行末の */ /*!*/ /* は、圧縮の際に消える行です。 */ /* Track On/Off */ $tTrp=1; /*!*/ $tPiano=1; /*!*/ $tFlute=1; /*!*/ $tOrgan=1; /*!*/ $tAcGt=1; /*!*/ $tCemb=1; /*!*/ $tBass=1; /*!*/ $tDrums=1; /*!*/ $tBsDr=1; /*!*/ $tSnare=1; /*!*/ $tClap=1; /*!*/ $tHiHat=1; /*!*/ $tCrash=1; /*!*/ /* Volume */ $vTrp1=360; $vTrp2=120; $vPinoA=192; $vPinoS=48; $vFlute=95; $vOrgan=42; $vAcGt=115; /* x2 */ $vCemb=108; /* x2 */ $vBassA=121; $vBassS=115; /* x1 */ $vBsDr=170; $vSnareL=285; $vSnareR=295; $vTom=175; $vClap=180; $vCHHat=295; $vOHHat=280; $vCrs1=200; $vCrs2=170; $vCrs3=140; $vCrs4=110; $vCrs5=80; $vCrs6=50; $vCrs7=20; /* Panpot */ $pTrpM=66; $pTrpME=64; $pTrpS=56; $pTrpSE=62; $pFltM=74; $pFltME=70; $pFltS=56; $pFltSE=60; $pOrgan=52; $pOrganE=76; $pAcGt=50; $pAcGtE=80; $pCemb=78; $pCembE=48; $pHiHat=44; $pCrash=84; $pSnrL=60; $pSnrR=70; $pClap=68; $pClapE=62; /* Attack */ $aTrp=4; $aFlute=2; $aBassE=1; /* Sustain */ $lBass=1200; $lCrs1=15; $lCrs2=21; $lCrs3=30; $lCrs4=42; $lCrs5=50; $lCrs6=84; $lCrsR=100; /* Release */ $rTrp=5; $rTrpF=8; $rPiano=8; $rFlute=2; $rOrgan=1; $rBass=25; $E=@e1,0,0,; $TP=@13-1$E$vTrp1,$aTrp,$vTrp2,$rTrp@f1,127,0,0@e2,$aTrp,$aTrp,115,$rTrpF@l20,48,0,48@q3q16l8; $BD=@9-0$E$vBsDr,21,0,0@p64; $SL=@9-1$E$vSnareL,24,0,0@p$pSnrL; $SR=@9-1$E$vSnareR,25,0,0@p$pSnrR; $TM=@9-2$E$vTom,24,0,0; $BL=@9-8@l8582,0,2; $BH=@9-9@l7482,0,2; $D=; $th=@p80g; $tm=@p72e; $tl=@p56c+; $h=@9-4$E$vCHHat,10,0,0e; $o=@9-5$E$vOHHat,24,0,0e; $c=@9-6$E$vCrs1,0e%27@9-7$E$vCrs1,$lCrs1,$vCrs2,$lCrs2,$vCrs3,$lCrs3,$vCrs4,$lCrs4,$vCrs5,$lCrs5,$vCrs6,$lCrs6,$vCrs7,$lCrsR,0,0e; $trpCom= d2a.g.fe2&8c>a4b4a4a.gg.f.gd2d.e.f/ f4e4d4c4d2e4.a16 ; $piano= v12l8o5[fa][fa][a] [b-4.]l16[a][b-]l8[a][fa][eg][a] [f2&8a2&8]r[fa][a] [b-4.]l16[a][b-][b-][a] [a2]rl16[a][b-]l8[a][fa] [e2g2]rl16[g][a]l8[g][eg] [d2&8f2&8>]r[b-][b-] [a1]a4b-g4 a1[a4g4a[eb][f1&8] r2l16/:a /: l8[f.][d.a.][cg][e.g.][d.f.][eg>][f2][a.][a][g][a2][a.] :/ [d.f.][e.g.][fa][f.a.][g.b.][a][a4][b4][fa][fa][a] /: [b-4.]l16[a][b-]l8[a][fa][eg][a] [f2&8a2&8]r[fa][a] [b-4.]l16[a][b-][b-][a] [a2]rl16[a][b-]l8[a][fa] [e2g2]rl16[g][a]l8[g][eg] [d2&8f2&8>]r[b-][e4.a4.]l8[ea][ea][a] :/ [d4.f4.][eg][c+4.e4.>][b-]/ [a1] v15l16 /: [b-4b-ab-d ab-cg a>b-a8g8 a8b- [d4.g4.]gd>gab-ab- l12[b-][b-][a][gb-<][dg>]/:[gb-<][df>]:/< [d4g4]l16dgab-b-ab-b-ab-b-ag:/b-agfdc>b-/ [g2..b-ab-ag> :/[g1.]a[a][b][a1]@ns-1 :/ ; $gtCom{i,c}= l16f4b-8afd8f8b-8 a4f8aa8f8a8> b-8 d4f+8a< /:%i d8gd>g:/ /:%c e>adad:/)3 l8/:4b-://:4a:/(3 ; $gtBrg=dgb-gb-c+egeg; $gtEnd=dgb-c+egl16df+aaf+d; $gtFin=dgb-c+ega; $cembCom{i,c}= l16f4b-8afd8f8b-8 a4f8aa8f8a8> b-8 d4f+8a< /:%i d8)3gd>g:/ /:%c e>adad)3:/ l8/:4gb-://:4fa:/(3 ; $bass{L,H}= r4.o2l1$%L/:[b-][a]l2[g][a]:/r2o3l16 /:$loop /:4 e-e-$%Hb-$%Le- e-$%Hgb-$%Le- e-e-$%Hb-$%Le- e-$%Hb-$%Le-e- $%Lff<$%Hc>$%Lf f$%Ha$%Lf ff<$%Hc>$%Lf f<$%Hc>$%Lff$%H/ ggg gb-g ggg ggg ggg gb-g /:$%Lf<$%Hc>:/ $%Lf$%Ha$%Lf :/ ggg gbg ggg ggg /:ggg gbg:/ /: $%Ldd$%Ha$%Ld df$%Ha$%Ld dd$%Ha$%Ld d$%Ha$%Ldd cc$%Hg$%Lc ce$%Hg$%Lc cc$%Hg$%Lc c$%Hg$%Lcc> b-b-b- b-b- b-b-b- b-b-b- b-b-b- b-b-< cc$%Hg$%Lc ce$%Hg$%Lc $%Ldd$%Ha$%Ld df$%Ha$%Ld dd$%Ha$%Ld d$%Ha$%Ldd> aaa aa aaa aaa fff faf fff fff ggg gbg aaa aa /: /:[b-8.]:/[b-.$%L /:[b-8.]:/[b-.]r32$%L/:[a8.]:/[a.]r32[a2] :/ /:[f8.]:/[f.]r32/:[g8.]:/[g.]r32 /:[a8.]:/[a.]r32aa>$%L /: /:4b-b-://:4aa://:gb-g://:aa:/ /:4b-b-://:4aa:///:4gb-g://:4aa:/ :/ /:gb-g://:aa:/$%Lf f$%Ha$%Lf ff<$%Hc>$%Lf f<$%Hc>$%Lff $%Hggg gb-g ggg ggg l12/:3g://:3$%Lf<$%Hc>:/l16$%L e-e-$%Hb-$%Le- e-$%Hgb-$%Le- e-e-$%Hb-$%Le- e-$%Hb-$%Le-e- $%Lff<$%Hc>$%Lf f$%Ha$%Lf ff<$%Hc>$%Lf f<$%Hc>$%Lff$%H/ ggg gb-g ggg ggg ggg gb-g /:$%Lf<$%Hc>:/ $%Lf$%Ha$%Lf :/ ggg gbg ggg ggg /:ggg gbg:/ @ns1 :/ /:4dfad:/>/:gb-g://:aa:/aga2&8raa g2rgf2&8/rde f2rgab-a2r :/d4e f4.ge4.d/d1@ns1 :/ d2rd4e f4.ge8&32r32g8&32r32][a][a][g] [a2&8]r[a][e][da][cg] [d2a2]rl16[ca][db-]l8[ca>][a] [g2][g] [f2&8]/r[db-][e] [f2]r[g][a][b-] [a2]r[a][a] [f4.][g][e4.][db-]/ [d1a1]@ns1 :/ [d2a2]r[d4a4][eb] [f4.][g][e8&32]r32[g8&32aga2&8raa g2rgf2&8rde f4.ge4.dd1r2v15 /:$loop g1g2f2g2.b-4a4.g4.f4 g2b-4a4g4a4b-4.b-4a4 g1g2f2g2.b-4a4.g4.f4 g4df4gd4c2d4f4 g1&1 r%31488 :/ /;@x60@p$pFltME@d-4r8:/ ; @p$pFltS/:$echoOff @9-12$E0,$aFlute,$vFlute,$rFlute@l5082,0,2@q3q16 v6l8o5ffa b-4.a16b-16afeaf2&8rfa b-4.a16b-16b-aa2ra16b-16af e2ra16b-16ged2&8>rb-b-a1r2v9 /:$loop b-1b-2a2b-1. b-1&4a4g4a4b-4.b-2a2b-1b-2a2 v12b1&1 r%31488 :/ /;@x60@p$pFltSE@d-4r8:/ :/ /*!*/ ; /:$tPiano /*!*/ /:$echoOff @9-10$E$vPinoA,$rPiano@l4982,0,2@pl4q16 $piano /;@x60@d-4r8:/ ; /:$echoOff @9-11$E$vPinoS,$rPiano@l4982,0,2@pl4q16 $piano /;@x60@d-4r8:/ :/ /*!*/ ; /:$tOrgan /*!*/ @l20,47,0,0,0,5@d2/:$echoOff @13-2$E$vOrgan,$rOrgan@pl2@q3v15q16o5 r%3408 /:$loop /: /: [d1g1][d2g2][c2f2>][b-1][b-4.[b-1..