#TITLE 妖魔夜行 (VRC6風) #ARTIST ZUN /* (C)2002 上海アリス幻樂団 */ #CODING Rikumaru $LOOP = 16; /*---General---*/ $PLSGAIN = @X125; /*2A03 パルスのゲイン*/ $MISCGAIN = @X121; /*2A03 その他(三角波・ノイズ・DPCM)のゲイン*/ $VRC6GAIN = @X127; /*VRC6 ゲイン*/ #OCTAVE REVERSE #VELOCITY REVERSE /*===Section===*/ $intro = 1; /*Emin*/ $precho = 1; $chorus = 1; /*Amin*/ /*---Channel---*/ $cmn = X1 Q16 $d+0; $A = 1 $cmn$PLSGAIN @5; $B = 1 $cmn$PLSGAIN @5; $C = 1 $cmn$MISCGAIN @6@V127@E1,0,0,127,0; $D = 1 $cmn$MISCGAIN ; $E = 1 $cmn$MISCGAIN @V127@E1,0,0,480,0 X0; $M = 1 $cmn$VRC6GAIN ; $N = 1 $cmn$VRC6GAIN ; $O = 1 $cmn$VRC6GAIN @13-0; /*===Tool===*/ /*--Detune (RPN MFT = 90)--*/ $d+6 = @D47; $d+4 = @D45; $d+2 = @D43; $d+1 = @D42; $d+0 = @D41; $d_2 = @D39; $d_4 = @D37; /*--Velocity (Drums)--*/ $v20 = v15; $v06 = v14; $v92 = v13; $v78 = v12; $v64 = v11; $v50 = v10; $v36 = v09; /*===Tone===*/ /*--Pulse alias--*/ $W05 = @10-0; $W10 = @5@W1; $W15 = @10-1; $W20 = @5@W2; $W25 = @10-2; $W30 = @5@W3; $W35 = @10-3; $W40 = @5@W4; /*--Pulse&Saw Inst.--*/ $Qgs12 = $W35 @E1,0,8,120,108,60,192$d+1@L48,32,0,0,0,1; $Pgs19 = $W20 @E1,6,22,118,24$d+6@L36,48,0,0,0,1; $Pgs29 = $W10 @E1,0,16,108,96,50,1$d+0@L; $Qgs41 = $W15 @E1,0,6,118,12$d+4@L48,40,-2-1,36; $Egs50 = @E1,32,96,118,56$d+4@L24,64,-2-1; $Pgs50 = $W10 $Egs50; $Egs76 = @E1,0,8,120,24,115,4$d+1@L24,32,-2-1,0,0,1; $Qgs76 = $W05 $Egs76; $Egs82 = @E1,1,06,118,12$d+4@L; $Qgs82 = $W25 $Egs82; /*--Tri. Drums--*/ $b = NS0 o6c%2 & o5/:22c%1/&@NS-1:/; $s = NS0 o6c%2 & o5/:22g%1/&@NS-1:/; $s32 = NS0 o6c%2 & o5/:10g%1/&@NS-1:/; $e = NS0 o6g%2 & o6/:22c%1/&@NS-1:/; $e32 = NS0 o6g%2 & o6/:10c%1/&@NS-1:/; $u = NS0 o5d %6r%18; /*MH Conga*/ $v = NS0 o5g+%6r%18; /*OH Conga*/ /*--Noise Drums--*/ $sn = @8@E1,0,4,122,72,40,2 o0b; /*Ac.Snare Noise*/ $en = @7@E1,0,4,122,72,40,2 o1c; /*En.Snare Noise*/ $h = @7@E1,0,16,20,2$v78 o0d+; $o = @7@E1,0,96,20,2$v78 o0e; $c = @7@E1,0,144,40,2 o0f; /*--DPCM Inst.*/ $Dgs39 = @9-0@L6956,0,2; /*---Tempo---*/ T146 ; /*===2A03 Phrase===*/ /*--Pulse 1--*/ $Apc = /:e1&1ef+/g1:/; /:$A /:$LOOP /:$intro $Pgs19 v12 o4 l8 @q4e1.@q0g>ef+dg4:/ :/ /:$precho $Pgs50 v10 o5 l2 $Apcd+1 :/ /:$chorus $Pgs50 v11 /:o6 /:@q4a1.b2>@q2c1&1< <:/ :/ :/ :/:/; /*--Pulse 2--*/ /:$B /:$LOOP /:$intro $Pgs19 v12 o4 l8 @q4b1.@q0r16b>gc@q0r16ebe:/ :/ /:$precho $Pgs50 v10 o4 l2 /:gag1ga/b1:/f+1 :/ /:$chorus $Pgs29 v11 o4 l16 /:4 /:4f)f(rf:/>d)d(rdc<:/f.f.@q0>c16d<:/g.b.@q0>d16e<:/a.>c.@q0e16c32 v13 @q2e2.(@q0cba@q1(3g32)d32)4@q0c.(c ; /:$M /:$LOOP /:$intro $Qgs82 v14 l8 /:o7 @q1e(@q0r16d)e(r16@q1d@q0dde16br16@q1e@q0agf+e>@q3e16$Mpc{e}v13/:er:/ v13@q4e2@q1g8.r8.d8<$Mpc{b}v14@q2b.r.>@q0f+@q2r.f+.r @q4@q1d8.d8.e8<$Mpc{b}@q2e.r.@q0gr.@q2b.r >@q0e2&16ded<@q4f+4.f+4. $Qgs76 v14 o6 @q12c8@q6e8 :/ /:$chorus $Qgs76 /:$Mco{e}$Mco{c} @NS12:/ NS0 :/ :/:/; /*--Pulse 1--*/ $Npc{n} = @q3v8%n%nv9%nv10%nv11%nv12%n%nv13%n@q0; $NcoP = @q0a.e.c(g.d.()2; $NpcFil = l32 v11@q1ee-dd-cc%42<(3a%5r%1)3@q0ba@q1g8a4/@q12e8@q6g8:/@q0v10d)3e(3c@q1)3g32(3a+32 v14 @q2a2.(@q0e>dc<@q1(3b32)g32)3/$NcoPe.(c.)dd(c(d :/>@q2a1 ; /:$N /:$LOOP /:$intro $Qgs82 v13 l8 /:o6 @q1g@q0gf+bbagg@q1f+@q0>eeegcf+edc/r8r32@q3a16@q0f+32:/r4 :/ /:$precho $Qgs12 o6 l16 v11@q4g2@q1r8.v13g8.r8$Npc{g}v13/:rgr>d<:/ v8@q4g2@q1r8.v13>f+8.g.@q0e <@q4g2@q1f+8.f+8.g8$Npc{g}@q2r.f+.ra.r.>@q0g de8(dedede:/@q1b8@q0cef+aegdf+ce>e32&