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

feel anything - サクラ曲掲示板6

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

feel anything

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // feel anything
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. TrackName = {"feel anything"}
  7. Copyright = {"yax"}
  8.  
  9. ResetGM();
  10. r4
  11. TrackSync;
  12.  
  13.  
  14. //------------------------------------------------
  15. // アルペジオ関数
  16. // D - 1音あたりのずらし幅
  17. // L - 全体の長さ
  18. // S - 鳴らす音、{}内に音階を記述(>と<は利用可能)
  19. //------------------------------------------------
  20. Function ARP(Int D, Int L, Str S) {
  21. Int LNG = L
  22. Int STP = 0
  23. Int TEMP = 0
  24. Str X = ""
  25. Str RS = ""
  26. Str NS = ""
  27. Int J = 0
  28. Array NAR = ()
  29.  
  30. For(Int I = 1; I <= 100; I++ ){
  31. X = MID(S,I,1)
  32. J = ASC(X)
  33.  
  34. IF (X == "") {
  35. EXIT
  36. }
  37.  
  38. IF ( J >= 97 ) {
  39. IF ( J <= 103 ) {
  40. IF ( NS != "" ) {
  41. NS = Replace(NS,{@-},{-@},off)
  42. NS = Replace(NS,{@+},{+@},off)
  43. NS = Replace(NS,{@#},{#@},off)
  44. NS = Replace(NS,{@*},{*@},off)
  45. NAR = (NAR,NS)
  46. NS = ""
  47. }
  48. X = X + "@"
  49. }
  50. }
  51. NS = NS + X
  52. }
  53. IF ( NS != "" ) {
  54. NS = Replace(NS,{@-},{-@},off)
  55. NS = Replace(NS,{@+},{+@},off)
  56. NS = Replace(NS,{@#},{#@},off)
  57. NS = Replace(NS,{@+},{*@},off)
  58. NAR = (NAR,NS)
  59. NS = ""
  60. }
  61.  
  62. For(Int I=0;I<SizeOf(NAR);I++){
  63. TEMP = L - STP
  64. RS = "r%" + #STR(STP)
  65. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  66. Sub{ RS NS }
  67. STP = STP+D
  68. }
  69. r%(L)
  70. }
  71.  
  72.  
  73. //------------------------------------------------
  74. // 全体の調整
  75. //------------------------------------------------
  76. TR(1) V(110) REV(30) CHO(40)
  77. TR(2) V(105) REV(60) CHO(10)
  78. TR(3) V(105) REV(90) CHO(0)
  79. TR(4) V(100) REV(50) CHO(30)
  80. TR(5) V(113) REV(30) CHO(0)
  81. TR(6) V(90) REV(50) CHO(50)
  82. TR(7) V(110) REV(20) CHO(0)
  83. TR(8) V(110) REV(20) CHO(0)
  84. TR(9) V(110) REV(20) CHO(0)
  85. TR(10) V(119) REV(30) CHO(0)
  86.  
  87.  
  88. //------------------------------------------------
  89. // テンポ
  90. //------------------------------------------------
  91. INT T = 122
  92. Tempo=(T)
  93.  
  94.  
  95. //----------------------------------
作者からのコメント
これまた昔のゲーム音楽っぽい雰囲気で、何かを感じ取れるかと言えば微妙といった出来栄えになっています。
最後のフェードアウトのところを消して全体をループすることができる構成です。
バランスなどの関係もあるので、DLして再生するのを推奨します。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2026-02-11 11:32
更新日時
2026-02-11 11:32
お気に入り
クジラ飛行机ひとりそのら折れ
ダウンロード数
66
タグ
タグはありません。
→この曲(id:2965)に問題がある場合こちらへ

感謝のコメント

クジラ飛行机2026/02/14
爽やかで聞きやすくて、とても良い感じですね！ありがとうございます！
折れ2026/06/08
なんかいいわこれ。良さを説明しろといわれても、日本語が不自由な折れには無理かもしれぬ。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）