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

5音音階と乱数２ - サクラ曲掲示板6

曲掲示板6にエディタ機能が追加されました！気軽に曲を作成してみましょう！
HiroChan（ひろちゃん）

5音音階と乱数２

HiroChan（ひろちゃん）
MMLダウンロード全文を見る
  1. /*
  2.  
  3. 5音音階と乱数２
  4.  
  5.  
  6.  
  7. 環境音とか音ネタ替わり
  8.  
  9. */
  10. //------------------------------------------------------------------------------
  11.  
  12. //音階の代わり。下方と上方で分ける
  13. Array Lower
  14. Array Upper
  15.  
  16. //↓音階指定。1～4から選ぶ
  17. Int Scale=1
  18.  
  19. If(Scale==1){
  20. //1度と4度の間に、短3度が挟まる
  21. Lower=("r", "c", "e-", "f")
  22. Upper=("r", "g", "b-", ">c<")
  23. }
  24. If(Scale==2){
  25. //短2度が挟まる
  26. Lower=("r", "c", "d-", "f")
  27. Upper=("r", "g", "a-", ">c<")
  28. }
  29. If(Scale==3){
  30. //長2度が挟まる
  31. Lower=("r", "c", "d", "f")
  32. Upper=("r", "g", "a", ">c<")
  33. }
  34. If(Scale==4){
  35. //長3度が挟まる
  36. Lower=("r", "c", "e", "f")
  37. Upper=("r", "g", "b", ">c<")
  38. }
  39.  
  40. //低音の代わり。
  41. Array Bs=("r","c","f","g")
  42.  
  43. //演奏用バッファ
  44. Str Buffer
  45.  
  46. //------------------------------------------------------------------------------
  47.  
  48. TimeSignature=2,4
  49. ResetGM r1 TrackSync
  50.  
  51. TR(1) o5 l4
  52. TR(2) o4 l2
  53. TR(3) o4 l1
  54.  
  55. [4
  56.  
  57. TR(1)
  58. [2
  59. Buffer=""
  60. If(Random(2)==1){
  61. [2
  62. [4 Buffer=Buffer+Upper(Random(4)) ]//上方でフレーズっぽくさせる
  63. ]
  64. }
  65. Else{
  66. [2
  67. [4 Buffer=Buffer+Lower(Random(4)) ]//下方でフレーズっぽくさせる
  68. ]
  69. }
  70. Print("TR(1) l4 "+Buffer)//表示確認
  71. Buffer//演奏させて確認
  72. ]
  73.  
  74. TR(2)
  75. [2
  76. Buffer=""
  77. [4 Buffer=Buffer+Upper(Random(4)) ]
  78. Print("TR(2) l2 "+Buffer)
  79. Buffer
  80. ]
  81.  
  82. TR(3)
  83. [2
  84. Buffer=""
  85. [2 Buffer=Buffer+Bs(Random(4)) ]
  86. Print("TR(3) l1 "+Buffer)
  87. Buffer
  88. ]
  89.  
  90. Print("")//空行
  91. ]
  92.  
  93. //------------------------------------------------------------------------------
  94.  
  95.  
作者からのコメント
環境音とか音ネタ替わり
作曲者
一応自作
ライセンス
🚫転載禁止商用利用 ×改変 ×作者に無断で使えません
転載
許可しない
推奨音源
GM互換
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2026-07-17 06:22
更新日時
2026-07-17 06:22
お気に入り
(^o^)/
ダウンロード数
34
タグ
タグはありません。
→この曲(id:3013)に問題がある場合こちらへ

感謝のコメント

感謝のコメント募集中です!!
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）