/** TOP - Base template : ver3.00 **/
/*￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
■ T w i l i g h t S p e c t r a ■
【 作曲・著作権 】H.YAMANOI
【対 象 音 源】SC-8850 2port
【使 用 音 源】SH-32, JV-1080+SR-JV80-16, MU1000EX+PLG-150DX,
z3ta+2, Pianoteq+Xylo add-on, OP-X2 Pro, D-Pro+ProteusPack,
IA, 結月ゆかり, 巡音ルカ, 初音ミクAppend
【再 生 確 認】TMIDI Player version 3.8.5 (release)
【 サクラのVer. 】2.375
【 連 絡 先 】blog : http://ykun.exblog.jp/
Twitter : https://twitter.com/#!/Ykun2496
【 そ の 他 】ニコニコ動画
http://www.nicovideo.jp/watch/sm17682526
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
ダウンロードしていただきありがとうございました。
◆曲のこと
いつも暗くなるまで遊んだ汀の野原。
水面と空のグラデーション。
そんな記憶の唄。
M3-2012春で頒布したさくらもどきさん主催の水をテーマとしたコンピレーションアルバム
「Aqua-Style」
http://www.nicovideo.jp/watch/sm17631009
へ寄せた曲です。
この曲には次の成分が含まれております。（順不同）
ケルト楽器を使おう！
ボカロユニット結成
No SuperSaw, no life！
９・０・９！９・０・９！
ベースはやっぱりFM音源じゃないと…
32小節のスネアロール
リードシンセのCoolなソロ
水がテーマだけどジメジメしていない曲
夏ですよ～！（まだ早いっ）
やりたい事を全部詰め込んだら、なんともごった煮な
曲となりました。何時もの事だけど…
◆歌詞
ボーカル：IA & 結月ゆかり
コーラス：巡音ルカ、初音ミクAppend
僕を呼ぶ声が
遠く近く響く
揺れる水面で跳ねた陽が
紅く染める君の頬
みんな笑ってた
いつも いつまでもずっと
茜色の空に
靡く一朶のもつれ雲
白南風が揺さぶった水鏡
僕たちの影法師 揺らめいた
沈む太陽 追って走る
翔ける汀の野道
またねと手を振った
とばりは降りて
しじまに流れ星
弾ける記憶を
そっと胸にしまって
◆更新履歴
2012/04/13 Ver1.00 完成
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿*/
//------------------------------------------------------------------------------
/** HEADER **/
//------------------------------------------------------------------------------
//_System Setting
//------------------------------------------------------------------------------
Include (stdmsg.h);
//System.MeasureShift (4);
System.TimeBase (96);
System.vAdd (10);
System.qAdd (10);
Str Tmp_Title = {"Twilight Spectra"};
Str Tmp_Ver = {"1.00"};
Str Tmp_Copyright = {"13/04/2012 H.YAMANOI"}
Int PortNum = 2;
//_Synth Type
Int SynthType = 4 ; // 音源のタイプ -1～8まで 初期値:8
Int UsePF = 0 ; // XG音源でPLG150-PFを使用する
Int UseDX = 0 ; // XG音源でPLG150-DXを使用する
// 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;
}
// Track Definition
For(Int Tmp_i = 0; Tmp_i < 32; Tmp_i++){
TR(Tmp_i + 1) Port(Tmp_i / 16) CH(Tmp_i % 16 + 1)
}
TR(33) Port(0) CH( 1)
TR(34) Port(1) CH( 1)
//------------------------------------------------------------------------------
//_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(Int Ibm, Int Ibl, Int Ipc, Int Ivol, Int Ipan, Int Iexp, Int Irev, Int Icho, Int Idly, Int Ips) {
// BankMSB, BankLSB, PC#
y0(Ibm);r*%1 y32(Ibl);r*%1 @(Ipc);r*%1
// Vol, Pan, Exp
y7(Ivol);r*%1 y10(Ipan);r*%1 y11(Iexp);r*%1
// Rev, Cho, Dly/Var
y91(Irev);r*%1 y93(Icho);r*%1 y94(Idly);r*%1
// PitchBendSensitivity
y100(0);r*%1 y101(0);r*%1 y6(Ips);r*%1
}
// PitchBend Sensitivity Null
Function Null() {
y101(127); r*%1 y100(127); r*%1
}
// Mono Mode
Function Mono() {
y126(0); r*%1
}
// Poly Mode
Function Poly() {
y127(0); r*%1
}
// 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);r*%1
}
//_ for GS
// System Exclusive
Function GS_EXCLUSIVE(Array Data) {
SysEx = $F0,$41,$10,$42,$12,{(Data)},$F7;
}
// Instrument SetUp
Function IsuGS(Int Ibm, Int Ibl, Int Ipc, Int Ivol, Int Ipan, Int Iexp, Int Irev, Int Icho, Int Idly,
Int Ivrt, Int Ivdp, Int Ivdl, Int Iflpf, Int Ires, Int Ieatk, Int Iedc, Int Ierel, Int Ips) {
// BankMSB, BankLSB, PC#, Vol, Pan, Exp, Rev, Cho, Dly, PitchBendSensitivity
IsuGM(Ibm, Ibl, Ipc, Ivol, Ipan, Iexp, Irev, Icho, Idly, Ips);r*%1
// Vibrato Rate, Depth, Delay
y99(1);r*%1 y98(8);r*%1 y6(Ivrt);r*%1 y99(1);r*%1 y98(9);r*%1 y6(Ivdp);r*%1 y99(1);r*%1 y98(10);r*%1 y6(Ivdl);r*%1
// Filter LPF, Res
y99(1);r*%1 y98(32);r*%1 y6(Iflpf);r*%1 y99(1);r*%1 y98(33);r*%1 y6(Ires);r*%1
// Envelope Attack, Decay, Release
y99(1);r*%1 y98(99);r*%1 y6(Ieatk);r*%1 y99(1);r*%1 y98(100);r*%1 y6(Iedc);r*%1 y99(1);r*%1 y98(102);r*%1 y6(Ierel);r*%1
}
// System EQ
Function EQ(Int Ilf, Int Ilg, Int Ihf, Int Ihg){
// LowFreq, LowGain, HiFreq, HiGain
GS_EXCLUSIVE($40,$02,$00,(Ilf ));r*%1 // EQ Low Freq
GS_EXCLUSIVE($40,$02,$01,(Ilg + 64));r*%1 // EQ Low Gain
GS_EXCLUSIVE($40,$02,$02,(Ihf ));r*%1 // EQ Hi Freq
GS_EXCLUSIVE($40,$02,$03,(Ihg + 64));r*%1 // EQ Hi Gain
}
// Setup User Drum
Function USER_DRUM(Int Iudno, Int Inno, Int Isrcmap, Int Isrcpc, Int Isrcnote, Int Ilv, Int Ipan) {
// UserDrumNo[1,2], NoteNo, SourceMAP, SourcePC#, SorceNote, Level, Pan
GS_EXCLUSIVE(($20 + Iudno),$0A,(Inno),(Isrcmap )); r*%1 // SOURCE DRUM SET# (MAP)
GS_EXCLUSIVE(($20 + Iudno),$0B,(Inno),(Isrcpc - 1)); r*%1 // SOURCE DRUM SET# (PC#)
GS_EXCLUSIVE(($20 + Iudno),$0C,(Inno),(Isrcnote )); r*%1 // SOURCE DRUM SET NUMBER
GS_EXCLUSIVE(($20 + Iudno),$02,(Inno),(Ilv )); r*%1 // LEVEL
GS_EXCLUSIVE(($20 + Iudno),$04,(Inno),(Ipan )); r*%1 // PAN
}
// Drum Instrument Assian Group
Function DAG(Int Map, Int No, Int Gp){
Map--;
GS_EXCLUSIVE($41,(Map * 16 + 3),(No),(Gp));r*%1
}
// Drum Instrument Rx Note Off
Function DRN(Int No){
GS_EXCLUSIVE($41,$07,(No),$01);r*%1
}
//_ 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(Int Ibm, Int Ibl, Int Ipc, Int Ivol, Int Ipan, Int Iexp, Int Irev, Int Icho, Int Idly,
Int Ivrt, Int Ivdp, Int Ivdl, Int Iflpf, Int Ires, Int Ifhpf, Int Ieatk, Int Iedc, Int Ierel, Int Ips,
Int Ieqlf, Int Ieqlg, Int Ieqhf, Int Ieqhg) {
// BankMSB, BankLSB, PC#, Vol, Pan, Exp, Rev, Cho, Dly
// Vibrato Rate, Depth, Delay
// Filter LPF, HPF, Res
// Envelope Attack, Decay, Release
// PitchBendSensitivity
IsuGS(Ibm, Ibl, Ipc, Ivol, Ipan, Iexp, Irev, Icho, Idly, Ivrt, Ivdp, Ivdl, Iflpf, Ires, Ieatk, Iedc, Ierel, Ips);
// Filter HPF
y99(1);r*%1 y98(36);r*%1 y6(Ifhpf);r*%1
// EQ Low Frequency, Low Gain, Treble Frequency, Treble Gain
y99(1);r*%1 y98(52);r*%1 y6(Ieqlf);r*%1 y99(1);r*%1 y98(48);r*%1 y6(Ieqlg);r*%1
y99(1);r*%1 y98(53);r*%1 y6(Ieqhf);r*%1 y99(1);r*%1 y98(49);r*%1 y6(Ieqhg);r*%1
}
// Drum Instrument Pitch Fine
Function Dpf(Int Note,Int Value) {
y99(25);r*%1 y98(Note);r*%1 y6(Value);r*%1
}
// Drum Instrument Fillter LPF , Resonance , HPF
Function Dfl(Array Data) {
y99(20);r*%1 y98(Data(0));r*%1 y6(Data(1));r*%1 y99(21);r*%1 y98(Data(0));r*%1 y6(Data(2));r*%1 y99(36);r*%1 y98(Data(0));r*%1 y6(Data(3));r*%1
}
// Drum Instrument Envelope Attack , Decay
Function Deg(Array Data) {
y99(22);r*%1 y98(Data(0));r*%1 y6(Data(1));r*%1 y99(23);r*%1 y98(Data(0));r*%1 y6(Data(2));r*%1
}
// Drum Instrument EQ Low Frequency , Low Gain , Treble Frequency , Treble Gain
Function Deq(Array Data) {
y99(52);r*%1 y98(Data(0));r*%1 y6(Data(1));r*%1 y99(48);r*%1 y98(Data(0));r*%1 y6(Data(2));r*%1
y99(53);r*%1 y98(Data(0));r*%1 y6(Data(3));r*%1 y99(49);r*%1 y98(Data(0));r*%1 y6(Data(4));r*%1
}
// 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) {
y99(24);r*%1 y98(Note);r*%1 y6(Value);r*%1
}
Function Dpt2(Int Note, Int Value) {
r*-%3 Dpt(Note, Value);
}
// Drum Instrument Level
Function Dlv(Int Note, Int Value) {
y99(26);r*%1 y98(Note);r*%1 y6(Value);r*%1
}
Function Dlv2(Int Note, Int Value) {
r*-%3 Dlv(Note, Value);
}
// Drum Instrument Pan
Function Dpn(Int Note, Int Value) {
y99(28);r*%1 y98(Note);r*%1 y6(Value);r*%1
}
Function Dpn2(Int Note, Int Value) {
r*-%3 Dpn(Note, Value);
}
// Drum Instrument Reverb Send Level
Function Drs(Int Note, Int Value) {
y99(29);r*%1 y98(Note);r*%1 y6(Value);r*%1
}
Function Drs2(Int Note, Int Value) {
r*-%3 Drs(Note, Value);
}
// Drum Instrument Chorus Send Level
Function Dcs(Int Note, Int Value) {
y99(30);r*%1 y98(Note);r*%1 y6(Value);r*%1
}
Function Dcs2(Int Note, Int Value) {
r*-%3 Dcs(Note, Value);
}
// Drum Instrument Delay/Variation Send Level
Function Dds(Int Note, Int Value) {
y99(31);r*%1 y98(Note);r*%1 y6(Value);r*%1
}
Function Dds2(Int Note, Int Value) {
r*-%3 Dds(Note, Value);
}
// 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)));r*%1
}Else{If(SynthType <= 4 && SynthType >= 3){
GS_EXCLUSIVE($40,$03,$16,(Data(0)));r*%1
}}
}
// Polyphonic Key Pressure => Bend Up
Function PKP2BendUp(Int Rng){
Int Chn = Channel;
If(SynthType <= 7 && SynthType >= 6){
XG_EXCLUSIVE($08,(MML(Port) * 16 + Chn - 1),$53,($40 + Rng));r*%1
}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));r*%1
}}
}
// 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));r*%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));r*%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));r*%1
}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));r*%1
}}
}
//_ 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);
}
}
//------------------------------------------------------------------------------
/** BODY **/
//------------------------------------------------------------------------------
//_Rhythm Macro
//------------------------------------------------------------------------------
Switch(SynthType){
Case(7){
}Case(6){
}Case(5){
}Case(4){
$k{ n35,} $d{n121,}
$s{ n40,} $S{ n38,} $h{ n42,} $H{ n46,} $c{ n49,} $C{ n57,} $t{n127,} $i{ n69,} $I{ n70,} $m{ n80,} $M{ n81,} $T{ n39,}
$a{ n38,} $A{ n38,} $b{ n36,} $B{ n35,} $D{ n49,}
$R{ n87,}
}Case(3){
}Case(2){
}Case(1){
}Default{
$k{ n35,} $K{ n36,} $s{ n38,} $S{ n40,}
$h{ n42,} $H{ n46,} $c{ n49,} $C{ n57,} $t{ n82,}
}
}
//------------------------------------------------------------------------------
//_Sequence
// マクロでパターンを定義
//------------------------------------------------------------------------------
//_ 音源初期化:XG PLG-150DX
#SetUpSynth_PLG150DX={
XG_EXCLUSIVE($70,$02,$00,$0D);r*%1 // PLG150-DX Part Assign
// DX_EXCLUSIVE($60,$0D,$0B, 75);r*%1 // Carrier1
// DX_EXCLUSIVE($60,$0D,$0C, 64);r*%1 // Carrier2
// DX_EXCLUSIVE($60,$0D,$0D, 92);r*%1 // Carrier3
// DX_EXCLUSIVE($60,$0D,$0E, 64);r*%1 // Carrier4
// DX_EXCLUSIVE($60,$0D,$0F,126);r*%1 // Carrier5
// DX_EXCLUSIVE($60,$0D,$10, 64);r*%1 // Carrier6
// DX_EXCLUSIVE($60,$0D,$13, 64);r*%1 // Modulator1
// DX_EXCLUSIVE($60,$0D,$14, 69);r*%1 // Modulator2
// DX_EXCLUSIVE($60,$0D,$15, 64);r*%1 // Modulator3
// DX_EXCLUSIVE($60,$0D,$16, 56);r*%1 // Modulator4
// DX_EXCLUSIVE($60,$0D,$17, 64);r*%1 // Modulator5
// DX_EXCLUSIVE($60,$0D,$18, 51);r*%1 // Modulator6
// DX_EXCLUSIVE($60,$0D,$1B, 65);r*%1 // FeedBack
}
//_ 音源初期化:XG PLG-150PF
#SetUpSynth_PLG150PF={
XG_EXCLUSIVE($70,$04,$00,$00);r*%1 // PLG150-PF Part Assign
// PF_EXCLUSIVE($60,$00,$00,$43);r*%1 // Bass Freq
// PF_EXCLUSIVE($60,$00,$01,$3F);r*%1 // Bass Gain
// PF_EXCLUSIVE($60,$00,$02,$3B);r*%1 // Treble Freq
// PF_EXCLUSIVE($60,$00,$03,$44);r*%1 // Treble Gain
// PF_EXCLUSIVE($60,$00,$04,$01);r*%1 // PF Mode
// PF_EXCLUSIVE($60,$00,$05,$01);r*%1 // SusCurve
// PF_EXCLUSIVE($60,$00,$06,$42);r*%1 // EL1 Level
// PF_EXCLUSIVE($60,$00,$07,$41);r*%1 // EL2 Level
}
//_ 音源初期化:XG
#SetUpSynth_XG={
#TR_SYSEXA
// リセット
XG_EXCLUSIVE($00,$00,$7E,$00);r*4 // XG System On
// Map設定
If(SynthType == 5){
SysEx$ = F0,43,10,49,00,00,12,00,F7;r*8 // Select MU Basic MAP
}Else{
SysEx$ = F0,43,10,49,00,00,12,01,F7;r*8 // Select MU100 Native MAP
}
// パート設定
XG_EXCLUSIVE($08,$00,$07,$02);r*%1 // Part Mode Drum1 [A10]
XG_EXCLUSIVE($08,$0A,$07,$03);r*%1 // Part Mode Drum2 [A11]
If(SynthType >= 6 && PortNum == 2){
XG_EXCLUSIVE($08,$10,$07,$04);r*%1 // Part Mode Drum3 [B10]
XG_EXCLUSIVE($08,$1A,$07,$05);r*%1 // Part Mode Drum4 [B11]
}
// XG PLG-150DX
If(UseDX == 1){
#SetUpSynth_PLG150DX
}
// XG PLG-150PF
If(UsePF == 1){
#SetUpSynth_PLG150PF
}
}
//_ 音源初期化:GS
#SetUpSynth_GS={
#TR_SYSEXA
// リセット
GS_EXCLUSIVE($40,$00,$7F,$00);r*4 // GS Reset
// パート設定
GS_EXCLUSIVE($40,$10,$15,$01);r*%1 // Use for Rhythm Part 1 [CH A10]
GS_EXCLUSIVE($40,$1A,$15,$02);r*%1 // Use for Rhythm Part 2 [CH A11]
If((SynthType >= 2 || SynthType <= 4) && PortNum == 2){
TrackSync;
#TR_SYSEXB
GS_EXCLUSIVE($40,$10,$15,$01);r*%1 // Use for Rhythm Part 1 [CH B10]
GS_EXCLUSIVE($40,$1A,$15,$02);r*%1 // Use for Rhythm Part 2 [CH B11]
}
}
//_ 音源初期化:GM
#SetUpSynth_GM={
#TR_SYSEXA
// リセット
SysEx$ = F0,7E,7F,09,01,F7;r*4 // GM System On
MasterVolume(127);r*4
}
//------------------------------------------------------------------------------
//_ エフェクタ設定:XG Reverb
#SetUpEffect_XG_Rev={
// XG_EXCLUSIVE( 2, 1, 0, 1, 1);r*%1 // Reverb Type [HALL 2]
// XG_EXCLUSIVE( 2, 1, 2,$0E);r*%1 // Reverb Time 0- 69(18) 0.3～30.0s T#4
// XG_EXCLUSIVE( 2, 1, 3,$0A);r*%1 // Diffusion 0- 10(10) 0～10
// XG_EXCLUSIVE( 2, 1, 4,$1B);r*%1 // Initial Delay 0- 63(8) 0.1～99.3ms T#5
// XG_EXCLUSIVE( 2, 1, 5,$14);r*%1 // HPF Cutoff 0- 52(13) Thru～8.0kHz T#3
// XG_EXCLUSIVE( 2, 1, 6,$34);r*%1 // LPF Cutoff 34- 60(49) 1.0k～Thru T#3
// XG_EXCLUSIVE( 2, 1, 16,$0E);r*%1 // Rev Delay 0- 63(0) 0.1～99.3ms T#5
// XG_EXCLUSIVE( 2, 1, 17,$04);r*%1 // Density 0- 4(4) 0～4
// XG_EXCLUSIVE( 2, 1, 18,$40);r*%1 // Er/Rev Balance 1-127(50) E63>R～E=R～E<R63
// XG_EXCLUSIVE( 2, 1, 19,$06);r*%1 // High Damp 1- 10(8) 0.1～1.0
// XG_EXCLUSIVE( 2, 1, 20,$40);r*%1 // Feedback Level 1-127(64) -63～+63
// XG_EXCLUSIVE( 2, 1, 12,$40);r*%1 // Reverb Return 0-127(64)
// XG_EXCLUSIVE( 2, 1, 13,$40);r*%1 // Reverb Pan 1-127(64)
}
//_ エフェクタ設定:XG Chorus
#SetUpEffect_XG_Cho={
// XG_EXCLUSIVE( 2, 1, 32, 65, 2);r*%1 // Chorus Type [CHORUS 3]
// XG_EXCLUSIVE( 2, 1, 34,$0E);r*%1 // LFO Frequency 0-127(12) 0.00Hz～39.7Hz T#1
// XG_EXCLUSIVE( 2, 1, 35,$19);r*%1 // LFO Depth 0-127(32) 0～127
// XG_EXCLUSIVE( 2, 1, 36,$45);r*%1 // Feedback Level 1-127(64) -63～+63
// XG_EXCLUSIVE( 2, 1, 37,$00);r*%1 // Delay Offset 0-127(0) 0.0～50 T#2
// XG_EXCLUSIVE( 2, 1, 39,$1F);r*%1 // EQ Low Frequency 4- 40(28) 32Hz～2.0kHz T#3
// XG_EXCLUSIVE( 2, 1, 40,$42);r*%1 // EQ Low Gain 52- 76(64) -12～+12dB
// XG_EXCLUSIVE( 2, 1, 41,$30);r*%1 // EQ High Frequency 28- 58(46) 500Hz～16.0kHz T#3
// XG_EXCLUSIVE( 2, 1, 42,$41);r*%1 // EQ High Gain 52- 76(64) -12～+12dB
// XG_EXCLUSIVE( 2, 1, 52,$01);r*%1 // Input Mode 0- 1(0) mono/stereo
// XG_EXCLUSIVE( 2, 1, 45,$40);r*%1 // Chorus Pan 1-127(64)
// XG_EXCLUSIVE( 2, 1, 46,$00);r*%1 // Send Cho. to Rev. 0-127(0)
}
//_ エフェクタ設定:XG Variation
#SetUpEffect_XG_Var={
XG_EXCLUSIVE($02,$01,$5A,$01);r*%1 // Variation Connect [System]
// XG_EXCLUSIVE( 2, 1, 64, 5, 0);r*%1 // Variation Type [DELAY L,C,R]
XG_EXCLUSIVE( 2, 1, 87, 64);r*%1 // Variation Pan 1-127(64)
XG_EXCLUSIVE( 2, 1, 88, 0);r*%1 // Send Variation to Reverb 0-127(0)
XG_EXCLUSIVE( 2, 1, 89, 0);r*%1 // Send Variation to Chorus 0-127(0)
}
//_ エフェクタ設定:XG Insertion1
#SetUpEffect_XG_INS1={
XG_EXCLUSIVE( 3, 0, 0, 64, 0);r*%1 // Insertion1 Type [THRU]
XG_EXCLUSIVE( 3, 0, 12,127);r*%1 // Insertion1 Part [0-63:Part 64-126:A/D 127:OFF]
}
//_ エフェクタ設定:XG Insertion2
#SetUpEffect_XG_INS2={
XG_EXCLUSIVE( 3, 1, 0, 64, 0);r*%1 // Insertion2 Type [THRU]
XG_EXCLUSIVE( 3, 1, 12,127);r*%1 // Insertion2 Part [0-63:Part 64-126:A/D 127:OFF]
}
//_ エフェクタ設定:XG Insertion3
#SetUpEffect_XG_INS3={
XG_EXCLUSIVE( 3, 2, 0, 64, 0);r*%1 // Insertion3 Type [THRU]
XG_EXCLUSIVE( 3, 2, 12,127);r*%1 // Insertion3 Part [0-63:Part 64-126:A/D 127:OFF]
}
//_ エフェクタ設定:XG Insertion4
#SetUpEffect_XG_INS4={
XG_EXCLUSIVE( 3, 3, 0, 64, 0);r*%1 // Insertion4 Type [THRU]
XG_EXCLUSIVE( 3, 3, 12,127);r*%1 // Insertion4 Part [0-63:Part 64-126:A/D 127:OFF]
}
//_ エフェクタ設定:XG 5-Band EQ
#SetUpEffect_XG_EQ={
XG_EXCLUSIVE( 2, 64, 0, 0);r*%1 // EQ Type 0:FLAT 1:JAZZ 2:POPS 3:ROCK 4:CLASSIC
// XG_EXCLUSIVE( 2, 64, 1, 65);r*%1 // EQ Gain1 52-76 (-12-+12dB)
// XG_EXCLUSIVE( 2, 64, 5, 59);r*%1 // EQ Gain2 52-76 (-12-+12dB)
// XG_EXCLUSIVE( 2, 64, 9, 64);r*%1 // EQ Gain3 52-76 (-12-+12dB)
// XG_EXCLUSIVE( 2, 64, 13, 58);r*%1 // EQ Gain4 52-76 (-12-+12dB)
// XG_EXCLUSIVE( 2, 64, 17, 62);r*%1 // EQ Gain5 52-76 (-12-+12dB)
// XG_EXCLUSIVE( 2, 64, 2, 15);r*%1 // EQ Frequency1 4-40 (32-2000Hz)
// XG_EXCLUSIVE( 2, 64, 6, 24);r*%1 // EQ Frequency2 14-54 (100-10kHz)
// XG_EXCLUSIVE( 2, 64, 10, 32);r*%1 // EQ Frequency3 14-54 (100-10kHz)
// XG_EXCLUSIVE( 2, 64, 14, 44);r*%1 // EQ Frequency4 14-54 (100-10kHz)
// XG_EXCLUSIVE( 2, 64, 18, 51);r*%1 // EQ Frequency5 28-58 (500-16kHz)
// XG_EXCLUSIVE( 2, 64, 3, 8);r*%1 // EQ Q1 1-120 (0.1-12.0)
// XG_EXCLUSIVE( 2, 64, 7, 12);r*%1 // EQ Q2 1-120 (0.1-12.0)
// XG_EXCLUSIVE( 2, 64, 11, 10);r*%1 // EQ Q3 1-120 (0.1-12.0)
// XG_EXCLUSIVE( 2, 64, 15, 14);r*%1 // EQ Q4 1-120 (0.1-12.0)
// XG_EXCLUSIVE( 2, 64, 19, 12);r*%1 // EQ Q5 1-120 (0.1-12.0)
// XG_EXCLUSIVE( 2 ,64, 4, 0);r*%1 // EQ Shape1 0-1 (0:Shelving 1:Peaking)
// XG_EXCLUSIVE( 2, 64, 20, 0);r*%1 // EQ Shape5 0-1 (0:Shelving 1:Peaking)
}
//_ エフェクタ設定:XG
#SetUpEffect_XG={
// Reverb
#SetUpEffect_XG_Rev
// Chorus
#SetUpEffect_XG_Cho
// Variation
#SetUpEffect_XG_Var
If(SynthType >= 6){
// 5-BAND EQUALIZER
#SetUpEffect_XG_EQ
// Insertion1
#SetUpEffect_XG_INS1
// Insertion2
#SetUpEffect_XG_INS2
If(SynthType == 7){
// Insertion3
#SetUpEffect_XG_INS3
// Insertion4
#SetUpEffect_XG_INS4
}
}
}
//_ エフェクタ設定:GS Reverb
#SetUpEffect_GS_Rev={
GS_EXCLUSIVE($40,$01,$30,$03);r*%1 // Reverb Macro [Hall 1]
// GS_EXCLUSIVE($40,$01,$31, 4);r*%1 // Reverb Character
// GS_EXCLUSIVE($40,$01,$32, 0);r*%1 // Reverb Pre-LPF
// GS_EXCLUSIVE($40,$01,$33, 64);r*%1 // Reverb Level
// GS_EXCLUSIVE($40,$01,$34, 64);r*%1 // Reverb Time
// GS_EXCLUSIVE($40,$01,$35, 0);r*%1 // Reverb Delay Feedback
// GS_EXCLUSIVE($40,$01,$37, 0);r*%1 // Reverb Pre Delay Time
}
//_ エフェクタ設定:GS Chorus
#SetUpEffect_GS_Cho={
GS_EXCLUSIVE($40,$01,$38,$02);r*%1 // Chorus Macro [Chorus 3]
// GS_EXCLUSIVE($40,$01,$39, 3);r*%1 // Chorus Pre-LPF
// GS_EXCLUSIVE($40,$01,$3A, 64);r*%1 // Chorus Level
// GS_EXCLUSIVE($40,$01,$3B, 8);r*%1 // Chorus Feedback
// GS_EXCLUSIVE($40,$01,$3C, 80);r*%1 // Chorus Delay
// GS_EXCLUSIVE($40,$01,$3D, 3);r*%1 // Chorus Rate
// GS_EXCLUSIVE($40,$01,$3E, 19);r*%1 // Chorus Depth
// GS_EXCLUSIVE($40,$01,$3F, 0);r*%1 // Chorus Send Level to Reverb
// GS_EXCLUSIVE($40,$01,$40, 0);r*%1 // Chorus Send Level to Delay
}
//_ エフェクタ設定:GS Delay
#SetUpEffect_GS_Dly={
GS_EXCLUSIVE($40,$01,$50,$04);r*%1 // Delay Macro [Pan Delay 1]
// GS_EXCLUSIVE($40,$01,$51, 0);r*%1 // Delay Pre-LPF
// GS_EXCLUSIVE($40,$01,$52,110);r*%1 // Delay Time Center
// GS_EXCLUSIVE($40,$01,$53, 12);r*%1 // Delay Time Ratio Left
// GS_EXCLUSIVE($40,$01,$54, 24);r*%1 // Delay Time Ratio Right
// GS_EXCLUSIVE($40,$01,$55, 0);r*%1 // Delay Level Center
// GS_EXCLUSIVE($40,$01,$56,127);r*%1 // Delay Level Left
// GS_EXCLUSIVE($40,$01,$57, 64);r*%1 // Delay Level Right
// GS_EXCLUSIVE($40,$01,$58, 48);r*%1 // Delay Level
// GS_EXCLUSIVE($40,$01,$59, 80);r*%1 // Delay Feedback
// GS_EXCLUSIVE($40,$01,$5A, 0);r*%1 // Delay Send Level to Reverbt
}
//_ エフェクタ設定:GS EFX
#SetUpEffect_GS_EFX={
GS_EXCLUSIVE($40,$03,$00,$00,$00);r*%1 // EFX Type [Thru]
// GS_EXCLUSIVE($40,$41,$22, 0);r*%1 // EFX On []
// GS_EXCLUSIVE($40,$03,$03, 0);r*%1 //
// GS_EXCLUSIVE($40,$03,$04, 0);r*%1 //
// GS_EXCLUSIVE($40,$03,$05, 0);r*%1 //
// GS_EXCLUSIVE($40,$03,$06, 0);r*%1 //
// GS_EXCLUSIVE($40,$03,$07, 0);r*%1 //
// GS_EXCLUSIVE($40,$03,$08, 0);r*%1 //
// GS_EXCLUSIVE($40,$03,$09, 0);r*%1 //
// GS_EXCLUSIVE($40,$03,$0A, 0);r*%1 //
// GS_EXCLUSIVE($40,$03,$0B, 0);r*%1 //
// GS_EXCLUSIVE($40,$03,$14, 0);r*%1 //
// GS_EXCLUSIVE($40,$03,$15, 0);r*%1 //
// GS_EXCLUSIVE($40,$03,$16, 64);r*%1 // EFX Level
// GS_EXCLUSIVE($40,$03,$17, 0);r*%1 // EFX Send Level to Reverb
// GS_EXCLUSIVE($40,$03,$18, 0);r*%1 // EFX Send Level to Chorus
// GS_EXCLUSIVE($40,$03,$19, 0);r*%1 // EFX Send Level to Delay
// GS_EXCLUSIVE($40,$03,$1B, 0);r*%1 // EFX Control Sorce 1
// GS_EXCLUSIVE($40,$03,$1C,127);r*%1 // EFX Control Depth 1
// GS_EXCLUSIVE($40,$03,$1D, 0);r*%1 // EFX Control Sorce 2
// GS_EXCLUSIVE($40,$03,$1E,127);r*%1 // EFX Control Depth 2
// GS_EXCLUSIVE($40,$03,$1F, 1);r*%1 // EFX Send EQ Switch
}
//_ エフェクタ設定:GS EQ
#SetUpEffect_GS_EQ={
EQ( 0, 3, 1, 7);r*%1
}
//_ エフェクタ設定:GS
#SetUpEffect_GS={
// Reverb
#SetUpEffect_GS_Rev
// Chorus
#SetUpEffect_GS_Cho
If(SynthType >= 2){
// Delay
#SetUpEffect_GS_Dly
If(SynthType >= 3){
// EQ
#SetUpEffect_GS_EQ
// EFX
#SetUpEffect_GS_EFX
}
}
}
//------------------------------------------------------------------------------
//_ 音色設定:XG MU1000/2000
#SetUpInst_MU2000={
// BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,LPF,Res,HPF,Atc,Dec,Rel,BR,LwF,LwG,HiF,HiG
#TR_INST01 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_INST02 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_INST03 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_INST04 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_INST05 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_INST06 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_INST07 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_INST08 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_INST09 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_INST10 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_INST11 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_INST12 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_INST13 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_INST14 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_INST15 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_INST16 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_INST17 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_INST18 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_INST19 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_INST20 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_INST21 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_INST22 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_INST23 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_INST24 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_INST25 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_INST26 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_INST27 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_INST28 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_DRUM1 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_DRUM2 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_DRUM3 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_DRUM4 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; //
}
//_ 音色設定:XG MU100/128
#SetUpInst_MU100={
// BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,LPF,Res,HPF,Atc,Dec,Rel,BR,LwF,LwG,HiF,HiG
#TR_INST01 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_INST02 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_INST03 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_INST04 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_INST05 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_INST06 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_INST07 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_INST08 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_INST09 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_INST10 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_INST11 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_INST12 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_INST13 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_INST14 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_INST15 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_INST16 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_INST17 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_INST18 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_INST19 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_INST20 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_INST21 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_INST22 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_INST23 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_INST24 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_INST25 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_INST26 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_INST27 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_INST28 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_DRUM1 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_DRUM2 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_DRUM3 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_DRUM4 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; //
}
//_ 音色設定:XG MU50/80/90
#SetUpInst_XG={
// BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,Cut,Res,Atc,Dec,Rel,BR
#TR_INST01 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST02 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST03 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST04 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST05 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST06 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST07 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST08 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST09 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST10 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST11 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST12 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST13 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST14 IsuGS( 0, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM1 IsuGS(127, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM2 IsuGS(127, 0, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
}
//_ 音色設定:GS SC-8850
#SetUpInst_SC8850={
// BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,Cut,Res,Atc,Dec,Rel,BR
#TR_TINW IsuGS( 24, 4, 76,127, 44,127, 70, 0, 0, 69, 89, 69, 84, 74, 64, 64, 64,12);Null;Mono; //
#TR_UPP IsuGS( 9, 4,110,110, 84,127, 70, 0, 0, 69, 89, 69, 64, 64, 64, 64, 64,12);Null;Mono; //
#TR_BASS1 IsuGS( 21, 4, 40,100, 64,127, 0, 0, 0, 64, 64, 64, 54, 64, 54, 54, 54,12);Null;Mono; //
#TR_BASS2 IsuGS( 4, 4, 39,120, 64,127, 0, 0, 0, 64, 64, 64, 64, 84, 64, 64, 64,12);Null;Mono; //
#TR_UHP IsuGS( 8, 4, 47,100, 74,127, 80, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_PAD1 IsuGS( 10, 4, 96, 90, 64,127,100, 40, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_PAD2 IsuGS( 10, 4, 52, 90, 64,127,100, 40, 0, 64, 64, 64, 49, 64, 69, 74, 67,12);Null; //
#TR_BOD IsuGS( 9, 4,109, 90, 84,127, 80, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_SYN4 IsuGS( 8, 4, 81,100, 64,127, 50, 0, 30, 64, 64, 64, 64, 64, 64, 64, 64,12);Null;Mono; //
#TR_SYN1 IsuGS( 41, 4, 82,110, 64,127, 50, 0, 30, 64, 64, 64, 64, 89, 64, 64, 64,12);Null;Mono; //
#TR_SYN2 IsuGS( 10, 4, 52, 90, 32,127, 30, 20, 30, 64, 64, 64,127, 89, 0, 48, 0,12);Null; //
#TR_SYN2S IsuGS( 10, 4, 52, 90, 96,127, 30, 20, 30, 44, 74, 44,127, 89, 0, 48, 0,12);Null;FINE($54,$3D);Rx_CH(13); //
#TR_SYN3 IsuGS( 1, 4, 63,100, 1,127, 20, 20, 50, 64, 64, 64,127, 89, 0, 64, 0,12);Null; //
#TR_SYN3S IsuGS( 1, 4, 63,100,127,127, 20, 20, 50, 44, 74, 44,127, 89, 0, 64, 0,12);Null;FINE($54,$3D);Rx_CH(15); //
#TR_VC1 IsuGS( 8, 4, 82,110, 44,127, 30, 40, 30, 69, 79, 74,114, 84, 44, 84, 54,12);Null;Mono; //
#TR_VC2 IsuGS( 36, 4, 82,120, 84,127, 30, 40, 30, 69, 79, 74,114, 84, 44, 84, 54,12);Null;Mono; //
#TR_LOG IsuGS( 24, 4, 13,100, 64,127, 30, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_SYNLD1 IsuGS( 15, 4, 82, 80, 32,127, 30, 60, 40, 69, 84, 74,127, 84, 44, 74, 54,12);Null;Mono; //
#TR_SYNLD2 IsuGS( 15, 4, 82, 80, 96,127, 30, 60, 40, 69, 84, 74,127, 84, 44, 74, 54,12);Null;Mono; //
#TR_SYN5 IsuGS( 10, 4, 82,127, 64,127, 30, 0, 40, 64, 64, 64, 64, 84, 64, 64, 64,12);Null;Mono; //
#TR_STR IsuGS( 0, 4, 50,110, 84,127, 40, 0, 0, 64, 64, 64, 64, 64, 44, 74, 59,12);Null; //
#TR_BELL IsuGS( 6, 4, 99,100, 44,127, 60, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST23 IsuGS( 0, 4, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST24 IsuGS( 0, 4, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST25 IsuGS( 0, 4, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_SFX3 IsuGS( 5, 4,128,127, 64,127,127, 0, 0, 64, 64, 64, 44, 64, 64, 64, 64,12);Null; //
#TR_SFX2 IsuGS( 17, 3,123,127, 64,127,127, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_SFX1 IsuGS( 6, 4,123,127, 64,127,127, 0, 50, 64, 64, 64, 64, 64, 64, 84, 64,12);Null; //
#TR_DRUM1 IsuGS( 0, 4, 14,127, 64,127, 20, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM2 IsuGS( 0, 4, 31,127, 64,127, 40, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
Dpn( 38, 68);
Dpn( 42, 79); Dpt( 42, 64);
Dpn( 46, 79); Dpt( 46, 64);
Dpn( 49,111);
Dpn( 57, 16);
Dpn( 69, 49); Dpt( 69, 68);
Dpn( 70, 49); Dpt( 70, 68);
Dpn( 80, 84);
Dpn( 81, 84);
Dpn(127, 64); Dpt(127, 68); Dlv(127, 80);
#TR_DRUM3 IsuGS( 0, 4, 54,120, 64,127, 40, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM4 IsuGS( 0, 4, 63,120, 64,127, 80, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
}
//_ 音色設定:GS SC-88pro
#SetUpInst_SC88pro={
// BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,Cut,Res,Atc,Dec,Rel,BR
#TR_INST01 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST02 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST03 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST04 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST05 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST06 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST07 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST08 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST09 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST10 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST11 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST12 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST13 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST14 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST15 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST16 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST17 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST18 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST19 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST20 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST21 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST22 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST23 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST24 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST25 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST26 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST27 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST28 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM1 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM2 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM3 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM4 IsuGS( 0, 3, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
}
//_ 音色設定:GS SC-88
#SetUpInst_SC88={
// BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,Cut,Res,Atc,Dec,Rel,BR
#TR_INST01 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST02 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST03 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST04 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST05 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST06 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST07 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST08 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST09 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST10 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST11 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST12 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST13 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST14 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST15 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST16 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST17 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST18 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST19 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST20 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST21 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST22 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST23 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST24 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST25 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST26 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST27 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST28 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM1 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM2 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM3 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM4 IsuGS( 0, 2, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
}
//_ 音色設定:GS SC-55
#SetUpInst_GS={
// BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,VRt,VDp,VDl,Cut,Res,Atc,Dec,Rel,BR
#TR_INST01 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST02 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST03 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST04 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST05 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST06 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST07 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST08 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST09 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST10 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST11 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST12 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST13 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_INST14 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM1 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
#TR_DRUM2 IsuGS( 0, 1, 1,100, 64,127, 0, 0, 0, 64, 64, 64, 64, 64, 64, 64, 64,12);Null; //
}
//_ 音色設定:GM
#SetUpInst_GM={
// BM, BL, PC,Vol,Pan,Exp,Rev,Cho,Dly,BR
#TR_INST01 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST02 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST03 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST04 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST05 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST06 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST07 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST08 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST09 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST10 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST11 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST12 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST13 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_INST14 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_DRUM1 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
#TR_DRUM2 IsuGM( 0, 0, 1,100, 64,127, 0, 0, 0,12); //
}
//_ Tin Whistle
#twnm={ @( 76, 25, 4); }
#twdr={ @( 76, 26, 4); }
//_ Uillean Pipe
#upnm={ @(110, 10, 4); }
#updr={ @(110, 11, 4); }
//_ Base1
#bs11={ q75 [4 l8 #?1 l16 >#?1 #?1<] }
#bs12={ q75 [3 l8 #?1 l16 >#?1 #?1<] l8 #?2 l16 >#?2 #?2< }
#bs13={ q75 [2 l8 #?1 l16 >#?1 #?1<] [2 l8 #?2 l16 >#?2 #?2<] }
#bs14={ q75 l8 #?1 l16 >#?1 #?1< [3 l8 #?2 l16 >#?2 #?2<] }
#bs15={ q75 [2 l8 #?1 l16 >#?1 #?1<] l8 #?2 l16 >#?2 #?2< l8 #?3 l16 >#?3 #?3< }
#bs16={ q75 l8 #?1 l16 >#?1 #?1< l8 #?2 l16 >#?2 #?2< [2 l8 #?3 l16 >#?3 #?3<] }
#bs17={ q75 l8 #?1 l16 >#?1 #?1< l8 #?2 l16 >#?2 #?2< l8 #?3 l16 >#?3 #?3< l8 #?4 l16 >#?4 #?4< }
//_ Base2
#bs21={ q75 [4 l8 r >#?1<] }
#bs22={ q75 [3 l8 r >#?1<] l8 r >#?2< }
#bs23={ q75 [2 l8 r >#?1<] [2 l8 r >#?2<] }
#bs24={ q75 l8 r >#?1< [3 l8 r >#?2<] }
#bs25={ q75 [2 l8 r >#?1<] l8 r >#?2< l8 r >#?3< }
#bs26={ q75 l8 r >#?1< l8 r >#?2< [2 l8 r >#?3<] }
#bs27={ q75 l8 r >#?1< l8 r >#?2< l8 r >#?3< l8 r >#?4< }
//_ Kick
#bd10={ l16 q99 Rhythm{ (v127 S){ k1 }} r1 }
#bd11={ l16 q99 Rhythm{ (v127 S){ [4k4] }} r1 }
#bd12={ l16 q99 Rhythm{ (v127 S){ [3k4] k8(v--)k8(v++) }} r1 }
#bd13={ l16 q99 Rhythm{ (v127 S){ [2k4] k8.(v--)k(v++) k8(v--)k8(v++) }} r1 }
#bd14={ l16 q99 Rhythm{ (v127 S){ k4 k8(v--)k8(v++) k(v--)k(v+)k8(v+) k4 }} r1 }
#bd15={ l16 q99 Rhythm{ (v127 S){ k2k4k4 }} r1 }
//#bd14={ l16 q99 Rhythm{ (v127 S){ [4k8(v-)k8(v+)] }} r1 }
//_ Clap
#hc11={ l16 q99 Rhythm{ (v110 S){ [2r4T4] }} r1 }
#hc12={ l16 q99 Rhythm{ (v110 S){ r4T4 }} r1 }
//_ Percasion
#pc11={ l16 q99 Rhythm{ (v127 S){ [2(v-70)tr(v+70)t(v-60)t (v-20)t(v+30)t(v+50)t(v-60)t(v+60)] }} r1 }
#pc12={ l16 q99 Rhythm{ (v127 S){ (v-70)tr(v+70)t(v-60)t (v-20)t(v+30)t(v+50)t(v-60)t(v+60) }} r1 }
//_ HiHat
#hh11={ l16 q99 Rhythm{ (v127 S){ [4(v-30)h8(v+30)H8] }} r1 }
#hh12={ l16 q99 Rhythm{ (v127 S){ [3(v-30)h8(v+30)H8](v-30)h8(v+30)H(v-15)H(v+15) }} r1 }
#hh13={ l16 q99 Rhythm{ (v127 S){ [2(v-30)h8(v+30)H8] }} r1 }
//_ Shaker
#sk11={ l16 q99 Rhythm{ (v120 S){ [4I(v-)i(v+)i(v--)I(v++)] }} r1 }
#sk12={ l16 q99 Rhythm{ (v120 S){ [2I(v-)i(v+)i(v--)I(v++)] }} r1 }
//_ Triangle
#ta11={ l16 q99 Rhythm{ (v100 S){ (v-40)mr(v+20)M(v-20)m (v-20)m(v+60)Mr(v-40)m (v+20)Mr(v-40)m(v+20)M r(v-20)m(v+60)M(v-40)m(v+40) }} r1 }
#ta12={ l16 q99 Rhythm{ (v100 S){ (v-40)mr(v+20)M(v-20)m (v-20)m(v+60)Mr(v-40)m }} r1 }
//_ SFX 3
#se31={ o0 v127 l1 q99
e-
}
//_ SFX 2
#se21={ o6 v127 q99 l1^1
y74.T=64,48,!1^1;y11.T=127,0,!1^1;e-
}
//_ SFX 1
#se11={ o6 v127 q99 l1
y74.T=0,127,!1.; e-1.
}
#se12={ o5 v127 q99 l1
y74.T=0,96,!1^1; e-1^1
}
#se13={ o5 v127 q99 l1
S{y74(0); r2 y74.T=0,127,!2; r2 y74(0);} e-1
}
#se14={ o5 v127 q99 l1
S{y74.T=0,127,!1; r1 y74(0);} e-1
}
#se15={ o5 v127 q99 l1
S{y74.T=0,96,!1^2; r1^2 y74(0);} e-1^2
}
//------------------------------------------------------------------------------
//_Scene
// 関数でシーンを定義
// 必ずシーン終了ポイントでTrackSync
//------------------------------------------------------------------------------
//_ セットアップ
// 長さは合計２小節まで
//_ メタイベント
#SetUpMetaEvent={
TR(0) Port(0) CH(1)
Tmp_Title = {"[ "} + Tmp_Title + {" ] for "};
Tmp_Ver = "ver" + Tmp_Ver + {" by H.YAMANOI"};
Switch(SynthType){
Case( 7){ TrackName = Tmp_Title + {"MU1000 2port "} + Tmp_Ver; }
Case( 6){ TrackName = Tmp_Title + {"MU100 2port "} + Tmp_Ver; }
Case( 5){ TrackName = Tmp_Title + {"MU80 2port "} + Tmp_Ver; }
Case( 4){ TrackName = Tmp_Title + {"SC-8850 2port "} + Tmp_Ver; }
Case( 3){ TrackName = Tmp_Title + {"SC-88pro 2port "} + Tmp_Ver; }
Case( 2){ TrackName = Tmp_Title + {"SC-88 2port "} + Tmp_Ver; }
Case( 1){ TrackName = Tmp_Title + {"SC-55 2port "} + Tmp_Ver; }
Case(-1){ TrackName = Tmp_Title + {"TW-MUSIC2 2port "} + Tmp_Ver; }
Default{ TrackName = Tmp_Title + {"GM 2port "} + Tmp_Ver; }
}
Copyright = Tmp_Copyright;
TimeSignature = 4, 4;
MetaKey(-5, 1); // n:＃の数 -n:♭の数, 0:メジャー 1:マイナー
// トラック割り当て
#TR_TINW={ TR( 1) } #TR_TINW TrackName = {"Tin Whistle"}
#TR_UPP={ TR( 2) } #TR_UPP TrackName = {"Uillean Pipe"}
#TR_BASS1={ TR( 3) } #TR_BASS1 TrackName = {"Bass1"}
#TR_BASS2={ TR( 4) } #TR_BASS2 TrackName = {"Bass2"}
#TR_UHP={ TR( 5) } #TR_UHP TrackName = {"Uillean Harp"}
#TR_PAD1={ TR( 6) } #TR_PAD1 TrackName = {"Pad1"}
#TR_PAD2={ TR( 7) } #TR_PAD2 TrackName = {"Pad2"}
#TR_BOD={ TR( 8) } #TR_BOD TrackName = {"Bodhran"}
#TR_SYN4={ TR( 9) } #TR_SYN4 TrackName = {"Synth 4"}
#TR_DRUM1={ TR(10) } #TR_DRUM1 TrackName = {"Rhythm 1"}
#TR_DRUM2={ TR(11) } #TR_DRUM2 TrackName = {"Rhythm 2"}
#TR_SYN1={ TR(12) } #TR_SYN1 TrackName = {"Synth 1"}
#TR_SYN2={ TR(13) } #TR_SYN2 TrackName = {"Synth 2"}
#TR_SYN2S={ TR(14) } #TR_SYN2S TrackName = {"Synth 2 Lay"}
#TR_SYN3={ TR(15) } #TR_SYN3 TrackName = {"Synth 3"}
#TR_SYN3S={ TR(16) } #TR_SYN3S TrackName = {"Synth 3 Lay"}
#TR_VC1={ TR(17) } #TR_VC1 TrackName = {"Vocal 1"}
#TR_VC2={ TR(18) } #TR_VC2 TrackName = {"Vocal 2"}
#TR_LOG={ TR(19) } #TR_LOG TrackName = {"Log Drum"}
#TR_SYNLD1={ TR(20) } #TR_SYNLD1 TrackName = {"Lead 1"}
#TR_SYNLD2={ TR(21) } #TR_SYNLD2 TrackName = {"Lead 2"}
#TR_SYN5={ TR(22) } #TR_SYN5 TrackName = {"Synth 5"}
#TR_STR={ TR(23) } #TR_STR TrackName = {"Strings"}
#TR_BELL={ TR(24) } #TR_BELL TrackName = {"Bell"}
#TR_INST23={ TR(25) } #TR_INST23 TrackName = {""}
#TR_DRUM3={ TR(26) } #TR_DRUM3 TrackName = {"Rhythm 3"}
#TR_DRUM4={ TR(27) } #TR_DRUM4 TrackName = {"Rhythm 4"}
#TR_INST24={ TR(28) } #TR_INST24 TrackName = {""}
#TR_INST25={ TR(29) } #TR_INST25 TrackName = {""}
#TR_SFX3={ TR(30) } #TR_SFX3 TrackName = {"Bom"}
#TR_SFX2={ TR(31) } #TR_SFX2 TrackName = {"SFX"}
#TR_SFX1={ TR(32) } #TR_SFX1 TrackName = {"Wind"}
#TR_SYSEXA={ TR(33) } #TR_SYSEXA TrackName = {"Sys-Ex Port A"}
#TR_SYSEXB={ TR(34) } #TR_SYSEXB TrackName = {"Sys-Ex Port B"}
}
//_ 音源初期化
// 長さは最大１／２小節まで
#SetUpSynth={
IF(SynthType <= 8 && SynthType >= 5){
#SetUpSynth_XG
}Else{If(SynthType >= 1){
#SetUpSynth_GS
}Else{
#SetUpSynth_GM
}}
}
//_ エフェクタ設定
// 長さは最大１／２小節まで
#SetUpEffect={
#TR_SYSEXA
If(SynthType <= 7 && SynthType >= 5){
#SetUpEffect_XG
}
If(SynthType <= 4 && SynthType >= 1){
#SetUpEffect_GS
}
}
//_ 音色設定
// 長さは最大１小節まで
#SetUpInst={
Switch(SynthType){
Case(7){ #SetUpInst_MU2000 }
Case(6){ #SetUpInst_MU100 }
Case(5){ #SetUpInst_XG }
Case(4){ #SetUpInst_SC8850 }
Case(3){ #SetUpInst_SC88pro }
Case(2){ #SetUpInst_SC88 }
Case(1){ #SetUpInst_GS }
Default{ #SetUpInst_GM }
}
}
Function SetUp(){
l8
#SetUpMetaEvent // メタイベント
S{#SetUpSynth} r*2 // 音源初期化
TrackSync;
S{#SetUpEffect} r*2 // エフェクタ設定
TrackSync;
S{#SetUpInst} r*1 // 音色設定
TrackSync;
}
//------------------------------------------------------------------------------
//_ イントロ１
Function Intro1(Int num){
// Tin Whistle
#tw1={ o6 v110 l8 q99
// r-2^8 #twdr e-16 #twnm b-16 #twdr a-f #twnm d- #twdr f
r-2 #twdr e-16 #twnm b-16 #twdr a-f #twnm d-
y11.T=96,127,!8;#twnm e-4. #twdr b- S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4;}b-2
^4r y11(127);#twdr a-16 #twnm b-16 #twdr a-f #twnm e- #twdr <b->
y11.T=96,127,!8;#twnm d-4. #twdr a- S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4;}b-2
^4r y11(127);#twdr a-16 #twnm b-16 #twdr a-g- #twnm f #twdr d-
y11.T=96,127,!8;#twnm c4. #twdr a- S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4;}b-2
^4r y11(127);#twdr a-16 #twnm b-16 #twdr >d-<a- #twnm fd-
y11.T=96,127,!8;#twdr e-4 #twnm d- y11.T=96,127,!8;e-4. #twdr b-4
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,71,!8;}f2^4.
// #twdr c4. #twnm<b->c4 #twdr d-4
//// S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,95,!8;}c2^8r y11(127);#twnm <b->d-
// S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,79,!4,78,47,!8;}#twdr f2^4.
}
#tw2={ o6 v110 l8 q99 y11(127);
y11.T=96,127,!8;#twnm e-4. #twdr b- S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,79,!4;}b-2
^4r y11(127);#twdr a-16 #twnm b-16 #twdr a-f #twnm e- #twdr <b->
y11.T=96,127,!8;#twnm d-4. #twdr a- S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,79,!4;}b-2
^4r y11(127);#twdr a-16 #twnm b-16 #twdr a-g- #twnm f #twdr d-
y11.T=96,127,!8;#twnm c4. #twdr a- y11.T=96,127,!8;b-4. #twnm >c
#twdr d-4 #twnm cd- #twdr S{y11.T=96,127,!8;r4 y11.T=126,95,!4;}<a-2
r y11(127);>d- #twnm c<a- y11.T=96,127,!8;#twdr f4 #twnm <b->d-
S{y11.T=96,127,!8;r2 y11.T=126,119,!4,118,107,!4;}#twnm e-1
S{y11.T=108,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,55,!4;}#twdr >e-1
}
// Uillean Pipe
#up1={ o6 v110 l8 q99
r2. #upnm e- #updr b-
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,55,!4;}b-1
r2 y11(127);#upnm b-a-b- #updr >d-<
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,55,!4;}b-1
r2. y11(127);#upnm e- #updr >d-<
y11.T=96,127,!8;b-4.b- #upnm a-g-fd-
y11.T=96,127,!8;#updr c4 #upnm <b-> y11.T=96,127,!8;c4. #updr f4
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,71,!8;} c2.
// y11.T=96,127,!8;b-4. #upnm b-a-fd-<b->
// S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,79,!4;}#updr c2. y11(127);#upnm <b->d-
// S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,79,!4,78,47,!8;}#updr f2^4.
}
#up2={ o6 v110 l8 q99 y11(127);
r2. #upnm e- #updr b-
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,55,!4;}b-1
r2 y11(127);#upnm b-a-b- #updr >d-
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,55,!4;}e-1<
r2^4. y11(127);#upnm >c
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,79,!4;}#updr d-2. y11(127);#upnm cd-<
y11.T=96,127,!8;#updr a-4.r #updr >d-< #upnm fd-<b->
S{y11.T=96,127,!8;r2 y11.T=126,111,!2,110,87,!2,86,55,!2;}#updr e-1
^1
}
// Uillean Harp
#uh0={ o4 v90 l1 q99
[7r]
v+'v-16>>>d- v+8t32<f v+16t64>d- t0'r-2. v+'v-8<b- v-8t32d- v+16t64a- t0' r-2. v-'f v-8t32d- v-8t64<b- v+16t0'r-2. 'v-8>d- v-8t24<a- v-8t48f v-8t72<b- v+32t0'
}
#uh1={ o4 v90 l8 q99
'b- v+8t8>f v+8t16b- v+8t24>e-<< v-24t0'4,400 r v+20>>b-8,800<<v-20 'v+12 >b- v+6t12>f v+6t24b- v+6t36>e-<< v-30t0<'2,200 r1
'b- v+8t8>f v+8t16a- v+8t24>d-<< v-24t0'4,400 r v+20>>a-8,800<<v-20 'v+12 >b- v+6t12>f v+6t24a- v+6t36>d-<< v-30t0<'2,200 r1
'b- v+8t8>e- v+8t16>c v+8t24e-<< v-24t0'4,400 r v+20>>b-8,800<<v-20 'v+12 >b- v+6t12>g- v+6t24>c v+6t36e-<< v-30t0<'2,200 r1
'b- v+8t8>e- v+8t16a- v+8t24>c<< v-24t0'4,400 r v+20>>a-8,800<<v-20 'v+12 >b- v+6t12>e- v+6t24a- v+6t36>c<< v-30t0<'2,200
'b- v+8t8>f v+8t16a- v+8t24>c<< v-24t0'4,400 r v+20>>a-8,800<<v-20 'v+12 >a- v+6t12>c v+6t24b- v+6t36>f<<< v-30t0<'2,200
}
// 'b- v+8t8>f v+8t16b- v+8t24>e- v-12t192f v+6t204b- v+6t216>e-<<< v-24t0' r
// 'b- v+8t8>f v+8t16a- v+8t24>d- v-12t192f v+6t204a- v+6t216>d-<<< v-24t0' r
// 'b- v+8t8>f v+8t16b- v+8t24>e- v-12t192f v+6t204b- v+6t216>e-<<< v-24t0' r
// 'b- v+8t8>e- v+8t16a- v+8t24>c v-12t192e- v+6t204a- v+6t216>c<<< v-24t0'
// 'b- v+8t8>f v+8t16a- v+8t24>c v-12t192a- v+6t204>c v+6t216f<<< v-24t0'
#uh2={ o4 v90 l8 q99
'b- v+8t8>f v+8t16b- v+8t24>e-<< v-24t0'4,400 r v+20>>b-8,800<<v-20 'v+12 >b- v+6t12>f v+6t24b- v+6t36>e-<< v-30t0<'2,200 r1
'b- v+8t8>f v+8t16a- v+8t24>d-<< v-24t0'4,400 r v+20>>a-8,800<<v-20 'v+12 >b- v+6t12>f v+6t24a- v+6t36>d-<< v-30t0<'2,200 r1
'b- v+8t8>e- v+8t16>c v+8t24e-<< v-24t0'4,400 r v+20>>b-8,800<<v-20 'v+12 >b- v+6t12>g- v+6t24>c v+6t36e-<< v-30t0<'2,200
'a- v+8t8>e- v+8t16a- v+8t24>c<< v-24t0'4,400 'v+12 >a- v+6t12>c v+6t24e-<< v-24t0'4,400 'v+12 >b- v+6t8>e- v+6t16f v+6t24>c<<< v-30t0'2,200
'b- v+8t8>e- v+8t16a- v+8t24>c<< v-24t0'4,400 'v+12 >>e- v+6t12a- v+6t24>c<<< v-24t0'4,400 Div{v+24>>a-,1200 v-8e-,1200< v-8a-,1200}4 v+12>c16,1600< v-8a-16,1600 v-8f16,1600< v-8a-16,1600 v+4
'b- v+8t8>g- v+8t16b- v+8t24>e-<< v-24t0'4,400 r v+20>>b-8,800<<v-20 'v+12 >b- v+6t12>g- v+6t24b- v+6t36>e-<< v-30t0<'2,200
'v-8>e- v+8t12b- v+8t24>e- v+8t36g- v+8t48b- v-6t52>e- v-6t56g-<<< v-12t0'1
}
// 'b- v+8t8>f v+8t16b- v+8t24>e- v-12t96f v+6t108b- v+6t120>e-<<< v-24t0' r
// 'b- v+8t8>f v+8t16a- v+8t24>d- v-12t96f v+6t108a- v+6t120>d-<<< v-24t0' r
// 'b- v+8t8>f v+8t16b- v+8t24>e- v-12t96f v+6t108b- v+6t120>e-<<< v-24t0'
// 'a- v+8t8>e- v+8t16a- v+8t24>c v-12t96<a- v+6t108>c v+6t120e- v-12t192<b- v+6t200>e- v+6t208f v+6t216>c<<< v-30t0'
// 'b- v+8t8>e- v+8t16a- v+8t24>c v-12t96e- v+6t108a- v+6t120>c<<< v-24t0'r-2 '>>v+24a- v-8t32e- v-8t64<a- v+12t96>c v-8t120<a- v-8t144f v-8t168<a- v+4t0' r-2
// 'b- v+8t8>g- v+8t16b- v+8t24>e- v-12t96g- v+6t108b- v+6t120>e-<<< v-24t0'
// 'v-8>e- v+8t12b- v+8t24>e- v+8t36g- v+8t48b- v-6t52>e- v-6t56g-<<< v-12t0'
// Pad1
#pd10={ v110 o5 l1 q100
S{r1^1 y11.T=127,0,!1^1,0,127,!1^1,127,0,!1^1;}
'b->e-a->d-<<'1^1^1^1-%4r%4 'b->d-g-<'1^1-%4r%4 'a->fb->d-<<'1^1-%4r%4 r1 y11(127);
}
// Pad2
#pd20={ v110 o4 l1 q100
y11.T=0,127,!1^1^1^1;
S{ b-1^1^1^1 ^1^1 ^1^1-%4r%4 }
S{ > e-1^1^1^1-%4r%4 d-1^1-%4r%4 f1^1-%4r%4< }
S{ > a-1^1^1^1-%4r%4 g-1^1-%4r%4 a-1^1-%4r%4< }
S{ >>r1^1^1^1 ^1^1 d-1^1-%4r%4<< }
}
// y11.T=0,127,!1^1^1^1;
// 'b->e-a-<'1^1^1^1-%4r%4 'b->d-g-<'1^1-%4r%4 'b->fa->d-<<'1^1-%4r%4
#pd21={ v110 o4 l1 q100
S{ b-1^1 ^1^1 ^1^1 ^1 ^1-%4r%4 }
S{ >e-1^1-%4r%4 d-1^1-%4r%4 e-1^1 ^1-%4r%4 f1-%4r%4< }
S{ >f1^1 ^1^1 c1^1 ^1 ^1-%4r%4< }
S{ >b-1^1-%4r%4 a-1^1-%4r%4 g-1^1-%4r%4 a-1 ^1-%4r%4< }
}
// 'b->e-fb-<'1^1-%4r%4 'b->d-fa-<'1^1-%4r%4
// 'b->ce-g-<'1^1-%4r%4 'b->ce-a-<'1-%4r%4 'b->cfa-<'1-%4r%4
#pd22={ v110 o4 l1 q100
S{ b-1^1 ^1^1 ^1-%4r%4 >c2^2 ^2^2-%4r%4< b-1 ^1-%4r%4 }
S{ >e-1^1-%4r%4 d-1^1-%4r%4 e-1 ^2^2 ^2^2 ^1 ^1-%4r%4< }
S{ >f1^1 ^1^1 c1-%4r%4 a-2-%4r%4f2-%4r%4 <b-2-%4r%4a-2-%4r%4> g-1 ^1-%4r%4< }
S{ >b-1^1-%4r%4 a-1^1-%4r%4 g-1-%4r%4 >c2-%4r%4<b-2 a-2f2-%4r%4 b-1 ^1-%4r%4< }
}
// 'b->e-fb-<'1^1-%4r%4 'b->d-fa-<'1^1-%4r%4
// 'b->ce-g-<'1-%4r%4 '>ce-a->c<<'2-%4r%4'>ce-fb-<'2-%4r%4 'b->ce-a-<'2-%4r%4'a->ce-f<'2-%4r%4 'b->e-g-b-<'1^1-%4r%4
// Bodhran
#bod2={ o4 v110 l8 q99
b->rrd- e-rr<b- b->rrd- frre-<
b->rrd- e-rr<b- b->rrd- frrd-<
b->rre- g-rr<b- >crre- a-rrc<
b->rrc e-rr<a- b->rre- g-rr<b-
>e-
}
// SFX1
#sfx11={ l1 [7r] #se12 }
// Play
S{
#TR_UHP #uh0
#TR_PAD1 #pd10
#TR_PAD2 #pd20
}
l1 [8r*] TrackSync;
S{
#TR_TINW #tw1
#TR_UPP #up1
#TR_UHP #uh1
#TR_PAD2 #pd21
}
l1 [8r*] TrackSync;
S{
#TR_TINW #tw2
#TR_UPP #up2
#TR_UHP #uh2
#TR_PAD2 #pd22
#TR_BOD #bod2
#TR_SFX1 #sfx11
}
l1 [9r*] TrackSync;
}
//------------------------------------------------------------------------------
//_ イントロ２
Function Intro2(Int num){
// Base1
#bas11={ o3
[2 [2 #bs11({e-})] [2 #bs11({d-})]]
}
#bas14={ o3
[2 #bs11({e-})] [2 #bs11({d-})]
#bs11({e-}) #bs11({d-}) [2 #bs11({e-})]
}
// Base2
#bas21={ o2
[2 [2 #bs21({e-})] [2 #bs21({d-})]]
}
#bas24={ o2
[2 #bs21({e-})] [2 #bs21({d-})]
#bs21({e-}) #bs21({d-}) [2 #bs21({e-})]
}
// Synth 1
#sn11={ o4 v110 l16 q50
S{[8 y74.T=12,44,!4,44,12,!4,12,44,!4,44,12,!4;r1]}
[8 g-g-b-g- g->c<g-g- >e-<g-g->f< g-g->g-<g-]
}
#sn12={ o4 v110 l16 q50
S{y11.T=0,127,!1^1^1^1 ^1^1^1^1;}
#sn11
}
#sn13={ o4 v110 l16 q50
S{[8 y74.T=12,44,!4,44,12,!4,12,44,!4,44,12,!4;r1]}
[7 g-g-b-g- g->c<g-g- >e-<g-g->f< g-g->g-<g-]
g-g-b-g- g->d-<g-g- >f<g-g->b-< g-g->>d-<<g-
}
#sn14={ o4 v110 l16 q50
S{[8 y74.T=12,44,!4,44,12,!4,12,44,!4,44,12,!4;r1]}
[4 g-g-b-g- g->c<g-g- >e-<g-g->f< g-g->g-<g-]
// g-g-b-g- g->c<g-g- g-g->e-<g- g->f<g-g-
// ffa-f fb-ff ff>d-<f f>e-<ff
// g-g-b-g- g-g->c<g- g-g->e-<g- g-g->f<g-
g-g-b-g- g->c<g-g- >e-<g-g->f< g-g->g-<g-
ffa-f fb-ff >d-<ff>e-< ff>f<f
e-e-g-e- e-a-e-e- >c<e-e->d-< e-e->e-<e-
e-e->f<e- e->g-<e-e- >a-<e-e->b-< e-e->>d-<<e-
// >>e-<<
// [2g-g-b-g- g->c<g-g-]
// [2ffa-f fb-ff]
// [4e-e-g-e-] e-e-g-e- e-a-e-e- b-e-e->c< e-e->d-<e- >e-<
}
// Synth 4
#sn41={ o5 v110 l16 q50
[8 g-g-b-g- g->c<g-g- >e-<g-g->f< g-g->g-<g-]
}
#sn42={ o5 v110 l16 q50
S{y11.T=0,127,!1^1^1^1 ^1^1^1^1;}
#sn41
}
#sn43={ o5 v110 l16 q50
[7 g-g-b-g- g->c<g-g- >e-<g-g->f< g-g->g-<g-]
g-g-b-g- g->d-<g-g- >f<g-g->b-< g-g->>d-<<g-
}
#sn44={ o5 v110 l16 q50
[4 g-g-b-g- g->c<g-g- >e-<g-g->f< g-g->g-<g-]
// g-g-b-g- g->c<g-g- g-g->e-<g- g->f<g-g-
// ffa-f fb-ff ff>d-<f f>e-<ff
// g-g-b-g- g-g->c<g- g-g->e-<g- g-g->f<g-
g-g-b-g- g->c<g-g- >e-<g-g->f< g-g->g-<g-
ffa-f fb-ff >d-<ff>e-< ff>f<f
e-e-g-e- e-a-e-e- >c<e-e->d-< e-e->e-<e-
e-e->f<e- e->g-<e-e- >a-<e-e->b-< e-e->>d-<<e-
// >>e-<<
// [2g-g-b-g- g->c<g-g-]
// [2ffa-f fb-ff]
// [4e-e-g-e-] e-e-g-e- e-a-e-e- b-e-e->c< e-e->d-<e- >e-<
}
// Pad1
#pd11={ v110 o5 l1 q99
S{ [2 y11.T=0,127,!1.;r1^1.y11.T=127,0,!1.;r1. ] }
[2 'e-b->d-g-<'1^1 'd-a->cf<'1^1]
}
#pd12={ v110 o5 l1 q99
S{ [2 y11.T=0,127,!1.;r1^1.y11.T=127,0,!1.;r1. ] }
[2 'e-b->d-g-<'1^1 : 'd-a->cf<'1^1] 'd-a->cf<' 'd-b->e-a-<'
}
#pd14={ v110 o5 l1 q99
// S{ [2 y11.T=0,127,!1.;r1^1.y11.T=127,0,!1.;r1. ] }
S{ y11.T=0,127,!1.;r1^1.y11.T=127,0,!1.;r1.
[2 [2y11.T=0,127,!4.;r2]]
[4y11.T=0,127,!8.;r4]
y11.T=0,127,!2.;r1
}
'e-b->d-g-<'1^1 'd-a->cf<'1^1
[2'e-b->d-g-<'2] [2'd-a->cf<'2] [4'e-b->e-a-<'4] 'e-b->e-g-<'1
// 'e-b->d-g-<' 'd-a->cf<' 'e-b->e-a-<' 'e-b->e-g-<'1
}
// Pad2
#pd21={ v110 o4 l1 q99
[2 'e-b->d-g-<'1^1 'd-a->cf<'1^1]
}
#pd22={ v110 o4 l1 q99
[2 'e-b->d-g-<'1^1 : 'd-a->cf<'1^1] 'd-a->cf<' 'd-b->e-a-<'
}
#pd24={ v110 o4 l1 q99
'e-b->d-g-<'1^1 'd-a->cf<'1^1
[2'e-b->d-g-<'2] [2'd-a->cf<'2] [4'e-b->e-a-<'4] 'e-b->e-g-<'1
// 'e-b->d-g-<' 'd-a->cf<' 'e-b->e-a-<' 'e-b->e-g-<'1
}
// Kick
#bd1a={ l16 q99 Rhythm{ (v127 S){ r4 rr(v-)k(v-)k(v++) kr(v--)k(v++)kr(v--)k(v+)k(v-)k(v++) }} r1 }
#bd1b={ l16 q99 Rhythm{ (v127 S){ [2kr(v-)kr(v+)] k[12k32]k }} r1 }
#drbd2 = { l16 q99
S{ [7 r1] #bd1a }
}
#drbd3 = { l16 q99
S{ [7 #bd11] #bd12 }
}
#drbd4 = { l16 q99
S{ [7 #bd13] #bd1b }
}
// Snare
#drsd1={ l16 q99 v.Repeat(off); Rhythm{
(v.T=64,95,!1^1^1^1 ^1^1^1^1; S){ [8 [4srrr]] }
(v.T=24,71,!1^1^1^1 ^1^1^1^1; S){ [8 [4rrsr]] }
// (v.T=32,79,!1^1^1^1 ^1^1^1^1; S){ [8 [4srrr]] }
// (v.T=24,71,!1^1^1^1 ^1^1^1^1; S){ [8 [4rrsr]] }
}}
#drsd2={ l16 q99 v.Repeat(off); Rhythm{
(v.T=96,127,!1^1^1^1 ^1^1^1^1; S){ [8 [4srrr]] }
(v.T=72,119,!1^1^1^1 ^1^1^1^1; S){ [8 [4rrsr]] }
(v119 S){ [7r1] S(v--)S(v+)Sr(v+) Sr(v--)S(v+)S(v+) r(v--)S(v+)S(v-)S(v++) Sr(v--)S(v+)S(v+) }
// (v.T=80,127,!1^1^1^1 ^1^1^1^1; S){ [2 [3 [4srrr]] : [3srrr] srrr] srrr srrr rrsr srrr }
// (v.T=72,119,!1^1^1^1 ^1^1^1^1; S){ [2 [3 [4rrsr]] : [3rrsr] rrsr] rrsr rrsr srrr rrsr }
// (v.T=56,103,!1^1^1^1 ^1^1^1^1; S){ [2 [3 [4rrrr]] : [3rrrr] rrrs] rsrr rrrs rsrs rrrs }
}}
#drsd3={ l16 q99 v.Repeat(off); Rhythm{
(v127 S){ [8 [4srrr]] }
(v119 S){ [8 [4rrsr]] }
(v.T=48,111,!1^1^1^1 ^1^1^1^1; S){ [8 [4rsrs]] }
(v.T=40,103,!1^1^1^1 ^1^1^1^1; S){ [8 [4rsrr]] }
// (v103 S){ [7 [4rrrr]] [3rrrr] rsrs }
// (v.T=48,79,!1^1^1^1 ^1^1^1^1; S){ [7 [4rsrs]] [3rsrs] rrrr }
}}
#drsd4={ l16 q99 v.Repeat(off); Rhythm{
(v127 S){ [4 [4srrr]] }
(v119 S){ [4 [4rrsr]] }
(v111 S){ [4 [4rsrr]] }
(v103 S){ [4 [4rrrs]] }
(v127 S){ [4r1] [2 [2(v127)s(v.T=80,127,!8.^8;)[10s32](v127)ss]] [4(v.T=80,127,!8;)[4s32](v127)ss]
(v127)s(v.T=112,97,!4^8.;)[14s32](v.T=80,127,!4;)[16s64](v127)[8s64][4s32] }
(v119 S){ [4r1] [2 [2S(v-)SrS (v-)Sr(v+)S(v-)S(v++)]] [4S(v-)SrS(v+)]
(v119)S(v.T=104,89,!4^8.;)[7S](v.T=72,119,!4;)[8S32](v119)[4S32][2S] }
// (v127 S){ [3 [4srrr]] [3srrr] srrr [2 [2srrr srrr]] [4srrr] s }
// (v119 S){ [3 [4rrsr]] [3rrsr] rrsr [2 [2rrrr rrsr]] [4rrrr] r }
// (v103 S){ [3 [4rrrr]] [3rrrr] rrrs [2 [2rrrr rrrs]] [4rrrs] r }
// (v.T=80,111,!1^1^1^1 ^1^1^1^1; S){ [3 [4rsrs]] [3rsrs] rsrr [2 [2r[6s32]r[2s32]rr]] [4r[4s32]r] (v.T=96,127,!1;)r[2s32][12[4s64]][2s32]s }
}}
// Clap
#drhc1 = { l16 q99
S{ [8 #hc11] }
}
// Percasion
#drpc1 = { l16 q99
S{ [8 #pc11] }
}
// HiHat
#drhh1 = { l16 q99
S{ [2 [3 #hh11] #hh12] }
}
// Shaker
#drsk1 = { l16 q99
S{ [8 #sk11] }
}
// Triangle
#drta1 = { l16 q99
S{ [8 #ta11] }
}
// Cymbal
#drcm1={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r r r r r }
(v110 S){ C r r r C r r r }
}}
#drcm2={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r r r c c2r4(v-96)[16c64(v+6)] }
(v110 S){ r r r r C r C r2C4(v-96)[16C64(v+6)] }
}}
#drcm4={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r c2r2 c2r2 c4c4r4c4 c2(v-96)[32c64(v+3)] c }
(v110 S){ r r r r C2C2 r2C2 C4r4C4r4 C2(v-96)[32C64(v+3)] C }
}}
// Log Drum
#log1 = { o6 v110 l16 q99
S{TDAuto(!1^1^1^1, 63, 64, 90, 1, 2, 8);}
Unison({
[2 e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-<a-^v+e-v-d->v+
e-^d-^ <e-^>e-<v-a- ^a->v+d-^ v-<a-^v+d-v-<a->>v+
d-^<b-^ g-^>d-<v-d- ^g->v+d-^ v-<g-^v+d-v-<b->>v+
d-^<b-^ d-^>d-<v-b- ^g->v+d-^ v-<g-^v+e-v-b->v+ ]
},7);
}
// #log1 = { o6 v110 l8 q99
// S{TDAuto(!1^1^1^1, 63, 64, 90, 1, 2, 8);}
// Unison({
// [2 e-d-<a->e- <a->d-r<e-> e-d-<e->e- <a->d-r<d->
// d-<b-g->d- <d-a-rd-> d-<b-d->d- <g-b-re-> ]
// },7);
// }
#log4 = { o6 v110 l16 q99
S{TDAuto(!1^1^1^1, 63, 64, 90, 1, 2, 8);}
Unison({
e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-<a-^v+e-v-d->v+
e-^d-^ <e-^>e-<v-a- ^a->v+d-^ v-<a-^v+d-v-<a->>v+
d-^<b-^ g-^>d-<v-d- ^g->v+d-^ v-<g-^v+d-v-<b->>v+
d-^<b-^ d-^>d-<v-b- ^g->v+d-^ v-<g-^v+e-v-b->v+
e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-<a-^v+e-v-d->v+
d-^<b-^ d-^>d-<v-b- ^g->v+d-^ v-<g-^v+e-v-b->v+
e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-<a-^v+e-v-d->v+
e-^d-^ <e-^>e-<v-a- ^a->v+d-^ v-<b-^v+d-v-<a->>v+
},7);
}
// #log4 = { o6 v110 l8 q99
// S{TDAuto(!1^1^1^1, 63, 64, 90, 1, 2, 8);}
// Unison({
// e-d-<a->e- <a->d-r<e-> e-d-<e->e- <a->d-r<d->
// d-<b-g->d- <d-a-rd-> d-<b-d->d- <g-b-re->
// e-d-<a->e- <a->d-r<e-> d-<b-d->d- <g-b-re->
// e-d-<a->e- <a->d-r<e-> e-d-<e->e- <b->d-ra-
// },7);
// }
// SFX2
#sfx21={ l1 #se21 }
// Play
S{
#TR_SYN1 #sn12
#TR_SYN4 #sn41
#TR_PAD1 #pd11
#TR_PAD2 #pd21
#TR_DRUM2 #drsd1 #drpc1 #drcm1
// #TR_DRUM2 #drhc1 #drsk1
#TR_LOG #log1
#TR_SFX2 #sfx21
}
l1 [8r*] TrackSync;
S{
#TR_SYN1 #sn13
#TR_SYN4 #sn43
#TR_PAD1 #pd12
#TR_PAD2 #pd22
#TR_DRUM2 #drsd2 #drpc1 #drcm2 #drhh1 #drta1
// #TR_DRUM2 #drhc1 #drsk1
#TR_LOG #log1
}
l1 [8r*] TrackSync;
S{
#TR_BASS1 #bas11
#TR_BASS2 #bas21
#TR_SYN1 #sn11
#TR_SYN4 #sn41
#TR_PAD1 #pd11
#TR_PAD2 #pd21
#TR_DRUM2 #drsd3 #drpc1 #drcm1 #drhh1 #drta1 #drsk1
// #TR_DRUM2 #drhc1
#TR_LOG #log1
#TR_SFX2 #sfx21
}
l1 [8r*] TrackSync;
S{
#TR_BASS1 #bas14
#TR_BASS2 #bas24
#TR_SYN1 #sn14
#TR_SYN4 #sn44
#TR_PAD1 #pd14
#TR_PAD2 #pd24
#TR_DRUM2 #drsd4 #drpc1 #drcm4 #drhh1 #drta1 #drsk1
// #TR_DRUM2 #drhc1
#TR_LOG #log4
}
l1 [8r*] TrackSync;
S{
#TR_SFX2 #sfx21
#TR_SFX3 #se31
}
l1 r* TrackSync;
}
//------------------------------------------------------------------------------
//_ サビ
Function Sabi(Int num){
// Base1
#bas11={ o4 v127 l16 q99
r-2 b->e-<b-g- e-^<b-^>
[2 [2rre-g- <b->e-^e-]] [2 [2rrd-f <a->d-^d-]]
[2 [2rrce- <g->c^c]] [2rr<b->e- <a-b-^b->] rrcf <a->c^c rrcf <a->f^f
}
#bas12={ o4 v127 l16 q99
[2 [2rre-g- <b->e-^e-]] [2rrd-f <a->d-^d-] rrd-f <a->d-^d- rrd-f <a->f^d-
[2rrce- <g->c^c] rrce- <a->c^c rrce- <f>c^c rrce- <a->c^c rrcf <a->f^f rre-g- <b->e-^e- //r4 q99 p%.T=8191,0,!4;e-4
}
#bas14={ o4 v127 l16 q99
[2 [2rre-g- <b->e-^e-]] [2rrd-f <a->d-^d-] rrd-f <a->d-^d- rrd-f <a->f^d-
[2rrce- <g->c^c] rrce- <a->c^c rrce- <f>c^c rrce- <a->c^c rrcf <a->f^f
}
#bas16={ o4 v127 l16 q99
[2 [2rre-g- <b->e-^e-]] [2rrd-f <a->d-^d-] rrd-f <a->d-^d- rrd-f <a->f^d-
[2rrce- <g->c^c] rrce- <a->c^c rrce- <f>c^c rrce- <a->c^c rrcf <a->f^f [2rre-g- <b->e-^e-]
[2 [2rre-g- <b->e-^e-]] rre-g- <b->e-^e- rrd-f <a->d-^d- e-1
}
// Base2
#bas21={ o2 v127 l16 q99
r-4 p%.T=8191,0,!4;e-4
[2 #bs21({e-})] [2 #bs21({d-})]
[2 #bs21({c})] #bs21({<b->}) #bs25({c},{a-},{f})
}
#bas22={ o2 v127 l16 q99
[2 #bs21({e-})] #bs21({d-}) #bs25({d-},{f},{d-})
#bs21({c}) #bs23({c},{<b->}) #bs23({<a->},{c}) [2r>e-<] //r4 q99 p%.T=8191,0,!4;e-4
}
#bas24={ o2 v127 l16 q99
[2 #bs21({e-})] #bs21({d-}) #bs25({d-},{f},{d-})
#bs21({c}) #bs23({c},{<b->}) #bs23({<a->},{c})
}
#bas26={ o2 v127 l16 q99
[2 #bs21({e-})] #bs21({d-}) #bs25({d-},{f},{d-})
#bs21({c}) #bs23({c},{<b->}) #bs23({<a->},{c}) #bs23({e-},{<b->})
#bs23({e-},{<b->}) #bs23({e-},{<b->}) #bs25({<f>},{<a->},{d-}) >e-1<
}
// Vocal 1
Int vnum = 2;
#vc11={ o6 v110 l8 q99
r-2 y11(127); <b-16>g-16e-d-<a-
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);b-4.>e- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);e-2
^2r2 y11(127);
If(vnum == 1){
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);<a-4.>d- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);e-2
^2r2 y11(127);
}Else{
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);<a-4.>d- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);e-2
^2r4. y11(127);<a->
}
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);<g4.>d- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,99,!8;}Ben(-256,!8);Vib(111,!2^4.);e-2
^4.r y11(127);g-e-d-<b-
y11.T=112,127,!8;Ben(-384,!8);Vib(32,!4);a-4g- y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);a-4. Ben(-256,!8);Vib(32,!4);>d-4
If(vnum == 1){
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,99,!8;}Ben(-384,!8);Vib(111,!2^4.);<b-2^4.
}Else{
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4;}Ben(-384,!8);Vib(96,!2^4);<b-2^4
}
}
#vc12={ o6 v110 l8 q99
IF(vnum == 1){
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);<b-4.>e- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);e-2
^2r2 y11(127);
}Else{
r- y11(127);<g-
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);b-4.>e- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);e-2
^2r4. y11(127);<a->
}
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);<a-4.>d- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);e-2
^2r2 y11(127);
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);<g-4.>d- y11.T=112,127,!8;Ben(-256,!8);Vib(48,!4.);e-4.f
IF(vnum == 1){
Ben(-384,!8);Vib(32,!4);g-4fg- S{y11.T=112,127,!8;r4 y11.T=126,111,!4;}Ben(-384,!8);Vib(64,!2);d-2
r y11(127);g-fd-<b-a-fa-
}Else{
Ben(-384,!8);Vib(32,!4);g-4fg- S{y11.T=112,127,!8;r4 y11.T=126,119,!8;}Ben(-384,!8);Vib(48,!4.);d-4.r
y11(127);g-fd-<b- y11.T=112,127,!8;Ben(-256,!8);Vib(32,!4);f4a-4
}
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);b-1
}
// Vocal 2
#vc21={ o6 v110 l8 q99
r2. y11(127); <a->e-
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);e-1
r2. y11(127); <g->e-
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,110,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);e-1
r2. y11(127); <a->g-
S{y11.T=112,127,!8;r4 y11.T=126,119,!8;}Ben(-384,!8);Vib(48,!4.);e-4. r y11(127);d-<b-a-g-
y11.T=112,127,!8;Ben(-384,!8);Vib(32,!4);e-4d- y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);e-4. Ben(-256,!8);Vib(32,!4);a-4
If(vnum == 1){
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,99,!8;}Ben(-384,!8);Vib(111,!2^4.);f2^4.
}Else{
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4;}Ben(-384,!8);Vib(96,!2^4);f2^4
}
}
#vc22={ o6 v110 l8 q99
r2. y11(127); <a->e-
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);e-1
r2 y11(127);e-d-e-g-
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);a-1
If(vnum == 1){
r2^4. y11(127);<b-
Ben(-384,!8);Vib(32,!4);>d-4<b->d-<a-8.r16>fg-
y11.T=112,127,!8;Ben(-384,!8);Vib(80,!2^8);d-2^8r<b->d-
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);e-1
}Else{
r1 y11(127);
Ben(-384,!8);Vib(32,!4);d-4<b->d-<a-8.r16>fg-
y11.T=112,127,!8;Ben(-384,!8);Vib(32,!4);d-4r<fb-4>d-4
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);e-1
}
}
/*
// Vocal 1
#vc11={ o6 v110 l8 q99
r-2 y11(127); e-16b-16a-fd-
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);e-4.b- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);b-2
^2r2 y11(127);
If(vnum == 1){
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);d-4.a- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);b-2
^2r2 y11(127);
}Else{
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);d-4.a- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);b-2
^2r4. y11(127);d-
}
// y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);c4.a- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);b-2
// ^2r2 y11(127);
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);c4.a- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,99,!8;}Ben(-256,!8);Vib(111,!2^4.);b-2
^4.r y11(127);>d-<b-a-f
y11.T=112,127,!8;Ben(-384,!8);Vib(32,!4);e-4d- y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);e-4. Ben(-256,!8);Vib(32,!4);b-4
If(vnum == 1){
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,99,!8;}Ben(-384,!8);Vib(111,!2^4.);f2^4.
}Else{
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4;}Ben(-384,!8);Vib(96,!2^4);f2^4
}
}
#vc12={ o6 v110 l8 q99
IF(vnum == 1){
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);e-4.b- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);b-2
^2r2 y11(127);
}Else{
r- y11(127);d-
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);e-4.b- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);b-2
^2r4. y11(127);d-
}
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);d-4.a- S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-256,!8);Vib(127,!1);b-2
^2r2 y11(127);
y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);c4.a- y11.T=112,127,!8;Ben(-256,!8);Vib(48,!4.);b-4.>c
// r y11(127);>d-c<a- y11.T=112,127,!8;Ben(-256,!8);Vib(32,!4);f4<b->d-
IF(vnum == 1){
Ben(-384,!8);Vib(32,!4);d-4cd- S{y11.T=112,127,!8;r4 y11.T=126,111,!4;}Ben(-384,!8);Vib(64,!2);<a-2
r y11(127);>d-c<a-fd-<b->d-
}Else{
Ben(-384,!8);Vib(32,!4);d-4cd- S{y11.T=112,127,!8;r4 y11.T=126,119,!8;}Ben(-384,!8);Vib(48,!4.);<a-4.r
y11(127);>d-c<a-f y11.T=112,127,!8;Ben(-256,!8);Vib(32,!4);<b-4>d-4
}
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);e-1
}
#vc21={ o6 v110 l8 q99
r2. y11(127); e-b-
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);b-1
r2. y11(127); d-b-
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,110,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);b-1
r2. y11(127); e->d-<
// S{y11.T=112,127,!8;r4 y11.T=126,111,!4;}Ben(-384,!8);Vib(64,!2);b-2 y11(127);a-g-fd-
S{y11.T=112,127,!8;r4 y11.T=126,119,!8;}Ben(-384,!8);Vib(48,!4.);b-4. r y11(127);a-g-fd-
y11.T=112,127,!8;Ben(-384,!8);Vib(32,!4);c4<b- y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);>c4. Ben(-256,!8);Vib(32,!4);f4
If(vnum == 1){
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,99,!8;}Ben(-384,!8);Vib(111,!2^4.);c2^4.
}Else{
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4;}Ben(-384,!8);Vib(96,!2^4);c2^4
}
}
#vc22={ o6 v110 l8 q99
r2. y11(127); e-b-
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);b-1
r2 y11(127);b-a-b->d-
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);e-1<
If(vnum == 1){
r2^4. y11(127);g-
Ben(-384,!8);Vib(32,!4);a-4g-a-e-8.r16>cd-<
y11.T=112,127,!8;Ben(-384,!8);Vib(80,!2^8);a-2^8r<fa-
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);b-1
}Else{
r1 y11(127);
Ben(-384,!8);Vib(32,!4);a-4g-a-e-8.r16>cd-<
y11.T=112,127,!8;Ben(-384,!8);Vib(32,!4);a-4rc<f4a-4
S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);b-1
}
// r2^4. y11(127);>c
// S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4;}Ben(-384,!8);Vib(96,!2.);d-2. y11(127);cd-<
// y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);a-4.ra-c<a-f
// S{y11.T=112,127,!8;r4 y11.T=126,119,!4,118,107,!4,106,91,!4;}Ben(-384,!8);Vib(127,!1);b-1
}
*/
// Lead 1
#ld11={ o7 v127 l8 q100
S{ r-4r32 y65(127);y5(10); }
r-4<e-16g-16b-16>d-16
S{p%.T=0,1365,!4.;r2^4.p%.T=1365,0,!8;}d-1 ^2^8.<a-8.>d-
Ben(-1365,!4.);<a-2^4^16f16>d-16c16 Ben(-683,!4);<d-2.r16<b-16>f16d-16
Ben(-1365,!4.);e-2^4^16f16a-16<a-16> Ben(-683,!8);e-4.d-16<a-16>Ben(-683,!8);e-8.a-8.d-16c16,95
Ben(-683,!8);f8.a-8.e-16fb-8.a-b- Ben(-683,!8);>d-8.c8.<a-8.b-8.>d-<b-
}
#ld12={ o7 v127 l8 q100
S{ r4 y65(127);y5(10); }
S{p%.T=0,1365,!4.;r2^4.p%.T=1365,0,!4;}d-1 ^2^4r<b-16>d-16
e-16c16d16<b16>d-16<b-16>c16<a16b16a-16b-16g16a16g-16a-16f16 Ben(-683,!8);a-8.d-8.>d-4<a-fa-16g-16,95
Ben(-683,!8);b-8.a-8.>e-16d-16<b-a->e-d- Ben(-683,!8);<b-8.a-8.>e-16d-16<b-a->d-e-,95<
Ben(-683,!8);f8.a-8.f8.>d-8.<a->d- Ben(-683,!8);e-8.d-8.<b-16a-e-8.b->d-,95
Ben(-683,!8);e-8.d-8.<b-16a-d-8.fa-> Ben(-683,!8);e-8.d-8.<b-16a->f8.d-<a-,95
Ben(-683,!8);d-8.e-8.g-8.a-8.b->d- Ben(-1365,!4.);e-1
}
/*
#ld11={ o7 v127 l8 q100
S{ r-4r32 y65(127);y5(30); }
r-4<e-16g-16b-16>d-16
S{p%.T=0,1365,!4.;r2^4.p%.T=1365,0,!8;}d-1 ^2^8.<a-8.>d-
<a-2^4^16f16>d-16c16 <d-2.r4
e-2^4^16f16a-16<a-16> e-4.d-16<a-16>e-8.a-8.d-
f8.a-8.f8.b-8.a-b- >d-8.c8.<a-8.b-8.>d-<b-
}
#ld12={ o7 v127 l8 q100
S{ r4 y65(127);y5(30); }
S{p%.T=0,1365,!4.;r2^4.p%.T=1365,0,!4;}d-1 ^2^4r<b-16>d-16
e-16c16d16<b16>d-16<b-16>c16<a16b16a-16b-16g16a16g-16a-16f16 a-8.d-8.>d-4<a-fa-,95
b-8.a-8.>e-16d-16<b-a->e-d- <b-8.a-8.>e-16d-16<b-a->d-e-,95<
f8.a-8.f8.>d-8.<a->d- e-8.d-8.<a-8.e-8.b->d-,95
e-8.d-8.<a-8.d-8.fa-> e-8.d-8.<a-8.>f8.d-<a-,95
d-8.e-8.g-8.a-8.b->d- e-1
}
*/
// Lead 2
#ld21={ Key(7) #ld11 Key(0) }
#ld22={ Key(7) #ld12 Key(0) }
/* #ld12={ o7 v127 l8 q100
S{ r4 y65(127);y5(30); }
S{p%.T=0,1365,!4.;r2^4.p%.T=1365,0,!4;}d-1 ^2^4r<b-16>d-16
e-16c16d16<b16>d-16<b-16>c16<a16b16a-16b-16g16a16g-16a-16f16 a-8.d-8.>d-4<a-fa-,95
b-8.a-8.>e-16d-16<b-a->e-d- <b-8.a-8.>e-16d-16<b-a->d-e-<
f8.a-8.f8.>d-8.<a->d- e-1
}
*/
// Tin Whistle
#tw1={ o6 v110 l8 q99
r-2 #twdr e-16 #twnm b-16 #twdr a-f #twnm d-
y11.T=96,127,!8;#twnm e-4. #twdr b- S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4;}b-2
^4r y11(127);#twdr a-16 #twnm b-16 #twdr a-f #twnm e- #twdr <b->
y11.T=96,127,!8;#twnm d-4. #twdr a- S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4;}b-2
^4r y11(127);#twdr a-16 #twnm b-16 #twdr a-g- #twnm f #twdr d-
y11.T=96,127,!8;#twnm c4. #twdr a- S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4;}b-2
^4r y11(127);#twdr a-16 #twnm b-16 #twdr >d-<a- #twnm fd-
y11.T=96,127,!8;#twdr e-4 #twnm d- y11.T=96,127,!8;e-4. #twdr b-4
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,71,!8;}f2^4.
}
#tw2={ o6 v110 l8 q99 y11(127);
y11.T=96,127,!8;#twnm e-4. #twdr b- S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,79,!4;}b-2
^4r y11(127);#twdr a-16 #twnm b-16 #twdr a-f #twnm e- #twdr <b->
y11.T=96,127,!8;#twnm d-4. #twdr a- S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,79,!4;}b-2
^4r y11(127);#twdr a-16 #twnm b-16 #twdr a-g- #twnm f #twdr d-
y11.T=96,127,!8;#twnm c4. #twdr a- y11.T=96,127,!8;b-4. #twnm >c
#twdr d-4 #twnm cd- #twdr S{y11.T=96,127,!8;r4 y11.T=126,95,!4;}<a-2
r y11(127);>d- #twnm c<a- y11.T=96,127,!8;#twdr f4 #twnm <b->d-
y11.T=96,127,!8;#twnm
If(#?1 == 0){
e-4.
}
If(#?1 == 1){
S{y11.T=96,127,!8;r2 y11.T=126,119,!4,118,107,!4;}#twnm e-1
S{y11.T=108,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,55,!4;}#twdr >e-1
}
If(#?1 == 2){
S{r4 y11.T=126,119,!4,118,103,!4,102,79,!4;}e-1
}
}
// Uillean Pipe
#up1={ o6 v110 l8 q99
r2. #upnm e- #updr b-
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,55,!4;}b-1
r2 y11(127);#upnm b-a-b- #updr >d-<
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,55,!4;}b-1
r2. y11(127);#upnm e- #updr >d-<
y11.T=96,127,!8;b-4.b- #upnm a-g-fd-
y11.T=96,127,!8;#updr c4 #upnm <b-> y11.T=96,127,!8;c4. #updr f4
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,71,!8;} c2.
}
#up2={ o6 v110 l8 q99 y11(127);
r2. #upnm e- #updr b-
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,55,!4;}b-1
r2 y11(127);#upnm b-a-b- #updr >d-
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,87,!4,86,55,!4;}e-1<
r2^4. y11(127);#upnm >c
S{y11.T=96,127,!8;r4 y11.T=126,111,!4,110,79,!4;}#updr d-2. y11(127);#upnm cd-<
y11.T=96,127,!8;#updr a-4.r #updr >d-< #upnm fd-<b->
y11.T=96,127,!8;#updr
If(#?1 == 0){
e-4.
}
If(#?1 == 1){
S{y11.T=96,127,!8;r2 y11.T=126,111,!2,110,87,!2,86,55,!2;}#updr e-1
^1
}
If(#?1 == 2){
S{r4 y11.T=126,119,!4,118,103,!4,102,79,!4;}e-1
}
}
// Uillean Harp
#uh0={ o4 v90 l1 q99
[7r]
v+'v-16>>>d- v+8t32<f v+16t64>d- t0'r-2. v+'v-8<b- v-8t32d- v+16t64a- t0' r-2. v-'f v-8t32d- v-8t64<b- v+16t0'r-2. 'v-8>d- v-8t24<a- v-8t48f v-8t72<b- v+32t0'
}
#uh1={ o4 v90 l8 q99
'b- v+8t8>f v+8t16b- v+8t24>e-<< v-24t0'4,400 r v+20>>b-8,800<<v-20 'v+12 >b- v+6t12>f v+6t24b- v+6t36>e-<< v-30t0<'2,200 r1
'b- v+8t8>f v+8t16a- v+8t24>d-<< v-24t0'4,400 r v+20>>a-8,800<<v-20 'v+12 >b- v+6t12>f v+6t24a- v+6t36>d-<< v-30t0<'2,200 r1
'b- v+8t8>e- v+8t16>c v+8t24e-<< v-24t0'4,400 r v+20>>b-8,800<<v-20 'v+12 >b- v+6t12>g- v+6t24>c v+6t36e-<< v-30t0<'2,200 r1
'b- v+8t8>e- v+8t16a- v+8t24>c<< v-24t0'4,400 r v+20>>a-8,800<<v-20 'v+12 >b- v+6t12>e- v+6t24a- v+6t36>c<< v-30t0<'2,200
'b- v+8t8>f v+8t16a- v+8t24>c<< v-24t0'4,400 r v+20>>a-8,800<<v-20 'v+12 >a- v+6t12>c v+6t24b- v+6t36>f<<< v-30t0<'2,200
}
#uh2={ o4 v90 l8 q99
'b- v+8t8>f v+8t16b- v+8t24>e-<< v-24t0'4,400 r v+20>>b-8,800<<v-20 'v+12 >b- v+6t12>f v+6t24b- v+6t36>e-<< v-30t0<'2,200 r1
'b- v+8t8>f v+8t16a- v+8t24>d-<< v-24t0'4,400 r v+20>>a-8,800<<v-20 'v+12 >b- v+6t12>f v+6t24a- v+6t36>d-<< v-30t0<'2,200 r1
'b- v+8t8>e- v+8t16>c v+8t24e-<< v-24t0'4,400 r v+20>>b-8,800<<v-20 'v+12 >b- v+6t12>g- v+6t24>c v+6t36e-<< v-30t0<'2,200
'a- v+8t8>e- v+8t16a- v+8t24>c<< v-24t0'4,400 'v+12 >a- v+6t12>c v+6t24e-<< v-24t0'4,400 'v+12 >b- v+6t8>e- v+6t16f v+6t24>c<<< v-30t0'2,200
'b- v+8t8>e- v+8t16a- v+8t24>c<< v-24t0'4,400 'v+12 >>e- v+6t12a- v+6t24>c<<< v-24t0'4,400 Div{v+24>>a-,1200 v-8e-,1200< v-8a-,1200}4 v+12>c16,1600< v-8a-16,1600 v-8f16,1600< v-8a-16,1600 v+4
'b- v+8t8>g- v+8t16b- v+8t24>e-<< v-24t0'4,400 r v+20>>b-8,800<<v-20 'v+12 >b- v+6t12>g- v+6t24b- v+6t36>e-<< v-30t0<'2,200
If(#?1 == 1){
'v-8>e- v+8t12b- v+8t24>e- v+8t36g- v+8t48b- v-6t52>e- v-6t56g-<<< v-12t0'1
}
}
// Synth 2
#sn21={ o6 v127 l8 q75
Unison({ e-^e-b- rb-rb- ^a-b-8.b-16 a-rf^
d-^d-b- rb-rb- ^a-b-8.b-16 f16a-16a-f16ff16
c^d-b- rb-rb- ^a-b-8.b-16 a-rfc
c^c<b-> rcre- ^fa-8.a-16 f16a-16a-b-16b-b-16
},-5);
}
#sn22={ o6 v127 l8 q75
Unison({ e-^e-b- rb-rb- ^a-b-8.b-16 a-rf^
d-^d-b- rb-rb- ^a-b-8.b-16 f16a-16a-f16ff16
c^d-b- rb-rb- ^a-b-8.b-16 a-rfc
c^c<b-> rcre- ^e-g-8.g-16 g-16b-16b->d-16e-e-16<
},-5);
}
#sn26={ o6 v127 l8 q75
S{ [10r1] y74.T=0,127,!1;r1 r2.y74.T=127,0,!4; }
[7r1]
// Unison({ [3 re-g-8.g-16 <b-16>e-16e-d-16e-e-16]
Unison({ [3 re-g-8.g-16 g-16b-16b->d-16e-e-16<]
rd-f8.f16 e-16g-16g-b-16>d-d-16
e-1,100<
},-5);
}
/*
#sn21={ o6 v127 l8 q75
Unison({ e-^e-b- rb-rb- ^a-b-8.b-16 a-rf^
d-^d-b- rb-rb- ^a-b-8.b-16 a-rf^
c^d-b- rb-rb- ^a-b-8.b-16 a-rfc
c^c<b-> rcre- ^fa-8.a-16 f16a-16a-b-16b-b-16
},-5);
}
#sn22={ o6 v127 l8 q75
Unison({ e-^e-b- rb-rb- ^a-b-8.b-16 a-rf^
d-^d-b- rb-rb- ^a-b-8.b-16 a-rf^
c^d-b- rb-rb- ^a-b-8.b-16 a-rfc
c^c<b-> rcre- ^e-f8.f16 <b-16>e-16e-d-16e-e-16
},-5);
}
*/
// Synth 3
#sn31={ o5 v127 l16 q75
Unison({
[4e-<b->>e-<e- fb-^>e-<]
[3d-<a->>d-<d- fa-^>d-<] d-<a->>d-<d- >f<a-^d-
[3c<g->>c<c >e-c^<g-] c<g->>c<c g-b-^>c<
c<a->>c<c >e-<a-^<b-> c<a->>c<c e-b-^>e-< c<a->>c<f a-a-f-a- cb-b-^ >f<a->ff<
},7);
}
#sn32={ o5 v127 l16 q75
Unison({
[4e-<b->>e-<e- fb-^>e-<]
[3d-<a->>d-<d- fa-^>d-<] d-<a->>d-<d- >f<a-^d-
[2c<g->>c<c >e-c^<g-] c<a->>c<c >e-c^<a- c<b->>c<c e-b-^>c<
c<a->>c<c >e-<b-^a- c<a->>c<c fa-^>e-< e-<b->>e-<e- g-g-<b->g- e-b-b-^ >e-<g->e-e-<
},7);
}
#sn36={ o5 v127 l16 q75
S{ [10r1] y74.T=0,127,!1;r1 r2.y74.T=127,0,!4; }
Unison({
[4e-<b->>e-<e- fb-^>e-<]
[3d-<a->>d-<d- fa-^>d-<] d-<a->>d-<d- >f<a-^d-
[2c<g->>c<c >e-c^<g-] c<a->>c<c >e-c^<a- c<b->>c<c e-b-^>c<
c<a->>c<c >e-<b-^a- c<a->>c<c fa-^>e-< [3 e-<b->>e-<e- g-g-<b->g- e-b-b-^ >e-<g->e-e-<]
d-<a->>d-<d- a-a-d-a- d-b-b-^ >d-<a->d-d- e-1,100<
},7);
}
/*
#sn31={ o5 v127 l16 q75
Unison({
[2 [2e-r>e-r< g-b-^>e-<]]
[2d-r>d-r< fa-^>d-<] d-r>d-r< fa-^>d-< d-r>d-r< >d-<a-^f
[2cr>cr< >c<a-^f] cr>cr< >c<a-^f cr>cr< fa-^>c<
cr>cr< e-g-^b- cr>cr< b-g-^e- cr>c^< a-a-^a- ^b-b-^ >ff^f<
},7);
}
#sn32={ o5 v127 l16 q75
Unison({
[2 [2e-r>e-r< g-b-^>e-<]]
[2d-r>d-r< fa-^>d-<] d-r>d-r< fa-^>d-< d-r>d-r< >d-<a-^f
[2cr>cr< >c<a-^f] cr>cr< >c<a-^e- cr>cr< fb-^>c<
cr>cr< e-a-^b- cr>cr< a-f^e- >e-e-e-^< g-g-^g- ^b-b-^ >e-e-^e-<
},7);
}
*/
// Pad2
#pd21={ v110 o4 l1 q100
S{ b-1^1 ^1^1 ^1^1 ^1 ^1-%4r%4 }
S{ >e-1^1-%4r%4 d-1^1-%4r%4 e-1^1 ^1-%4r%4 f1-%4r%4< }
S{ >f1^1 ^1^1 c1^1 ^1 ^1-%4r%4< }
S{ >b-1^1-%4r%4 a-1^1-%4r%4 g-1^1-%4r%4 a-1 ^1-%4r%4< }
}
#pd22={ v110 o4 l1 q100
If(#?1 == 1){
S{ b-1^1 ^1^1 ^1-%4r%4 >c2^2 ^2^2-%4r%4< b-1 ^1-%4r%4 }
S{ >e-1^1-%4r%4 d-1^1-%4r%4 e-1 ^2^2 ^2^2 ^1 ^1-%4r%4< }
S{ >f1^1 ^1^1 c1-%4r%4 a-2-%4r%4f2-%4r%4 <b-2-%4r%4a-2-%4r%4> g-1 ^1-%4r%4< }
S{ >b-1^1-%4r%4 a-1^1-%4r%4 g-1-%4r%4 >c2-%4r%4<b-2 a-2f2-%4r%4 b-1 ^1-%4r%4< }
}Else{
S{ b-1^1 ^1^1 ^1-%4r%4 >c2^2 ^2^2-%4r%4< b-1-%4r%4 }
S{ >e-1^1-%4r%4 d-1^1-%4r%4 e-1 ^2^2 ^2^2 ^1-%4r%4< }
S{ >f1^1 ^1^1 c1-%4r%4 a-2-%4r%4f2-%4r%4 <b-2-%4r%4a-2-%4r%4> g-1-%4r%4< }
S{ >b-1^1-%4r%4 a-1^1-%4r%4 g-1-%4r%4 >c2-%4r%4<b-2 a-2f2-%4r%4 b-1-%4r%4< }
}
}
#pd26={ v110 o4 l1 q100
S{ b-1^1 ^1^1 ^1-%4r%4 >c2^2 ^2^2-%4r%4< b-1-%4r%4 b-1-%4r%4 b-1-%4r%4 a-1-%4r%4 b-1-%4r%4 }
S{ >e-1^1-%4r%4 d-1^1-%4r%4 e-1 ^2^2 ^2^2 ^1-%4r%4 e-1-%4r%4 e-1-%4r%4 d-1-%4r%4 e-1-%4r%4< }
S{ >f1^1 ^1^1 c1-%4r%4 a-2-%4r%4f2-%4r%4 <b-2-%4r%4a-2-%4r%4> g-1-%4r%4 g-1-%4r%4 g-1-%4r%4 g-1-%4r%4 g-1-%4r%4< }
S{ >b-1^1-%4r%4 a-1^1-%4r%4 g-1-%4r%4 >c2-%4r%4<b-2 a-2f2-%4r%4 b-1-%4r%4 b-1-%4r%4 b-1-%4r%4 a-1-%4r%4 b-1-%4r%4< }
}
// Strings
#str1={ o7 v110 l8 q97
r1 r4e-4d-4<a-4 f1 d-2^4.r
e-2.a-4 c2.f4 <b-2.>d-4 e-4f4b-4>d-4
}
#str2={ o7 v110 l8 q97
e-1 d-1 c1 <b-2^4.r
a-2.>e-4 f2<f2 >r4e-<b-a-g-d-<b-> e-2^4.r
}
#str3={ o7 v110 l8 q97
e-4,90e-,75g-,75ra-,75rb-,75 >rd-,75re-,75rd-,75<rb-,75 a-1 f2^4.r
e-2.fe-,90 e-2b-2 a-2ra-g-a- rb-,75ra-,75rg-,75rf,75
}
#str4={ o7 v110 l8 q97
e-2.f4 a-2b-2 a-4,90a-g-4,90g-a-g- d-2^4.r
e-2.g-f e-4,90e-g-4a->c4 e-d-<b->e-d-<b-a->d- e-2^4.r
}
#str6={ o7 v110 l8 q97
e-2.f4 a-2b-2 a-4,90a-g-4,90g-a-g- d-2^4.r
e-2.g-f e-4,90e-g-4a->c4 e-d-<b->e-d-<b-a->d- e-d-<b->e-d-<b-a-d->
e-d-<b->e-d-<b-a->d- e-d-<b->e-d-<b-a-d- <a-b->d-e-g-a-b->d- e-2^4.r
}
// Kick
#drbd1={ l16 q99
S{ [2 [3 #bd11] : #bd12] #bd13 }
}
#drbd2={ l16 q99
S{ [3 #bd11] #bd12
#bd11 #bd13 #bd13 #bd10 }
}
#bd1s1={ l16 q99 Rhythm{ (v127 S){ krk(v-40)k(v+40) (v-80)k(v+80)kr(v-40)k(v+40) (v-60)k(v+20)k(v+20)kr(v+20) kr(v-60)k(v+30)k(v+30) }} r1 }
#bd1s2={ l16 q99 Rhythm{
(v127 S){ krk(v-40)k(v+40) r2 }
(v127 S){ r2 rrkr rkrk }
(v96 S){ r2 krrk rrkr }
(v80 S){ r2 r32[6k64]rr32[6k64]rr32[2k64]r }
} r1 }
#drbd6={ l16 q99
S{ [3 #bd11] #bd12
#bd11 #bd13 #bd13 #bd1s1
#bd1s1 #bd1s1 #bd1s2 #bd10 }
}
// Snare
#drsd2={ l16 q99 v.Repeat(off); Rhythm{
(v127 S){ [6r1] (v.T=80,127,!1;)[8sr] (v127)s(v.T=96,127,!8.)[6s32] (v117)sr(v+)sr (v---)s(v++)s(v+)sr (v-)sr(v+)s(v---)s(v+++) }
(v127 S){ [6r1] (v.T=72,119,!1;)[8rs] }
(v127 S){ [7r1] (v117)Sr(v+)Sr (v-)Sr(v+)Sr (v---)S(v++)S(v+)Sr (v-)Sr(v+)S(v---)S(v+++) }
}}
#drsd4={ l16 q99 v.Repeat(off); Rhythm{
(v127 S){ [6r1] (v.T=80,127,!1;)[8sr] (v127)s }
(v127 S){ [6r1] (v.T=72,119,!1;)[8rs] }
}}
#drsd6={ l16 q99 v.Repeat(off); Rhythm{
(v127 S){ [4r1] (v.T=10,127,!1^1^1;)[4[8sr]]
[2 (v127)s(v.T=96,127,!8.)[6s32] (v117)sr(v+)sr (v---)s(v++)s(v+)sr (v-)sr(v+)s(v---)s(v+++)]
(v127)s(v.T=96,127,!8.)[6s32] (v117)rr(v+)rr (v---)s(v++)s(v+)sr (v-)sr(v+)s(v---)s(v+++)
(v127)s }
(v127 S){ [4r1] (v.T=2,119,!1^1^1;)[4[8rs]] }
(v127 S){ [7r1]
[2 (v117)Sr(v+)Sr (v-)Sr(v+)Sr (v---)S(v++)S(v+)Sr (v-)Sr(v+)S(v---)S(v+++)]
(v117)Sr(v+)Sr (v-)rr(v+)rr (v---)S(v++)S(v+)Sr (v-)Sr(v+)S(v---)S(v+++) }
}}
// Snare2
#drs22={ l16 q99 v.Repeat(off); Rhythm{
(v127 S){ [7r1] r2 (v---)d(v++)d(v+)dr (v-)dr(v+)d(v---)d(v+++) }
}}
#drs26={ l16 q99 v.Repeat(off); Rhythm{
(v127 S){ [7r1] [4 r2 (v---)d(v++)d(v+)dr (v-)dr(v+)d(v---)d(v+++)] }
}}
// Clap
#drhc1 = { l16 q99
S{ [8 #hc11] }
}
#drhc2 = { l16 q99
S{ [7 #hc11] #hc12 }
}
#drhc4 = { l16 q99
S{ [7 #hc11] }
}
#drhc6 = { l16 q99
S{ [11 #hc11] }
}
// Percasion
#drpc1 = { l16 q99
S{ [8 #pc11] }
}
#drpc2 = { l16 q99
S{ [7 #pc11] #pc12 }
}
#drpc4 = { l16 q99
S{ [7 #pc11] }
}
#drpc6 = { l16 q99
S{ [11 #pc11] }
}
// HiHat
#drhh1 = { l16 q99
S{ [2 [3 #hh11] #hh12] }
}
#drhh2 = { l16 q99
S{ [2 [3 #hh11] : #hh12] #hh13 }
}
#drhh4 = { l16 q99
S{ [2 [3 #hh11] : #hh12] }
}
#drhh6 = { l16 q99
S{ [2 [3 #hh11] : #hh12] [3 #hh11] }
}
// Shaker
#drsk1 = { l16 q99
S{ [8 #sk11] }
}
#drsk2 = { l16 q99
S{ [7 #sk11] #sk12 }
}
#drsk4 = { l16 q99
S{ [7 #sk11] }
}
#drsk6 = { l16 q99
S{ [11 #sk11] }
}
// Triangle
#drta1 = { l16 q99
S{ [8 #ta11] }
}
#drta2 = { l16 q99
S{ [7 #ta11] #ta12 }
}
#drta4 = { l16 q99
S{ [7 #ta11] }
}
#drta6 = { l16 q99
S{ [11 #ta11] }
}
// Cymbal
#drcm1={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r r r c c2r2 }
(v110 S){ C r r r C r C r2C2 }
}}
#drcm2={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r r r c2r2 c2c4r4 }
(v110 S){ r r r r C r r2C2 C2r4C4 }
}}
#drcm3={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r r r c2r2 c2(v-96)[32c64(v+3)] }
(v110 S){ r r r r C r r2C2 C2(v-96)[32C64(v+3)] }
}}
#drcm4={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r r r c2r2 c1 }
(v110 S){ r r r r C r r2C2 C1 }
}}
#drcm6={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r r r c2r2 [4 c2.c8r8] c2(v-96)[32c64(v+3)] }
(v110 S){ r r r r C r r2C2 [4 C2.r8C8] C2(v-96)[32C64(v+3)] }
}}
// Log Drum
#log1 = { o6 v110 l16 q99
S{TDAuto(!1^1^1^1, 63, 64, 90, 1, 2, 8);}
Unison({
e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-<a-^v+e-v-d->v+
e-^d-^ <e-^>e-<v-a- ^a->v+d-^ v-<a-^v+d-v-<a->>v+
d-^<b-^ g-^>d-<v-d- ^g->v+d-^ v-<g-^v+d-v-<b->>v+
d-^<b-^ d-^>d-<v-b- ^g->v+d-^ v-<g-^v+e-v-b->v+
e-^c^ <a-^>e-<v-e- ^a->v+c^ v-<a-^v+e-v-c>v+
e-^c^ <e-^>e-<v-a- ^a->v+c^ v-<a-^v+cv-<a->>v+
d-^<b-^ f^>d-<v-d- ^f>v+d-^ v-<f^v+d-v-<b->>v+
e-^c^ <e-^>e-<v-a- ^f>v+d-^ v-<a-^v+fv-a->v+
},7);
}
#log2 = { o6 v110 l16 q99
S{TDAuto(!1^1^1^1, 63, 64, 90, 1, 2, 8);}
Unison({
e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-<a-^v+e-v-d->v+
e-^d-^ <e-^>e-<v-a- ^a->v+d-^ v-<a-^v+d-v-<a->>v+
d-^<b-^ g-^>d-<v-d- ^g->v+d-^ v-<g-^v+d-v-<b->>v+
d-^<b-^ d-^>d-<v-b- ^g->v+d-^ v-<g-^v+e-v-b->v+
e-^c^ <a-^>e-<v-e- ^a->v+c^ v-<a-^v+e-v-c>v+
e-^c^ <e-^>e-<v-a- ^b->v+c^ v-<b-^v+e-v-<b->>v+
e-^<b-^ e-^>c<v-c ^f>v+e-^ v-<f^v+cv-<a->>v+
e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-a-^v+>d-v-e-v+<
},7);
}
#log6 = { o6 v110 l16 q99
S{TDAuto(!1^1^1^1, 63, 64, 90, 1, 3, 8);}
Unison({
e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-<a-^v+e-v-d->v+
e-^d-^ <e-^>e-<v-a- ^a->v+d-^ v-<a-^v+d-v-<a->>v+
d-^<b-^ g-^>d-<v-d- ^g->v+d-^ v-<g-^v+d-v-<b->>v+
d-^<b-^ d-^>d-<v-b- ^g->v+d-^ v-<g-^v+e-v-b->v+
e-^c^ <a-^>e-<v-e- ^a->v+c^ v-<a-^v+e-v-c>v+
e-^c^ <e-^>e-<v-a- ^b->v+c^ v-<b-^v+e-v-<b->>v+
e-^<b-^ e-^>c<v-c ^f>v+e-^ v-<f^v+cv-<a->>v+
[3 e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-<a-^v+e-v-d->v+]
d-^<b-^ d-^>d-<v-b- ^g->v+d-^ v-<g-^v+e-v-b->v+
e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-a-^v+>d-v-e-v+<
},7);
}
// Bodhran
#bod2={ o4 v110 l8 q99
b->rrd- e-rr<b- b->rrd- frre-<
b->rrd- e-rr<b- b->rrd- frrd-<
b->rre- g-rr<b- >crre- a-rrc<
b->rrc e-rr<a- b-//>rre- g-rr<b-
//>e-
}
// SFX1
#sfx16={ l1 [10r] #se16 }
// SFX2
#sfx21={ l1 #se21 }
// SFX3
#sfx31={ l1 [7r] #se31 }
#sfx36={ l1 [11r] #se31 }
S{
If(num != 4){
#TR_BASS1 #bas11
}
#TR_BASS2 #bas21
If(num == 1){
#TR_VC1 #vc11
#TR_VC2 #vc21
}
If(num == 6){
#TR_SYNLD1 #ld11
#TR_SYNLD2 #ld21
}
If(num >= 3 && num <= 5){
#TR_TINW #tw1
#TR_UPP #up1
#TR_UHP #uh1
}
If(num == 2){
#TR_SYN2 #sn21
}
If(num != 4){
#TR_SYN3 #sn31
}
#TR_PAD2 #pd21
If(num % 2 == 1){
#TR_STR #str1
}
If(num == 2 || num == 6){
#TR_STR #str3
}
#TR_BELL
If(num != 4){
#TR_DRUM1 #drbd1
}
#TR_DRUM2 #drhc1 #drpc1 #drhh1 #drsk1 #drta1 #drcm1
If(num != 4){
#TR_LOG #log1
}
#TR_SFX2 #sfx21
}
l1 [8r*] TrackSync;
If(num < 6){
S{
If(num != 4){
#TR_BASS1 #bas12
#TR_BASS2 #bas22
}Else{
#TR_BASS2 #bas24
}
If(num == 1){
#TR_VC1 #vc12
#TR_VC2 #vc22
}
If(num == 6){
#TR_SYNLD1 #ld12
}
If(num == 3){
#TR_TINW #tw2(0)
#TR_UPP #up2(0)
#TR_UHP #uh2(0)
}
If(num == 4){
#TR_TINW #tw2(1)
#TR_UPP #up2(1)
#TR_UHP #uh2(1)
}
If(num == 5){
#TR_TINW #tw2(2)
#TR_UPP #up2(2)
#TR_UHP #uh2(0)
}
If(num => 3 && num =< 5){
#TR_BOD #bod2
}
If(num == 2){
#TR_SYN2 #sn22
}
If(num != 4){
#TR_SYN3 #sn32
}
If(num == 4){
#TR_PAD2 #pd22(1)
}Else{
#TR_PAD2 #pd22(0)
}
If(num % 2 == 1){
#TR_STR #str2
}
If(num == 2){
#TR_STR #str4
}
If(num != 4){
#TR_DRUM1 #drbd2
#TR_DRUM1 #drs22
}
If(num == 2){
#TR_DRUM2 #drsd2 #drhc2 #drpc2 #drhh2 #drsk2 #drta2 #drcm3
}Else{
If(num == 4){
#TR_DRUM2 #drsd4 #drhc4 #drpc4 #drhh4 #drsk4 #drta4 #drcm4
}Else{
#TR_DRUM2 #drsd2 #drhc2 #drpc2 #drhh2 #drsk2 #drta2 #drcm2
}
}
If(num != 4){
#TR_LOG #log2
}
#TR_SFX3 #sfx31
}
l1 [8r*] TrackSync;
}Else{
S{
#TR_BASS1 #bas16
#TR_BASS2 #bas26
#TR_SYNLD1 #ld12
#TR_SYNLD2 #ld22
#TR_SYN2 #sn26
#TR_SYN3 #sn36
#TR_PAD2 #pd26
#TR_STR #str6
#TR_DRUM1 #drbd6
#TR_DRUM1 #drs26
#TR_DRUM2 #drsd6 #drhc6 #drpc6 #drhh6 #drsk6 #drta6 #drcm6
#TR_LOG #log6
#TR_SFX1 #sfx16
#TR_SFX3 #sfx36
}
l1 [12r*] TrackSync;
}
}
//------------------------------------------------------------------------------
//_ 間奏
Function Inter1(Int num){
// Lead 1
#ld11={ o6 v127 l8 q100
S{ r4 y65(127);y5(20); }
r-4 p%.T=-8191,0,!4;e-4
^1 <a-2>f2 d-1 <g-1,95
a-1 d-2g-2 b-1 >d-1,95
}
#ld12={ o6 v127 l8 q100
e-1 <a-2>a-2 f1 d-2,95<g-4a-4>
e-2,95<a-4>d-4 e-2,95<b-4>d-4 e-1 ^2
}
// Lead 2
#ld21={ o6 v127 l8 q100
Key(7); #ld11 Key(0);
}
#ld22={ o6 v127 l8 q100
Key(7); #ld12 Key(0);
}
// Synth 2
#sn23={ o5 v127 l8 q99 y74(127);
[6r1]
y74.T=0,127,!1;'e-b->e-<'1 'e-b->e-<'r16'e-b->e-<'r16'e-b->e-<'[4'e-b->e-<'16]'d-a->d-<'4
}
// Synth 5
#sn51={ v110 l16
S{[4 y74.T=24,88,!1,88,24,!1;r1^1]}
S{ r y65(127);y5(1); }
S{ o4 q100
[2 e-rrg- rra-r rb-rr >d-rre-< rrg-r ra-rr b-rr>d- rre-^<
d-rre- rrg-r ra-rr b-rr>d-< rre-r rg-rr a-rrb- rr>d-^< ]
}
S{ o6 q75
[2 re-^r e-^re- ^re-^ re-^r e-^rd- ^r<b-^ ra-^r g-^rr>
: re-^r e-^re- ^re-^ re-^r e-^rd- ^r<b-^ ra-^r g-^rr> ]
rd-^r d-^rd- ^rd-^ rd-^r e-^rd- ^r<b-^ ra-^r g-^rr>
}
}
#sn53={ v110 l16
S{[4 y74.T=24,88,!1,88,24,!1;r1^1]}
S{ r y65(127);y5(1); }
S{ o4 q100
e-rrg- rra-r rb-rr >d-rre-< rrg-r ra-rr b-rr>d- rre-^<
d-rre- rrg-r ra-rr b-rr>d-< rre-r rg-rr a-rrb- rr>d-^<
d-rre- rrg-r ra-rr b-r>d-r<
d-rre- rrg-r ra-rr b-r>d-r<
e-rrg- rra-r rb-rr >d-re-r<
e-rrg- rra-r rb-rr a-rd-r
}
S{ o6 q75
re-^r e-^re- ^re-^ re-^r e-^rd- ^r<b-^ ra-^r g-^rr>
re-^r e-^re- ^re-^ re-^r e-^rd- ^r<b-^ ra-^r g-^rr>
re-^r e-^re- ^re-^ re-re-
re-^r e-^re- ^re-^ re-re-
re-^r d-^r<b- ^ra-^ rg-re->
re-^r e-^re- ^re-^ rd-rd-
}
}
/*
#sn51={ v110 l16
S{[4 y74.T=24,88,!1,88,24,!1;r1^1]}
S{ r y65(127);y5(1); }
S{ o4 q100
[2 e-rrg- rra-r rb-rr >d-re-r<
e-rrg- rra-r rb-rr >d-re-r<
d-rre- rra-r rb-rr >c rd-r<
d-rre- rra-r rb-rr >c rd-r< ]
}
S{ o6 q75
[2 re-^r e-^r e- ^re-^ re-re-
re-^r d-^r<b- ^ra-^ rg-re->
: re-^r e-^r e- ^re-^ re-re-
re-^r d-^r<b- ^ra-^ rg-re-> ]
rd-^r d-^r d- ^rd-^ rd-rd-
re-^r d-^r<b- ^ra-^ rg-re->
}
}
#sn53={ v110 l16
S{[4 y74.T=24,88,!1,88,24,!1;r1^1]}
S{ r y65(127);y5(1); }
S{ o4 q100
e-rrg- rra-r rb-rr >d-re-r<
e-rrg- rra-r rb-rr >d-re-r<
d-rre- rra-r rb-rr >c rd-r<
d-rre- rra-r rb-rr >c rd-r<
d-rre- rrf r rg-rr a-rb-r
d-rre- rrf r rb-rr >c rd-r<
e-rrg- rra-r rb-rr >d-re-r<
e-rrg- rra-r b-rrr >d-r<a-r
}
S{ o6 q75
re-^r e-^r e- ^re-^ re-re-
re-^r d-^r<b- ^ra-^ rg-re->
re-^r e-^r e- ^re-^ re-re-
re-^r d-^r<b- ^ra-^ rg-re->
re-^r e-^r e- ^re-^ re-re-
re-^r e-^r e- ^re-^ re-re-
re-^r d-^r<b- ^ra-^ rg-re->
re-^r e-^r e- re-e-e- rd-rd-
}
}
*/
// Pad1
#pd11={ v110 o5 l1 q99
S{ [2 y11.T=0,127,!1.;r1^1.y11.T=127,0,!1.;r1. ] }
[2 'e-b->d-g-<'1^1 'd-a->cf<'1^1]
}
#pd12={ v110 o5 l1 q99
S{ [2 y11.T=0,127,!1.;r1^1.y11.T=127,0,!1.;r1. ] }
[2 'e-b->d-g-<'1^1 : 'd-a->cf<'1^1] 'd-a->cf<' 'd-b->e-a-<'
}
#pd13={ v110 o5 l1 q99
S{ y11.T=0,127,!1.;r1^1.y11.T=127,0,!1.;r1.
[2 [2y11.T=0,127,!4.;r2]]
[4y11.T=0,127,!8.;r4]
y11.T=0,127,!2.;r1
}
'e-b->d-g-<'1^1 'd-a->cf<'1^1
'd-g-b->e-<' 'd-a-b->f<' 'e-b->d-g-<'1^1
}
// Pad2
#pd21={ v110 o4 l1 q99
[2 'e-b->d-g-<'1^1 'd-a->cf<'1^1]
}
#pd22={ v110 o4 l1 q99
[2 'e-b->d-g-<'1^1 : 'd-a->cf<'1^1] 'd-a->cf<' 'd-b->e-a-<'
}
#pd23={ v110 o4 l1 q99
'e-b->d-g-<'1^1 'd-a->cf<'1^1
'd-g-b->e-<' 'd-a-b->f<' 'e-b->d-g-<'1^1
}
// Kick
#drbd0={ l16 q99 Rhythm{
(v127 S){ r1 r2 rrkr rkrk }
(v96 S){ r1 r2 krrk rrkr }
(v80 S){ r1 r2 r32[6k64]rr32[6k64]rr32[2k64]r }
}}
#drbds1={ l16 q99 Rhythm{
(v127 S){ rrkr rkrk [4kr] }
(v96 S){ krrk rrkr [4rk] }
(v80 S){ r32[6k64]rr32[6k64]rr32[2k64]r }
}}
#drbd1={ l16 q99
S{ #bd10 }
}
#drbd3={ l16 q99
S{ #bd10 [3r1]
#bd10 #bd10 #bd15 #drbds1 }
}
// Snare
#drsd3={ l16 q99 v.Repeat(off); Rhythm{
(v127 S){ [7r1] rrsr rsrs [2srrr] }
(v111 S){ [7r1] srrs rrsr [2rrsr] }
(v95 S){ [7r1] r32[6s64]rr32[6s64]rr32[2s64]r [2rsrs] }
(v127 S){ [7r1] rrSr rSrS [2Srrr] }
(v111 S){ [7r1] SrrS rrSr [2rrSr] }
}}
// Cymbal
#drcm0={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ r1 r2(v-96)[32c64(v+3)] }
(v110 S){ r1 r2(v-96)[32C64(v+3)] }
}}
#drcm1={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r r r c r2(v-96)[32c64(v+3)] }
(v110 S){ C r r r C r r r2(v-96)[32C64(v+3)] }
}}
#drcm2={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r r r c c2r2 }
(v110 S){ C r r r C r r r2C2 }
}}
#drcm3={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r c c c2(v-96)[32c64(v+3)] c8.c8.r8c2 }
(v110 S){ C r r r C C C2(v-96)[32C64(v+3)] C8.r8.C8C2 }
}}
// Bodhran
#bod1={ o4 v110 l8 q99
b->rrd- e-rr<b- b->rre- frre-<
b->rrd- frr<b- b->rrd- frrd-<
b->rrd- e-rr<b- b->rre- frre-<
b->rrd- frr<b- b->rrd- frrd-<
}
#bod3={ o4 v110 l8 q99
b->rrd- e-rr<b- b->rre- frre-<
b->rrd- frr<b- b->rrd- frrd-<
b->rre- g-rr<b- >crre- a-rrc<
b->rrc e-rr<a- b-
}
// SFX1
#sfx10={ l1 r- #se12 }
#sfx11={ l1 [7r] #se12 }
// SFX3
#sfx31={ l1 #se31 }
#sfx32={ l1 [6r] #se31 }
S{
#TR_DRUM1 #drbd0
#TR_DRUM2 #drcm0
}
l1 [2r*] TrackSync;
S{
#TR_SYN5 #sn51
#TR_PAD1 #pd12
#TR_PAD2 #pd22
#TR_DRUM1 #drbd1
#TR_DRUM2 #drcm1
#TR_SFX3 #sfx31
#TR_BOD #bod1
}
l1 [8r*] TrackSync;
S{
#TR_SYNLD1 #ld11
#TR_SYNLD2 #ld21
#TR_SYN5 #sn51
#TR_PAD1 #pd11
#TR_PAD2 #pd21
#TR_DRUM1 #drbd1
#TR_DRUM2 #drcm2
#TR_SFX3 #sfx31
#TR_BOD #bod1
}
l1 [8r*] TrackSync;
S{
#TR_SYNLD1 #ld12
#TR_SYNLD2 #ld22
#TR_SYN2 #sn23
#TR_SYN5 #sn53
#TR_PAD1 #pd13
#TR_PAD2 #pd23
#TR_DRUM1 #drbd3
#TR_DRUM2 #drcm3 #drsd3
#TR_SFX3 #sfx31
#TR_SFX3 #sfx32
#TR_BOD #bod3
}
l1 [8r*] TrackSync;
}
//------------------------------------------------------------------------------
//_ Aメロ１
Function Amero(Int num){
// Base1
#bas11={ o4 v127 l16 q99
[2 [2rrd-f <a->d-^d-] [2rrc-e- <g->c-^c-] [3rr<a->d- <g-a-^a->]rrc-e- <g->c-^c-]
}
#bas12={ o4 v127 l16 q99
[2rrd-f <a->d-^d-] [2rre-g- <b->e-^e-] [3rra->d- <g-a-^a-]rre-g- <b->e-^e-
[2rrd-f <a->d-^d-] [2rre-g- <b->e-^e-] [3rra->d- <g-a-^a-]
}
// Base2
#bas21={ o2 v127 l16 q99
r-4 p%.T=8191,0,!4;d-4
[2 #bs21({d-}) #bs21({c-}) #bs21({<a->}) #bs22({<a->},{c-})]
}
#bas22={ o2 v127 l16 q99
#bs21({d-}) #bs21({e-}) #bs21({a-}) #bs22({a-},{e-})
#bs21({d-}) #bs21({e-}) #bs21({a-}) [2r>a-<]
}
// Vocal 1
#vc11={ o6 v110 l8 q99
r-4 y11(127); d-e-<
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,71,!4,70,59,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^2^8 y1(0);r y11(127); >d-e-<
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,71,!4,70,59,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^2^8 y1(0);r y11(127); >d-e-<
// S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,71,!4,70,59,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^2^8 y1(0);r y11(127); >d-e-
// S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,71,!4,70,59,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^2^8 y1(0);
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,81,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^4. y1(0);r y11(127); >d-c-d-e-
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,81,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^4. y1(0);
}
#vc12={ o6 v110 l8 q99
// r-4 y11(127); d-e-
// S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,71,!4,70,59,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^2^8 y1(0);r y11(127); d-g-
// S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,71,!4,70,59,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^2^8 y1(0);r y11(127); d-e-
// S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,81,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^4. y1(0);r y11(127); Ben(-384,!8);d-4e-g-
r-2 y11(127); d-c-d-e-
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,81,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^4. y1(0);r y11(127); d-c-d-g-
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,81,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^4. y1(0);r y11(127); d-c-d-e-
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,81,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^4. y1(0);r y11(127); e-d-e-g-
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,81,!8;}Ben(-384,!8);y1.T=1,127,!1;a-1 ^4. y1(0);
}
// Vocal 2
#vc21={ o6 v110 l8 q99
r2. y11(127); d-e-< S{y11.T=112,127,!8;r4 y11.T=126,111,!4,110,99,!8;}Ben(-384,!8);Vib(80,!2^8);g-2^8r y11(127); a->c-<
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,71,!4,70,59,!8;}Ben(-384,!8);y1.T=1,127,!1;e-1 ^2^8 y1(0);r y11(127); >r4
// r2. y11(127); d-e-< S{y11.T=112,127,!8;r4 y11.T=126,111,!4,110,99,!8;}Ben(-384,!8);Vib(80,!2^8);g-2^8r y11(127); a->c-
// S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,71,!4,70,59,!8;}Ben(-384,!8);y1.T=1,127,!1;e-1 ^2^8 y1(0);r y11(127);
r2^8 y11(127); d-d-e-< S{y11.T=112,127,!8;r4 y11.T=126,119,!8;}Ben(-384,!8);Vib(48,!4.);g-4.r y11(127); a-g-a->c-
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,71,!4,70,59,!8;}Ben(-384,!8);y1.T=1,127,!1;e-1 ^2^8 y1(0);r y11(127);
}
#vc22={ o6 v110 l8 q99
// r2. y11(127); c-e- S{y11.T=112,127,!8;r4 y11.T=126,111,!4,110,99,!8;}Ben(-384,!8);Vib(80,!2^8);a-2^8r y11(127); <a->d-
// S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,71,!4,70,59,!8;}Ben(-384,!8);y1.T=1,127,!1;e-1 ^2^8 y1(0);r y11(127); r4
// r2. y11(127); c-e- y11.T=112,127,!8;Ben(-384,!8);Vib(48,!4.);a-4.r y11(127); Ben(-384,!8);<a-4>c-d-
// S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,81,!8;}Ben(-384,!8);y1.T=1,127,!1;e-1 ^4. y1(0);
r2 y11(127); c-<b->c-e- S{y11.T=112,127,!8;r4 y11.T=126,119,!8;}Ben(-384,!8);Vib(48,!4.);a-4.r y11(127); <a-g-a->d-
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,81,!8;}Ben(-384,!8);y1.T=1,127,!1;e-1 ^4. y1(0);r y11(127); r2
r2 y11(127); c-<b->c-e- S{y11.T=112,127,!8;r4 y11.T=126,119,!8;}Ben(-384,!8);Vib(48,!4.);a-4.r y11(127); c-<a->c-d-
S{y11.T=112,127,!8;r2 y11.T=126,119,!4,118,107,!4,106,91,!4,90,81,!8;}Ben(-384,!8);y1.T=1,127,!1;e-1 ^4. y1(0);
}
// Uillean Harp
#uh1={ o4 v90 l8 q99
[2 'a- v+8t8>f v+8t16a- v+8t24>d-<< v-24t0'4,400 r2 'v+16>>d- v+16t16a- v-32t0<<'4,400
'g- v+8t8>e- v+8t16g- v+8t24>c-<< v-24t0'4,400 r2 'v+16>>c- v+16t16g- v-32t0<<'4,400
'a- v+8t8>e- v+8t16a- v+8t24>c-<< v-24t0'4,400 r2 'v+16>a- v+16t16>e- v-32t0<<'4,400
'>c- v+8t8a- v+8t16>c- v+8t24e-<< v-24t0'2,200 'v+12 >g- v+6t12>c- v+6t24e- v+6t36g- v-30t0<<'2,200 ]
}
#uh2={ o4 v90 l8 q99
'a- v+8t8>f v+8t16a- v+8t24>d-<< v-24t0'4,400 r2 'v+16>>d- v+16t16a- v-32t0<<'4,400
'b- v+8t8>g- v+8t16b- v+8t24>e-<< v-24t0'4,400 r2 'v+16>>e- v+16t16b- v-32t0<<'4,400
'a- v+8t8>e- v+8t16a- v+8t24>c-<< v-24t0'4,400 r2 'v+16>a- v+16t16>e- v-32t0<<'4,400
'>c- v+8t8a- v+8t16>c- v+8t24e-<< v-24t0'2,200 'v+12 >f v+6t12b- v+6t24>e- v+6t36f v-30t0<<'2,200
'a- v+8t8>f v+8t16a- v+8t24>d-<< v-24t0'4,400 r2 'v+16>>d- v+16t16a- v-32t0<<'4,400
'b- v+8t8>g- v+8t16b- v+8t24>e-<< v-24t0'4,400 r2 'v+16>>e- v+16t16b- v-32t0<<'4,400
'a- v+8t8>e- v+8t16a- v+8t24>c-<< v-24t0'2,200 >>>v+24e-,800v-8<a-,800v-8>c-,800v-8<e-,800<<
'a- v+8t8>e- v+8t16a- v+8t24>c- v+8t32e-<< v-32t0'4,400
}
// Pad2
#pd21={ v110 o4 l1 q100
[2 '>d-fa->c-<<'1-%4r%4 '>c-e-g->c-<<'1-%4r%4 'a->c-e-a-<'1^2-%4r%4'>c-e-g-b-<'2-%4r%4]
}
#pd22={ v110 o4 l1 q100
'>d-fa->d-<<'1-%4r%4 '>e-g-b->d-<<'1-%4r%4 '>e-a->c-e-<<'1^2-%4r%4'>e-g-b->d-<<'2-%4r%4
'>d-fa->d-<<'1-%4r%4 '>e-g-b->d-<<'1-%4r%4 '>e-a->c-e-<<'1^2-%4r%4
}
// Strings
#str1={ o6 v110 l8 q97
r1 r1 r1 r4a-4g-4b-4
a-1 g-2.d-g- a-1 ^4.
}
#str2={ o6 v110 l8 q97
r-2 <a->d-e-g-
a-2<b->d-e-g- a-2<a->d-e-g- a-1^4.r<a->d-e-g-
a-2<b->d-e-g- a-4b-a-4d-e-g- a-2^4.
}
// Kick
#drbd1={ l16 q99
S{ [2 [3 #bd11] : #bd12] #bd13 }
}
#drbd2={ l16 q99
S{ [3 #bd11] #bd12
#bd11 #bd13 #bd13 #bd10 }
}
// Snare
#drsd2={ l16 q99 v.Repeat(off); Rhythm{
(v127 S){ [6r1] (v.T=80,127,!1;)[8sr] (v127)s(v.T=96,127,!8.)[6s32] (v117)sr(v+)sr (v---)s(v++)s(v+)sr (v-)sr(v+)s(v---)s(v+++) }
(v127 S){ [6r1] (v.T=72,119,!1;)[8rs] }
(v127 S){ [7r1] (v117)Sr(v+)Sr (v-)Sr(v+)Sr (v---)S(v++)S(v+)Sr (v-)Sr(v+)S(v---)S(v+++) }
}}
// Snare2
#drs22={ l16 q99 v.Repeat(off); Rhythm{
(v127 S){ [7r1] r2 (v---)d(v++)d(v+)dr (v-)dr(v+)d(v---)d(v+++) }
}}
// Clap
#drhc1 = { l16 q99
S{ [8 #hc11] }
}
#drhc2 = { l16 q99
S{ [7 #hc11] #hc12 }
}
// Percasion
#drpc1 = { l16 q99
S{ [8 #pc11] }
}
#drpc2 = { l16 q99
S{ [7 #pc11] #pc12 }
}
// HiHat
#drhh1 = { l16 q99
S{ [2 [3 #hh11] #hh12] }
}
#drhh2 = { l16 q99
S{ [2 [3 #hh11] : #hh12] #hh13 }
}
// Shaker
#drsk1 = { l16 q99
S{ [8 #sk11] }
}
#drsk2 = { l16 q99
S{ [7 #sk11] #sk12 }
}
// Triangle
#drta1 = { l16 q99
S{ [8 #ta11] }
}
#drta2 = { l16 q99
S{ [7 #ta11] #ta12 }
}
// Cymbal
#drcm1={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r r r c c2r2 }
(v110 S){ C r r r C r C r2C2 }
}}
#drcm2={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c r r r r r c2r2 c2c4r4 }
(v110 S){ r r r r C r r2C2 C2r4C4 }
}}
// Log Drum
#log1 = { o6 v110 l16 q99
S{TDAuto(!1^1^1^1, 63, 64, 90, 1, 2, 8);}
Unison({
[2 d-^c-^ <a-^>d-<v-d- ^a->v+c-^ v-<a-^v+d-v-c->v+
c-^<b-^ c-^>c-<v-g- ^g-v+b-^ v-g-^v+c-v-<g->>v+
c-^<a-^ g-^>e-<v-e- ^a->v+e-^ v-<a-^v+c-v-<a->>v+
c-^<a-^ c-^>c-<v-a- ^g->v+e-^ v-<g-^v+e-v->c-v+ ]
},7);
}
#log2 = { o6 v110 l16 q99
S{TDAuto(!1^1^1^1, 63, 64, 90, 1, 2, 8);}
Unison({
d-^c-^ <a-^>d-<v-d- ^a->v+c-^ v-<a-^v+d-v-c->v+
e-^d-^ <e-^>e-<v-a- ^a->v+d-^ v-<a-^v+d-v-<a->>v+
e-^c-^ <a-^>e-<v-e- ^a->v+e-^ v-<a-^v+e-v-c->v+
e-^<a-^ e-^>e-v-c- ^<g->v+d-^ v-<g-^v+e-v-b->v+
d-^c-^ <a-^>d-<v-d- ^a->v+c-^ v-<a-^v+d-v-c->v+
e-^d-^ <e-^>e-<v-a- ^a->v+d-^ v-<a-^v+d-v-<a->>v+
e-^c-^ <a-^>e-<v-e- ^a->v+e-^ v-<a-^v+e-v-c->v+
e-^c-^ <a-^>e-<v-e- ^a->v+c-^ v-a-^v+>c-v-e-v+<
},7);
}
// SFX1
#sfx11={ l1 [6r] #se14 }
// SFX2
#sfx21={ l1 #se21 }
// SFX3
#sfx31={ l1 [7r] #se31 }
S{
#TR_BASS1 #bas11
#TR_BASS2 #bas21
#TR_VC1 #vc11
#TR_VC2 #vc21
#TR_UHP #uh1
#TR_PAD2 #pd21
#TR_STR #str1
#TR_DRUM1 #drbd1
#TR_DRUM2 #drhc1 #drpc1 #drhh1 #drsk1 #drta1 #drcm1
#TR_LOG #log1
#TR_SFX2 #sfx21
}
l1 [8r*] TrackSync;
S{
#TR_BASS1 #bas12
#TR_BASS2 #bas22
#TR_VC1 #vc12
#TR_VC2 #vc22
#TR_UHP #uh2
#TR_PAD2 #pd22
#TR_STR #str2
#TR_DRUM1 #drbd2
#TR_DRUM1 #drs22
#TR_DRUM2 #drsd2
#TR_DRUM2 #drhc2 #drpc2 #drhh2 #drsk2 #drta2 #drcm2
#TR_LOG #log2
#TR_SFX1 #sfx11
#TR_SFX3 #sfx31
}
l1 [8r*] TrackSync;
}
//------------------------------------------------------------------------------
//_ アウトロ
Function Outro(Int num){
// Synth 5
#sn51={ v110 l16
S{[4 y74.T=24,88,!1,88,24,!1;r1^1]}
S{ r y65(127);y5(1); }
S{ o4 q100
[2 e-rrg- rra-r rb-rr >d-rre-< rrg-r ra-rr b-rr>d- rre-^<
d-rre- rrg-r ra-rr b-rr>d-< rre-r rg-rr a-rrb- rr>d-^< ]
}
S{ o6 q75
[2 re-^r e-^re- ^re-^ re-^r e-^rd- ^r<b-^ ra-^r g-^rr>
: re-^r e-^re- ^re-^ re-^r e-^rd- ^r<b-^ ra-^r g-^rr> ]
rd-^r d-^rd- ^rd-^ rd-^r e-^rd- ^r<b-^ ra-^r g-^rr>
}
}
#sn52={ v110 l16
S{ y74.T=24,88,!1,88,24,!1;r1^1}
S{ r y65(127);y5(1); }
S{ o4 q100
e-rrg- rra-r rb-rr >d-rre-<
}
S{ o6 q75
re-^r e-^re- ^re-^ re-^r
}
}
// Pad1
#pd11={ v110 o5 l1 q99
S{ [2 y11.T=0,127,!1.;r1^1.y11.T=127,0,!1.;r1. ] }
[2 'e-b->d-g-<'1^1 'd-a->cf<'1^1]
}
#pd12={ v110 o5 l1 q99
S{ y11.T=0,127,!1.;r1 }
'e-b->d-g-<'1
}
// Pad2
#pd21={ v110 o4 l1 q99
[2 'e-b->d-g-<'1^1 'd-a->cf<'1^1]
}
#pd22={ v110 o4 l1 q99
'e-b->d-g-<'1
}
// Cymbal
#drcm1={ l1 q99 v.Repeat(off); Rhythm{
(v110 S){ c }
(v110 S){ C }
}}
// Log Drum
#log1 = { o6 v110 l16 q99
S{TDAuto(!1^1^1^1, 63, 64, 90, 1, 2, 8);}
Unison({
[2 e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-<a-^v+e-v-d->v+
e-^d-^ <e-^>e-<v-a- ^a->v+d-^ v-<a-^v+d-v-<a->>v+
d-^<b-^ g-^>d-<v-d- ^g->v+d-^ v-<g-^v+d-v-<b->>v+
d-^<b-^ d-^>d-<v-b- ^g->v+d-^ v-<g-^v+e-v-b->v+ ]
},7);
}
#log2 = { o6 v110 l16 q99
S{TDAuto(!1^1^1^1, 63, 64, 90, 1, 1, 8);}
Unison({
e-^d-^ <a-^>e-<v-e- ^a->v+d-^ v-<a-^v+e-v-d->v+
},7);
}
// Bodhran
#bod1={ o4 v110 l8 q99
b->rrd- e-rr<b- b->rre- frre-<
b->rrd- frr<b- b->rrd- frrd-<
b->rrd- e-rr<b- b->rre- frre-<
b->rrd- frr<b- b->rrd- frrd-<
}
#bod2={ o4 v110 l8 q99
b->rrd- e-rrr
}
// SFX2
#sfx21={ l1 #se21 }
// SFX3
#sfx31={ l1 #se31 }
S{
#TR_SYN5 #sn51
#TR_PAD1 #pd11
#TR_PAD2 #pd21
#TR_DRUM2 #drcm1
#TR_LOG #log1
#TR_BOD #bod1
#TR_SFX2 #sfx21
}
l1 [8r*] TrackSync;
S{
#TR_SYN5 #sn52
// #TR_PAD1 #pd12
// #TR_PAD2 #pd22
#TR_LOG #log2
#TR_BOD #bod2
}
l1 [2r*] TrackSync;
}
//------------------------------------------------------------------------------
//_Play
// シーン関数の呼び出しで演奏
//------------------------------------------------------------------------------
Time( 1:1: 0)
Tempo = 120;
SetUp();
Tempo = 66;
Intro1(1);
Tempo = 132;
Intro2(1);
Sabi(1);
Sabi(2);
Sabi(3);
Sabi(4);
Inter1(1);
Amero(1);
Sabi(1);
//Sabi(2);
//Sabi(5);
Sabi(6);
Outro(1);