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

CHORDで作曲3 for PICOSAKURA - サクラ曲掲示板6

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

CHORDで作曲3 for PICOSAKURA

森と泉ピコ対応
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. System.Include(stdmsg.h);
  2. System.MeasureShift(1);
  3. ResetGM();
  4. TrackSync;
  5.  
  6. Array CD=("C","F","C","Em","F","Dm","Am","A7","Dm","G7","C","E7","G7","E7","G7","C","C","F","C","Em","F","Dm","Am","A7","Dm","G7","C","E7","G7","E7","G7","C","C","F","C","Em","F","Dm","Am","A7","Dm","G7","C","E7","G7","E7","G7","C")
  7.  
  8. RandomSeed=123456 　　　　　//ピコサクラ用
  9. //System.RandomSeed(123456) //サクラ用
  10.  
  11. Int ZZZ=5 //3連符の確率%(0～10)
  12.  
  13.  
  14. Print("CD=",CD)
  15. Array NNN=("c","c+","d","d+","e","f","f+","g","g+","a","a+","b");
  16. Int CD1=SizeOf(CD)
  17. Array TT 　　//音符パターン
  18. Array ZZB 　//ノート（n表記）
  19. Int RR 　　 //乱数
  20. Int R1 　　 //乱数
  21. Int R2
  22. Int R3
  23. Int R4
  24. Int NN 　　//ZZBのsize
  25. Int ZZ0
  26. Int Z9=67 //旧ノート（n表記）
  27. Int Z8=67 　 //旧旧ノート（n表記）
  28. Int Z7=67 　//旧旧旧ノート（n表記）
  29. Int PP //0,2,4,6拍目はPP=0、他はPP=1
  30. Int TH=1 //直前が3連符=1,それ以外=0
  31. Int VV //velocity
  32. Int V9=100 //旧velocity
  33. Str MM="" //MMはMML、M1は小節毎のMML
  34.  
  35. Str M1="TrackName={'CHORDで作曲3 PICOSAKURA'}
  36. Copyright={'Moritoizumi'}
  37. TimeSignature=4,4;
  38. Tempo=74;
  39. TR=1 CH=1 @(NewAgePad)　V(100) l8 o5 v100 TrackKey=6 q98 P.onNoteWave(32,96,!4) r1
  40. TR=2 CH=2 @(GrandPiano) V(80) l16 o5 v80 TrackKey=6 v.N(70,70,80,70,80,70,90,70) r1"
  41. Print(M1);MM=MM+M1;M1="";
  42.  
  43. //音符パターン（拍ごとのタイの確率）
  44. Array TT0=(0,33,33,33,33,33,33,33) //ほぼ8分音符//------
  45. Array TT1=(0,66,33,66,33,66,33,66) //ほぼ4分音符//------
  46. Array TT2=(0,66,66,66,33,66,66,66) //ほぼ2分音符//------
  47. Array TT3=(0,66,66,66,66,66,66,66) //ほぼ全音符 //------
  48.  
  49. For(Int I=0; I<SizeOf(CD); I++){
  50.  
  51. RR=Random(6)//音符パターンを0～5の乱数で決める
  52. IF(RR=0){TT=TT0}
  53. IF(RR=1){TT=TT0}//------
  54. IF(RR=2){TT=TT0}//------
  55. IF(RR=3){TT=TT1}
  56. IF(RR=4){TT=TT2}
  57. IF(RR=5){TT=TT3}
  58.  
  59. IF(CD(I)="A+7"){ZZB=(58,70,82,50,62,74,53,65,77,56,68,80)}//コード内のノートはn表記の
  60. IF(CD(I)="A7"){ZZB=(57,69,81,49,61,73,52,64,76,55,67,79)} //48～83とし、9音または12音に
  61. IF(CD(I)="Am"){ZZB=(57,69,81,48,60,72,52,64,76)} //してください。
  62. IF(CD(I)="B"){ZZB=(59,71,83,51,63,75,54,66,78)} //ここにないコードは作って下さい。
  63. IF(CD(I)="B7"){ZZB=(59,71
作者からのコメント
先のCHORDで作曲2 for PICOSAKURAを改良。
メロディに３連符が、伴奏にピアノがつきました。
RandomSeedを変えると違った曲ができます。ピコサクラでもサクラでも下側タブに作曲したMMLを出力します。
ノートをn表記からabc表記に変更しました(下の方のここからここまでを消せばn表記に戻せます）。
３連符の確率を指定できるようにしました。
作曲者
自作
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
soundfont
ピコサクラ対応
対応
ピコサクラバージョン
0.1.42
動画
なし
投稿日時
2025-01-27 21:47
更新日時
2025-05-19 14:49
お気に入り
しゅんクジラ飛行机gohkorin
ダウンロード数
158
タグ
→この曲(id:2720)に問題がある場合こちらへ

感謝のコメント

森と泉2025/01/30
今のところ、次のようにスクリプトを単純にしています。どうもすみません。
3連符は0,2,4,6拍目にしか登場しません。
3連符の構成は旧ノート、旧旧ノート、旧旧旧ノートとしています。
ピアノアルペジオは一律、コード構成音の
0番目、3番目、6番目、1番目、6番目、1番目、4番目、1番目を順に鳴らしています。
森と泉2025/02/06
しゅんさん、有り難うございます。たまに３連符が入るとホッとするのではないかと思います。
森と泉2025/02/18
Replace関数が実装されたので（ご苦労様です！）、n表記からabc表記に変換がいっぱつでできました。
クジラ飛行机2025/02/19
アルゴリズム作曲、素晴らしいです！スクリプト機能を強化した甲斐があります！！
森と泉2025/02/19
クジラ飛行机様、有り難うございます！
森と泉2025/03/01
gohさん有り難うございました。
森と泉2025/05/18
korinさん有り難うございました。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）