音色チェック

korin

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

//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.383)
//------------------------------------------------------------------------------
曲名{"音色チェック"}
作者{"korin"}
コメント{"どんな音色があるかチェック～。私が好きだった hello again が果てしなく流れます。"}
//------------------------------------------------------------------------------
ResetGM();
拍子4,4
テンポ(98)
調#()
//オクターブユニソン
Function OctaveUnison(Str S){
Sub{ Key=12; S; Key=0; } S;
}
//フェードイン
Function Fadein(Int Mes,Int sEp,Int lEp){ //小節は英語でMeasure
Str I = {!1}; // 拍子4/4
Str LEN;
If(Mes>1){
Mes--;
I=I+{^1};
}
LEN=I;
Str CMD = { Expression.onTime(sEp,lEp,LEN); }
CMD.s({LEN},I);
CMD;
}
//フェードアウト1
Function Fadeout(Int Mes,Int lEp,Int sEp){
//Iはローカル
Str I = {!1}; //全音符でフェードアウト
Str LEN;
If(Mes>1){
Mes--;
I=I+{^1};
}
LEN=I;
Str CMD = { Expression.onTime(lEp,sEp,LEN); }
CMD.s({LEN},I);
CMD;
}
//フェードアウト2
Function Fadeout2(Int Mes,Int lEp,Int sEp){
Str I = {!4}; //四分音符でフェードアウト
Str LEN;
If(Mes>1){
Mes--;
I=I+{^4};
}
LEN=I;
Str CMD = { Expression.onTime(lEp,sEp,LEN); }
CMD.s({LEN},I);
CMD;
}
//ヘッダーファイルを少しずつ修正していく形？
Int I;
Int Type = 1; //1 : 音色　　2 : リズム
Array #Ary=();
Array #Vo=();
Array #rhythm=();
Array #data=();
#Vo(0)={"Grand Piano (グランドピアノ) … 標準的なグランドピアノ。"}
#Vo(1)={"Bright Piano (ブライトピアノ) … 明るめの（アタックが強めの）ピアノ。"}
#Vo(2)={"Electric Grand Piano (エレクトリック･グランドピアノ) … 音をピックアップで電気増幅させるピアノ。かなり明るめ。"}
#Vo(3)={"Honky-tonk Piano (ホンキートンクピアノ) … 調律のずれたピアノ。"}
#Vo(4)={"Electric Piano 1 (エレクトリックピアノ１) … Rhodes系のコロコロしたエレピ。"}
#Vo(5)={"Electric Piano 2 (エレクトリックピアノ２) … FMシンセサイザー系のキラキラしたエレピ。"}
#Vo(6)={"Harpsichord (ハープシコード) … バロック音楽の代表楽器。別名チェンバロ。"}
#Vo(7)={"Clavi (クラビネット) … 鍵盤の裏側に付いたハンマーで弦を叩き、その音をピックアップで電気増幅させる電気キーボード。"}
#Vo(8)={"Celesta Strings (チェレスタ) … 鉄琴を鍵盤で演奏する楽器。クラシック向け。"}
#Vo(9)={"Glockenspiel (グロッケンシュピール) … 鉄琴の一種。演歌や一昔前のソウルミュージックに。"}
#Vo(10)={"Music Box (ミュージックボックス) … いわゆるオルゴール。"}
#V