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

輝き by きょういちｗさん - サクラ曲掲示板6

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

輝き by きょういちｗさん

ななこっち★
MML先頭 2000 文字だけ表示していますダウンロード全文を見る
  1. ///////////////////////////////////////////////////////////////////////////////
  2. // title: "marimba.h" ver 0.1
  3. // description: マリンバ記述用インクルードファイル(2015/06/02)
  4. // keywords: SAKURA Function by ななこっち★ @nanakochi123456
  5. // HP: http://nano.daiba.cx/
  6. ///////////////////////////////////////////////////////////////////////////////
  7. // marimba.h マリンバ記述用関数
  8. ///////////////////////////////////////////////////////////////////////////////
  9. // Function MRINIT(len, Q, min, value)
  10. // マリンバの繰り返す速度、乱数値の最小値、最大値を設定する。両方0にすると、同一タイミングで演奏します。
  11. //
  12. // Function MRCresc(VOL, Offset) {
  13. // 初期音量とノートごとのオフセットを設定する。
  14. //
  15. // Function MCD(mml)
  16. // ２音等の和音をランダムなタイミングで演奏する
  17. //
  18. // Function MR(mml1, mml2, len)
  19. // mml1 -> mml2 -> mml1-> ... のように、len長さ分だけ演奏する
  20. ///////////////////////////////////////////////////////////////////////////////
  21. // Example
  22. // Include(marimba.h)
  23. // MRINIT(53,513)
  24. // l4 MR(ceg)
  25. // l8 MR(<b>fg)
  26. // l8 MR(ceg)
  27. ///////////////////////////////////////////////////////////////////////////////
  28. // テストする場合、コメントアウトを消して下さい。
  29. Int TEST=1
  30. ///////////////////////////////////////////////////////////////////////////////
  31.  
  32. Int MR_LEN=!16
  33. Int MR_Q=85
  34. Int MR_MIN=192
  35. Int MR_MAX=768
  36. Int MR_INITVOL=100
  37. Int MR_VOL=100
  38. Int MR_CRESC=0
  39.  
  40. // マリンバ初期化
  41. Function MRINIT(Int LEN, Int Q, Int MIN, Int MAX) {
  42. MR_LEN=LEN
  43. MR_Q=Q
  44. MR_MIN=MIN
  45. MR_MAX=MAX
  46. }
  47.  
  48. // マリンバの両手別のクレッシェンド
  49. Function MRCresc(Int VOL, Int Offset) {
  50. MR_INITVOL=VOL
  51. MR_CRESC=Offset
  52. }
  53.  
  54. // マリンバの両手同時、rchord.h RCDと同じ関数
  55. Function MCD(Str MML) {
  56. Str BUF=""
  57. Str FIRST=""
  58. Str ML=""
  59. Str M
  60. Str R
  61. Str FM
  62. Int C=0
  63.  
  64. BUF=""
  65. R=""
  66.  
  67. For(Int i=1; MID(MML, i, 1)!=""; i++) {
  68. M=MID(MML, i, 1)
  69. IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
  70. C++
  71. IF(C<2) {
  72. FIRST=ML
  73. ML=FM+M
  74. FM=""
  75. } ELSE {
  76. BUF=BUF+"Sub" + CHR(123)+R+ML+CHR(125)
  77. IF(MR_MAX>0) {
  78. R=R+"r"+Random(MR_MIN, MR_MAX)
  79. }
  80. ML=M
  81. }
  82. } ELSE {
  83. IF(C>0) {
  84. ML=ML+M
  85. } ELSE {
  86. FM=
作者からのコメント
http://oto.chu.jp/mmlbbs6/post.php?mml_id=1666 のブラッシュアップです。メロディーも変えてます。
marinba.h のテストも含みます。実は、Int TEST=1 をコメントアウトすれば、marinba.h として機能します。
作曲者
きょういちｗ　アレンジ　なの
ライセンス
CCクリエイティブ・コモンズ BY↗商用利用 ○改変 ○作者を表示すれば自由に使える
転載
許可
推奨音源
パソコン内蔵音源
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.1
動画
なし
投稿日時
2015-06-02 20:24
更新日時
2015-06-02 20:30
お気に入り
海岸線
ダウンロード数
329
タグ
タグはありません。
→この曲(id:1679)に問題がある場合こちらへ

感謝のコメント

海岸線2015/06/03
おはようございます。
マリンバをメインにした、ななこっちさんの「輝き」、
聴かせて頂きました。感激！！
生のマリンバ演奏を想像すると、どきどきします！
あと、MMLはとても難しそう。
ななこっち★2015/06/03
関数ばりばりなので、相当難しく見えるのかもしれないなの。

↓は（マリンバ特有の奏法抜いた）ただのMMLなのね。
ななこっち★2015/06/03
TR(1)
v110
音色(Marimba)
l8
[
'e>e<' 'g>g<' 'f>f<' 'e>e<'
'd>d<' 'f>f<' 'e>e<' 'd>d<'
'c4e4>c4<' 'd4f4>d4<'
'e4.g4.>e4.<' r8

'e>e<' 'g>g<' 'f>f<' 'e>e<'
'd>d<' 'f>f<' 'e>e<' 'd>d<'
'c4e4>e4<' 'f4a4>a4<'
'e4.g4.>g4.<' r8
]

r 'g>g<' > 'c>c<' < 'b>b<'
'f4.a4.>f4.a4.<' r8

r 'f>f<' 'b>b<' 'a>a<'
'e4.g4.>e4.g4.<' r8

r 'e>e<' 'a>a<' 'g>g<'
'd4.f4.>d4.f4.<' r8

r 'd>d<' 'g>g<' 'f>f<'
'c4.e4.>c4.e4.<' r8

[
r 'g>g<' > 'c>c<' < 'b>b<'
'f4.a4.>f4.a4.<' r8
]

r 'g>g<' > 'c>c<' < 'b>b<'
'f4a4>f4a4<' 'g>g<' 'f>f<'
'e4>e4<' 'd4>d4<'
[3
'c2e2>c2<'
]

// チェロピチカート
TR(8)
音色(PizzicatoStrings)
l8
o4v70
[
rg '>ce<' g
rg 'b>f<' g
rg 'b>f<' g
rg '>ce<' g

rg '>ce<' g
rg 'b>f<' g
rg '>cf<' a
rg '>ce<' g
]

rg '>ce<' g
ra '>cf<' a
rb '>df<' b
rg 'b>e<' g
ra '>ce<' a
ra '>df<' a
rg 'b>f<' g
rg '>ce<' g

[3
rg '>ce<' g
ra '>cf<' a
]
rg 'b>f<' g
音色(Cello)
v60
q90
Expression.onNoteWave(127,30,!1)
[2 l2 'g>ce<' ]
l1 'g>ce<'

// コントラバス
TR(9)
音色(Strings1)
q30v95
o3
l4
[
crgr
c4g4c2
crgr
c4f4cr
]

cr
fr<
br>
er<
ar>
dr<
gr>
cr

cr
fr
cr
fr
cr
fr
g<g>
q90
Expression.onNoteWave(127,60,!2.)
c2c2c1
ななこっち★2015/06/03
↑　を　ストトンに単純変換したのが、↓　ね
ななこっち★2015/06/03
トラック 1
音量１１０
音色(Marimba)
音符8
【
「ミ↑ミ↓」　「ソ↑ソ↓」　「ファ↑ファ↓」　「ミ↑ミ↓」
「レ↑レ↓」　「ファ↑ファ↓」　「ミ↑ミ↓」　「レ↑レ↓」
「ド4ミ4↑ド4↓」　「レ4ファ4↑レ4↓」
「ミ4.ソ4.↑ミ4.↓」ッ8

「ミ↑ミ↓」　「ソ↑ソ↓」　「ファ↑ファ↓」　「ミ↑ミ↓」
「レ↑レ↓」　「ファ↑ファ↓」　「ミ↑ミ↓」　「レ↑レ↓」
「ド4ミ4↑ミ4↓」　「ファ4ラ4↑ラ4↓」
「ミ4.ソ4.↑ソ4.↓」ッ8
】

ッ 「ソ↑ソ↓」↑ 「ド↑ド↓」↓ 「シ↑シ↓」
「ファ4.ラ4.↑ファ4.ラ4.↓」ッ8

ッ 「ファ↑ファ↓」　「シ↑シ↓」　「ラ↑ラ↓」
「ミ4.ソ4.↑ミ4.ソ4.↓」ッ8

ッ 「ミ↑ミ↓」　「ラ↑ラ↓」　「ソ↑ソ↓」
「レ4.ファ4.↑レ4.ファ4.↓」ッ8

ッ 「レ↑レ↓」　「ソ↑ソ↓」　「ファ↑ファ↓」
「ド4.ミ4.↑ド4.ミ4.↓」ッ8

【
ッ 「ソ↑ソ↓」↑ 「ド↑ド↓」↓ 「シ↑シ↓」
「ファ4.ラ4.↑ファ4.ラ4.↓」ッ8
】

ッ 「ソ↑ソ↓」↑ 「ド↑ド↓」↓ 「シ↑シ↓」
「ファ4ラ4↑ファ4ラ4↓」　「ソ↑ソ↓」　「ファ↑ファ↓」
「ミ4↑ミ4↓」　「レ4↑レ4↓」
【3
「ド2ミ2↑ド2↓」
】

// チェロピチカート
トラック 8
音色(PizzicatoStrings)
音符8
音階4音量70
【
ッソ 「↑ドミ↓」ソ
ッソ 「シ↑ファ↓」ソ
ッソ 「シ↑ファ↓」ソ
ッソ 「↑ドミ↓」ソ

ッソ 「↑ドミ↓」ソ
ッソ 「シ↑ファ↓」ソ
ッソ 「↑ドファ↓」ラ
ッソ 「↑ドミ↓」ソ
】

ッソ 「↑ドミ↓」ソ
ッラ 「↑ドファ↓」ラ
ッシ 「↑レファ↓」シ
ッソ 「シ↑ミ↓」ソ
ッラ 「↑ドミ↓」ラ
ッラ 「↑レファ↓」ラ
ッソ 「シ↑ファ↓」ソ
ッソ 「↑ドミ↓」ソ

【3
ッソ 「↑ドミ↓」ソ
ッラ 「↑ドファ↓」ラ
】
ッソ 「シ↑ファ↓」ソ
音色(Cello)
音量60
ゲート90
Expression.onNoteWave(127,30,!1)
【2 音符2 「ソ↑ドミ↓」】
音符1 「ソ↑ドミ↓」

// コントラバス
トラック 9
音色(Strings1)
ゲート30音量95
音階3
音符4
【
ドッソッ
ド4ソ4ド2
ドッソッ
ド4ファ4ドッ
】

ドッ
ファッ↓
シッ↑
ミッ↓
ラッ↑
レッ↓
ソッ↑
ドッ

ドッ
ファッ
ドッ
ファッ
ドッ
ファッ
ソ↓ソ↑
ゲート９０
Expression.onNoteWave(127,60,!2.)
ド2ド2ド1
海岸線2015/06/04
こんばんは。データ作成としては、ストトン表記よりMMLのほうが断然、スマートでかっこ良いですね。ただ個人的には、「ツェー、デー、エー、」と音が鳴ってしまいます(笑)。
ななこっち★2015/06/06
さすがのうちでも、「ドレミ」から覚えて、後から、「ツェー、デー、エー、.... H」なんです。（なぜかHと書いてるのですが・・・）

でも、さすがに、
ツェデエエフデエツェ(cdefdec)・・・って書くと、コンピュータが誤認しそうです。
♪
この曲に「ありがとう」を伝えませんか？
ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。
ログインしてコメントする はじめての方はこちら（無料登録）