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

お正月 - サクラ曲掲示板6

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

お正月

森と泉ピコ対応
MMLダウンロード全文を見る
  1. SoundType={soundfont}
  2. Int A=75 //o4cdega o5cdegaの音がランダムに60小節鳴ります（日本音階）。
  3. Int B=71　　　　　　　　　 　//音長はl6～l32です。
  4. Int C=72 //下側タブにMMLを表示します（ピコサクラ・サクラともに）
  5. Int D=73 //A,B,C,Dの数字を変えると乱数が変わります。
  6.  
  7. Int Z
  8. Int X
  9. Int LL
  10. Int L //音長
  11. Str U //ノート
  12. Str U9
  13. Str M1L=""
  14.  
  15. Str M2L="TrackName={'お正月'}
  16. Copyright={'Moritoizumi'}
  17. Tempo=100
  18. TR=1 CH=1 @(Koto) V(100) o4 q100 P.onNoteWave(32,96,!4)
  19. TR=2 CH=2 @(Shakuhachi) V(100) o4 l1 q100"
  20. Print(M2L)
  21.  
  22. For(Int I=0; I<60; I++){
  23.  
  24. X=(A*B+C)%(D+1) //D+1で0の除算を防ぐ
  25. X=X/2
  26. X=X+55
  27.  
  28. Z=X%11 //除算の余りによって音長を決める
  29. IF(Z=0){L=6}
  30. IF(Z=1){L=8}
  31. IF(Z=2){L=8}
  32. IF(Z=3){L=8}
  33. IF(Z=4){L=8}
  34. IF(Z=5){L=8}
  35. IF(Z=6){L=8}
  36. IF(Z=7){L=12}
  37. IF(Z=8){L=16}
  38. IF(Z=9){L=24}
  39. IF(Z=10){L=32}
  40.  
  41. For(LL=0; LL<L; LL++){
  42. IF(LL=0){
  43. A=B;B=C;C=D;D=X;
  44. X=(A*B+C)%(D+1)
  45. X=X/2
  46. X=X+55
  47.  
  48. Z=X%10 //除算の余りによって音程を決める
  49. IF(Z=0){U="c"}
  50. IF(Z=1){U="d"}
  51. IF(Z=2){U="e"}
  52. IF(Z=3){U="g"}
  53. IF(Z=4){U="a"}
  54. IF(Z=5){U="`c"}
  55. IF(Z=6){U="`d"}
  56. IF(Z=7){U="`e"}
  57. IF(Z=8){U="`g"}
  58. IF(Z=9){U="`a"}
  59. M1L="TR=1 l"+L+U ;U9=U;
  60. }
  61. ELSE{
  62. A=B;B=C;C=D;D=X;
  63. X=(A*B+C)%(D+1)
  64. X=X/2
  65. X=X+55
  66.  
  67. Z=X%15 //除算の余りによって音程やタイを決める
  68. IF(Z=0){U="c"}
  69. IF(Z=1){U="d"}
  70. IF(Z=2){U="e"}
  71. IF(Z=3){U="g"}
  72. IF(Z=4){U="a"}
  73. IF(Z=5){U="`c"}
  74. IF(Z=6){U="`d"}
  75. IF(Z=7){U="`e"}
  76. IF(Z=8){U="`g"}
  77. IF(Z=9){U="`a"}
  78. IF(Z>9){U="^"}
  79. M1L=M1L+U
  80. }
  81. }
  82. M2L=M2L+M1L+"TR=2"+U9;Print(M1L,"TR=2",U9);M1L="" //1小節ずつ表示
  83. }
  84. Play(M2L) //演奏
作者からのコメント
先の「和風鈴」を改良し、ピコサクラでも（ABCDの数字を1つ以上変えれば）ランダムな演奏ができるようにしました。
縁起の良い琴と尺八の音色を聴いてお正月をお楽しみください。
２０２５年1月5日、SoundType={soundfont}を追加しました。
作曲者
自作
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
soundfont
ピコサクラ対応
対応
ピコサクラバージョン
0.1.37
動画
なし
投稿日時
2025-01-03 15:10
更新日時
2025-01-05 13:31
お気に入り
しゅん
ダウンロード数
134
タグ
→この曲(id:2702)に問題がある場合こちらへ

感謝のコメント

しゅん2025/01/03
まさにお正月にぴったりの作品ですね。動の琴と静の尺八に癒されました♪
そしてピコサクラだけでもランダムな演奏ができるのは、すごくありがたかったです(^-^;
森と泉2025/01/05
しゅんさん、有り難うございます！Random関数がまだ実装ないので４つの数字を組み合わせる疑似乱数で時々繰り返してしまいます。琴のサラリン（カラリン）を追加したい気もします。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）