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

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

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

CHORDで作曲4 for PICOSAKURA

森と泉ピコ対応
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. System.Include(stdmsg.h);
  2. System.MeasureShift(1);
  3. ResetGM();
  4. TrackSync;
  5.  
  6. Array CD=("C","D7","G7","C","Am","C+dim","Dm7","G7","C","Gaug","C","Am","Dm","E7","A7","D7","C+7","C","Am","Am","Em","Caug","F","Fm","G7","C","A7","D7","Dm7","G7","C","Gdim","G7","C","F7","C","Fm","G7","C","C+dim","Dm7","G7","C","A+7","A7","Cm","D7","Dm7","G7","C","F","C","Gaug","C","D7","Dm7","G7","C","B","C","C+dim","G7","C","B7","A+7","A7","Cm","D7","C+7","C","A7","Cm","D7","C+7","C","E7","E7","A7","Dm","C","Em","Dm","Em","Am","G+7","C","Gm","A7","D7","G7","C","B","C","D+m","Dm","C","E7","A7","D7","G7","C","D+m","Dm","C+7","C","C+dim","Dm7","G7","C","C","F7","C","Dm","G7","C","G+7","C","A7","Dm","C","C+dim","G7","C","Cdim","C","Gdim","G7","C")
  7.  
  8. //■■■コード進行やRandomSeedを変えてみよう■■■
  9. RandomSeed=123455 　　　　　 //ピコサクラ用
  10. //System.RandomSeed(123455) //サクラ用
  11.  
  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 ZZB 　//ノート（n表記）
  18. Int R5;
  19. Int RR;Int R1;Int R2;Int R3;Int R4 //乱数
  20. Int NN 　　//ZZBのsize
  21. Int ZZ0
  22. Int Z9=67 //旧ノート（n表記）
  23. Int VV //velocity
  24. Int V9=100 //旧velocity
  25. Str AAA;
  26. Int BBB;
  27. Int J2; //L値
  28. Int J3; //タイ率%
  29. Int JT=0; //次小節へのタイ率%
  30. Str MM=""; //MML
  31. Str M1=""; //TR(1)MML
  32. Str M2=""; //TR(2)MML
  33.  
  34. Int TMP=120; //■■■Tempoを変えてみよう■■■
  35.  
  36. Int Sec=(60*CD1*4)/TMP;
  37. Print("演奏　約"+Sec+"秒");
  38.  
  39. 　　　　　　　　　　　　　　　　　　　　　 //■■■@(楽器)を変えてみよう■■■
  40. MM="TrackName={'CHORDで作曲4 for PICOSAKURA'}
  41. Copyright={'Moritoizumi'}
  42. TimeSignature=4,4
  43. Tempo="+TMP+"
  44. ";
  45. M1="TR=1 CH=1 @(OrchestralHarp) V(100) l8 v100 q98 TrackKey=0 P.onNoteWave(32,96,!4) r1
  46. ";
  47. M2="TR=2 CH=2 @(OrchestralHarp) V(80) l16 o5 v80 TrackKey=0 v.N(70,70,80,70,80,70,90,70) r1
  48. ";
  49.  
  50. For(Int I=0; I<CD1; I++){
  51. //■■乱数に対するL値とタイ率%を変えてみよう■■■
  52. //J2・・・1は全音符、2は2分音符、3は3連全音符、4は4分音符、
  53. // 6は3連2分音符、8は8分音符、12は3連4分音符、16は16分音符
  54. //J3・・・0～100%
  55. RR=R
作者からのコメント
先のCHORDで作曲3 for PICOSAKURAを改良。8分音符に3連4分音符を加え、どこでも3連符（タイを含むことあり）が出るようにしました。また、次小節へのタイ率%を指定できるようにしました。ピコサクラでもサクラでも下側タブにMMLが出力され、演奏します。
2025/5/27、今回、コード進行とTempoと楽器とRandomSeed変更の他、
RR=Random(3);
IF(RR=0){J2=8;J3=25;}
IF(RR=1){J2=8;J3=35;}
IF(RR=2){J2=12;J3=45;}だったのを、
RR=Random(6);
IF(RR=0){J2=6;J3=12;}
IF(RR=1){J2=8;J3=16;}
IF(RR=2){J2=8;J3=16;}
IF(RR=3){J2=12;J3=24;}
IF(RR=4){J2=16;J3=32;}
IF(RR=5){J2=16;J3=32;} に変えました。
ちょっと変更するだけでガラッと感じが変わります。
2025/6/12、下側タブにおよその演奏時間が出るようにしました。
作曲者
自作
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
soundfont
ピコサクラ対応
対応
ピコサクラバージョン
0.1.42
動画
なし
投稿日時
2025-05-20 22:05
更新日時
2025-06-16 07:47
お気に入り
モスケ
ダウンロード数
121
タグ
→この曲(id:2810)に問題がある場合こちらへ

感謝のコメント

森と泉2025/06/10
この例のコード進行だと128コードあり、下側タブに表示しきれないようです。
まず、前半の64コード進行で作曲し、下側タブのMMLをコピーしメモ帳などに貼り付けます。
次に、同じ設定で、後半の64コード進行で作曲し、下側タブのMMLをコピーしメモ帳などに
貼り付けます。２つのMMLをうまく合体すれば128コードのMMLが完成です。
モスケ2025/06/15
不思議な世界観で面白いです。イヤホンで聴くと左右でパン振りしてあって、より面白かったです。良い曲をありがとうございました♪
森と泉2025/06/16
モスケさん、有り難うございました。楽しんでいただけて良かったです。
森と泉2025/06/17
パンポットの振りは先行指定のP.onNoteWaveを使うと簡単です。
この曲では、P.onNoteWave(32,96,!4)と指定していますが、
パンポットP(32)～P(96)を４分音符の時間で繰り返し振ります。
参考に。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）