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

「CHORDで作曲2 for PICOSAKURA」とバッハのプレリュードを合わせてみた - サクラ曲掲示板6

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

「CHORDで作曲2 for PICOSAKURA」とバッハのプレリュードを合わせてみた

てれふたるピコ対応
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //森と泉さんの「CHORDで作曲2 for PICOSAKURA」にハマりました。
  2. //　https://sakuramml.com/mmlbbs6/post.php?mml_id=2712
  3. //　　　　　　　　　　　　これは「こんな使い方してみたよ」と報告させていただくものです。
  4.  
  5. //　ピアノパートは　J.S.Bach:"Prelude in C Major"(バッハ:プレリュード　ハ長調)　の「前半部分」です。
  6. //　グノーのアヴェ・マリアのようなメロディがいくつも出来て楽しいです。
  7. //　RandomSeed=2594や601や1003とか1(!)は個人的に気に入ったものですが、いろいろ変えてみてください。
  8. //　なお「G4」「D4」というコードは、「次の小節で一旦メロを終止に持って行きたい」という時に
  9. // セブンスの代わりに4度=次のコードのルート(Gならド)を入れてみたものです、
  10. //　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　2025.01.18　てれふたる
  11.  
  12. //コード進行
  13. Array CD=("C","Dm","G7","C","Am","D7","G","Cmaj7","Am","D4","G","Gdim","Dm","Fdim","C","Fmaj7","Dm","G4");
  14.  
  15. RandomSeed=2594
  16.  
  17. Print("CD=",CD)
  18.  
  19. //音符パターン（拍ごとのタイの確率）
  20. Array TT0=(0,33,33,33,33,33,33,33) //ほぼ8部音符
  21. Array TT1=(0,66,33,66,33,66,33,66) //ほぼ4部音符
  22. Array TT2=(0,66,66,66,33,66,66,66) //ほぼ2部音符
  23. Array TT3=(0,66,66,66,66,66,66,66) //ほぼ全音符
  24.  
  25. Int CD1=SizeOf(CD)
  26. Array TT 　　//音符パターン
  27. Array ZZB 　//ノート（n表記）
  28. Int RR 　　 //乱数
  29. Int R1 　　 //乱数
  30. Int NN 　　//ZZBのsize
  31. Int ZZ0
  32. Int Z9=67 //旧ノート（n表記）
  33. Int VV //velocity
  34. Int V9=100 //旧velocity
  35. Str MM="" //MMはMML、M1は小節毎のMML
  36. Str M1="TrackName={'CHORDで作曲2 PICOSAKURA'}
  37. Copyright={'Moritoizumi'}"
  38. Print(M1);MM=MM+M1;M1=""
  39. M1="Tempo=74 TR=1 CH=1 @(NewAgePad) V(100) v100 l8 q98 TrackKey=6 P.onNoteWave(32,96,!4)"
  40. M2="TR=4 CH=4 @(GrandPiano) V(80) q96 l16 ceg>ce<g>ce <ceg>ce<g>ce <cda>df<a>df <cda>df<a>df <<b>dg>df<g>df <<b>dg>df<g>df <ceg>ce<g>ce <ceg>ce<g>ce"
  41. M3=" <cea>ea<a>ea <cea>ea<a>ea <cdf+a>d<f+a>d <cdf+a>d<f+a>d <<b>dg>dg<g>dg <<b>dg>dg<g>dg <<b>ceg>c<eg>c <<b>ceg>c<eg>c"
  42. M4=" <<a>ceg>c<eg>c <<a>ceg>c<eg>c <<da>df+>c<df+>c <<da>df+>c<df+>c <<gb>dgbdgb <gb>dgbdgb <ga+>eg>c+<eg>c+ <<ga+>eg>c+<eg>c+"
  43. M5=" <<fa>da>d<da>d <<fa>da>d<da>d <<fg+>dfbdfb <fg+>dfbdfb <eg>cg>c<cg>c <<eg>cg>c<cg>c <<efa>cf<a>cf <efa>cf<a>cf <dfa>cf<a>cf <dfa>cf<a>cf <<g>dgb>f<gb>f <<g>dgb>f<gb>f"
  45. Print(M1);MM=MM+M1;M1=""
  46.  
  47. For(Int I=0; I<SizeOf(CD); I++){
  48.  
  49. IF(CD(I)="A+7"){ZZB=(58,70,82,50,62,74,53,65,77,56,68,80)}//コード内のノー
作者からのコメント
森と泉さんの「CHORDで作曲2 for PICOSAKURA」にハマったので、「こんな使い方してみたよ」と報告します。
作曲者
ピアノパート：J.S.バッハ、メロディ作成ツール：森と泉さん
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
soundfont
ピコサクラ対応
対応
ピコサクラバージョン
0.1.38
動画
なし
投稿日時
2025-01-18 20:58
更新日時
2025-01-18 20:58
お気に入り
森と泉
ダウンロード数
146
タグ
タグはありません。
→この曲(id:2714)に問題がある場合こちらへ

感謝のコメント

森と泉2025/01/18
てれふたるさん、ピアノが入ってきれいですね！RandomSeed2594もいいですが1もなかなかですね。良い曲をありがとうございました♪
てれふたる2025/01/19
森と泉さん、あらためてありがとうございました。私は仕掛けが良くわかっていませんが、ランダムな設定でありながら、前の音程から比較的近い音程が次に選ばれるようですね。メロディーとしてリアルな感じがいいです。
てれふたる2025/01/22
ダウンロードされた皆様：テキスト音楽サクラで再生するときは、38行目の「TrackKey=6」を「TrackKey=0」に修正したうえ、最初のRandomSeedの行を削除してください。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）