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

告別行進曲風 - サクラ曲掲示板6

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

告別行進曲風

ななこっち★動画
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. 曲名{"瀬戸口藤吉 告別行進曲風"}
  2. //https://www.youtube.com/watch?v=D2av0JNJrNk
  3. Int LOOP=1
  4.  
  5. Expression.Frequency(1);
  6. Modulation.Frequency(1);
  7.  
  8. // シンバルのロテート
  9. Int CYMINIT=0
  10. Int SNAREINIT=0
  11. Int HHINIT=0
  12.  
  13. Function Snare() {
  14. Int CC
  15. IF(TIMIDITY=0) {
  16. CC=Snare1
  17. } ELSE {
  18. IF(SNAREINIT=0) {
  19. CC=Snare1
  20. SNAREINIT=1
  21. } ELSE {
  22. CC=Snare2
  23. SNAREINIT=0
  24. }
  25. }
  26. Result=CC
  27. }
  28. Int HHVALUE=0
  29. Function Hihat() {
  30. Int CC
  31. Int HHMIN=87
  32. Int HHMAX=90
  33. IF(MA7=0 && TIMIDITY=1) {
  34. IF(HHINIT=0) {
  35. CC=50
  36. HHINIT=1
  37. } ELSE {
  38. CC=Random(HHMIN,H HMAX)
  39. IF(CC=HHVALUE) {
  40. CC=Random(HHMIN,HHMAX)
  41. IF(CC=HHVALUE) {
  42. CC=Random(HHMIN,HHMAX)
  43. }
  44. }
  45. HHVALUE=CC
  46. }
  47. } ELSE {
  48. CC=ClosedHiHat
  49. }
  50. Result=CC
  51. }
  52.  
  53. Function Cymbal() {
  54. Int CC
  55. IF(MA7=0) {
  56. IF(CYMINIT=0) {
  57. CC=CrashCymbal1
  58. CYMINIT=1
  59. } ELSE {
  60. CC=CrashCymbal2
  61. CYMINIT=0
  62. }
  63. } ELSE {
  64. CC=CrashCymbal1
  65. }
  66. Result=CC
  67. }
  68.  
  69. Function Splash() {
  70. Int CC
  71. IF(MA7=0) {
  72. IF(CYMINIT=0) {
  73. CC=SplashCymbal
  74. CYMINIT=1
  75. } ELSE {
  76. CC=ChineseCymbal
  77. CYMINIT=0
  78. }
  79. } ELSE {
  80. CC=SplashCymbal
  81. }
  82. Result=CC
  83. }
  84.  
  85.  
  86. Function RandV(Int MIN, Int MAX) {
  87. Str MML="v"
  88. MML=MML+Random(MIN,MAX)
  89. MML
  90. }
  91.  
  92. Str RMML
  93. Function RandR(Int MIN, Int MAX) {
  94. Str MML
  95. MML=MML+"r"
  96. RMML=RMML+"r"
  97. Int VALUE=Random(0,10)
  98. IF(VALUE<5) {
  99. MML=MML+"-"
  100. } ELSE {
  101. RMML=RMML+"-"
  102. }
  103. Str RAND=Random(MIN,MAX)
  104. MML=MML+RAND
  105. RMML=RMML+RAND
  106. MML
  107. }
  108.  
  109. Function SyncR() {
  110. Str MML=RMML
  111. RMML=""
  112. MML
  113. }
  114.  
  115. Function BG(Str MML) {
  116. 　　Str BUF=""
  117. Str FIRST=""
  118. 　　Str ML=""
  119. 　　Str M
  120. 　　Str R
  121. Str FM
  122. Int C=0
  123.  
  124. 　　BUF=""
  125. R=""
  126. 　　For(Int i=1; MID(MML, i, 1)!=""; i++) {
  127. 　　　　M=MID(MML, i, 1)
  128. 　　　　IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
  129. C++
  130. IF(C<3) {
  131. FIRST=ML
  132. ML=FM+M
  133. FM=""
  134. } ELSE {
  135. 　　　　　　R=R+"r"+Random(64,640)
  136. 　　　　　　　　 BUF=BUF+"Sub" + CHR(123)+R+ML+CHR(125)
  137. 　　　　　　ML=M
  138. }
  139. 　　　　} ELSE {
  140. IF(C>0) {
  141. 　　　　　　
作者からのコメント
昔作ったのを改造して販売してみます
原曲：https://www.youtube.com/watch?v=D2av0JNJrNk
作曲者
スコットランド民謡、作曲者不明、編曲　瀬戸口藤吉
ライセンス
🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載
許可
推奨音源
TiMidiTy++
ピコサクラ対応
未対応
ピコサクラバージョン
0.0.0
動画
[🔗外部] https://coconala.com/contents_market/pic...
投稿日時
2015-04-01 15:04
更新日時
2025-09-09 15:58
お気に入り
ななこっち★
ダウンロード数
359
タグ
→この曲(id:1632)に問題がある場合こちらへ

感謝のコメント

ななこっち★2017/03/16
http://tomcat.2ch.sc/test/read.cgi/livejupiter/1427877811

今更書くようですが、こういうことだったなの。

http://aprilfool2015.neet.co.jp/

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