/** TOP - Base template : ver2.80 **/ /* ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ■ p e n a n c e ■ 【 作曲・著作権 】H.YAMANOI 【対 象 音 源】Roland SC-8850 【使 用 音 源】Roland SC-8850 【再 生 確 認】TMIDI Player version 3.8.5 (release) 【 サクラのVer. 】2.375 【注 意 事 項】商用・非商用にかかわらず転載・再配布不可 【 連 絡 先 】blog : http://ykun.exblog.jp/ 【 そ の 他 】MP3(ショートver) http://simiz.org/~y-kun/music/hy_m3pen7bs.mp3 ___________________________________ ダウンロードしていただきありがとうございました。 ◆Electro-Styleについて M3 2011秋で頒布されるさくらもどきさん主宰のコンピレーションアルバム 『Electro-Style』に、小生も2曲参加させて頂きました。 この曲はアルバムのTr.1に収録されるボカロ曲です。 サークル : さくら置き場(1階D18a) Electo-Style : http://bit.ly/obrPm8 クロスフェードデモ : http://www.nicovideo.jp/watch/sm15946728 ◆曲のこと HappyHardcoreだけど、歌詞が全然Happyじゃないところがポイントです。 半ば歌詞先行で作ったからか、Aメロは2拍目からなのに サビは3拍前からだったり、超詰め込みになってしまいました。 多分、人間には歌えません(笑 ◆歌詞 小鳥のさえずりを聞いて 目覚めた 明けの空 浮かぶ月 見上げる事もなく まとわりつく喧騒と砂礫を 貫いて 稜線の彼方まで ひとつ目の誓いを交わした あの日から 色無き回廊を迷い ふたつ目の約束は 果たせぬままで みっつ目の祈りを捧ぐ 神は滅びたけれども よっつ目の願いは僕が届けるよ この手で 散りばめた星々が 揺らめく 真四角に 切り取った 夜天を塗りつぶす 響かぬ声 渇いた嗤い 目を伏せて 積み上がる孤絶と無我 凍える楼閣 いつつ目の悲しみは 深い闇に墜ち 連鎖から煮詰められた むっつ目の嘆きを綴るグリモワール ななつ目の怒りで引き裂いた欠片は散って やっつ目の諦観を呼ぶけれど 逃げずに ここのつの指を折って 背負う悔いを数えた その時 とおの影を溶かし また朝が来る ◆更新履歴 2011/09/24 Ver1.00 完成 ___________________________________*/ /** HEADER **/ //_Synth Type Int SynthType = 4 ; // 音源のタイプ -1〜8まで 初期値:8 Int UsePF = 1 ; // XG音源でPLG150-PFを使用する Int UseDX = 1 ; // XG音源でPLG150-DXを使用する //_System Setting Include (stdmsg.h); System.MeasureShift (8); System.TimeBase (96); System.vAdd (10); System.qAdd (10); Str Tmp_title = {"M3 2011秋 : penance"}; Str Tmp_ver = {"1.00"}; Str Tmp_Copyright = {"09/24/2011 H.YAMANOI"} Int PortNum = 2; //_SynthType Definition If(SynthType == 8){ Switch(SoundType){ Case(1){ SynthType = 1; } Case(2){ SynthType = 5; } Default{ SynthType = 0; } } } If((SynthType > 8) || (SynthType < -1)){ SynthType = 0; } //_Function //_ Common // 調号メタイベント // sf = n:#の数 -n:♭の数 mi = 0:メジャー 1:マイナー Function MetaKey(Int sf, Int mi){ DirectSMF($FF,$59,$02,sf,mi); } // sinθの10,000倍を返す Function SIN(Int Val){ Int Tmp_Val = Val; Int Out = 0; If(Tmp_Val < 0){ Tmp_Val = (Tmp_Val * -1) % 360; Tmp_Val = 360 - Tmp_Val; } If(Tmp_Val >= 360){ Tmp_Val = Tmp_Val % 360; } If((Tmp_Val > 180) && (Tmp_Val <= 360)){ Tmp_Val = 360 - Tmp_Val; } If((Tmp_Val > 90) && (Tmp_Val <= 180)){ Tmp_Val = 180 - Tmp_Val; } Switch(Tmp_Val){ Case( 0){ Out = 0; } Case( 1){ Out = 175; } Case( 2){ Out = 349; } Case( 3){ Out = 523; } Case( 4){ Out = 698; } Case( 5){ Out = 872; } Case( 6){ Out = 1045; } Case( 7){ Out = 1219; } Case( 8){ Out = 1392; } Case( 9){ Out = 1564; } Case(10){ Out = 1736; } Case(11){ Out = 1908; } Case(12){ Out = 2079; } Case(13){ Out = 2250; } Case(14){ Out = 2419; } Case(15){ Out = 2588; } Case(16){ Out = 2756; } Case(17){ Out = 2924; } Case(18){ Out = 3090; } Case(19){ Out = 3256; } Case(20){ Out = 3420; } Case(21){ Out = 3584; } Case(22){ Out = 3746; } Case(23){ Out = 3907; } Case(24){ Out = 4067; } Case(25){ Out = 4226; } Case(26){ Out = 4384; } Case(27){ Out = 4540; } Case(28){ Out = 4695; } Case(29){ Out = 4848; } Case(30){ Out = 5000; } Case(31){ Out = 5150; } Case(32){ Out = 5299; } Case(33){ Out = 5446; } Case(34){ Out = 5592; } Case(35){ Out = 5736; } Case(36){ Out = 5878; } Case(37){ Out = 6018; } Case(38){ Out = 6157; } Case(39){ Out = 6293; } Case(40){ Out = 6428; } Case(41){ Out = 6561; } Case(42){ Out = 6691; } Case(43){ Out = 6820; } Case(44){ Out = 6947; } Case(45){ Out = 7071; } Case(46){ Out = 7193; } Case(47){ Out = 7314; } Case(48){ Out = 7431; } Case(49){ Out = 7547; } Case(50){ Out = 7660; } Case(51){ Out = 7771; } Case(52){ Out = 7880; } Case(53){ Out = 7986; } Case(54){ Out = 8090; } Case(55){ Out = 8192; } Case(56){ Out = 8290; } Case(57){ Out = 8387; } Case(58){ Out = 8480; } Case(59){ Out = 8572; } Case(60){ Out = 8660; } Case(61){ Out = 8746; } Case(62){ Out = 8829; } Case(63){ Out = 8910; } Case(64){ Out = 8988; } Case(65){ Out = 9063; } Case(66){ Out = 9135; } Case(67){ Out = 9205; } Case(68){ Out = 9272; } Case(69){ Out = 9336; } Case(70){ Out = 9397; } Case(71){ Out = 9455; } Case(72){ Out = 9511; } Case(73){ Out = 9563; } Case(74){ Out = 9613; } Case(75){ Out = 9659; } Case(76){ Out = 9703; } Case(77){ Out = 9744; } Case(78){ Out = 9781; } Case(79){ Out = 9816; } Case(80){ Out = 9848; } Case(81){ Out = 9877; } Case(82){ Out = 9903; } Case(83){ Out = 9925; } Case(84){ Out = 9945; } Case(85){ Out = 9962; } Case(86){ Out = 9976; } Case(87){ Out = 9986; } Case(88){ Out = 9994; } Case(89){ Out = 9998; } Case(90){ Out = 10000; } } If(Val > 180 && Val < 360){ Out = Out * -1; } Result = Out; } // cosθの10,000倍を返す Function COS(Int Val){ Int Out = 0; Out = SIN(Val + 90); Result = Out; } // Length => Tick Function LEN2TICK(Str Length) { Int Len; If(ASC(MID(Length,0,2)) == ASC("!")){ Len = StrToLen(Replace(Length,{!},{},off)); }Else{ Len = Length; } Result = Len; } //_ for GM // Instrument SetUp Function IsuGM(Array Data) { // BankMSB, BankLSB, PC#, Vol, Pan, Exp, Rev, Cho, Dly/Var l%1 y0(Data(0));r* y32(Data(1));r* @(Data(2));r* y7(Data(3));r* y10(Data(4));r* y11(Data(5));r* y91(Data(6));r* y93(Data(7));r* y94(Data(8));r* // PitchBendSensitivity y100(0);r* y101(0);r* y6(Data(9));r* } // PitchBend Sensitivity Null Function Null() { l%1 y101(127); r* y100(127); r* } // Mono Mode Function Mono() { l%1 y126(0); r* } // Poly Mode Function Poly() { l%1 y127(0); r* } // Master Volume Function MasterVolume(Int Value) { SysEx = $F0,$7F,$7F,$04,$01,$00,(Value),$F7; } // Polyphonic Key Pressure Function PKP(Str Note, Int Val){ Int No = NoteNo(Note); DirectSMF(($A0 + Channel - 1),No,Val); } //_ for GS // System Exclusive Function GS_EXCLUSIVE(Array Data) { SysEx = $F0,$41,$10,$42,$12,{(Data)},$F7; } // Instrument SetUp Function IsuGS(Array Data) { // BankMSB, BankLSB, PC#, Vol, Pan, Exp, Rev, Cho, Dly l%1 y0(Data(0));r* y32(Data(1));r* @(Data(2));r* y7(Data(3));r* y10(Data(4));r* y11(Data(5));r* y91(Data(6));r* y93(Data(7));r* y94(Data(8));r* // Vibrato Rate , Depth , Delay y99(1);r* y98(8);r* y6(Data(9));r* y99(1);r* y98(9);r* y6(Data(10));r* y99(1);r* y98(10);r* y6(Data(11));r* // Filter LPF , Res y99(1);r* y98(32);r* y6(Data(12));r* y99(1);r* y98(33);r* y6(Data(13));r* // Envelope Attack , Decay , Release y99(1);r* y98(99);r* y6(Data(14));r* y99(1);r* y98(100);r* y6(Data(15));r* y99(1);r* y98(102);r* y6(Data(16));r* // PitchBendSensitivity y100(0);r* y101(0);r* y6(Data(17));r* } // System EQ Function EQ(Array Data){ // LowFreq, LowGain, HiFreq, HiGain l%2 GS_EXCLUSIVE($40,$02,$00,(Data(0) )); // EQ Low Freq r* GS_EXCLUSIVE($40,$02,$01,(Data(1) + 64)); // EQ Low Gain r* GS_EXCLUSIVE($40,$02,$02,(Data(2) )); // EQ Hi Freq r* GS_EXCLUSIVE($40,$02,$03,(Data(3) + 64)); // EQ Hi Gain } // Setup User Drum Function USER_DRUM(Array Data) { l%2 // UserDrumNo[1,2], NoteNo, SorceMAP, SorcePC#, SorceNote, Level, Pan GS_EXCLUSIVE($20 + (Data(0)),$0A,(Data(1)),(Data(2) )); r* // SOURCE DRUM SET# (MAP) GS_EXCLUSIVE($20 + (Data(0)),$0B,(Data(1)),(Data(3) - 1)); r* // SOURCE DRUM SET# (PC#) GS_EXCLUSIVE($20 + (Data(0)),$0C,(Data(1)),(Data(4) )); r* // SOURCE DRUM SET NUMBER GS_EXCLUSIVE($20 + (Data(0)),$02,(Data(1)),(Data(5) )); r* // LEVEL GS_EXCLUSIVE($20 + (Data(0)),$04,(Data(1)),(Data(6) )); r* // PAN } // Drum Instrument Assian Group Function DAG(Int Map, Int No, Int Gp){ Map--; GS_EXCLUSIVE($41,(Map * 16 + 3),(No),(Gp)); } // Drum Instrument Rx Note Off Function DRN(Int No){ GS_EXCLUSIVE($41,$07,(No),$01); } //_ for XG // System Exclusive [XG Common] Function XG_EXCLUSIVE(Array Data) { SysEx = $F0,$43,$10,$4C,(Data),$F7; } // System Exclusive [PLG150-DX] Function DX_EXCLUSIVE(Array Data) { SysEx = $F0,$43,$10,$62,(Data),$F7; } // System Exclusive [PLG150-PF] Function PF_EXCLUSIVE(Array Data) { SysEx = $F0,$43,$10,$67,(Data),$F7; } // Instrument SetUp Function IsuXG(Array Data) { // BankMSB, BankLSB, PC#, Vol, Pan, Exp, Rev, Cho, Var l%1 y0(Data(0));r* y32(Data(1));r* @(Data(2));r* y7(Data(3));r* y10(Data(4));r* y11(Data(5));r* y91(Data(6));r* y93(Data(7));r* y94(Data(8));r* // Vibrato Rate , Depth , Delay y99(1);r* y98(8);r* y6(Data(9));r* y99(1);r* y98(9);r* y6(Data(10));r* y99(1);r* y98(10);r* y6(Data(11));r* // Filter LPF , Resonance , HPF y99(1);r* y98(32);r* y6(Data(12));r* y99(1);r* y98(33);r* y6(Data(13));r* y99(1);r* y98(36);r* y6(Data(14));r* // Envelope Attack , Decay , Release y99(1);r* y98(99);r* y6(Data(15));r* y99(1);r* y98(100);r* y6(Data(16));r* y99(1);r* y98(102);r* y6(Data(17));r* // PitchBendSensitivity y100(0);r* y101(0);r* y6(Data(18));r* // EQ Low Frequency , Low Gain , Treble Frequency , Treble Gain y99(1);r* y98(52);r* y6(Data(19));r* y99(1);r* y98(48);r* y6(Data(20));r* y99(1);r* y98(53);r* y6(Data(21));r* y99(1);r* y98(49);r* y6(Data(22));r* } // Drum Instrument Pitch Fine Function Dpf(Int Note,Int Value) { l%1 y99(25); r* y98(Note); r* y6(Value); r* } // Drum Instrument Fillter LPF , Resonance , HPF Function Dfl(Array Data) { l%1 y99(20);r* y98(Data(0));r* y6(Data(1));r* y99(21);r* y98(Data(0));r* y6(Data(2));r* y99(36);r* y98(Data(0));r* y6(Data(3));r* } // Drum Instrument Envelope Attack , Decay Function Deg(Array Data) { l%1 y99(22);r* y98(Data(0));r* y6(Data(1));r* y99(23);r* y98(Data(0));r* y6(Data(2));r* } // Drum Instrument EQ Low Frequency , Low Gain , Treble Frequency , Treble Gain Function Deq(Array Data) { l%1 y99(52);r* y98(Data(0));r* y6(Data(1));r* y99(48);r* y98(Data(0));r* y6(Data(2));r* y99(53);r* y98(Data(0));r* y6(Data(3));r* y99(49);r* y98(Data(0));r* y6(Data(4));r* } // Delay Time => Data Function XGDT(Int Tm){ Array Out; If(Tm > 16383){ Tm = 16383; } If(Tm < 0){ Tm = 0; } Out(0) = Tm / 128; Out(1) = Tm % 128; Result = Out; } //_ for GS/XG // Drum Instrument Pitch Coarse Function Dpt(Int Note, Int Value) { l%1 y99(24); r* y98(Note); r* y6(Value); r* } // Drum Instrument Pitch Coarse Function Dpt2(Int Note, Int Value) { r*-%3 y99(24); r*%1 y98(Note); r*%1 y6(Value); r*%1 } // Drum Instrument Level Function Dlv(Int Note, Int Value) { l%1 y99(26); r* y98(Note); r* y6(Value); r* } // Drum Instrument Pitch Coarse Function Dlv2(Int Note, Int Value) { r*-%3 y99(26); r*%1 y98(Note); r*%1 y6(Value); r*%1 } // Drum Instrument Pan Function Dpn(Int Note, Int Value) { l%1 y99(28); r* y98(Note); r* y6(Value); r* } // Drum Instrument Pitch Coarse Function Dpn2(Int Note, Int Value) { r*-%3 y99(28); r*%1 y98(Note); r*%1 y6(Value); r*%1 } // Drum Instrument Reverb Send Level Function Drs(Int Note, Int Value) { l%1 y99(29); r* y98(Note); r* y6(Value); r* } // Drum Instrument Pitch Coarse Function Drs2(Int Note, Int Value) { r*-%3 y99(29); r*%1 y98(Note); r*%1 y6(Value); r*%1 } // Drum Instrument Chorus Send Level Function Dcs(Int Note, Int Value) { l%1 y99(30); r* y98(Note); r* y6(Value); r* } // Drum Instrument Pitch Coarse Function Dcs2(Int Note, Int Value) { r*-%3 y99(30); r*%1 y98(Note); r*%1 y6(Value); r*%1 } // Drum Instrument Delay/Variation Send Level Function Dds(Int Note, Int Value) { l%1 y99(31); r* y98(Note); r* y6(Value); r* } // Drum Instrument Pitch Coarse Function Dds2(Int Note, Int Value) { r*-%3 y99(31); r*%1 y98(Note); r*%1 y6(Value); r*%1 } // Insertion Effect Output Level Function FXOutputLevel(Array Data) { // GS:Gain XG:FX No, Gain If(SynthType <= 7 && SynthType >= 6){ XG_EXCLUSIVE($03,($00 + (Data(0))),$05,(Data(1))); }Else{If(SynthType <= 4 && SynthType >= 3){ GS_EXCLUSIVE($40,$03,$16,(Data(0))); }} } // Polyphonic Key Pressure => Bend Up Function PAf_Pitch(Int Rng){ Int Chn = Channel; If(SynthType <= 7 && SynthType >= 6){ XG_EXCLUSIVE($08,(MML(Port)*16+Chn-1),$53,($40+Rng)); }Else{If(SynthType <= 4 && SynthType >= 3){ If(Chn == 10){ Chn = 0; } If(Chn > 10 && Chn <= 16){ Chn--; } GS_EXCLUSIVE($40,($20 + Chn),$30,($40 + Rng)); }} } // Rx MIDI Ch Function Rx_CH(Int Val){ Int Chn = Channel; If(SynthType <= 7 && SynthType >= 6){ XG_EXCLUSIVE($08,(MML(Port) * 16 + Chn - 1),$04,(Val - 1)); }Else{If(SynthType <= 4 && SynthType >= 3){ If(Chn == 10){ Chn = 0; } If(Chn > 10 && Chn <= 16){ Chn--; } GS_EXCLUSIVE($40,($10 + Chn),$02,(Val - 1)); }} } // Fine Tune Function FINE(Int Data1, Int Data2){ Int Chn = Channel; If(SynthType <= 7 && SynthType >= 6){ XG_EXCLUSIVE($08,(MML(Port) * 16 + Chn - 1),$09,(Data1),(Data2)); }Else{If(SynthType <= 4 && SynthType >= 3){ If(Chn == 10){ Chn = 0; } If(Chn > 10 && Chn <= 16){ Chn--; } GS_EXCLUSIVE($40,($10 + Chn),$2A,(Data1),(Data2)); }} } //_ Effect // Bending Function Ben(Int Gain, Int Len){ If((Len <= 0) || (Gain < -8192) || (Gain > 8191)){ Print("Function Ben : illegal argument."); End; } Sub{ p%.onTime=(Gain),0,(Len); } } // Vibrato Function Vib(Int Gain, Int Len){ If((Len <= 0) || (Gain <= 0) || (Gain > 127)){ Print("Function Vib : illegal argument."); End; } Sub{ y1.onTime=1,(Gain),(Len);r*%(Len)y1(0); } } // Hand Vibrato // 深さ, Vib1回の長さ(step), 全体の長さ Function HVib(Int Gain,Int Rate, Int Len) { Int Loop; Str Tmp_MML; Int Tmp_i; Loop = Len / Rate; If((Len <= 0) || (Gain < -8192) || (Gain > 8191) || (Gain == 0) || (Loop <= 0)){ Print("Function HVib : illegal argument."); End; } Tmp_MML = "p%.T="; If(Gain > 0){ Tmp_MML = Tmp_MML + "1"; }Else{If(Gain < 0){ Tmp_MML = Tmp_MML + "-1"; }} Tmp_MML = Tmp_MML + "," + Gain + "," + (Rate / 2) + ","; If(Gain > 0){ Tmp_MML = Tmp_MML + (Gain - 1); }Else{If(Gain < 0){ Tmp_MML = Tmp_MML + (Gain + 1); }} Tmp_MML = Tmp_MML + ",0," + (Rate / 2) + "; r%" + Rate; For(Tmp_i=0; Tmp_i < Loop; Tmp_i++){ Tmp_MML; } Tmp_MML = "r%-" + (Rate*Loop); Tmp_MML; } // Mute Function Mt(Int Len) { If(Len <= 0){ Print("Function Mt : illegal argument."); End; } Sub{ r%8 y11.onTime=126,64,(Len - 8); r%(Len - 8) y11=127; } } // Unison (Unison.hより抜粋) Function Unison(Str S, Int Value){ Sub{ Key(Value); S; Key(0); } S; } // 3D Auto Pan (R社のパクリ) // 周期の長さ, 半径(0〜63), 中心パン, 初期位相, 回転方向(1,-1:正,負), 回転回数, 書込頻度 Function TDAuto(Array Opt){ Int Len = Opt(0); // 周期(Step) Int Radii = Opt(1); // 半径 Int Center = Opt(2); // 中心パン Int IPhase = Opt(3); // 初期位相 Int Direction = Opt(4); // 回転方向 Int Loop = Opt(5); // 回転回数 Int Freq = Opt(6); // 書込頻度 Int Num = 1; // 1周期の書込回数 Int DPhase = 0; // 位相の変化量 Int IPan = 64; // 初期パン Str Tmp_MML = ""; Int Tmp_Phase = 0; Int Tmp_Pan = 64; Int Tmp_i = 0; Int Tmp_j = 0; If(Radii < 1){ Radii = 63; } If(Center < 1){ Center = 64; } If(Center+Radii > 127){ Radii = 127 - Center; } If(Center-Radii < 1){ Radii = Center - 1; } If((Direction != 1) && (Direction != -1)){ Direction = 1; } If(Loop < 1){ Loop = 1; } If(Freq < 1){ Freq = 96; } Num = Len / Freq; If(Num == 0){ Num = 1; } DPhase = 36000 / Num; For(Tmp_j = 0; Tmp_j < Loop; Tmp_j++){ For(Tmp_i = 0; Tmp_i < Num; Tmp_i++){ Tmp_Phase = (IPhase + (DPhase * Tmp_i / 100)) % 360; Tmp_Pan = Center + ((Radii * COS(Tmp_Phase) / 10000) * Direction); If(Tmp_i == 0){ IPan = Tmp_Pan; } Tmp_MML = "y10(" + Tmp_Pan + "); r%" + Freq + " "; Tmp_MML; } } Tmp_MML = "y10(" + IPan + "); r%-" + (Len * Loop); Tmp_MML; } // Auto Wah // 初期カットオフ, ワウの深さ, 1周期の長さ, 全体の長さ Function AutoWah(Int ICut, Int Dpt, Int Rate, Int Len){ If(SynthType <= 0){ Exit; } Int Loop; Str Tmp_MML; Loop = Len / Rate; If((SynthType == 1) || (SynthType == 2)){ Tmp_MML = "FilterCutoff"; }Else{ Tmp_MML = "y74"; } Tmp_MML = Tmp_MML + "(" + ICut + "); [" + Loop + " r%6 "; If((SynthType == 1) || (SynthType == 2)){ Tmp_MML = Tmp_MML + "y6"; }Else{ Tmp_MML = Tmp_MML + "y74"; } Tmp_MML = Tmp_MML + ".T=" + (ICut - 1) + "," + (ICut - Dpt) + "," + ((Rate / 2) - 8) + "; r%" + (Rate / 2); If((SynthType == 1) || (SynthType == 2)){ Tmp_MML = Tmp_MML + " y6"; }Else{ Tmp_MML = Tmp_MML + " y74"; } Tmp_MML = Tmp_MML + ".T=" + ((ICut - Dpt) + 1) + "," + ICut + "," + ((Rate / 2) - 8) + "; r%" + ((Rate / 2) - 6) + "]"; Tmp_MML; } // Fade Out Function FadeOut(Int Opt_Len){ Int Len = MML(l); Int Tmp_i; Len = Len * Opt_Len; S{ r%(Len) MasterVolume(0); } Len = Len / 127; For(Tmp_i=126; Tmp_i>0; Tmp_i--){ MasterVolume(Tmp_i); r%(Len); } } //_Meta Event TR( 0) Port(0) CH( 1) Time(-7:1: 0) Tmp_title = {"[ "} + Tmp_title + {" ] for "}; Tmp_ver = "ver" + Tmp_ver + {" by H.YAMANOI"}; Switch(SynthType){ Case( 7){ TrackName = Tmp_title + {"MU1000 "} + Tmp_ver; } Case( 6){ TrackName = Tmp_title + {"MU100 "} + Tmp_ver; } Case( 5){ TrackName = Tmp_title + {"MU80 "} + Tmp_ver; } Case( 4){ TrackName = Tmp_title + {"SC-8850 "} + Tmp_ver; } Case( 3){ TrackName = Tmp_title + {"SC-88pro "} + Tmp_ver; } Case( 2){ TrackName = Tmp_title + {"SC-88 "} + Tmp_ver; } Case( 1){ TrackName = Tmp_title + {"SC-55 "} + Tmp_ver; } Case(-1){ TrackName = Tmp_title + {"TW-MUSIC2 "} + Tmp_ver; } Default{ TrackName = Tmp_title + {"GM "} + Tmp_ver; } } Copyright = Tmp_Copyright; TimeSignature = 4, 4; MetaKey(4, 1); // n:#の数 -n:♭の数 0:メジャー 1:マイナー //_Track Definition TR( 1) Port(0) CH( 1) Time(-7:1: 0) TrackName = {"Bass 1"} TR( 2) Port(0) CH( 2) Time(-7:1: 0) TrackName = {"Bass 2"} TR( 3) Port(0) CH( 3) Time(-7:1: 0) TrackName = {"Synth 1L"} TR( 4) Port(0) CH( 4) Time(-7:1: 0) TrackName = {"Synth 1R"} TR( 5) Port(0) CH( 5) Time(-7:1: 0) TrackName = {"Synth 2 L1"} TR( 6) Port(0) CH( 6) Time(-7:1: 0) TrackName = {"Synth 2 L2"} TR( 7) Port(0) CH( 7) Time(-7:1: 0) TrackName = {"Synth 3 L1"} TR( 8) Port(0) CH( 8) Time(-7:1: 0) TrackName = {"Synth 3 L2"} TR( 9) Port(0) CH( 9) Time(-7:1: 0) TrackName = {"Synth 4"} TR(10) Port(0) CH(10) Time(-7:1: 0) TrackName = {"Rhythm 1"} TR(11) Port(0) CH(11) Time(-7:1: 0) TrackName = {"Rhythm 2"} TR(12) Port(0) CH(12) Time(-7:1: 0) TrackName = {"909 SD"} TR(13) Port(0) CH(13) Time(-7:1: 0) TrackName = {"Synth 5 L1"} TR(14) Port(0) CH(14) Time(-7:1: 0) TrackName = {"Synth 5 L2"} TR(15) Port(0) CH(15) Time(-7:1: 0) TrackName = {"Pad 1 L1"} TR(16) Port(0) CH(16) Time(-7:1: 0) TrackName = {"Pad 1 L2"} TR(33) Port(0) CH( 1) Time(-7:1: 0) TrackName = {"Sys-Ex Port A"} If(PortNum == 2){ TR(17) Port(1) CH( 1) Time(-7:1: 0) TrackName = {"Piano 1"} TR(18) Port(1) CH( 2) Time(-7:1: 0) TrackName = {"Piano 2"} TR(19) Port(1) CH( 3) Time(-7:1: 0) TrackName = {"Vocal 1"} TR(20) Port(1) CH( 4) Time(-7:1: 0) TrackName = {"Vocal 2"} TR(21) Port(1) CH( 5) Time(-7:1: 0) TrackName = {""} TR(22) Port(1) CH( 6) Time(-7:1: 0) TrackName = {""} TR(23) Port(1) CH( 7) Time(-7:1: 0) TrackName = {""} TR(24) Port(1) CH( 8) Time(-7:1: 0) TrackName = {""} TR(25) Port(1) CH( 9) Time(-7:1: 0) TrackName = {""} TR(26) Port(1) CH(10) Time(-7:1: 0) TrackName = {"Rhythm 3"} TR(27) Port(1) CH(11) Time(-7:1: 0) TrackName = {"Rhythm 4"} TR(28) Port(1) CH(12) Time(-7:1: 0) TrackName = {""} TR(29) Port(1) CH(13) Time(-7:1: 0) TrackName = {""} TR(30) Port(1) CH(14) Time(-7:1: 0) TrackName = {"SFX 3"} TR(31) Port(1) CH(15) Time(-7:1: 0) TrackName = {"SFX 2"} TR(32) Port(1) CH(16) Time(-7:1: 0) TrackName = {"SFX 1"} TR(34) Port(1) CH( 1) Time(-7:1: 0) TrackName = {"Sys-Ex Port B"} } //_Tempo Time( -7:1: 0) Tempo = 480 ; Time( 0:1: 0) Tempo = 140 ; //_Universal Exclusive TR(33) Time( -7:1: 0) SysEx$ = F0,7E,7F,09,01,F7; // GM System On Time( -6:4: 0) MasterVolume(127); //_System Exclusive //_ TWM2 System SetUp If(SynthType == -1){ TR(33) Time( -7:3: 0) GS_EXCLUSIVE($40,$00,$7F,$00); // GS Reset Time( -6:4:48) GS_EXCLUSIVE($40,$10,$15,$01); // Use for Rhythm Part 1 [CH A10] Time( -6:4:50) GS_EXCLUSIVE($40,$1A,$15,$02); // Use for Rhythm Part 2 [CH A11] } //_ XG System SetUp If(SynthType <= 7 && SynthType >= 5){ TR(33) Time( -7:3: 0) XG_EXCLUSIVE($00,$00,$7E,$00); // XG System On If(SynthType == 5){ Time( -6:3: 0) SysEx$ = F0,43,10,49,00,00,12,00,F7; // Select MU Basic MAP }Else{ Time( -6:3: 0) SysEx$ = F0,43,10,49,00,00,12,01,F7; // Select MU100 Native MAP } Time( -6:4:48) XG_EXCLUSIVE($08,$00,$07,$02); // Part Mode Drum1 [A10] l%2 r* XG_EXCLUSIVE($08,$0A,$07,$03); // Part Mode Drum2 [A11] If(SynthType >= 6 && PortNum == 2){ Time( -6:4:52) XG_EXCLUSIVE($08,$10,$07,$04); // Part Mode Drum3 [B10] l%2 r* XG_EXCLUSIVE($08,$1A,$07,$05); // Part Mode Drum4 [B11] } If(UsePF == 1){ //_ XG PLG-150PF SetUp // r* XG_EXCLUSIVE($70,$04,$00,$00); // PLG150-PF Part Assign // r* PF_EXCLUSIVE($60,$00,$00,$43); // Bass Freq // r* PF_EXCLUSIVE($60,$00,$01,$3F); // Bass Gain // r* PF_EXCLUSIVE($60,$00,$02,$3B); // Treble Freq // r* PF_EXCLUSIVE($60,$00,$03,$44); // Treble Gain // r* PF_EXCLUSIVE($60,$00,$04,$01); // PF Mode // r* PF_EXCLUSIVE($60,$00,$05,$01); // SusCurve // r* PF_EXCLUSIVE($60,$00,$06,$42); // EL1 Level // r* PF_EXCLUSIVE($60,$00,$07,$41); // EL2 Level } If(UseDX == 1){ //_ XG PLG-150DX SetUp // r* XG_EXCLUSIVE($70,$02,$00,$0D); // PLG150-DX Part Assign // r* DX_EXCLUSIVE($60,$0D,$0B, 75); // Carrier1 // r* DX_EXCLUSIVE($60,$0D,$0C, 64); // Carrier2 // r* DX_EXCLUSIVE($60,$0D,$0D, 92); // Carrier3 // r* DX_EXCLUSIVE($60,$0D,$0E, 64); // Carrier4 // r* DX_EXCLUSIVE($60,$0D,$0F,126); // Carrier5 // r* DX_EXCLUSIVE($60,$0D,$10, 64); // Carrier6 // r* DX_EXCLUSIVE($60,$0D,$13, 64); // Modulator1 // r* DX_EXCLUSIVE($60,$0D,$14, 69); // Modulator2 // r* DX_EXCLUSIVE($60,$0D,$15, 64); // Modulator3 // r* DX_EXCLUSIVE($60,$0D,$16, 56); // Modulator4 // r* DX_EXCLUSIVE($60,$0D,$17, 64); // Modulator5 // r* DX_EXCLUSIVE($60,$0D,$18, 51); // Modulator6 // r* DX_EXCLUSIVE($60,$0D,$1B, 65); // FeedBack } //_ XG Reverb TR(33) Time( -5:1: 0) XG_EXCLUSIVE( 2, 1, 0, 1, 1); // Reverb Type [HALL 2] // l%2 r* XG_EXCLUSIVE( 2, 1, 2,$0E); // Reverb Time 0- 69(18) 0.3〜30.0s T#4 // r* XG_EXCLUSIVE( 2, 1, 3,$0A); // Diffusion 0- 10(10) 0〜10 // r* XG_EXCLUSIVE( 2, 1, 4,$1B); // Initial Delay 0- 63(8) 0.1〜99.3ms T#5 // r* XG_EXCLUSIVE( 2, 1, 5,$14); // HPF Cutoff 0- 52(13) Thru〜8.0kHz T#3 // r* XG_EXCLUSIVE( 2, 1, 6,$34); // LPF Cutoff 34- 60(49) 1.0k〜Thru T#3 // r* XG_EXCLUSIVE( 2, 1, 16,$0E); // Rev Delay 0- 63(0) 0.1〜99.3ms T#5 // r* XG_EXCLUSIVE( 2, 1, 17,$04); // Density 0- 4(4) 0〜4 // r* XG_EXCLUSIVE( 2, 1, 18,$40); // Er/Rev Balance 1-127(50) E63>R〜E=R〜E= 6){ TR(33) Time( -5:2:48) XG_EXCLUSIVE( 2, 64, 0, 0); // EQ Type 0:FLAT 1:JAZZ 2:POPS 3:ROCK 4:CLASSIC // l%2 r* XG_EXCLUSIVE( 2, 64, 1, 65); // EQ Gain1 52-76 (-12-+12dB) // r* XG_EXCLUSIVE( 2, 64, 5, 59); // EQ Gain2 52-76 (-12-+12dB) // r* XG_EXCLUSIVE( 2, 64, 9, 64); // EQ Gain3 52-76 (-12-+12dB) // r* XG_EXCLUSIVE( 2, 64, 13, 58); // EQ Gain4 52-76 (-12-+12dB) // r* XG_EXCLUSIVE( 2, 64, 17, 62); // EQ Gain5 52-76 (-12-+12dB) // r* XG_EXCLUSIVE( 2, 64, 2, 15); // EQ Frequency1 4-40 (32-2000Hz) // r* XG_EXCLUSIVE( 2, 64, 6, 24); // EQ Frequency2 14-54 (100-10kHz) // r* XG_EXCLUSIVE( 2, 64, 10, 32); // EQ Frequency3 14-54 (100-10kHz) // r* XG_EXCLUSIVE( 2, 64, 14, 44); // EQ Frequency4 14-54 (100-10kHz) // r* XG_EXCLUSIVE( 2, 64, 18, 51); // EQ Frequency5 28-58 (500-16kHz) // r* XG_EXCLUSIVE( 2, 64, 3, 8); // EQ Q1 1-120 (0.1-12.0) // r* XG_EXCLUSIVE( 2, 64, 7, 12); // EQ Q2 1-120 (0.1-12.0) // r* XG_EXCLUSIVE( 2, 64, 11, 10); // EQ Q3 1-120 (0.1-12.0) // r* XG_EXCLUSIVE( 2, 64, 15, 14); // EQ Q4 1-120 (0.1-12.0) // r* XG_EXCLUSIVE( 2, 64, 19, 12); // EQ Q5 1-120 (0.1-12.0) // r* XG_EXCLUSIVE( 2 ,64, 4, 0); // EQ Shape1 0-1 (0:Shelving 1:Peaking) // r* XG_EXCLUSIVE( 2, 64, 20, 0); // EQ Shape5 0-1 (0:Shelving 1:Peaking) //_ XG Insertion1 TR(33) Time( -5:3: 0) XG_EXCLUSIVE($03,$00,$00,$40,$00); // Insertion1 Type [THRU] l%2 r* XG_EXCLUSIVE($03,$00,$0C,127); // Insertion1 Part [0-63:Part 64-126:A/D 127:OFF] //_ XG Insertion2 TR(33) Time( -5:3:48) XG_EXCLUSIVE($03,$01,$00,$40,$00); // Insertion2 Type [THRU] l%2 r* XG_EXCLUSIVE($03,$01,$0C,127); // Insertion2 Part [0-63:Part 64-126:A/D 127:OFF] If(SynthType == 7){ //_ XG Insertion3 TR(33) Time( -5:4: 0) XG_EXCLUSIVE($03,$02,$00,$40,$00); // Insertion3 Type [THRU] l%2 r* XG_EXCLUSIVE($03,$02,$0C,127); // Insertion3 Part [0-63:Part 64-126:A/D 127:OFF] //_ XG Insertion4 TR(33) Time( -5:4:48) XG_EXCLUSIVE($03,$03,$00,$40,$00); // Insertion4 Type [THRU] l%2 r* XG_EXCLUSIVE($03,$03,$0C,127); // Insertion4 Part [0-63:Part 64-126:A/D 127:OFF] }}}Else{If(SynthType <= 4 && SynthType >= 1){ //_ GS System SetUP TR(33) Time( -7:3: 0) GS_EXCLUSIVE($40,$00,$7F,$00); // GS Reset Time( -6:4:48) GS_EXCLUSIVE($40,$10,$15,$01); // Use for Rhythm Part 1 [CH A10] Time( -6:4:50) GS_EXCLUSIVE($40,$1A,$15,$02); // Use for Rhythm Part 1 [CH A11] If((SynthType >= 2 || SynthType <= 4) && PortNum == 2){ TR(34) Time( -6:4:52) GS_EXCLUSIVE($40,$10,$15,$01); // Use for Rhythm Part 1 [CH B10] Time( -6:4:50) GS_EXCLUSIVE($40,$1A,$15,$02); // Use for Rhythm Part 2 [CH B11] } //_ GS Reverb TR(33) Time( -5:1: 0) GS_EXCLUSIVE($40,$01,$30,$04); // Reverb Macro [Hall 2] // l%2 r* GS_EXCLUSIVE($40,$01,$31, 4); // Reverb Character // r* GS_EXCLUSIVE($40,$01,$32, 0); // Reverb Pre-LPF // r* GS_EXCLUSIVE($40,$01,$33, 64); // Reverb Level // r* GS_EXCLUSIVE($40,$01,$34, 64); // Reverb Time // r* GS_EXCLUSIVE($40,$01,$35, 0); // Reverb Delay Feedback // r* GS_EXCLUSIVE($40,$01,$37, 0); // Reverb Pre Delay Time //_ GS Chorus TR(33) Time( -5:1:48) GS_EXCLUSIVE($40,$01,$38,$02); // Chorus Macro [Chorus 3] // l%2 r* GS_EXCLUSIVE($40,$01,$39, 3); // Chorus Pre-LPF // r* GS_EXCLUSIVE($40,$01,$3A, 64); // Chorus Level // r* GS_EXCLUSIVE($40,$01,$3B, 8); // Chorus Feedback // r* GS_EXCLUSIVE($40,$01,$3C, 80); // Chorus Delay // r* GS_EXCLUSIVE($40,$01,$3D, 3); // Chorus Rate // r* GS_EXCLUSIVE($40,$01,$3E, 19); // Chorus Depth // r* GS_EXCLUSIVE($40,$01,$3F, 0); // Chorus Send Level to Reverb // r* GS_EXCLUSIVE($40,$01,$40, 0); // Chorus Send Level to Delay If(SynthType >= 2){ //_ GS Delay TR(33) Time( -5:2: 0) GS_EXCLUSIVE($40,$01,$50,$04); // Delay Macro [Pan Delay 1] // l%2 r* GS_EXCLUSIVE($40,$01,$51, 0); // Delay Pre-LPF // r* GS_EXCLUSIVE($40,$01,$52,110); // Delay Time Center // r* GS_EXCLUSIVE($40,$01,$53, 12); // Delay Time Ratio Left // r* GS_EXCLUSIVE($40,$01,$54, 24); // Delay Time Ratio Right // r* GS_EXCLUSIVE($40,$01,$55, 0); // Delay Level Center // r* GS_EXCLUSIVE($40,$01,$56,127); // Delay Level Left // r* GS_EXCLUSIVE($40,$01,$57, 64); // Delay Level Right // r* GS_EXCLUSIVE($40,$01,$58, 48); // Delay Level // r* GS_EXCLUSIVE($40,$01,$59, 80); // Delay Feedback // r* GS_EXCLUSIVE($40,$01,$5A, 0); // Delay Send Level to Reverbt If(SynthType >= 3){ //_ GS SC-88pro~8850 //_ GS EQ TR(33) Time( -5:2:48) EQ( 0, 3, 1, 6); //_ GS EFX TR(33) Time( -5:3: 0) GS_EXCLUSIVE($40,$03,$00,$00,$00); // EFX Type [Thru] // l%2 r* GS_EXCLUSIVE($40,$41,$22, 0); // EFX On [] // r* GS_EXCLUSIVE($40,$03,$03, 0); // // r* GS_EXCLUSIVE($40,$03,$04, 0); // // r* GS_EXCLUSIVE($40,$03,$05, 0); // // r* GS_EXCLUSIVE($40,$03,$06, 0); // // r* GS_EXCLUSIVE($40,$03,$07, 0); // // r* GS_EXCLUSIVE($40,$03,$08, 0); // // r* GS_EXCLUSIVE($40,$03,$09, 0); // // r* GS_EXCLUSIVE($40,$03,$0A, 0); // // r* GS_EXCLUSIVE($40,$03,$0B, 0); // // r* GS_EXCLUSIVE($40,$03,$14, 0); // // r* GS_EXCLUSIVE($40,$03,$15, 0); // // r* GS_EXCLUSIVE($40,$03,$16, 64); // EFX Level // r* GS_EXCLUSIVE($40,$03,$17, 0); // EFX Send Level to Reverb // r* GS_EXCLUSIVE($40,$03,$18, 0); // EFX Send Level to Chorus // r* GS_EXCLUSIVE($40,$03,$19, 0); // EFX Send Level to Delay // r* GS_EXCLUSIVE($40,$03,$1B, 0); // EFX Control Sorce 1 // r* GS_EXCLUSIVE($40,$03,$1C,127); // EFX Control Depth 1 // r* GS_EXCLUSIVE($40,$03,$1D, 0); // EFX Control Sorce 2 // r* GS_EXCLUSIVE($40,$03,$1E,127); // EFX Control Depth 2 // r* GS_EXCLUSIVE($40,$03,$1F, 1); // EFX Send EQ Switch }}}} Switch(SynthType){ //_Instulment Setup Case(7){ //_ XG MU1000/2000 // BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,LPF,Res,HPF,Atc,Dec,Rel,BR,LwF,LwG,TrF,TrG TR( 1) Time( -4:1: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 2) Time( -4:1:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 3) Time( -4:2: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 4) Time( -4:2:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 5) Time( -4:3: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 6) Time( -4:3:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 7) Time( -4:4: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 8) Time( -4:4:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 9) Time( -3:1: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(10) Time( -3:1:48) IsuXG(127, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(11) Time( -3:2: 0) IsuXG(127, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(12) Time( -3:2:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(13) Time( -3:3: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(14) Time( -3:3:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(15) Time( -3:4: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(16) Time( -3:4:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // If(PortNum == 2){ TR(17) Time( -2:1: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(18) Time( -2:1:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(19) Time( -2:2: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(20) Time( -2:2:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(21) Time( -2:3: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(22) Time( -2:3:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(23) Time( -2:4: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(24) Time( -2:4:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(25) Time( -1:1: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(26) Time( -1:1:48) IsuXG(127, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(27) Time( -1:2: 0) IsuXG(127, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(28) Time( -1:2:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(29) Time( -1:3: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(30) Time( -1:3:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(31) Time( -1:4: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(32) Time( -1:4:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // } }Case(6){ //_ XG MU100/128 // BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,LPF,Res,HPF,Atc,Dec,Rel,BR,LwF,LwG,TrF,TrG TR( 1) Time( -4:1: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 2) Time( -4:1:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 3) Time( -4:2: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 4) Time( -4:2:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 5) Time( -4:3: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 6) Time( -4:3:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 7) Time( -4:4: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 8) Time( -4:4:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR( 9) Time( -3:1: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(10) Time( -3:1:48) IsuXG(127, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(11) Time( -3:2: 0) IsuXG(127, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(12) Time( -3:2:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(13) Time( -3:3: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(14) Time( -3:3:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(15) Time( -3:4: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(16) Time( -3:4:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // If(PortNum == 2){ TR(17) Time( -2:1: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(18) Time( -2:1:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(19) Time( -2:2: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(20) Time( -2:2:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(21) Time( -2:3: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(22) Time( -2:3:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(23) Time( -2:4: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(24) Time( -2:4:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(25) Time( -1:1: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(26) Time( -1:1:48) IsuXG(127, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(27) Time( -1:2: 0) IsuXG(127, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(28) Time( -1:2:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(29) Time( -1:3: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(30) Time( -1:3:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(31) Time( -1:4: 0) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // TR(32) Time( -1:4:48) IsuXG( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64, 64,12, 12, 64, 54, 64);Null; // } }Case(5){ }Case(4){ //_ GS SC-8850 // BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,Cut,Res,Atc,Dec,Rel,BR TR( 1) Time( -4:1: 0) IsuGS( 18, 4, 40,100, 64,127, 0, 0, 0, 64, 64, 64, 54, 69, 64, 64, 64,12);Null;Mono(); // TR( 2) Time( -4:1:48) IsuGS( 20, 4, 40,127, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;Mono(); // TR( 3) Time( -4:2: 0) IsuGS( 8, 4, 91,110, 1,127, 20, 50, 0, 64, 64, 64, 74, 74, 64, 84, 24,12);Null;Mono(); // TR( 4) Time( -4:2:48) IsuGS( 8, 4, 91,110,127,127, 20, 50, 0, 64, 64, 64, 74, 74, 64, 84, 24,12);Null;Mono(); // TR( 5) Time( -4:3: 0) IsuGS( 10, 4, 52,100, 48,127, 30, 20, 30, 64, 64, 64,127, 84, 0, 48, 0,12);Null; // TR( 6) Time( -4:3:48) IsuGS( 10, 4, 52,100, 80,127, 30, 20, 30, 44, 74, 44,127, 84, 0, 48, 0,12);Null;FINE($54,$3D);Rx_CH( 5); // TR( 7) Time( -4:4: 0) IsuGS( 7, 4, 81, 90, 16,127, 10, 40, 40, 64, 64, 64,127, 64, 32, 44, 32,24);Null;y65(127);y5(20); // TR( 8) Time( -4:4:48) IsuGS( 7, 4, 81, 90,112,127, 10, 40, 40, 44, 74, 44,127, 64, 32, 44, 32,24);Null;y65(127);y5(20);FINE($54,$3D);Rx_CH( 7); // TR( 9) Time( -3:1: 0) IsuGS( 31, 4, 81,100, 64,127, 0, 0, 0, 64, 64, 64,104, 84, 64, 64, 64,12);Null;y65(127);y5(20); // TR(10) Time( -3:1:48) IsuGS( 0, 4, 14,120, 64,127, 40, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; // Dpt( 36, 60); Dpn( 39, 64); Dpt( 39, 68); Dpn( 49,112); Drs( 49, 40); Dcs( 49, 0); Dds( 49, 0); Dpn( 57, 16); Drs( 57, 40); Dcs( 57, 0); Dds( 57, 0); Dpn( 51, 32); Drs( 51, 40); Dcs( 51, 0); Dds( 51, 0); TR(11) Time( -3:2: 0) IsuGS( 0, 4, 27,100, 64,127,127, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; // TR(12) Time( -3:2:48) IsuGS( 19, 4,118,127, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; // TR(13) Time( -3:3: 0) IsuGS( 7, 4, 52, 90, 16,127, 10, 40, 40, 64, 64, 64,127, 64, 32, 44, 32,24);Null; // TR(14) Time( -3:3:48) IsuGS( 7, 4, 52, 90,112,127, 10, 40, 40, 44, 74, 44,127, 64, 32, 44, 32,24);Null;FINE($54,$3D);Rx_CH(13); // TR(15) Time( -3:4: 0) IsuGS( 4, 4, 51, 80, 32,127, 80, 30, 0, 64, 64, 64, 79, 74, 54, 79, 59,12);Null; // TR(16) Time( -3:4:48) IsuGS( 4, 4, 51, 80, 96,127, 80, 30, 0, 44, 74, 44, 79, 74, 54, 79, 59,12);Null;FINE($54,$3D);Rx_CH(15); // If(PortNum == 2){ TR(17) Time( -2:1: 0) IsuGS( 0, 4, 2,120, 64,127,100, 10, 20, 64, 64, 64, 94, 74, 64, 64, 64,12);Null; // TR(18) Time( -2:1:48) IsuGS( 0, 4, 2,127, 84,127, 60, 0, 0, 64, 64, 64,127, 99, 64, 64, 64,12);Null; // TR(19) Time( -2:2: 0) IsuGS( 2, 4, 83,100, 64,127, 50, 40, 30, 69, 84, 79,124, 79, 44, 84, 54,12);Null;Mono(); // TR(20) Time( -2:2:48) IsuGS( 2, 4, 83, 90, 64,127, 50, 40, 20, 69, 84, 79,124, 79, 44, 84, 54,12);Null;Mono(); // TR(21) Time( -2:3: 0) IsuGS( 2, 4, 51,120, 32,127, 30, 20, 40, 64, 64, 64,127, 81, 0, 64, 0,12);Null; // TR(22) Time( -2:3:48) IsuGS( 2, 4, 51,120, 96,127, 30, 20, 40, 44, 74, 44,127, 81, 0, 64, 0,12);Null;FINE($54,$3D);Rx_CH(21); // TR(23) Time( -2:4: 0) IsuGS( 0, 4, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; // TR(24) Time( -2:4:48) IsuGS( 0, 4, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; // TR(25) Time( -1:1: 0) IsuGS( 0, 4, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; // TR(26) Time( -1:1:48) IsuGS( 0, 4, 60,100, 64,127, 50, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; // Dpn( 52, 64); Dpt( 52, 60); TR(27) Time( -1:2: 0) IsuGS( 0, 4, 58,127, 64,127, 50, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; // Dpn( 84, 1); Dpn( 85,127); TR(28) Time( -1:2:48) IsuGS( 0, 4, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; // TR(29) Time( -1:3: 0) IsuGS( 0, 4, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; // TR(30) Time( -1:3:48) IsuGS( 5, 4,128,100, 64,127,127, 0, 0, 64, 64, 64, 44, 64, 64, 64, 64,12);Null; // TR(31) Time( -1:4: 0) IsuGS( 17, 3,123,127, 64,127,127, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; // TR(32) Time( -1:4:48) IsuGS( 6, 4,123,127, 64,127,127, 0, 50, 64, 64, 64, 64, 64, 64, 84, 64,12);Null; // }}} //_Rhythm Macro Switch(SynthType){ Case(7){ }Case(6){ }Case(5){ }Case(4){ }Case(3){ }Case(2){ }Case(1){ }Default{ } } $k{ n36,} $K{ n35,} $T{ n39,} $s{n107,} $S{n108,} $I{ n70,} $t{ n70,} $h{ n42,} $i{ n44,} $H{ n46,} $C{ n49,} $c{ n57,} $D{ n51,} $b{ n52,} $z{ n84,} $Z{ n85,} //--------------------------------------------------------------------------------------------- /** BODY **/ //_Track 10 [Rhtyhm 1] //_ Kick #r1bd10={ l16 q99 Rhythm{ (v127 S){ K1 }} r1 } #r1bd11={ l16 q99 Rhythm{ (v127 S){ [2k4K4] }} r1 } #r1bd12={ l16 q99 Rhythm{ (v127 S){ k4 K4 k4 K(v--)k(v+)k8(v+) }} r1 } #r1bd13={ l16 q99 Rhythm{ (v127 S){ k4 K4 k8.(v--)k(v++) K8(v-)k8(v+) }} r1 } #r1bd14={ l16 q99 Rhythm{ (v127 S){ K2K2 }} r1 } #r1bd15={ l16 q99 Rhythm{ (v127 S){ K2k4K4 }} r1 } #r1bd1f1={ l16 q99 Rhythm{ (v127 S){ Krrr (v-)kr(v+)Kr (v-)k(v+)rrr Krrr (v-)kr(v+)Kr (v-)k(v+)rrr Krr(v--)k(v++) K(v--)[4k32(v+4)]k }} r1 } //_ Snare1 #r1sd11={ l16 q99 Rhythm{ (v120 S){ [2r4s4] }} r1 } #r1sd12={ l16 q99 Rhythm{ (v120 S){ r4s4r4s8s8 }} r1 } //_ Snare2 #r1sd2s1={ l16 q99 Rhythm{ (v120 S){ r4 S4 rS8. r4 S4.S4.S4 }} r1^1 } #r1sd2s2={ l16 q99 Rhythm{ (v120 S){ r4 S4 rS8. r4 S4 }} r1^1 } //_ Clap #r1hc11={ l16 q99 Rhythm{ (v110 S){ [2r4T4] }} r1 } #r1hc12={ l16 q99 Rhythm{ (v110 S){ r4T4r4(v--)T(v+)T(v+)T8 }} r1 } //_ HiHat #r3hh11={ l16 q99 Rhythm{ (v127 S){ [4(v-15)h(v-15)h(v+30)Hr] }} r1 } #r3hh12={ l16 q99 Rhythm{ (v127 S){ [2(v-15)h(v-15)h(v+30)Hr] (v-15)h(v-15)h32(v+8)h32(v+7)H(v-15)h(v+30) (v-15)h(v-15)h(v+30)Hr }} r1 } #r3hh13={ l16 q99 Rhythm{ (v127 S){ [2(v-15)h(v-15)h(v+30)Hr] }} r1 } #r3hh14={ l16 q99 Rhythm{ (v127 S){ (v-15)h(v-15)h(v+30)Hr }} r1 } #r3hh15={ l16 q99 Rhythm{ (v127 S){ (v-20)hr(v+20)H(v-40)h(v+40) (v-20)h(v-20)h(v+40)h(v-40)h(v+40) (v-20)h(v-20)h(v+40)h(v-40)h(v+40) (v-20)hr(v+20)H(v-40)h(v+40) }} r1 } #r3hh16={ l16 q99 Rhythm{ (v127 S){ (v-20)hr(v+20)H(v-40)h(v+40) (v-20)h(v-20)h(v+40)h(v-40)h(v+40) (v-20)hr(v+20)H(v-40)h(v+40) (v-20)h(v-20)h(v+60)Hr(v-20) }} r1 } #r3hh17={ l16 q99 Rhythm{ (v127 S){ (v-20)hr(v+20)H(v-40)h(v+40) (v-20)h(v-20)h(v+40)h(v-40)h(v+40) }} r1 } //_ Shaker #r1sh11={ l16 q99 Rhythm{ (v100 S){ [4I(v---)I(v++)I(v-)I(v++)] }} r1 } #r1sh12={ l16 q99 Rhythm{ (v100 S){ [3I(v---)I(v++)I(v-)I(v++)] }} r1 } #r1sh13={ l16 q99 Rhythm{ (v100 S){ [2I(v---)I(v++)I(v-)I(v++)] }} r1 } #r1sh14={ l16 q99 Rhythm{ (v100 S){ I(v---)I(v++)I(v-)I(v++) }} r1 } //_Track 11 [Rhtyhm 2] //_Track 12 [909 SD] #sd91={ o5 v127 l16 q99 v.Repeat(off); rc+rc+ rrc+c+ c+f+b>e c+c+eg+ f+d+ #sd92={ o5 v127 l16 q99 v.Repeat(off); v.T=16,127,!1^1;[2[16c+]] v127 } #sd93={ o5 v127 l16 q99 v.Repeat(off); [4c+v-5c+32v-5c+32v-10c+rrrv+20][2c+v-5c+32v-5c+32rrv+10] } #sd94={ o5 v127 l16 q99 v.Repeat(off); v.T=48,127,!1;[8c+r] v127 } #sd95={ o5 v127 l16 q99 v.Repeat(off); [2c+v-5c+32v-5c+32v-10c+rrrv+20]c+v-5c+32v-5c+32rrv+10 c+ } //_Track 26 [Rhtyhm 3] //_Track 27 [Rhtyhm 4] //_Track 1 [Bass 1] #bs11={ l8 v127 q75 [4 #?1>#?1<] } #bs12={ l8 v127 q75 [3 #?1>#?1<] #?2>#?2< } #bs13={ l8 v127 q75 [2 #?1>#?1<] [2 #?2>#?2<] } #bs14={ l8 v127 q75 [2 #?1>#?1<] #?2>#?2< #?3>#?3< } #bs15={ l8 v127 q75 #?1>#?1< #?2>#?2< #?3>#?3< #?4>#?4< } #bs17={ l8 v127 q75 [4 #?1l16>#?1#?1#?1#?1#?2#?2#?1#?1#?2#?2#?1#?1#?2#?2#?3#?3#?1#?1#?2#?2#?3#?3#?4#?4l8#?1l8#?1l16#?1<] l8 } #bs1e={ l8 v127 q75 l16#?1r>l8#?1l8#?1l16#?1< l16#?1r>l8#?1l8#?2l16#?2< l8 } #bs1f={ l8 v127 q75 l16#?1r>l8#?1l8#?1l16#?1< l16#?2r>l8#?2l8#?2l16#?2< l8 } #bs1g={ l8 v127 q75 l16#?1r>l8#?1l8#?1l16#?1< l16#?2r>l8#?2l8#?3l16#?3< l8 } #bs1h={ l8 v127 q75 l16#?1r>l8#?1l8#?2l16#?2< l16#?3r>l8#?3l8#?4l16#?4< l8 } //_Track 2 [Bass 2] #bs21={ l8 v127 q75 [4 r>#?1<] } #bs22={ l8 v127 q75 [3 r>#?1<] r>#?2< } #bs23={ l8 v127 q75 [2 r>#?1<] [2 r>#?2<] } #bs24={ l8 v127 q75 [2 r>#?1<] r>#?2< r>#?3< } #bs25={ l8 v127 q75 r>#?1< r>#?2< r>#?3< r>#?4< } #bs27={ l16 v127 q75 [4 #?1>#?1#?1#?1<] } #bs28={ l16 v127 q75 [3 #?1>#?1#?1#?1<] #?2>#?2#?2#?2< } #bs29={ l16 v127 q75 [2 #?1>#?1#?1#?1<] [2 #?2>#?2#?2#?2<] } #bs2a={ l16 v127 q75 [2 #?1>#?1#?1#?1<] #?2>#?2#?2#?2< #?3>#?3#?3#?3< } #bs2b={ l16 v127 q75 #?1>#?1#?1#?1< #?2>#?2#?2#?2< #?3>#?3#?3#?3< #?4>#?4#?4#?4< } #bs2d={ l8 v127 q75 [2 l8r>#?1l8#?1l16#?1<] l8 } #bs2e={ l8 v127 q75 l8r>#?1l8#?1l16#?1< l8r>#?1l8#?2l16#?2< l8 } #bs2f={ l8 v127 q75 l8r>#?1l8#?1l16#?1< l8r>#?2l8#?2l16#?2< l8 } #bs2g={ l8 v127 q75 l8r>#?1l8#?1l16#?1< l8r>#?2l8#?3l16#?3< l8 } #bs2h={ l8 v127 q75 l8r>#?1l8#?2l16#?2< l8r>#?3l8#?4l16#?4< l8 } //_Track 3 [Synth 1L] #s1p1={ l8 v127 q75 [4 r>#?1<] } #s1p2={ l8 v127 q75 [3 r>#?1<] r>#?2< } #s1p3={ l8 v127 q75 [2 r>#?1<] [2 r>#?2<] } #s1p4={ l8 v127 q75 [2 r>#?1<] r>#?2< r>#?3< } #s1p5={ l8 v127 q75 r>#?1< r>#?2< r>#?3< r>#?4< } //_Track 4 [Synth 1R] //_Track 5 [Synth 2 L1] //_Track 6 [Synth 2 L2] //_Track 7 [Synth 3 L1] //_Track 8 [Synth 3 L2] //_Track 9 [Synth 4] //_Track 13 [Synth 5 L1] //_Track 14 [Synth 5 L2] //_Track 15 [Pad 1 L1] //_Track 16 [Pad 1 L2] //_Track 17 [Piano 1] //_Track 18 [Poano 2] //_Track 19 [Vocal 1] //_Track 20 [Vocal 2] //_Track 21 [] //_Track 22 [] //_Track 23 [] //_Track 24 [] //_Track 25 [] //_Track 28 [] //_Track 29 [] //_Track 30 [SFX 3] #se31={ o2 v127 q99 l1 c+ } //_Track 31 [SFX 2] #se21={ o6 v127 q99 l1^1 y74.T=64,48,!1^1;y11.T=127,0,!1^1;a } //_Track 32 [SFX 1] #se11={ o6 v127 q99 l1 y74.T=0,127,!1^1; a1^1 } #se12={ o5 v127 q99 l1 y74.T=0,127,!1^2.; a1^2. } #se13={ o5 v127 q99 l1 S{y74(0); r2 y74.T=0,127,!2; r2 y74(0);} a1 } #se14={ o5 v127 q99 l1 S{y74.T=0,127,!1; r1 y74(0);} a1 } //--------------------------------------------------------------------------------------------- //_イントロ1 Function Intro1(Int num){ // Pad 1 Str pd12={" o4 v100 l1 q98 S{ c+1 ^1 c+4 c+1 ^2. } S{ e1 ^2.d+4 ^1 ^1 c+1 ^1 d+1 ^1 e2. } S{ g+1 ^1 g+1 ^1 e2.f+4 ^2.g+4 ^1 ^1 ^2. } "} // 'c+eg+'1^2.'c+d+g+'4 'd+g+'1^2.'c+d+g+'4 // 'c+e'4.'d+g+'4.'c+f+a'4 'c+e'4.'c+f+'4.'c+eg+'4 'd+g+b'1 'c+d+g+'1 // 'c+eg+'2. // Piano 1 Str pf11={" S{ l8 r-4 r%8y64(127);r%-8r4r%-8y64(0);r%8 [2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r4 r%8y64(127);r%-8r1r%-8y64(0);r%8 [2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8 r1 [2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r4 [2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8 [2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8 [2 r%8y64(127);r%-8r4.r%-8y64(0);r%8]r%8y64(127);r%-8r4r%-8y64(0);r%8 }S{ o4 v100 l8 q98 r-4 v--ev+f+v+ 'g+>c+e<'v--c+v+'g+b>d+<'4v-'d+''b>d+f+<'4v+ 'eg+>c+e<'4.v-25d+v+g+v+5>c+v+5g+>v+5c+<< 'd+g+b'v--v+'f+b>d+<'4v-'d+'v+rr 'd+g+b>d+<'2^8rr4 'ea>c+<'v--c+v+'g+b>d+<'4v-'d+''a>c+f+<'4v+ v--<'eg+'v-15av+5>c+v+5'f+a'v+5bv+5>c+v+5'eg+'4'd+f+'v-d+av-f+v-d+v+ev-c+v-c+<'rv+ } o6 v100 l8 q98 r-4 v--c+v+d+v+ 'eg+>c+<'4v--'c+'v+'d+'4v-''v++'eg+b'4 'c+eg+'4.v-25''v+25r2 'd+g+b'4v--''v+'d+f+'4v-''v+'<c+f+>c+f+''d+f+a>c+<'v+ 'd+g+'2^8rv--'<c+g+>c+'4v++ 'c+e'4v--''v+'d+'4v-''v++'c+f+'4 'c+e'4v--''v+'c+f+'4v-''v++'c+eg+'4 'd+f+a'4v--'c+'v+'f+ab'4v-'d+f+'v+'c+f+''d+g+b'v+ >'d+t2f+t0'v-c+e<'v--c+v+'g+b>d+<'4v-'d+''b>d+f+<'4v+ 'eg+>c+e<'2^8rv-'d+g+>c+<'4v+ 'd+g+b'v--v+'f+b>d+<'4v-'d+'v+rr 'd+g+b>d+<'2^8rv--'d+g+>c+<'4v++ 'ea>c+<'v--c+v+'g+b>d+<'4v-'d+''a>c+f+<'4v+ v--<'eg+'v-15av+5>c+v+5'f+a'v+5bv+5>c+v+5'eg+'4d+<'4v--'>d+f+a<'v+r'g+b>d+<'v+r4. 'f+g+>c+<'1 'g+>c+e<'2. } o6 v100 l8 q98 r-4 v--c+v+d+v+ 'eg+>c+<'4v--'c+'v+'d+'4v-''v++'eg+b'4 'c+eg+'4.t4>e16t2f+16t0'c+t3et0'8.c+'v+'d+f+'4v-''v+'<c+f+>c+f+''d+f+a>c+<'v+ 'd+g+'4t8>d+t4g+c+d+c+e'4v--''v+'d+'4v-''v++'c+f+'4 'c+e'4v--''v+'c+f+'4v-''v++'c+eg+'4 'd+g+b'4v--d+v+'d+f+b'v+Div{g+v-d+v->v+++ 'c+d+g+b'2.Div{v---c+v+}4 'eg+b>c+<'2. "} // Rhythm 1 Str dr12 = {" l16 q99 S{ [3 #r1bd10 r1] #r1bd14 #r1bd10 #r1bd10 } Rhythm{ (v110 q%384 S){ c1 r1 r1 r2.c4 r1 r1 r1 r1 } (v110 q%384 S){ C1 r1 r1 r1 C1 r1 r1 r1 } } "} // Rhythm 3 Str dr32 = {" l16 q99 Rhythm{ (v120 S){ r-4 [3 b1 r1] b1 b1 b1 } } "} // Rhythm 4 Str dr42 = {" l16 q99 Rhythm{ (v120 S){ [8r1] r2.z1 } (v120 S){ [8r1] r2.Z1 } } "} // SFX 3 Str se32={ l1 #se31 } // SFX 2 Str se22={ l1 [8r] r2.#se21 } // SFX 1 Str se12={ l1 [7r] S{r1^2.y11(0)r1^1y11(127)} #se12 } //_Track List If(num == 1){ // Tr 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 S{ Play(; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;pf11; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;);} l1[8r*] S{ Play(; ; ; ; ; ; ; ; ; ;dr12; ; ; ; ;pd12; ;pf12; ; ; ; ; ; ; ; ;dr32;dr42; ; ;se32; ;se12;);} l1[9r*] } } //--------------------------------------------------------------------------------------------- //_共通(イントロ2・サビ・間奏) #Common1={ // Bass 1 Str bs11 = {" o2 [2 #bs11({a})] [2 #bs11({b})] [2 #bs11({>c<})] #bs11({>c+<}) #bs12({>c+<},{g+}) "} Str bs12 = {" o2 [2 #bs11({a})] [2 #bs11({b})] [2 #bs11({>c+<})] "} // Bass 2 Str bs21 = {" o2 [2 #bs21({a})] [2 #bs21({b})] [2 #bs21({>c<})] #bs21({>c+<}) #bs22({>c+<},{g+}) "} Str bs22 = {" o2 [2 #bs21({a})] [2 #bs21({b})] [2 #bs21({>c+<})] "} // Synth 1 #sn11 = { [2 #s1p1({a})] [2 #s1p1({b})] [2 #s1p1({>c<})] #s1p1({>c+<}) #s1p2({>c+<},{g+}) } #sn12 = { [2 #s1p1({a})] [2 #s1p1({b})] [2 #s1p1({>c+<})] } Str s1l1 = {" o4 #sn11 "} Str s1l2 = {" o4 #sn12 "} Str s1r1 = {" o3 #sn11 "} Str s1r2 = {" o3 #sn12 "} // Synth 5 Str sn51 = {" o6 v127 l16 q80 TDAuto(!1^1,63,64,300,-1,4,8); y74.T=48,127,!1^1,127,48,!1^1,48,127,!1^1,127,48,!1^1; [2 c+ra >c+c+< rae c+r>c+rb >d+d+< rbf+ d+r>d+c d+rd+ rcd+c<] ec+r>c+ erf+ rc+<f+ d+r>ec+< ec+rb >d+rd+ rc+d+< "} Str sn52 = {" o6 v127 l16 q80 TDAuto(!1^1,63,64,300,-1,4,8); y74.T=48,127,!1^1,127,48,!1^1,48,127,!1^1,127,48,!1^1; [2 c+ra >c+c+< rae c+r>c+rb >d+d+< rbf+ d+r>d+c+ ere rc+ec+<] f+c+r>c+ f+rd+ rg+ er>ec+< ec+r>d+ f+rd+ rc+c+e'rr'c+'rr'c+e' r'c+e'rr'c+'r'c+e'r r'd+f+'rr'd+'rr'd+f+' r'd+f+'rr'd+'r'd+f+'r r'cd+f+'rr'ce'rr'cd+f+' r'cd+f+'rr'ce'r'cd+f+'r 'c+eg+'rr'c+f+a'rr'c+eg+'r r'd+f+'rr'c+e'r'd+f+'r "} Str sn62 = {" o6 v127 l8 q99 y74.T=127,48,!1^1^1^1,48,127,!1^1^1^1; r'c+e'rr'c+'rr'c+e' r'c+e'rr'c+'r'c+e'r r'd+f+'rr'd+'rr'd+f+' r'd+f+'rr'd+'r'd+f+'r r'c+eg+'rr'c+e'rr'c+eg+' r'c+eg+'rr'd+f+a'r'd+g+b'r 'f+a>c+<'rr'g+b>d+<'rr'ea>c+<'r r'd+f+a'rr'f+a>c+<'r'g+b>d+<'r "} // Pad 1 Str pd11={" o5 v100 l1 q98 'c+e'1^1 'd+f+'1^1 'cd+f+'1^1 'c+eg+'4.'c+f+a'4.'c+eg+'4.'d+f+'4.'c+e'4'd+f+'4 "} Str pd12={" o5 v100 l1 q98 'c+e'1^1 'd+f+'1^1 'c+eg+'1^1 'c+f+a'4.'d+g+b'4.'c+ea'4.'d+f+a'4.'c+f+a'4'd+g+b'4 "} // Piano 2 Str pf21={" S{ l8 [3 r%8y64(127);r%-8r1^8r%-8y64(0);r%8 r%8y64(127);r%-8r1-8r%-8y64(0);r%8] [4 r%8y64(127);r%-8r4.r%-8y64(0);r%8] r%8y64(127);r%-8r2r%-8y64(0);r%8 }S{ o4 v100 l8 q98 } o6 v110 l8 q98 ''c+'ea' ea'c+'a r'ea'c+a 'c+e'a>c+'d+'f+b' f+b'd+'b r'f+b'd+b 'd+f+'b>d+c'd+'f+>c<'c f+>c<'d+f+'c r'f+>c<'d+c 'd+f+'c>d+c+<'c+f+'a>c+<'c+e'g+>c+<'d+'f+b'c+'d+f+'a "} Str pf22={" S{ l8 [3 r%8y64(127);r%-8r1^8r%-8y64(0);r%8 r%8y64(127);r%-8r1-8r%-8y64(0);r%8] [4 r%8y64(127);r%-8r4.r%-8y64(0);r%8] r%8y64(127);r%-8r2r%-8y64(0);r%8 }S{ o4 v100 l8 q98 } o6 v110 l8 q98 ''c+'ea' ea'c+'a r'ea'c+a 'c+e'a>c+'d+'f+b' f+b'd+'b r'f+b'd+b 'd+f+'b>d+c+'e'g+>c+<'c+ g+>c+<'c+e'c+ r'g+>c+<'ec+ 'eg+'c+>ec+<'d+g+'b>d+<'c+e'a>c+<'d+f+'a>d+<'c+f+'g+b'>d+< "} // Rhythm 1 Str dr1c1 = {" l16 q99 S{ [2 [3 #r1bd11] : #r1bd12] #r1bd13 } S{ [7 #r1hc11] #r1hc12 } S{ [8 #r1sh11] } Rhythm{ (v110 q%384 S){ c1 r1 r1 r1 r1 r1 r1 r1 } (v110 q%384 S){ C1 r1 r1 r1 C1 r1 r1 r1 } (v120 q%384 S){ r1 r1 r1 r1 r1 r1 D4.D4.D4.D4.D4D4 } } "} Str dr1c2 = {" l16 q99 S{ [2 [2 #r1bd11] : #r1bd11 #r1bd12] #r1bd1f1 } S{ [8 #r1hc11] } S{ [7 #r1sh11] #r1sh13 } Rhythm{ (v110 q%384 S){ r1 r1 r1 r1 c1 r1 c4.r4.c4.r4.c4c4 } (v110 q%384 S){ C1 r1 r1 r1 r1 r1 C4.C4.r4.C4.C4r4 } } "} // 909 SD Str sd91 = {" l1 [6r] #sd94 #sd91 "} Str sd92 = {" l1 [4r] #sd92 #sd93 "} // SFX 3 Str se31={ l1 #se31 } // SFX 2 Str se21={ l1 #se21 } // SFX 1 Str se12={ l1 [7r] #se14 } } //--------------------------------------------------------------------------------------------- //_イントロ2 Function Intro2(Int num){ // 共通部呼び出し #Common1; // Synth 2 Str sn21 = {" o5 v127 l8 q80 'c+e'8.'c+'8.'c+e''c+e'4'c+''c+e' 'c+e'8.'c+'8.'c+e''c+'4'c+e'8.r16 'd+f+'8.'d+'8.'d+f+''d+f+'4'd+''d+f+' 'd+f+'8.'d+'8.'d+f+''d+'4'd+f+'8.r16 'cd+f+'8.'ce'8.'cd+f+''cd+f+'4'ce''cd+f+' 'cd+f+'8.'ce'8.'cd+f+''ce'4'cd+f+'8.r16 'c+eg+'4'c+e''c+f+a'4'd+f+''c+eg+'4 'c+e''d+f+'4'd+''c+e'4'd+f+'8.r16 "} Str sn22 = {" o5 v127 l8 q80 'c+e'8.'c+'8.'c+e''c+e'4'c+''c+e' 'c+e'8.'c+'8.'c+e''c+'4'c+e'8.r16 'd+f+'8.'d+'8.'d+f+''d+f+'4'd+''d+f+' 'd+f+'8.'d+'8.'d+f+''d+'4'd+f+'8.r16 'c+eg+'8.'c+e'8.'c+eg+''c+eg+'4'c+e''c+eg+' 'c+eg+'8.'c+e'8.'c+eg+''d+f+a'4'd+g+b'8.r16 'f+a>c+<'4'd+f+a''g+b>d+<'4'eg+b''ea>c+<'4 'c+e''d+f+a'4'd+f+''f+a>c+<'4'g+b>d+<'4 "} // Rhythm 1 Str dr11 = dr1c1 + {" l16 q99 S{ [2 [3 #r3hh11] #r3hh12] } "} Str dr12 = dr1c2 + {" l16 q99 S{ [2 [3 #r3hh11] : #r3hh12] #r3hh13 } "} Str dr17 = {" l16 q99 S{ #r1bd10 } Rhythm{ (v110 q%384 S){ [13c4(v-8)] } (v110 q%384 S){ [13C4(v-8)] } } "} // SFX 1 Str se16={ l1 [6r] #se11 } //_Track List // Tr 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 S{ Play(;bs11;bs21;s1l1;s1r1;sn21; ; ; ; ;dr11; ;sd91;sn51; ;pd11; ; ;pf21; ; ;sn61; ; ; ; ; ; ; ; ; ;se21; ;);} l1[8r*] If(num == 1){ // Tr 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 S{ Play(;bs12;bs22;s1l2;s1r2;sn22; ; ; ; ;dr12; ;sd92;sn52; ;pd12; ; ;pf22; ; ;sn62; ; ; ; ; ; ; ; ; ; ; ;);} l1[8r*] } If(num == 3){ // Tr 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 S{ Play(;bs12;bs22;s1l2;s1r2;sn22; ; ; ; ;dr12; ;sd92;sn52; ;pd12; ; ;pf22; ; ;sn62; ; ; ; ; ; ; ; ; ; ;se16;);} l1[8r*] S{ Play(; ; ; ; ; ; ; ; ; ;dr17; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;se31;se21; ;);} l1[4r*] } } //--------------------------------------------------------------------------------------------- //_イントロ3 Function Intro3(Int num){ // Bass 1 Str bs11={" o2 [4 #bs17({g+})] "} // Bass 2 Str bs21={" o2 [4 #bs27({g+})] "} // Synth 3 Str sn31 = {" o6 v127 l16 q75 TDAuto(!1^1,63,64,300,-1,2,8); y74.T=48,127,!1^1,127,48,!1^1; [2 g+rd+g+^r>d+r< g+rd+g+^r>c+r< g+rd+g+^rbr g+rd+g+^r>c+r<] "} // Pad 1 Str pd11={" o5 v100 l1 q98 'c+d+'1^1^1^1 "} // Rhythm 1 Str dr11 = {" l16 q99 S{ [4 #r1bd11] } S{ [2 #r1sd2s1] } S{ [2 #r3hh15 #r3hh16] } S{ [4 #r1sh11] } Rhythm{ (v110 q%384 S){ c1 r1 r1 r2c4r4 } (v110 q%384 S){ C1 r1 r1 r2r4C4 } } "} // SFX 2 Str se21={ l1 r1^1 #se21 } //_Track List If(num == 1){ // Tr 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 S{ Play(;bs11;bs21; ; ; ; ;sn31; ; ;dr11; ; ; ; ;pd11; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;se21; ;);} l1[4r*] } } //--------------------------------------------------------------------------------------------- //_Aメロ Function AMero1(Int num){ // Bass 1 Str bs11={" o2 [2 #bs17({g+})] [2 #bs17({f+})] #bs17({g+}) #bs19({g+},{a}) l8 b>b bc+ >c+c+<< b>b b aa< g+r f+r "} Str bs12={" o2 [2 #bs17({g+})] [2 #bs17({f+})] #bs17({g+}) #bs19({g+},{a}) l8 b>b bc+ >c+c+<< b>b< a "} Str bs13={" o2 [2 #bs17({g+})] [2 #bs17({f+})] "} // Bass 2 Str bs21={" o2 [2 #bs27({g+})] [2 #bs27({f+})] #bs27({g+}) #bs29({g+},{a}) l16 b>bbb brc+>c+ c+c+c+r<< b>bbb bra aaar< g+>g+f+bbb brc+>c+ c+c+c+r<< b>bbb< a8 "} Str bs23={" o2 [2 #bs27({g+})] [2 #bs27({f+})] "} // Synth 4 Str sn41 = {" o5 v127 l16 q75 TDAuto(!1^1,63,64,0,-1,4,8); y74.T=48,127,!1^1,127,48,!1^1,48,127,!1^1,127,48,!1^1; g+rd+g+ rbf+r g+f+rd+ rd+r g+rd+g+ rbf+r bf+rd+ g+rr f+rc+f+ raer f+erc+ rc+r f+rc+f+ raer aerc+ f+rr g+rd+g+ rbf+r g+f+rd+ rd+r g+rd+g+ rbf+r >c+c+rd+r g+rd+g+ rbf+r bf+rd+ g+rr f+rc+f+ raer f+erc+ rc+r f+rc+f+ raer aerc+ f+rr g+rd+g+ rbf+r g+f+rd+ rd+r g+rd+g+ rbf+r >c+c+rd+r g+rd+g+ rbf+r bf+rd+ g+rr f+rc+f+ raer f+erc+ rc+r f+rc+f+ raer aerc+ f+rr g+rd+g+ rbf+r g+f+rd+ rd+r g+rd+g+ rbf+r >c+c+d+'1^1 'c+'1^1 'd+'1^2'c+e'2 'd+f+'4.'c+eg+'4.'d+f+'4.'c+e'4.'d+'4'c+'4 "} Str pd12={" o5 v100 l1 q98 'd+'1^1 'c+'1^1 'd+'1^2'c+e'2 'd+f+'4.'c+eg+'4.'d+f+'4 "} // 'c+e'4 Str pd13={" o5 v100 l1 q98 'd+'1^1 'c+'1^1 'd+'1^2'c+e'2 'd+f+'4.'c+eg+'4.'d+f+'4.'c+e'4. "} // Lyric Str lyr1={ l8 r-8 r4 Lyric = {"小鳥のさえずりを聞いて 目覚めた"} r2. [2r1] r2. Lyric = {"明けの空 浮かぶ月 見上げる事もなく"} } Str lyr2={ l8 r-8 r4 Lyric = {"まとわりつく喧騒と砂礫を 貫いて"} r2. [3r1] r2 Lyric = {"稜線の彼方まで"} } Str lyr3={ l8 r-8 r4 Lyric = {"散りばめた星々が 揺らめく"} r2. [2r1] r2. Lyric = {"真四角に 切り取った 夜天を塗りつぶす"} } Str lyr4={ l8 r-8 r4 Lyric = {"響かぬ声 渇いた嗤い 目を伏せて"} r2. [2r1] r2. Lyric = {"積み上がる孤絶と無我 凍える楼閣"} } // Vocal Str vo11 = {" o5 v110 l8 q97 r4g+,90g+,90g+f+g+b g+g+g+f+4,99f+,80g+4,90 r4g+4,75f+b4,65g+8 ^2^8rg+b >c+c+c+4.,90d+4.,90c+4 ^8,90c+c+c+4.,90d+4.,90c+4 c+c+c+4.,90d+4.,90c+4 ^8,90c+c+4c+4.,90d+4.,90c+4 c+e<'v--c+v+'g+b>d+<'4v-'d+''b>d+f+<'4v+ 'eg+>c+e<'4.v-25d+v+g+v+5>c+v+5g+>v+5c+<< 'd+g+b'v--v+'f+b>d+<'4v-'d+'v+rr 'd+g+b>d+<'2^8rr4 'ea>c+<'v--c+v+'g+b>d+<'4v-'d+''a>c+f+<'4v+ v--<'eg+'v-15av+5>c+v+5'f+a'v+5bv+5>c+v+5'eg+'4'd+f+'v-d+c+e<' } o6 v100 l8 q98 r-4 v--c+v+d+v+ 'eg+>c+<'4v--'c+'v+'d+'4v-''v++'eg+b'4 'c+eg+'4.v-25''v+25r2 'd+g+b'4v--''v+'d+f+'4v-''v+'<c+f+>c+f+''d+f+a>c+<'v+ 'd+g+'2^8rv--'<c+g+>c+'4v++ 'c+e'4v--''v+'d+'4v-''v++'c+f+'4 'c+e'4v--''v+'c+f+'4v-''v++'c+eg+'4 'd+f+a'4v--'c+'v+'f+ab'4v-'d+f+'v+'c+f+''d+g+b'v+ 'eg+>c+<' "} // Rhythm 1 Str dr11 = {" l16 q99 S{ [5 #r1bd11] #r1bd12 [2 #r1bd11] } S{ [3 #r1sd11] #r1sd12 [2 #r1sd11] } S{ [6r1] #r1sd2s1 } S{ [4 #r3hh15 : #r3hh16] #r3hh17 } S{ [7 #r1sh11] #r1sh13 } Rhythm{ (v110 q%384 S){ c1 r1 r1 r2.c4 r1 r1 c4.c4.r4.c4.r4r4 } (v110 q%384 S){ C1 r1 r1 r2.r4 C1 r1 C4.r4.C4.r4.r4r4 } (v120 q%384 S){ r1 r1 r1 r1 r1 r1 r4.r4.r4.r4.D4D4 } } "} #r1bd1s1={ l16 q99 Rhythm{ (v127 S){ Krrr (v-)k(v+)rKr rr(v-)k(v+)r k(v--)k(v+)k(v-)k(v++) K1 }} r1 } Str dr12 = {" l16 q99 S{ [5 #r1bd11] #r1bd13 #r1bd1s1 } S{ [3 #r1sd11] #r1sd12 [2 #r1sd11] } S{ [6r1] #r1sd2s2 } S{ [4 #r3hh15 : #r3hh16] } S{ [7 #r1sh11] } Rhythm{ (v110 q%384 S){ c1 r1 r1 r2.c4 r1 r1 c4.c4.r4 c1 } (v110 q%384 S){ C1 r1 r1 r2.r4 C1 r1 C4.r4.C4 C1 } } "} #r1bd1s2={ l16 q99 Rhythm{ (v127 S){ Krrr (v-)k(v+)rKr rr(v-)k(v+)r Krrr (v-)k(v+)rKr rr(v-)k(v+)r K4K4 }} r1 } Str dr13 = {" l16 q99 S{ [5 #r1bd11] #r1bd12 #r1bd1s2 } S{ [3 #r1sd11] #r1sd12 [2 #r1sd11] } S{ [2 #r3hh15 #r3hh16] } S{ [6 #r1sh11] } Rhythm{ (v110 q%384 S){ c1 r1 r1 r2.c4 r1 r1 c4.c4.r4.c4.r4r4 } (v110 q%384 S){ C1 r1 r1 r2.r4 C1 r1 C4.r4.C4.r4.r4r4 } } "} Str dr14 = {" l16 q99 Rhythm{ (v110 q%384 S){ c1 } (v110 q%384 S){ C1 } } "} // 909 SD Str sd91 = {" l1 [6r] #sd93 "} Str sd92 = {" l1 [6r] #sd95 "} // SFX 1 Str se12={ l1 [7r] #se14 } //_Track List If(num == 1){ // Tr 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 S{ Play(lyr1;bs11;bs21; ; ; ; ; ; ;sn41;dr11; ;sd91; ; ;pd11; ; ; ;vo11; ; ; ; ; ; ; ; ; ; ; ; ; ;);} l1[8r*] S{ Play(lyr2;bs12;bs22; ; ; ; ; ; ;sn42;dr12; ;sd92; ; ;pd12; ; ; ;vo12; ; ; ; ; ; ; ; ; ; ; ; ;se12;);} l1[8r*] } If(num == 2){ // Tr 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 S{ Play(lyr3;bs13;bs23; ; ; ; ; ; ;sn43;dr13; ; ; ; ;pd13; ; ; ;vo13; ; ; ; ; ; ; ; ; ; ; ; ; ;);} l1[8r*] S{ Play(lyr4; ; ; ; ; ; ; ; ; ;dr14; ; ; ; ; ; ;pf13; ;vo14; ; ; ; ; ; ; ; ; ; ; ; ;se12;);} l1[8r*] } } //--------------------------------------------------------------------------------------------- //_サビ Function Sabi1(Int num){ // 共通部呼び出し #Common1; // Lyric Str lyr1={ l8 r-8 r-2. Lyric = {"ひとつ目の誓いを交わした あの日から"} r2. [2r1] Lyric = {"色無き回廊を迷い"} [2r1] Lyric = {"ふたつ目の約束は 果たせぬままで"} } Str lyr2={ l8 r-8 Lyric = {"みっつ目の祈りを捧ぐ 神は滅びたけれども"} [4r1] Lyric = {"よっつ目の願いは僕が届けるよ この手で"} } Str lyr3={ l8 r-8 r-2. Lyric = {"いつつ目の悲しみは 深い闇に墜ち"} r2. [2r1] Lyric = {"連鎖から煮詰められた"} [2r1] Lyric = {"むっつ目の嘆きを綴るグリモワール"} } Str lyr4={ l8 r-8 Lyric = {"ななつ目の怒りで引き裂いた欠片は散って"} [4r1] Lyric = {"やっつ目の諦観を呼ぶけれど 逃げずに"} } // Vocal 1 Str vo11 = {" o6 v110 l8 q95 r-2. f+,90f+ed+c+d+ c+8.c+,90c+8.c+,90 c+8.r16c+8.c+16.r32 d+8.d+,90d+8.r16d+ d+8.d+,90d+8.r16 d+8.c8.d+,90d+8.r16cd+ d+8.c8.d+,90c4,90d+8.r16 e4.,90f+4.,90e4 ^8,90d+4.,90c+4,90d+8.r16 "} Str vo12 = {" o6 v110 l8 q97 c+8.c+,90c+8.r16c+ c+8.c+,90c+8.r16 d+8.d+,90d+8.r16d+ d+8.d+,90d+8.r16 e8.c+8.e,90e8.r16c+e e8.c+8.e,90f+4g+8.r16 a4.,90b4.,90a4,90 f+4rg+a4b4 >c+1^1 "} Str vo13 = {" o6 v110 l8 q95 r-2. f+,90f+ed+c+d+ c+8.c+,90c+8.r16c+ c+8.c+,90c+8.r16 d+8.d+,90d+8.r16d+ d+8.d+,90d+8.r16 d+8.c8.d+,90d+8.r16cd+ d+8.c8.d+,90d+8.c8.d+16.r32 e4.,90f+4.,90e4 ^8,90d+4.,90c+4,90d+8.r16 "} Str vo14 = {" o6 v110 l8 q97 c+8.c+,90c+8.r16c+ c+8.c+,90c+8.r16 d+8.d+,90d+8.r16d+ d+8.d+,90d+4r4 e8.c+8.e,90e8.r16c+e e8.c+8.e,90f+4g+8.r16 a4.,90b4.,90a4,90 f+4rg+a4b4 >c+1^1 "} // Vocal 2 Str vo21 = {" o5 v100 l8 q95 r-8 b a8.f+8.a,90a8.f+8.a,90 a8.r16f+f+a8.f+8.a16.r32 b8.g+8.b,90b8.r16g+b b8.g+8.b,90g+4,90b8.r16 b8.a8.b,90b8.r16ab b8.a8.b,90a4,90b8.r16 >c+4.,90d+4.,90c+4 ^8,90c+8.c+,90c+8.r16c+ c+8.c+,90d+4e8.r16 f+4.,90g+4.,90f+4,90 d+4ref+4g+4 a1^1 "} Str vo23 = {" o5 v100 l8 q95 r-8 b a8.f+8.a,90a8.r16f+a a8.f+8.a,90f+4a8.r16 b8.g+8.b,90b8.r16g+b b8.g+8.b,90g+4,90b8.r16 b8.a8.b,90b8.r16ab b8.a8.b,90b8.a8.b16.r32 >c+4.,90d+4.,90c+4 ^8,90c+8.c+,90c+8.r16c+ c+8.c+,90d+4e8.r16 f+4.,90g+4.,90f+4,90 d+4ref+4g+4 a1^1 "} // Rhythm 1 Str dr11 = dr1c1 + {" l16 q99 S{ [4 #r3hh15 #r3hh16] } "} Str dr12 = dr1c2 + {" l16 q99 S{ [4 #r3hh15 : #r3hh16] #r3hh17 } "} //_Track List If(num == 1){ // Tr 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 S{ Play(lyr1;bs11;bs21;s1l1;s1r1; ; ; ; ; ;dr11; ;sd91;sn51; ;pd11; ; ;pf21;vo11;vo21;sn61; ; ; ; ; ; ; ; ; ;se21; ;);} l1[8r*] S{ Play(lyr2;bs12;bs22;s1l2;s1r2; ; ; ; ; ;dr12; ;sd92;sn52; ;pd12; ; ;pf22;vo12;vo22;sn62; ; ; ; ; ; ; ; ; ; ;se12;);} l1[8r*] } If(num == 2){ // Tr 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 S{ Play(lyr3;bs11;bs21;s1l1;s1r1; ; ; ; ; ;dr11; ;sd91;sn51; ;pd11; ; ;pf21;vo13;vo23;sn61; ; ; ; ; ; ; ; ; ;se21; ;);} l1[8r*] S{ Play(lyr4;bs12;bs22;s1l2;s1r2; ; ; ; ; ;dr12; ;sd92;sn52; ;pd12; ; ;pf22;vo14;vo24;sn62; ; ; ; ; ; ; ; ; ; ;se12;);} l1[8r*] } } //--------------------------------------------------------------------------------------------- //_間奏1 Function Kanso1(Int num){ // 共通部呼び出し #Common1; // Bass 1 Str bs14 = {" o2 [2 #bs17({a})] [2 #bs17({b})] [4 #bs17({>c+<})] >c+8 "} // Bass 2 Str bs24 = {" o2 [2 #bs27({a})] [2 #bs27({b})] [4 #bs27({>c+<})] >c+ "} // Synth 2 Str sn21 = {" o5 v127 l8 q75 v--g+v++>g+,99>d+<>d+,99c+<>c+<< v--g+v++>b,99ag+,99f+d+< v--g+v++>g+,99>d+<>d+,99c+<>c+<< v--g+v++>>c+,99g+,99f+d+< v--g+v++>g+,99>d+<>d+,99c<>c<< v--g+v++>b,99ag+,99f+d+< v--g+v++>g+,99>d+<>d+,99c+<>c+<< v--g+v++>c+,99eg+,99b>c+<< "} Str sn22 = {" o5 v127 l8 q75 v--g+v++>g+,99>d+<>d+,99c+<>c+<< v--g+v++>b,99ag+,99f+d+< v--g+v++>g+,99>d+<>d+,99c+<>c+<< v--g+v++>>c+,99g+,99f+d+< y74.T=127,0,!1^1^1^1; v--g+v++>g+,99>d+<>d+,99c+<>c+<< v--g+v++>b,99ag+,99f+d+< v--g+v++>g+,99>d+<>d+,99c+<>c+<< v--g+v++>>c+,99g+,99f+d+,99 c+ r1y74(127); "} // Pad 1 Str pd14={" o5 v100 l1 q98 'c+e'1^1 'd+f+'1^1 'c+eg+'1^1 'c+f+g+'1^1 "} // Piano 2 Str pf24={" S{ l8 [3 r%8y64(127);r%-8r1^8r%-8y64(0);r%8 r%8y64(127);r%-8r1-8r%-8y64(0);r%8] r%8y64(127);r%-8r1r%-8y64(0);r%8 r%8y64(127);r%-8r1^8r%-8y64(0);r%8 }S{ o4 v100 l8 q98 } o6 v110 l8 q98 v.Repeat(off); ''c+'ea' ea'c+'a r'ea'c+a 'c+e'a>c+'d+'f+b' f+b'd+'b r'f+b'd+b 'd+f+'b>d+c+'e'g+>c+<'c+ g+>c+<'c+e'c+ r'g+>c+<'ec+ 'eg+'c+>ec+'f+'g+>c+<'c+ g+>c+<'c+f+'c+ l16< S{ v.T=80,110,!1;<<<c+f+g+> c+f+g+>c+ f+g+>c+f+ g+>c+f+g+< } v.T=80,110,!1;<<c+f+ g+>c+f+g+> c+f+g+>c+ f+g+>c+f+<< v110'>c+g+>c+eg+<<'8 "} // v.T=80,110,!1;< c+ef+b> c+f+g+b> c+eg+b v110>c+8 // v.T=80,110,!1;<<<'c+g+''eb''g+>c+<''b>e<'> 'c+f+''eb''f+>c+<''b>f+<'> 'c+g+''f+b''g+>c+<''b>e<'> 'c+g+''eb''g+>c+<''b>f+<' v110>'c+eg+'8 // Rhythm 1 Str dr13 = {" l16 q99 S{ [3 #r1bd10 r1] #r1bd14 #r1bd15 } Rhythm{ (v110 q%384 S){ c1 r1 c1 r1 r1 r1 c2r2 c2c4r4 } (v110 q%384 S){ C1 r1 r1 r1 C1 r1 r2C2 C2r4C4 } } "} #r1bd1s1={ l16 q99 Rhythm{ (v127 S){ Krkr Krkr Kkkk Kkkk }} r1 } Str dr14 = {" l16 q99 S{ [5 #r1bd11] #r1bd13 #r1bd11 #r1bd1s1 #r1bd10 } S{ [2 [3 #r1sd11] #r1sd12] } S{ [2 [3 #r3hh11] #r3hh12] } S{ [7 #r1sh11] } Rhythm{ (v110 q%384 S){ c1 r1 r1 r2.c4 r1 r1 c2r2 c2c4r4 c1 } (v110 q%384 S){ C1 r1 r1 r2.r4 C1 r1 r2C2 C2r4C4 C1 } } "} // Rhythm 3 Str dr33 = {" l16 q99 Rhythm{ (v120 S){ r-4 [3 b1 r1] b1 b1 } } "} // 909 SD Str sd94 = {" o5 v127 l16 q99 v.Repeat(off); [4r1] v.T=1,127,!1^1^1;[3[16c+]] v127[8c+]g+>d+a>ec+t4ed+c+d+f+a'8.r16v+ 'f+t2bt4>d+c+c+<'4'et2g+t4bt0'4'f+t2bt4>c+c+v-5f+v-5bv+5>c+v+5f+v+5g+v+5b v+5>c+ } o6 v100 l8 q98 r-4 v--c+v+d+v+ Div{v--ev+c+v+}4Div{v--d+v+}4Div{v--c+v+}4 Div{v--c+v+c+v+d+}4v-v+ Div{v--d+}4Div{v--c+v+ec+c+c+v+5g+v+5>c+v+5f+v-5bv-5>c+v-5f+ v-g+32b32>c+ "} // Vocal Str vo11 = {" o6 v110 l8 q97 r-4 c+d+ Div{ec+}4Div{d+}4Div{c+}4 Div{c+c+16d+16 Div{d+}4Div{c+ ec+c+4 ^1 "} // Lyric Str lyr1={ l8 r-16 r-4 Lyric = {"ここのつの指を折って 背負う悔いを数えた"} r1 r2^%16 Lyric = {"その時 とおの影を溶かし また朝が来る"} } //_Track List If(num == 1){ // Tr 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 S{ Play(lyr1; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;pf11; ;vo11; ; ; ; ; ; ; ; ; ; ; ; ; ;);} l1[6r*] } } //--------------------------------------------------------------------------------------------- Time( 0:1:0) Tempo = 128; Time( 1:1:0) Intro1(1); r-4 Tempo = 176; r4 Intro2(1); Intro3(1); AMero1(1); Sabi1(1); Intro2(1); Intro3(1); AMero1(2); Kanso1(1); Sabi1(2); Intro2(3); S{ l4 r-4 Tempo = 80; r4 Tempo = 96; r1 Tempo = 88; r4 Tempo = 80; r4 Tempo = 64; r4 Tempo = 56; r4 Tempo = 96; r2 Tempo = 88; r4 Tempo = 80; r4 Tempo = 72; r4 Tempo = 64; r4 Tempo = 56; r4 Tempo = 64; r4 Tempo = 80; r4 Tempo = 88; r2 Tempo = 80; r4 Tempo = 72; r2 Tempo = 64; r4 Tempo = 56; r8 Tempo = 40; r8 Tempo = 64; r4 } Outro1(1); l1 v0 c+