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

real transparency - サクラ曲掲示板6

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

real transparency

yax
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. //-----------------------------------------------
  2. // real transparency
  3. // (C)Yax
  4. //-----------------------------------------------
  5.  
  6. TrackName = {"real transparency"}
  7. Copyright = {"Yax"}
  8.  
  9. // 音源リセット・トラック同期
  10. ResetGM();
  11. r4
  12. TrackSync;
  13.  
  14.  
  15. // アルペジオ関数
  16. Function ARP(Int D, Int L, Str S) {
  17. Int LNG = L
  18. Int STP = 0
  19. Int TEMP = 0
  20. Str X = ""
  21. Str RS = ""
  22. Str NS = ""
  23. Int J = 0
  24. Array NAR = ()
  25.  
  26. For(Int I = 1; I <= 100; I++ ){
  27. X = MID(S,I,1)
  28. J = ASC(X)
  29.  
  30. IF (X == "") {
  31. EXIT
  32. }
  33.  
  34. IF ( J >= 97 ) {
  35. IF ( J <= 103 ) {
  36. IF ( NS != "" ) {
  37. NS = Replace(NS,{@-},{-@},off)
  38. NS = Replace(NS,{@+},{+@},off)
  39. NS = Replace(NS,{@#},{#@},off)
  40. NS = Replace(NS,{@*},{*@},off)
  41. NAR = (NAR,NS)
  42. NS = ""
  43. }
  44. X = X + "@"
  45. }
  46. }
  47. NS = NS + X
  48. }
  49. IF ( NS != "" ) {
  50. NS = Replace(NS,{@-},{-@},off)
  51. NS = Replace(NS,{@+},{+@},off)
  52. NS = Replace(NS,{@#},{#@},off)
  53. NS = Replace(NS,{@+},{*@},off)
  54. NAR = (NAR,NS)
  55. NS = ""
  56. }
  57.  
  58. For(Int I=0;I<SizeOf(NAR);I++){
  59. TEMP = L - STP
  60. RS = "r%" + #STR(STP)
  61. NS = Replace(NAR(I), {@}, {%}+#STR(TEMP),off)
  62. Sub{ RS NS }
  63. STP = STP+D
  64. }
  65. r%(L)
  66. }
  67.  
  68. // ××ダンド関数
  69. Function DANDO(B, E, LEN, STP) {
  70. Int _STEP = 24
  71. Int _DIFF = 0
  72. Int _CNT = 0
  73. Int _TMP = 0
  74. Int _LAP = 0
  75.  
  76. IF( STP != 0 ) {
  77. _STEP = STP
  78. }
  79.  
  80. _CNT = LEN/_STEP
  81. _DIFF = (E - B)/_CNT
  82.  
  83. _TMP = B
  84. Tempo = %(B)
  85.  
  86. For(Int I = 1; I < _CNT; I++ ){
  87. r%(_STEP)
  88. _TMP = _TMP + _DIFF
  89. Tempo = %(_TMP)
  90. _LAP = _LAP + _STEP
  91. }
  92.  
  93. r%(LEN-_LAP)
  94. Tempo = %(E)
  95. r-%(LEN)
  96. }
  97.  
  98.  
  99. //------------------------------------------------
  100. // 全体の調整
  101. //------------------------------------------------
  102. TR(1) V(100) REV(30) CHO(40)
  103. TR(2) V(106) REV(50) CHO(20)
  104. TR(3) V(110) REV(70) CHO(25)
  105. TR(4) V(105) REV(35) CHO(60)
  106. TR(5) V(105) REV(40) CHO(20)
  107. TR(6) V(100) REV(80) CHO(60)
  108. TR(7) V(105) REV
作者からのコメント
アップテンポな感じで、イントロなんかで使っている@100(Atmosphere)の硬い響きがいい雰囲気です。
最後はだんだん手数が増えていってますｗ
TW-MUSIC2に依存するのはドラムだけなのでPC音源でも普通に鳴りますが、音数が多い箇所では一部の音が出ないかもしれません。(TW-MUSIC2でも同時発音数を増やしておくのが吉です)
DLして再生するのを推奨します。
作曲者
自作
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
TW-MUSIC2
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
なし
投稿日時
2025-11-26 08:57
更新日時
2025-11-26 08:57
お気に入り
森と泉かもめてれふたる
ダウンロード数
83
タグ
タグはありません。
→この曲(id:2935)に問題がある場合こちらへ

感謝のコメント

森と泉2025/11/30
ドライブ中に聴きたい、ノリの良い、透明感のある曲でした。良い曲をありがとうございました♪
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）