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

交差と変異 - サクラ曲掲示板6

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

交差と変異

HiroChan（ひろちゃん）
MMLダウンロード全文を見る
  1. /*
  2.  
  3. 交差と変異
  4.  
  5.  
  6.  
  7. 試行錯誤の続き。
  8.  
  9. */
  10. //------------------------------------------------------------------------------
  11.  
  12. //元になる音
  13. Array SrcA=("c","c","c","c","c","c","c","r")
  14. Array SrcB=("c","c","c","c","c","c","c","r")
  15.  
  16. //出力先
  17. Array DstA
  18. Array DstB
  19.  
  20. Str Buffer
  21.  
  22. //交差ポイント
  23. Int CrossPoint
  24.  
  25. //カウンタ、インデックス
  26. Int I
  27. Int J
  28.  
  29. //------------------------------------------------------------------------------
  30.  
  31. //リピート指定
  32. [4
  33.  
  34. //何回かまとめて実行させたい場合（1回ずつだと変化するまでが長すぎる）
  35. [128
  36.  
  37. //交差
  38. CrossPoint=Random(8)//交差ポイントを振る
  39. //ポイント手前まで読む
  40. For(I=0;I<CrossPoint;I++){
  41. DstA(I)=SrcA(I)
  42. DstB(I)=SrcB(I)
  43. }
  44. //ポイントから後を読む
  45. For(I=CrossPoint;I<8;I++){
  46. DstA(I)=SrcB(I)
  47. DstB(I)=SrcA(I)
  48. }
  49.  
  50. //変異
  51. If(Random(8)==0){//ゼロの時だけ
  52. Switch(DstA(CrossPoint)){//交差ポイントで変異する
  53. Case("c"){DstA(CrossPoint)="b"}
  54. Case("d"){DstA(CrossPoint)="e"}
  55. Case("e"){DstA(CrossPoint)="a"}
  56. Case("f"){DstA(CrossPoint)="d"}
  57. Case("g"){DstA(CrossPoint)="g"}
  58. Case("a"){DstA(CrossPoint)="c"}
  59. Case("b"){DstA(CrossPoint)="f"}
  60. Default{DstA(CrossPoint)="r"}
  61. }
  62. }
  63.  
  64. //次回リピート用にSrcを更新
  65. SrcA=DstA
  66. SrcB=DstB
  67.  
  68. ]
  69. //演奏確認
  70. TR(1) o5 l1
  71. For(J=0;J<8;J++){
  72. Buffer=Buffer+(DstA(J))
  73. }
  74. Print(Buffer)
  75. Buffer
  76. Buffer=""
  77.  
  78. /*
  79.  
  80. //前に音列いじってた時の名残
  81. TR(2) o4 l1
  82. For(J=0;J<8;J++){
  83. Buffer=Buffer+(SrcA(J))
  84. }
  85. Print(Buffer)
  86. Buffer
  87. Buffer=""
  88.  
  89. TR(3) o4 l1
  90. For(J=0;J<8;J++){
  91. Buffer=Buffer+(SrcB(J))
  92. }
  93. Print(Buffer)
  94. Buffer
  95. Buffer=""
  96.  
  97. */
  98.  
  99. TR(4) o3 l1
  100. For(J=0;J<8;J++){
  101. Buffer=Buffer+(DstB(J))
  102. }
  103. Print(Buffer)
  104. Buffer
  105. Buffer=""
  106.  
  107. Print("")
  108.  
  109. ]
  110.  
  111. //------------------------------------------------------------------------------
  112.  
作者からのコメント
試行錯誤の続き。
作曲者
一応自作
ライセンス
🚫転載禁止商用利用 ×改変 ×作者に無断で使えません
転載
許可しない
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-01-26 03:35
更新日時
2025-01-26 03:35
お気に入り
(^o^)/
ダウンロード数
119
タグ
タグはありません。
→この曲(id:2718)に問題がある場合こちらへ

感謝のコメント

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