抜け殻

ゴロニャ～ゴ

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

//------------------------------------------------------------------------------
// テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.374)
//------------------------------------------------------------------------------
/*
題名{"抜け殻"}
作者{"ゴロニャ～ゴ"}
コメント{" …物の抜け殻、生の抜け殻… "}
*/
Int music=1 //←の数字を変えると、メニューにある他の曲が聴けます。(数字は半角で)
/*
◆ メニュー ◆
music=1 『砂上楼閣』演奏時間：1分40秒ぐらい恐らくオルゴール曲
music=2 『凍霊』演奏時間：2分16秒ぐらい多分…落ち着いた曲
※ メニューに書かれている数字以外の数字に変えても曲とか何もありません。
【使用音源】[ Microsoft GS Wavetable Synth ]
ダウンロードありがとうございます！
最終更新日：2010/07/08 */
If(music=1){
曲名{"砂上楼閣"}
作者{"ゴロニャ～ゴ"}
コメント{"…沈む回廊…"}
/*
オルゴール曲作りの練習…練習の割りには本気だったり。
ピッチずらして合わせる場合、+と-の両方付けないと何か違和感を感じてきた。
…もしかしたら無理にピッチずらす必要は無いのかも。何ともいえない。
// 制作期間：2010/05/19～07/08 演奏時間：1分40秒ぐらい */
//------------------------------------------------------------------------------
//_初期設定
TimeBase = 96 // 四分音符分解能
Tempo = 120 // テンポの設定(20～240を推奨)
TimeSignature = 4,4 // 拍子記号の設定→2,4は2/4拍子を表す
System.MeasureShift(1); // 音源初期化用に発音を１小節遅らせる
ResetGS(); // GS音源用リセット
Time(1:1:0); TrackSync; // 全てのトラックを同期する(初期化後に必須)
//------------------------------------------------------------------------------
Function Set(x1,x2,xa,x3,x4,x5,x6,x7,x8,x9){ r8
CH(x1);@(x2,xa);V(x3);EP(x4);P(x5);REV(x6);CHO(x7);M(x8);BR(x9);}
// CH, @ , @2, V , EP, P ,REV,CHO, M , BR
TR=1 r-8 Set(001,009,000,114,127,064,000,000,000,000)// チェレスタ
TR=2 r-8 Set(002,009,000,127,127,064,000,000,000,000)// チェレスタ(一部ミュージックボックス)
TR=3 r-8 Set(003,011,000,108,127,064,000,000,000,000)// ミュージックボックス
TR=4 r-8 Set(004,011,000,127,127,064,000,000,000,000)// ミュージックボックス
TR=5 r-8 Set(005,009,000,084,127,009,000,000,000,000)// チェレスタ
TR=6 r-8 Set(006,009,000,044,127,118,000,000,000,000)// チェレスタ
TR=7 r-8 Set(007,011,000,052,127,001,000,000,000,000)// ミュージックボックス
TR=8 r-8 Set(008,011,000,074,127,1