Skip to content

Instantly share code, notes, and snippets.

@ttsuki
Last active August 29, 2015 14:24
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save ttsuki/aa037b045b31cc772024 to your computer and use it in GitHub Desktop.
// テキスト音楽「サクラ」 http://oto.chu.jp/ // dSakura.dll Version.2.374
//------------------------------------------------------------------------------
//_楽曲情報
//------------------------------------------------------------------------------
TrackName = {"Another Wing - Deep White - (MU2000EX+PLG150PF)"}
Copyright = {"つーさ http://tu3.jp/"}
MetaText = {"一つずつ積み上げ、昇っていく。高く高く。ただ一つの目的を果たすため。"}
// 高みに至るため自らを奮い立たせる、自己との問答と戦いの歌。
// #105 Wing の姉妹曲として、ある程度音源設定を共有しつつ制作。
Tempo = 156
TimeSignature = 4,4
KeyFlag+(f)
Int GSMode = off; // GS音源用にドラムを調整するか?
Int LasMae = off; // LasMae スイッチ
TimeBase = 480
System.MeasureShift(3)
//------------------------------------------------------------------------------
//_System Functions
//------------------------------------------------------------------------------
Function XGXcl1(Int Address, Int _val) { SysEx = $F0, $43,$10,$4C, (Address / 65536 & $7F), (Address / 256 & $7F), (Address & $7F), (_val & $7F), $F7; }
Function XGXcl2(Int Address, Int _val) { SysEx = $F0, $43,$10,$4C, (Address / 65536 & $7F), (Address / 256 & $7F), (Address & $7F), (_val / 256 & $7F), (_val & $7F), $F7; }
Function XGXclV(Int Address, Int _val) { XGXcl2(Address, _val / 128 * 256 + _val % 128); }
Function MasterVolume(Int _val) { SysEx = $F0,$7F,$7F,$04,$01,$00, _val,$F7; }
Function MasterVolumeFadeOut(Int Len) { For (Int I = 0; I < 127; I++) { S{ r%(Len*(128-I)/128); MasterVolume(I); } } }
Function MUXcl1(Int Address, Int _val) { SysEx = $F0, $43,$10,$49, (Address / 65536 & $7F), (Address / 256 & $7F), (Address & $7F), (_val & $7F), $F7; }
Function TrackParam(_ch, _tune, _pgm,_pgl,_pgc,_gspgc, _vol=100, _pan=0, _rev=40,_cho=0,_var=0, _lpf=0, _rsn=0, _eqbf=$0C, _eqbg=0, _eqtf=$36, _eqtg=0)
{
CH = _ch;
If (_gspgc > 0) { @_gspgc; MainVolume(_vol); } Else { MainVolume(0); } r%1 // for GS
XGXcl1($080001 | (_ch - 1) *256, _pgm); r%1
XGXcl1($080002 | (_ch - 1) *256, _pgl); r%1
XGXcl1($080003 | (_ch - 1) *256, _pgc - 1); r%1
XGXcl1($08000B | (_ch - 1) *256, _vol); r%1
r%1 Panpot(64+_pan) r%1
Reverb(_rev) r%1 Chorus(_cho) r%1 VAR(_var) r%1
FilterCutoff(_lpf+64); r%1 FilterResonance(_rsn+64); r%1
NRPN(1,$34,_eqbf) r%1 // EQ Bass Freq
NRPN(1,$30,_eqbg+64) r%1 // EQ Bass Gain
NRPN(1,$35,_eqtf) r%1 // EQ Treble Freq
NRPN(1,$31,_eqtg+64) r%1 // EQ Treble Gain
CoarseTune(_tune+64); r%1
}
Function DrumParam(Int _n, Int _pco, Int _pft, Int _vol, Int _pan, Int _rev, Int _cho, Int _var,
Int _lpf, Int _rsn, Int _hpf, Int _atk, Int _dc1, Int _dc2, Int _bfr, Int _bga, Int _tfr, Int _tga)
{
NRPN($18,_n,_pco) NRPN($19,_n,_pft) NRPN($1A,_n,_vol) NRPN($1C,_n,_pan)
NRPN($1D,_n,_rev) NRPN($1E,_n,_cho) NRPN($1F,_n,_var)
NRPN($14,_n,_lpf) NRPN($15,_n,_rsn) NRPN($24,_n,_hpf) NRPN($16,_n,_atk) NRPN($17,_n,_dc1)
NRPN($34,_n,_bfr) NRPN($30,_n,_bga) NRPN($35,_n,_tfr) NRPN($31,_n,_tga)
}
//------------------------------------------------------------------------------
//_Phrase
//------------------------------------------------------------------------------
Str MLAa = { l2 red<b>cgfd }
Str MLAaa = { l2 red<b>cbaf }
Str MLAab = { l2 rgfd egfd }
Str MLAb = { l2 ebaf gefd }
Str MLAbb = { l2 egfd eg>d<b }
Str MLAbp = { l2 v_(-20) S{MLAbb} v_(0) MLAb }
Str SBSAa = { q 100 l1 a^^^ }
Str SBSAfp = { q100 l1 f^^^ }
Str SBSAf = { q100 l1 f-^^^ }
Str SBSAg = { q100 l1 g^^^ }
Str SBSAe = { q100 l1 e^^^ }
Str ABSAa = { y(74).T(32,96,480*16) [4 l16 aa>a<r a>a<ra >a<ra>a< ra>a<r] }
Str PNOAa = { l16 [14<a>eae] <a>e`cebe`ce }
Str PNOAa2 = { l16 [14<a>eae] <a>e`ee`debe }
Str PNOAf = { l16 [14<f->eae] <f->e`cebe`ce }
Str PNOAfp = { l16 [14<f>eae] <f>e`ee`debe }
Str PNOAg = { l16 [14<g>eae] <g>e`cebe`ce }
Str PNOAe = { l16 [14<e>eae] <e>e`ee`debe }
Str PNOBa = { q8 l1 [4 'a>ce<'] }
Str PNOBf = { q8 l1 [4 'f-a>ce<'] }
Str PNOBfp = { q8 l1 [4 'fa>c+e<'] }
Str PNOBg = { q8 l1 [4 'gb>d<'] }
Str PNOBe = { q8 l1 [4 'egb>d<'] }
Str CHDAa = { l1 q98 [2 'a>ceg<' | 'ab>df<' ] }
Str CHDAaa = { l1 q98 [4 'a>ceg<'] }
Str CHDAf = { l1 q98 [4 'f-a>ce<' ] }
Str CHDAfp = { l1 q98 [4 'fa>c+e<' ] }
Str CHDAg = { l1 q98 [4 'gb>d<' ] }
Str CHDAe = { l1 q98 [4 'egb>d<' ] }
Str OBRAa = { l16 [2 arar gara rrar grar | arar gara rrgr argr ] }
Str OBRBa = { l1 q99 'a>c<' | 'b>d<' | '>ce<' | '>df<' | '>eg<' | '>fa<' | '>gb<' | '>a`d<' }
Str LEADa = { [4 l16 v_.onNote(-12,99,99,-4,99,99,-4,99,99,99,-8,99,-4,99,-4,99) arre rrdr rrgrerdr ] } // tettette tetete
Str LEADf = { y(11).onTime(0,127,1920*5) }
//_Phrase Drum
If (GSMode) { $_{r} $b{n36,} $s{n38,} $h{n42,} $m{n46,,,86,} $t{n54,} $H{n47,} $M{n43,} $L{n41,} }
Else { $_{r} $b{n36,} $s{n40,} $h{n42,} $m{n46,,,86,} $t{n54,} $H{n47,} $M{n43,} $L{n41,} }
Str DRKi = { l1 Rythm { {b} [2r] {r-8b8b} [2r] {r-8b8 b1 b1} [2r] {r-8b8 b2b2b4b4b8b8[4b16]} [2r] } }
Str DRSf = { l16 v.onNote(100,80,80, 90,90, 80,80,80) r-2 Rythm{s32s32sss s8ss } v100 }
Str DRS1 = { l16 Rythm{____s_______s___ ____s_______s___ ____s_______s___ ____s_______s___} }
Str DRS2 = { l16 Rythm{____s_______s___ ____s_______s___ ____s_______s___ ____s_______s___} }
Str DRB1 = { l16 Rythm{b___b___b___b___ b___b___b___b___ b___b___b___b___ b___b___b___b___} }
Str DRD1 = { l16 Rythm{H__L__L_H__LL_M_ H__L__L_HM_LL_M_ H__L__L_HM_LL_M_ H__L__L_HM_LL_M_} }
Str DRH1 = { l16 Rythm{h_hh__mh_hmh__m_ h_hh__mh_hmh_m_m h_hh__mh_hmh_m_m h_hh__mh_hmh_m_m} }
Str DRT1 = { l16 v.onCycle(120, 51,41,36,45) Rythm{ {[16tttt]} } v100}
Str RvCm = { r-%1000 q100 c%1000 }
Str RvCmD = { n(ChineseCymbal), }
Array Rnd; For (Int I = 0; I < 1024; I++) { Rnd(I) = Random(12,18); }
Function Zg(Int Len) {
q100 r%2
Len = Len * 4;
Int Len2 = 0;
Int J = 0;
For (Int I = 0; I < Len; I += Len2) { Len2 = Rnd(J); J++; If (I + Len2 > Len) { Len2 = Len - I; } S { r%(!4*I) c%(!4*Len2) } }
For (Int I = 4; I < Len; I += Len2) { Len2 = Rnd(J); J++; If (I + Len2 > Len) { Len2 = Len - I; } S { r%(!4*I) e%(!4*Len2) } }
For (Int I = 9; I < Len; I += Len2) { Len2 = Rnd(J); J++; If (I + Len2 > Len) { Len2 = Len - I; } S { r%(!4*I) g%(!4*Len2) } }
}
//------------------------------------------------------------------------------
//_Sequence
//------------------------------------------------------------------------------
Track(0);
Str ______ = {}
Str _TM4__ = {[4r1]}
Str _FaOut = { S{r2 MasterVolumeFadeOut(1920*8);} }
Str _INIT_ = { t.onCycle(!16,0,15); }
If (LasMae^1) {
//_Sequence 0
TIME(0:1:0);
PLAY(______ ,{CH=16},{CH=10},{CH=10},{CH= 9},{CH=10},{CH=10},{CH=10},{CH= 1},{CH= 1},{CH= 8},{CH=11},{CH= 3},{CH= 2},{CH= 6},{CH= 4},{CH= 4},{CH= 5},{CH= 5},{CH= 7},{CH=15});
PLAY(______ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ ,_INIT_ );
PLAY(______ ,v127 , ,v106 ,v110 , ,v95 , ,v120 ,v127 ,v110 ,v94 ,v100 ,v118 , , , ,v90 ,v90 ,v100 , );
PLAY(______ ,o4 , , , , , , ,o6 ,o7 ,o2 ,o3 ,o4 ,o6 ,o5 ,o2 ,o3 ,o5 ,o4 ,o3 ,o4 );
//_Sequence I
//TIME(0:1:0)
PLAY(______ ,RvCm ,RvCmD , , , , , , , , , , , , , , , , , , );
PLAY(______ , , ,DRKi , , , , , , , , , , , , , , , , , );
PLAY(______ , , , , , , , , , , , , , , , , , , , , );
PLAY(_TM4__ , , , , , , , ,MLAa ,MLAa ,ABSAa , ,PNOAa , , ,SBSAa ,SBSAa , , , , );
PLAY(_TM4__ , , , , , , , ,MLAb ,MLAb ,ABSAa , ,PNOAa2 , , ,SBSAa ,SBSAa , , , , );
PLAY(______ , , , , , , , , , , , , , , , , , , , ,{Zg=8})
PLAY(______ ,RvCm ,RvCmD , , , , , , , , , , , , , , , , , , );
PLAY(______ , , , , , , , , , , , , ,LEADf , , , , , , , );
PLAY(______ , , , , , , , , , , , , , , , , , , ,OBRBa , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 , , , ,MLAa ,MLAa ,ABSAa , ,PNOAa ,LEADa , ,SBSAa ,SBSAa , ,CHDAa , , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 , , , ,MLAb ,MLAb ,ABSAa , ,PNOAa2 ,LEADa , ,SBSAa ,SBSAa , ,CHDAa , , );
//_Sequence A
//TIME(16:1:0)
PLAY(______ , , , , , , , , , , , , , , , , , , , ,{Zg=15});
PLAY(______ ,RvCm ,RvCmD , , , , , , , , , , , , , , , , , , );
PLAY(______ , , , , ,DRSf , , , , , , , , , , , , , , , );
PLAY(______ , , , , , , , , , , , , , , , , , ,OBRBa , , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 ,DRH1 , ,MLAa ,MLAa ,ABSAa ,OBRAa ,PNOAa ,LEADa , ,SBSAa ,SBSAa , , ,CHDAa , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 ,DRH1 , ,MLAb ,MLAb ,ABSAa ,OBRAa ,PNOAa2 ,LEADa , ,SBSAa ,SBSAa , , ,CHDAa , );
PLAY(______ ,RvCm ,RvCmD , , , , , , , , , , , , , , , , , , );
PLAY(______ , , , , , , , , , , , , , , , , ,OBRBa , , , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 ,DRH1 ,DRT1 ,MLAa ,MLAa ,ABSAa ,OBRAa ,PNOAa ,LEADa ,OBRAa ,SBSAa ,SBSAa , ,CHDAa ,CHDAa , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 ,DRH1 ,DRT1 ,MLAb ,MLAb ,ABSAa ,OBRAa ,PNOAa2 ,LEADa ,OBRAa ,SBSAa ,SBSAa , ,CHDAa ,CHDAa , );
//_Sequence B
//TIME(32:1:0)
PLAY(______ , , , , , , , , , , , , , , , , , , , ,{Zg=32});
PLAY(______ ,RvCm ,RvCmD , , , , , , , , , , , , , , , , , , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 , ,DRT1 ,MLAa ,MLAa ,ABSAa , ,PNOAf ,LEADa ,OBRAa ,SBSAf ,SBSAf , ,CHDAf ,CHDAf , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 , ,DRT1 ,MLAaa ,MLAaa ,ABSAa , ,PNOAfp ,LEADa ,OBRAa ,SBSAfp ,SBSAfp , ,CHDAfp ,CHDAfp , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 , ,DRT1 ,MLAa ,MLAa ,ABSAa , ,PNOAg ,LEADa ,OBRAa ,SBSAg ,SBSAg , ,CHDAg ,CHDAg , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 , ,DRT1 ,MLAbb ,MLAb ,ABSAa , ,PNOAe ,LEADa ,OBRAa ,SBSAe ,SBSAe , ,CHDAe ,CHDAe , );
PLAY(______ ,RvCm ,RvCmD , , , , , , , , , , , , , , , , , , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 , ,DRT1 ,MLAa ,MLAa ,ABSAa , ,PNOAf ,LEADa ,OBRAa ,SBSAf ,SBSAf , ,CHDAf ,CHDAf , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 , ,DRT1 ,MLAaa ,MLAaa ,ABSAa , ,PNOAg ,LEADa ,OBRAa ,SBSAg ,SBSAg , ,CHDAg ,CHDAg , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 , ,DRT1 ,MLAab ,MLAa ,ABSAa , ,PNOAa ,LEADa ,OBRAa ,SBSAa ,SBSAa , ,CHDAaa ,CHDAaa , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 , ,DRT1 ,MLAb ,MLAbp ,ABSAa , ,PNOAa2 ,LEADa ,OBRAa ,SBSAa ,SBSAa , ,CHDAaa ,CHDAaa , );
//_Sequence C
//TIME(64:1:0)
PLAY(______ , , , , , , , , , , , , , , , , , , , ,{Zg=15});
PLAY(______ ,RvCm ,RvCmD , , , , , , , , , , , , , , , , , , );
PLAY(______ , , , , , , , , , , , , ,LEADf , , , , , , , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 , , , , , ,ABSAa , ,PNOAa ,LEADa ,OBRAa ,SBSAa ,SBSAa , , , , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 , , , , , ,ABSAa , ,PNOAa2 ,LEADa ,OBRAa ,SBSAa ,SBSAa , , , , );
PLAY(______ ,RvCm ,RvCmD , , , , , , , , , , , , , , , , , , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 , ,DRH1 , , , ,ABSAa , ,PNOAa ,LEADa ,OBRAa ,SBSAa ,SBSAa , ,CHDAa ,CHDAa , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 , ,DRH1 , , , ,ABSAa , ,PNOAa2 ,LEADa ,OBRAa ,SBSAa ,SBSAa , ,CHDAa ,CHDAa , );
//_Sequence A2
//TIME(80:1:0);
PLAY(______ , , , , , , , , , , , , , , , , , , , ,{Zg=15});
PLAY(______ ,RvCm ,RvCmD , , , , , , , , , , , , , , , , , , );
PLAY(______ , , , , ,DRSf , , , , , , , , , , , , , , , );
PLAY(______ , , , , , , , , , , , , , , , , , ,OBRBa , , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 ,DRH1 , ,MLAa ,MLAa ,ABSAa ,OBRAa ,PNOAa ,LEADa , ,SBSAa ,SBSAa , , ,CHDAa , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 ,DRH1 , ,MLAb ,MLAb ,ABSAa ,OBRAa ,PNOAa2 ,LEADa , ,SBSAa ,SBSAa , , ,CHDAa , );
PLAY(_FaOut , , , , , , , , , , , , , , , , , , , , );
PLAY(______ ,RvCm ,RvCmD , , , , , , , , , , , , , , , , , , );
PLAY(______ , , , , , , , , , , , , , , , , ,OBRBa , , , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 ,DRH1 ,DRT1 ,MLAa ,MLAa ,ABSAa ,OBRAa ,PNOAa ,LEADa ,OBRAa ,SBSAa ,SBSAa , ,CHDAa ,CHDAa , );
PLAY(_TM4__ , , ,DRB1 ,DRD1 ,DRS1 ,DRH1 ,DRT1 ,MLAb ,MLAb ,ABSAa ,OBRAa ,PNOAa2 ,LEADa ,OBRAa ,SBSAa ,SBSAa , ,CHDAa ,CHDAa , );
} Else { // LasMae
//_Sequence LasMae
Tempo = 140
TIME(-1:4:0);
PLAY(______ ,{CH=13},{CH=12},{CH=12},{CH= 1},{CH=4},{CH=12} );
PLAY(______ ,v110 ,v120 ,v110 ,v60 , , );
PLAY(______ ,o6 ,o6 ,o5 ,o5 ,o2 ,o4 );
PLAY(______ , ,q100 ,q100 ,t!8. , , );
PLAY(______ , , , ,{@6} , , );
TIME(0:1:0);
//I
//TIME(0:1:0)
PLAY(_TM4__ ,MLAa ,MLAa , ,PNOBa ,SBSAa ,SBSAa );
PLAY(_TM4__ ,MLAb ,MLAb , ,PNOBa ,SBSAa ,SBSAa );
PLAY(_TM4__ ,MLAa ,MLAa ,MLAa ,PNOBa ,SBSAa ,SBSAa );
PLAY(_TM4__ ,MLAb ,MLAb ,MLAb ,PNOBa ,SBSAa ,SBSAa );
PLAY(_TM4__ ,MLAa ,MLAa ,MLAa ,PNOBf ,SBSAf ,SBSAf );
PLAY(_TM4__ ,MLAaa ,MLAaa ,MLAaa ,PNOBfp ,SBSAfp ,SBSAfp );
PLAY(_TM4__ ,MLAa ,MLAa ,MLAa ,PNOBg ,SBSAg ,SBSAg );
PLAY(_TM4__ ,MLAb ,MLAb ,MLAbb ,PNOBe ,SBSAe ,SBSAe );
PLAY(_TM4__ ,MLAa ,MLAa ,MLAa ,PNOBa ,SBSAa ,SBSAa );
PLAY(_TM4__ ,MLAb ,MLAb ,MLAb ,PNOBa ,SBSAa ,SBSAa );
PLAY(_TM4__ ,MLAa ,MLAa ,MLAa ,PNOBa ,SBSAa ,SBSAa );
PLAY(_FaOut , , , , , , );
PLAY(_TM4__ ,MLAb ,MLAb ,MLAb ,PNOBa ,SBSAa ,SBSAa );
PLAY(_TM4__ ,MLAa ,MLAa ,MLAa ,PNOBf ,SBSAf ,SBSAf );
}
//------------------------------------------------------------------------------
//_XG Parameters
//------------------------------------------------------------------------------
Track 0; TIME(-2:1:0); TrackSync;
ResetGM;
ResetXG; r4
MUXcl1($000003, 0); ResetGS; MUXcl1($000003, 1); // GS RESET (MSGS)
//_EffectParameters
TIME(-2:2:0);
CuePoint={"TwmParam(127,117,0,127)"} // リバーブらしい
CuePoint={"TwmChorus(1,64,20,80,20,114,3)"} // コーラスらしい
r%5 XGXcl1($000004, 127)
r%5 XGXcl1($000005, $10); // MasterAttn
r%5 XGXcl2($020100, $0300); // RevType = STAGE1
r%5 XGXcl1($020102, $19); // Rev
r%5 XGXcl1($02010C, $50); // RevRet = 80
r%5 XGXcl2($020120, $5700); // ChoType = ENS_DETUNE
r%5 XGXcl1($02012E, $20); // Cho->Rev = 32
r%5 XGXcl2($020140, $0500); // VarType = DelayLCR
r%5 XGXcl1($02015A, $01); // VarConnect = System
r%5 XGXcl1($020158, $32); // Var->Rev = 50
r%5 XGXcl1($020159, $14); // Var->Cho = 20
r%5 XGXclV($020142, 600000 / Tempo / 4 * 4); // Delay Lch
r%5 XGXclV($020144, 600000 / Tempo / 4 * 2); // Delay Rch
r%5 XGXclV($020146, 600000 / Tempo / 4 * 6); // Delay Cch
r%5 XGXcl2($02014A, $66); // VarFeedback= +38
r%5 XGXcl2($030000, $4D00); // 2-Band Eq
r%5 XGXcl1($030002, $0D); // LoFreq = 90Hz
r%5 XGXcl1($030003, $49); // LoGain = +9dB
r%5 XGXcl1($030004, $2E); // HiGain = 4kHz
r%5 XGXcl1($030005, $44); // HiGain = +4dB
r%5 XGXcl1($03000C, $09); // Part = 10
r%5 XGXcl2($030100, $4D00); // 2-Band Eq
r%5 XGXcl1($030102, $1E); // LoFreq = 630Hz
r%5 XGXcl1($030103, $44); // LoGain = +4dB
r%5 XGXcl1($030104, $20); // HiGain = 800Hz
r%5 XGXcl1($030105, $47); // HiGain = +7dB
r%5 XGXcl1($03010C, $00); // Part = 1
r%5 XGXcl2($030300, $4B08); // STEREO AMP
r%5 XGXcl1($030302, $10); // Drive = 16
r%5 XGXcl1($03030C, $0A); // Part = 11
//------------------------------------------------------------------------------
//_TrackParameter
//------------------------------------------------------------------------------
TIME(-1:1:0);
SysEx$=F0,41,10,42,12,{40,19,15,02},F7; // GS DRUM Part = 9
Int CTune = 2; Int DTune = -1;
//ackParam(CH, Corse, MSB,LSB,PG#,PG#, VOL,PAN, REV,CHO,VAR, LPF,RSN,BFq,BGa,TFq,TGa
TrackParam(1, CTune, 32, 0, 1, 1, 127,-03, 110, 10, 90, +21,+08);
TrackParam(2, CTune, 0, 73, 82, 82, 110,+08, 90, 80, 90, +25,+08 ,,,$27,+34);
TrackParam(3, CTune, 0, 66, 1, 1, 107,-17, 50, 50, 20, +10, 0);
TrackParam(4, CTune, 0, 35, 49, 49, 109,-04, 10, 32, 0, 0, 0 ,$0C,+58);
TrackParam(5, CTune, 0, 65, 90, 90, 82,+47, 80, 20, 0, -02,+03);
TrackParam(6, CTune, 0, 14, 99, 12, 102,-09, 80, 20, 0, +17,+11);
TrackParam(7, CTune, 0, 65, 90, 90, 73,-35, 80, 20, 40, -02, 0 ,$10,+37);
TrackParam(8, CTune, 0, 24, 39, 39, 126,-07, 10, 20, 30, +05,+32);
TrackParam(9, DTune, 127, 0, 58, 1, 108, 0, 20, 40, 0, 0, 0);
TrackParam(10, DTune, 127, 0, 31, 17, 122, 0, 30, 22, 0, 0, 0);
TrackParam(11, CTune, 0, 70, 31, 31, 100, 0, 20, 0, 0, 0, 0);
TrackParam(12, CTune, 0, 76, 49, 49, 100, 0, 60, 20, 20, -20, 0);
TrackParam(13, CTune, 0, 0, 47, 47, 120,+08, 40, 0, 0, -04, 0);
TrackParam(14, CTune, 0, 0, 1, 1, 100, 0, 40, 0, 0, 0, 0);
TrackParam(15, 0, 48, 88, 2, 0, 110, 0, 70, 20, 50, 0, 0);
TrackParam(16, 0, 0, 0,120,120, 127, 0, 127, 80, 0, 0, 0);
//------------------------------------------------------------------------------
//_DrumParameter
//------------------------------------------------------------------------------
TIME(-1:3:0);
CH=10;
DrumParam(54,64,105,95,64,63,63,127,119,82,87,64,64,64,12,64,47,73);
DrumParam(46,64,64,112,77,32,32,127,58,64,64,64,64,64,12,64,54,64);
DrumParam(42,64,64,108,77,32,32,127,58,64,64,64,64,64,12,64,54,64);
DrumParam(40,64,81,127,64,127,127,127,78,78,64,64,64,64,12,64,40,77);
DrumParam(36,63,64,116,63,0,0,0,53,51,64,32,64,64,15,76,54,64);
CH=9;
DrumParam(47,64,64,111,72,127,127,127,64,64,64,64,64,64,16,70,38,85);
DrumParam(43,64,64,111,54,127,127,127,64,64,64,64,64,64,16,72,38,85);
DrumParam(41,64,64,108,40,127,127,127,64,64,64,64,64,64,16,93,36,99);
// CANTUS BELLAX!!
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment