サクラトップ 掲示板トップ ログイン

MusicBox - サクラ曲掲示板6

曲掲示板6にエディタ機能が追加されました！気軽に曲を作成してみましょう！
森と泉

MusicBox

森と泉ピコ対応
MMLダウンロード全文を見る
  1. Int X0=89 //係数4個　値を変えてみて下さい
  2. Int X1=82
  3. Int X2=83
  4. Int X3=84
  5.  
  6. Int R1
  7. Int X=X3
  8. Int X9=X
  9. Int LL
  10. Int K1
  11. Int OK=0
  12.  
  13. Str MM={Tempo=200
  14. TR=1 CH=1 @(MusicBox) l8 V(100) P.onNoteWave(54,74,!8)}
  15.  
  16. For(Int I=0; I<100; I++){ //100小節演奏する
  17.  
  18. R1=(X2+1)%9 //小節毎に音長を決める
  19. If(R1==0){LL=2}
  20. If(R1==1){LL=3}
  21. If(R1==2){LL=4}
  22. If(R1==3){LL=6}
  23. If(R1==4){LL=8}
  24. If(R1==5){LL=12}
  25. If(R1==6){LL=16}
  26. If(R1==7){LL=24}
  27. If(R1==8){LL=32}
  28. MM=MM+{
  29. l}+LL+{ }
  30.  
  31. For(Int J=0; J<LL; J++){ //1小節内の音階(X)を決める
  32.  
  33. For(Int K=0; K<20; K++){ //20回以内ドレミファソラシを捜す
  34. X=(X0*X1+X2)%(X3+1) //X3+1で0の除算を防ぐ
  35.  
  36. X=X%49+48 //Xを48～96にする
  37.  
  38. K1=X%12
  39.  
  40. IF(K1==0||K1==2||K1==4||K1==5||K1==7||K1==9||K1==11){OK=1 //ドレミファソラシのみOKとする
  41.  
  42.  
  43. R1=(X3+1)%2 //ノート番号またはタイを追加
  44. IF(J==0){MM=MM+{n}+X}Else{IF(R1==0){MM=MM+{ n}+X}Else{MM=MM+{^}}}
  45. X9=X Exit}}//K bottom
  46. R1=(X3+1)%5 //ドレミファソラシがなかった場合は過去の音を採用する
  47. IF(OK==0){IF(J==0){MM=MM+{n}+X9}Else{IF(R1<2){MM=MM+{ n}+X9}Else{MM=MM+{^}}}}
  48. OK=0
  49.  
  50. X0=X1;X1=X2;X2=X3;X3=X} //J bottom 係数をずらす
  51. }//I bottom
  52.  
  53. Print(MM) //MML表示
  54.  
  55. Play(MM) //演奏
作者からのコメント
先のマリンバを改良しました。音階はドレミファソラシで、100小節鳴らします。MMLをピコサクラ下側タブに表示します。。
作曲者
自作
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
soundfont
ピコサクラ対応
対応
ピコサクラバージョン
0.1.26
動画
なし
投稿日時
2024-02-16 19:27
更新日時
2024-02-16 19:27
お気に入り
H゛
ダウンロード数
183
タグ
→この曲(id:2554)に問題がある場合こちらへ

感謝のコメント

森と泉2024/02/20
H゛さん、お気に入り追加ありがとうございます。MusicBoxというよりカリヨンみたいです。コードの音というわけではなく、まったくのランダムなので音がなるべく濁らないように臨時記号の付いた音階は避けました。4つの係数を変えてお楽しみいただければと思います。
marayaaan00082025/09/01
自分も、こんなオルゴールのような音色に憧れます、at randomにメロディーをMMLでプログラミングして、作っているところが凄いですね。すごいでしゅ✨
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）