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

snow in holy night - サクラ曲掲示板6

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

snow in holy night

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // snow in holy night
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. TrackName = {"snow in holy night"}
  7. Copyright = {"Yax"}
  8.  
  9. ResetGM();
  10. r4
  11. TrackSync;
  12.  
  13.  
  14. // アルペジオ関数
  15. Function ARP(Int D, Int L, Str S) {
  16. Int LNG = L
  17. Int STP = 0
  18. Int TEMP = 0
  19. Str X = ""
  20. Str RS = ""
  21. Str NS = ""
  22. Int J = 0
  23. Array NAR = ()
  24.  
  25. For(Int I = 1; I <= 100; I++ ){
  26. X = MID(S,I,1)
  27. J = ASC(X)
  28.  
  29. IF (X == "") {
  30. EXIT
  31. }
  32.  
  33. IF ( J >= 97 ) {
  34. IF ( J <= 103 ) {
  35. IF ( NS != "" ) {
  36. NS = Replace(NS,{@-},{-@},off)
  37. NS = Replace(NS,{@+},{+@},off)
  38. NS = Replace(NS,{@#},{#@},off)
  39. NS = Replace(NS,{@*},{*@},off)
  40. NAR = (NAR,NS)
  41. NS = ""
  42. }
  43. X = X + "@"
  44. }
  45. }
  46. NS = NS + X
  47. }
  48. IF ( NS != "" ) {
  49. NS = Replace(NS,{@-},{-@},off)
  50. NS = Replace(NS,{@+},{+@},off)
  51. NS = Replace(NS,{@#},{#@},off)
  52. NS = Replace(NS,{@+},{*@},off)
  53. NAR = (NAR,NS)
  54. NS = ""
  55. }
  56.  
  57. For(Int I=0;I<SizeOf(NAR);I++){
  58. TEMP = L - STP
  59. RS = "r%" + #STR(STP)
  60. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  61. Sub{ RS NS }
  62. STP = STP+D
  63. }
  64. r%(L)
  65. }
  66.  
  67.  
  68. // フェードアウト
  69. FUNCTION FADEOUT() {
  70. EP.onTime(127,0,!1^1^1^1^1^1^1^2.)
  71. }
  72.  
  73. FUNCTION FADEOUT2() {
  74. EP.onTime(127,0,!1^1^1^1^1^1^1^1^1^1.)
  75. }
  76.  
  77.  
  78. //------------------------------------------------
  79. // 全体の調整
  80. //------------------------------------------------
  81. TR(1) V(100) REV(50) CHO(45)
  82. TR(2) V(100) REV(35) CHO(60)
  83. TR(3) V(102) REV(70) CHO(30)
  84. TR(4) V(102) REV(70) CHO(30)
  85. TR(5) V(102) REV(70) CHO(40)
  86. TR(6) V(105) REV(35) CHO(60)
  87. TR(7) V(100) REV(30) CHO(50)
  88. TR(8) V(100) REV(25) CHO(80)
  89. TR(9) V(100) REV(50) CHO(60)
  90. TR(10) V(120) REV(50) CHO(0)
  91.  
  92.  
  93. //------------------------------------------------
  94. // テンポ
  95. //------------------------------------------------
  96. INT T = 112
  97. Tempo=(T)
  98.  
  99.  
  100. //-------------------------------------------
作者からのコメント
寒くなってきました。聖夜も近くなってきて故郷では雪も降ってます。
静かに雪が降るイメージで作りはじめたのが違う感じに仕上がってましたｗ
DLして再生するのを推奨します。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-12-10 11:11
更新日時
2025-12-10 11:11
お気に入り
(^o^)/
ダウンロード数
95
タグ
タグはありません。
→この曲(id:2938)に問題がある場合こちらへ

感謝のコメント

感謝のコメント募集中です!!
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）