Call Me

KZ-5 Technology動画

MML先頭 2000 文字だけ表示していますダウンロード全文を見る

// 最近この路線は絶好調です
INT TEMPO_EST = 123 ; //テンポ設定
PlayFrom.SysEx(on)PlayFrom.CtrlChg(on)PlayFrom.RPN_NRPN(on)
TrackName={Call Me}Copyright={KZ-5 Technology}System.MeasureShift(3)Tempo=1000Include(delay.h)ResetGS;
Function Autoexec(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)Key=X4;P=X5;CHO=X6;REV=X7;v=(X8)q=(X9)M=(XC)}Function DL(ti){Time(ti:1:0)}STR INS={InstrumentName}Function PAN(ER1,ER2){If(ER2==0){P.T(000,127,ER1)}If(ER2==1){P.T(127,000,ER1)}}
Function Review(STR OIN,Revalue,ReNo){STR REPO="r"+Revalue;Sub{[(ReNo);OIN;REPO]}}Function GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}}_CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;}
Function HAM(STR SA){Sub{Key=12SA;Key=0}SA}Function HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}Function HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}
Function HAMZ(STR SA){Sub{Key=1SA;Key=0}SA}STR LC={"cceg`c}STR LD={"ddf#a`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LF={"ffa`c`f}STR LG={"gga#`d`g}STR LA={"aa`c#`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`f#`b}
STR WC={r'LC'}STR WD={r'LD'}STR WDS={r'LDS'}STR WE={r'LE'}STR WF={r'LF'}STR WG={r'LG'}STR WA={r'LA'}STR WAS={r'LAS'}STR WB={r'LB'}
Function MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+35;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S}
//------( TR , CH , @ , @2 , @3 , Key, P , CHO, REV, v , VAR, M )
Autoexec( 001, 001, 012, 000, 000, 000, 064, 000, 000, 127, 090, 000)
Autoexec( 002, 002, 062, 000, 000, 000, 064, 000, 000, 100, 093, 000)
Autoexec( 003, 003, 063, 000, 000, 000, 010, 000, 000, 100, 100, 000)
Autoexec( 004, 004, 063, 000, 000, 000, 117, 000, 000, 100, 100, 000)
Autoexec( 005, 005, 039, 001, 000, 000, 054, 000, 000, 120, 090, 000)
Autoexec( 006, 006, 103, 002, 000, 000, 032, 000, 000, 080, 103, 020)
Autoexec( 007, 007, 088, 000, 000, 000, 074