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

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

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

お正月２

森と泉ピコ対応
MMLダウンロード全文を見る
  1. TrackName={"お正月2"}
  2. Copyright={"Moritoizumi"}
  3. MetaText={"ピコサクラでRandomSelect"}
  4. Str SS="`c"
  5. Str S1="`c"
  6. Str S2="`c"
  7. Str S3="`c"
  8. Str M1="Tempo=100 TR=1 CH=1 @(Koto) V(100) v100 o4 q100
  9. TR=2 CH=2 V(100) v100 o4 @(Shakuhachi) q100 l1"
  10. Str M2=""
  11. Int BB
  12. Int TF
  13.  
  14. RandomSeed=12345 //ピコサクラ用
  15. //System.RandomSeed(12345) //サクラ用
  16.  
  17. Print(M1);M2=M2+M1;M1="";
  18.  
  19. For(Int I=0; I<60; I++){
  20. BB=RandomSelect(6,8,8,8,8,8,8,12,16,24,32)
  21. For(Int J=0; J<BB; J++){
  22.  
  23. TF=(BB=8)*(J=6)*RandomSelect(0,0,1) //8分音符で7拍目で確率1/3の場合1、他は0
  24.  
  25. If(TF=1){M1=M1+" Div{r"+S1+S2+S3+"}4";J++} //カラリン
  26. ELSE{
  27. If(J=0){M1=M1+"TR=1 l"+BB;
  28. SS=RandomSelect("c","d","e","g","a","`c","`d","`e","`g","`a","``c","``d","``e","``g","``a")}
  29. Else{SS=RandomSelect("c","d","e","g","a","`c","`d","`e","`g","`a","``c","``d","``e","``g","``a","^","^","^","^")}
  30. If(SS!="^"){S3=S2;S2=S1;S1=SS};
  31. M1=M1+SS;
  32. }
  33.  
  34. }
  35. M1=M1+" TR=2 "+S1;
  36. Print(M1);M2=M2+M1;M1="";
  37. }
  38.  
  39. Play(M2);
  40.  
  41.  
  42. /*
  43. //カラリンなし　RandomSeedなし
  44.  
  45. TrackName={"お正月2"}
  46. Copyright={"Moritoizumi"}
  47. MetaText={"ピコサクラでRandomSelect"}
  48. Str SS
  49. Str S1
  50. Str M1="Tempo=100 TR=1 CH=1 @(Koto) V(100) v100 o4 q100 TR=2 CH=2 V(100) v100 o4 @(Shakuhachi) q100 l1"
  51. Str M2=""
  52. Int BB
  53.  
  54. Print(M1);M2=M2+M1;M1="";
  55.  
  56. For(Int I=0; I<60; I++){
  57. BB=RandomSelect(6,8,8,8,8,8,8,12,16,24,32)
  58. For(Int J=0; J<BB; J++){
  59. If(J=0){M1=M1+"TR=1 l"+BB;
  60. SS=RandomSelect("c","d","e","g","a","`c","`d","`e","`g","`a","``c","``d","``e","``g","``a")}
  61. Else{SS=RandomSelect("c","d","e","g","a","`c","`d","`e","`g","`a","``c","``d","``e","``g","``a","^","^","^","^")}
  62. If(SS!="^"){S1=SS};
  63. M1=M1+SS;
  64. }
  65. M1=M1+" TR=2 "+S1;
  66. Print(M1);M2=M2+M1;M1="";
  67. }
  68.  
  69. Play(M2);
  70. */
作者からのコメント
先の「お正月」の疑似乱数をRandomSelectに変えてピコサクラで動きました。
２０２５年1月12日、MMLを少し修正しました。
2025年1月31日、カラリンとRandomSeedを追加しました。 まえのカラリンなしRandomSeedなしのMMLは下の方に残してあります。
作曲者
自作
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
soundfont
実行エンジン
対応
ピコサクラバージョン
0.1.38
動画
なし
投稿日時
2025-01-10 19:58
更新日時
2025-01-31 11:06
お気に入り
(^o^)/
ダウンロード数
157
タグ
タグはありません。
→この曲(id:2709)に問題がある場合こちらへ

感謝のコメント

森と泉2025/01/31
まだ1月なのでお正月２を修正しました。カラリンとRandomSeedの追加です。
8分音符で7拍目で確率1/3の場合のみ、Div{rabc}4の形でカラリンを入れました。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）