メロディ風鈴4拍子改2

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

//ダッシュボード　ここから
RandomSeed=54321; //RandomSeedの数値を変えると曲が変わります。
　　　　　　　　　　　　　　 //PicosakuraはこのままでOK。
　　　　　　　　　　　　　　 //SakuraはSystem.RandomSeedとしてください。
Int TMP=120; //Tempo
Int INST=11; //楽器番号(1=GrandPiano、11=MusicBox、89=NewAgePad等)
Int TK=6; //TrackKey
Int DD9=60; //最小小節数（これ以降でコード進行がG7,Cとなるか、100小節で終了）
Array WW0=(0,33,33,33,33,33,33,33); //タイの確率(ほぼ8分音符)　WW0～WW3は各25%の確率
Array WW1=(0,66,33,66,33,66,33,66); //タイの確率(ほぼ4分音符)
Array WW2=(0,66,33,66,33,66,33,66); //タイの確率(ほぼ4分音符)
Array WW3=(0,66,66,66,66,66,66,66); //タイの確率(ほぼ全音符)
// 　ここまで
Int CX=8; //1小節に8分音符を
Int CCC=8; //8回使うのが基本形
Array WW;//1小節内の各音符がタイ(^)に変わる確率(%)
Int AA;Int A9;/*音番号と旧AA（o5cはn60です)*/Array AA1;Int LL/*コード内ノートとそのSIZE*/
Int N;Int N9;Int NX;/*コード、旧コード、次コード*/Int BB;/*1小節内何番目の音*/Int DD;/*何小節目*/Int DDD;//DD+2
Int EE;/*c,c+,d,d+…を0,1,2,3…で表した数字*/Int E9;//EEの旧値
Int GG;/*前後の音の高さの差をチェックする回数*/Int GG1=100;//GGの最大値。これを超えたらそのまま鳴らす。
Int Z=6;/*前後の音の高さの差を半音6個以内に制限*/Int RX//乱数
Int OO;/*オクターブ*/Int OO9=5;/*旧OO*/Str PP;Str P9//音符またはオクターブ付き音と旧PP
Array AR=({c},{c+},{d},{d+},{e},{f},{f+},{g},{g+},{a},{a+},{b})
Array VE=({},{},{},{},{o4v120},{o5v109},{o6v80}) //オクターブとベロシティ
Str MD="";/*MelodyMML*/Str MC="";/*伴奏MML*/Str MC1;//伴奏MML1音
Str MB="";/*伴奏MML*/Str MB1="";/*伴奏MML1音*/Str MML2="";//MML
Int R9;
Str BR2="
"; //改行
MML2="System.Include(stdmsg.h);
System.MeasureShift(1);
ResetGM();
TimeSignature = 4,4;
TrackSync;
TrackName={'Melody Chime 4Beat kai2'};
Copyright={'Moritoizumi'}";
//コード名に+を使うと誤動作するのでxにしています。
MML2=MML2+"
Str Am={[8'acea']};Str C7={[8'cega+']};Str Cm={[8'cd+gc']};Str Cx7={[8'c+fg+bc+']};
Str Dm={[8'dfad']};Str D7={[8'df+ac']};Str Dxm={[8'd+f+a+d+']};Str Dx7={[8'd+ga+c+']};
Str Em={[8'egbe']};Str E7={[8'eg+bd']};Str Fm={[8'fg+cf']};Str F7={[8'facd+']};
Str Gm={[

作者からのコメント

先のメロディ風鈴4拍子改(曲ID2572)を更に改良、ピコサクラ／サクラ両対応にしました。
2025/8/3、ダッシュボードをMML上部に設置し、いろいろな指定をし易くしました。なお、最小小節数を指定できるようにし、最小小節数（指定）と実際の小節数を表示させました。

作曲者: 自作
ライセンス: 🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載: 許可
推奨音源: soundfont
ピコサクラ対応: 対応
ピコサクラバージョン: 0.1.42
動画: なし
投稿日時: 2025-07-01 22:19
更新日時: 2025-08-03 21:12

お気に入り

(^o^)/

ダウンロード数

117

タグ

実験音楽

→この曲(id:2830)に問題がある場合こちらへ

感謝のコメント

森と泉2025/08/06

ダウンロード誠に有り難うございます。
ダッシュボードのWW0～WW3の数値を下記のように変えるとルンバ調になり、ノリがよくなるかも。
Array WW0=(0,33,100,33,33,33,33,33);
Array WW1=(0,66,100,66,33,66,33,66);
Array WW2=(0,66,100,66,33,66,33,66);
Array WW3=(0,66,100,66,66,66,66,66);

♪

この曲に「ありがとう」を伝えませんか？

ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。

ログインしてコメントするはじめての方はこちら（無料登録）