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

KOTEKAN No.1 - サクラ曲掲示板6

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

KOTEKAN No.1

mugen動画
MMLダウンロード全文を見る
  1. // Kotekan
  2.  
  3. System.RandomSeed=(2018-1)
  4. Array SC=("c","e","f","g","b")
  5. Str S_H="10100100100100100100100100100100"
  6. Str S_L="01001001001001001010010010010010"
  7. Str P_H="00010010010010010001001001001001"
  8. Str P_L="10100100100100100100100100100100"
  9. Int i Int Gm_1 Int Gm_2
  10.  
  11. [8
  12. 　#M1="l16 o6" #M2="l16 o5" #M3="l16 o5" #M4="l16 o4"
  13. 　i=1
  14. 　[32
  15. 　　IF (MID(S_H,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M1=#M1+#W
  16. 　　IF (MID(S_L,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M2=#M2+#W
  17. 　　IF (MID(P_H,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M3=#M3+#W
  18. 　　IF (MID(P_L,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M4=#M4+#W
  19. 　　i++
  20. 　]
  21. 　Gm_1=RandomSelect(10,12,13,14) Gm_2=RandomSelect(10,12,13,14)
  22. 　Tempo=RandomSelect(30,45,60,75,90)
  23. 　TR=1 @(Gm_1) P(64-48) v.Random(40) q(200) [4 #M1] "r4"
  24. 　TR=2 @(Gm_1) P(64+16) v.Random(40) q(200) [4 #M2] "r4"
  25. 　TR=3 @(Gm_2) P(64-16) v.Random(40) q(200) [4 #M3] "r4"
  26. 　TR=4 @(Gm_2) P(64+48) v.Random(40) q(200) [4 #M4] "r4
  27. ]
  28.  
作者からのコメント
コテカン（ガムランのリズムパターン）にランダムに音を割り当ててアジアンな音楽を生成してみました。
作曲者
自作
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
GM
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.3
動画
▶ YouTubeで見る
投稿日時
2018-07-16 08:42
更新日時
2018-07-16 08:42
お気に入り
GOMAしゅんH゛
ダウンロード数
310
タグ
→この曲(id:2001)に問題がある場合こちらへ

感謝のコメント

GOMA2018/07/16
なんだか、ちょうどよく涼しい！ｗ
ソースがなに書いてあるかわからなくて、テクニックすごいです。
しゅん2018/07/17
夏にぴったりの、涼しげな曲ですね。
小曲が何曲も入ったお得なパッケージみたいだと思いました。
ランダムなのですが、聴いていると作曲家が何日も悩んで書き上げたような
完成度の高さを感じました ♪
mugen2018/07/18
皆様、コメントありがとうございます。
プログラムを書いて音楽を生成するというのを趣味でやっています。
色々の言語で試していますが「サクラ」より素晴らしい言語は他に存在しません。
かなり前ですが「サクラ」の可能性を色々と実験したアルバムがあります。
https://yamazawa.bandcamp.com/album/--3
よろしければお聴きください。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）