#TITLE 錦の上の巫女 (VRC6風) #ARTIST ZUN /* (C)2025 上海アリス幻樂団 */ #CODING Rikumaru $LOOP = 8; /*--- General ---*/ #OCTAVE REVERSE #VELOCITY REVERSE $PLSGAIN = @X123; /*2A03 パルスのゲイン*/ $MISCGAIN = @X127; /*2A03 その他(三角波・ノイズ・DPCM)のゲイン*/ $VRC6GAIN = @X125; /*VRC6 ゲイン*/ /*=== Section ===*/ $intro = 1 NS-1; /*Ebmin*/ $verse = 1 NS-1; $chorus = 1 NS+0; /*Emin*/ $outro = 1 NS+0; /*-- rest --*/ $intro_ = /:$intro /:16r1:/:/; $outro_ = /:$outro /:16r1:/:/; /*--- Channel ---*/ $cmn = X1 Q16; $A = 1 $cmn$PLSGAIN ; $B = 1 $cmn$PLSGAIN ; $C = 1 $cmn$MISCGAIN @6@V127@E1,0,0,127,0 @q2; $D = 1 $cmn$MISCGAIN ; $E = 1 $cmn$MISCGAIN @V127 X0; $M = 1 $cmn$VRC6GAIN $Qgs1; $N = 1 $cmn$VRC6GAIN ; $O = 1 $cmn$VRC6GAIN @13-0; /*=== 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. --*/ $Qgs1 = $W25 @E1,0, 8,120,108,80,12 @D+3@L @q0; $Pgs2{dt} = $W20 @E1,0,24,116, 96,80,72,50,12 @D%dt@L17,41,0,72 @q0; $Egs50{dt,d,w} = @E1,36,8,119,120 @D%dt@L%d,%w,-2-1 @q8; $Pgs50{dt,d,w} = $W10 $Egs50{%dt,%d,%w}; $Qgs50{dt,d,w} = $W05 $Egs50{%dt,%d,%w}; $Pgs91 = $W40 @E1,2,8,114,72 @D+4@L108,48,-0-2,0,0,1 @q6; /*-- Noise Drums --*/ $h = @7@E1,0,16,20,2 o0d; $o = @7@E1,0,20,100,144,20,2 o0d+; /*-- DPCM Drums --*/ $b = @9-0@E1,0,0,512,08,0,0 @L6840,0,2 NS0o2@D+2400c; $s = @9-1@E1,0,0,384,24,0,0 @L6840,0,2 NS0o2@D+2150d; /*--- Tempo ---*/ T160 ; /*=== 2A03 Phrase ===*/ /*-- Pulse 1 --*/ $AinA{n} = o5 b4.>f+2g+32a4...g4a8.a32g+32f+8 &4.f+8g8&1 d4e4.g4f+4f+2g+32a4...g4a8.a32g+32f+8 g4.>d4<%m e4.b4e4a+32b16.&8.g32f+32e8g4b4>e16.d+32 d4.<%n ; $Ain = v14 $AinA{e8&1} $AinB{b8f+4&2&8b4f+8, a4&16a32g+32f+8g8&1}; $tr{note,time} = /:%time %note48 (2@NS-5%note48@NS+5)2:/; $Aco = v14o6l8 /:5$tr{e,3}$tr{a,3}$tr{b,3}>$tr{d,3}<$tr{b,3}$tr{a,3}:/$tr{e,3}$tr{d,3}; $Aou = v14o6l8 /:5eab>dd32d+32e2.(2 r16.d8e8&1(2}; /:$B /:$LOOP /:$intro $Pgs2{+1} $Bin:/ /:$verse $Pgs2{+1} $Bin:/ /:$chorus $Pgs50{0,26,43} v15 o5 b1g2...g2.f+4a1&16 b2.f+4&16g4..&4f+4a2.d4 f+2..d1g2..f+4g1 e2.&32d4&32e2.d4f+2.a4b2... :/ /:$outro $Pgs91 v14@NS-5 /:4$Aou:/:/ :/ :/ ; /*-- Tri. --*/ $Cin = o3 l8 /:Q16cg2e4Q6gQ16dab>c2Q6g Q16<f+b2./c+a4.f+4d4:/e16g16b4.gbe4 /:/:Q16eabQ6>ddf+Q6aQ16f+edQ6f+/Q16c+ef+Q6aQ16f+edQ6f+:/Q16eabQ6>df+gbe4; $Min = $Qgs1 v13 l8 /:o4 /:cgb>cf+a4>d<cf+a4>c<<f+b>df+b4>d<f+g+be4:/ :/ :/ ; /*-- Pulse 2 --*/ $Nve = l8 r2..b1>g&2rf+&f+*d&d2.d*e4&e8 &2&8.d4e8.&2&16d4r32f+32&2.d&d*g&2.f+4&f+*g&g2.. e2.d4&16e8.&2d.&d*f+&f+.&2a4b1 ; $Nco = e1g2.f+4d1&16 e2.d4&16e4..&4d4f+2.d4g2..f+4g1 e2.&32d4&32e2.d4f+2.d4e2... ; $Nou = l8 d1&4.re2&16e*d&dd*e&ee*f+&f+f+*g&g&2.r8r32 d1&4g2f+2f+*d&d4. d*e&e2..e*a&a2..a*b&b2..b*>d&d2.. d*