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

cutcode.h - サクラ曲掲示板6

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

cutcode.h

屍翠龍司
MML先頭 2000 文字だけ表示しています全文を見る
  1. /*
  2. 【cutcode.h】
  3. Unison3.hの修正版です。
  4. 名称は変更している為やり方がフェアではありませんが、Ver.2.0.0としてリリースすることにしました。
  5.  
  6.  
  7. 【修正履歴】
  8. Ver.2.0.0(2020.3 更新)=>ファイル名を変更し、全体的に修正をしました。
  9. Ver.1.2.1(2019.4 更新)=>軽微な修正をしました。
  10. Ver.1.2.0(2016.3 更新)=>軽微な調整をしました。
  11. Ver.1.1.0(2013.8 更新)=>サクラ標準のもの(unison.h)以外の部分を"+から-"に変更しました。
  12. Ver.1.0.0(2013.4 更新)=>Unison2.hのパワーアップ版です。
  13.  
  14.  
  15. 【概要】
  16. 本定義ファイルは"先にメインメロディーを作ってからコードを後付け"する方の為のツールです。
  17. 最初からコードで打ち込まれている方にはお薦めできません。
  18. 尚、コード名は打ち込み時に手間とならない様に略称(なるべく4文字以内)とさせております。
  19. 書き方は綺麗ではありませんので予めご容赦ください。
  20.  
  21.  
  22. 【なんちゃって解説】
  23. ・サクラmmlでは、変数や関数の名前は大文字から始まります。
  24. ・本定義ファイルで使用する関数は以下の通りです。
  25.  
  26. Function 関数名(引数の型 変数名=初期値, 引数の型 変数名=初期値...){
  27. Sub{(mml)}
  28. }
  29.  
  30. ここでは以下の処理が必要となります。
  31. ①音階で返す(c,d,e,f,g,a,b,+,-)・・・Str name(=Value)
  32. ②音階を計算する(1度,2度...)・・・Int name(=Value)
  33. ③同時に音を鳴らす(コード)・・・Sub{(mml)}
  34. ※SubはタイムポインタをSubの前に戻すコマンドです。
  35. 更に、重ねる音を法則に従ってずらしていくので、音階をコントロールする為のKeyコマンドも使います。
  36.  
  37. これらを合わせると、コードを自動で鳴らしてもらうには(書き方はさておき…)、
  38.  
  39. Function P5(Str S, Int Val){
  40. Sub{Key(Val) S; Key(Val-5)}S;
  41. }
  42.  
  43. という形になります。
  44. 使う音の数の分、タイムポインタを戻していかないといけない為、音数が多くなるほどSubの使用数が多くなります。
  45.  
  46.  
  47. 【その他】
  48. 本定義ファイルはご自由にお使いいただいて問題御座いません。
  49. 著作権は放棄していませんので、本ファイルの自作発言や有償配布等はご遠慮下さい。
  50. 無償で配布する場合は、作者にご一報いただけると幸いです。
  51.  
  52. 作者：屍翠龍司(かばねすいりゅう つかさ)
  53. HP：https://kabanesuiryutsukaSa.web.fc2.com/
  54. */
  55.  
  56. //Key初期化用
  57. Function KZ(Str S){
  58. Key(0) S;
  59. }
  60.  
  61. //2音コード
  62. //Perfect 5th(0,7)
  63. Function P5(Str S, Int Val){
  64. Sub{Key(Val) S; Key(Val-7)} S;
  65. }
  66.  
  67. //3音コード
  68. //Maj(0,4,7)
  69. Function Maj(Str S, Int Val){
  70. Sub{
  71. Sub{Key(Val) S; Key(Val-3)} S;
  72. Key(Val-7)} S;
  73. }
  74.  
  75. //min(0,3,7)
  76. Function Min(Str S, Int Val){
  77. Sub{
  78. Sub{Key(Val) S; Key(Val-4)} S;
  79. Key(Val-7)} S;
  80. }
  81.  
  82. //Sus4(0,3,7)
  83. Function Su4(Str S, Int Val){
  84. Sub{
  85. Sub{Key(Val) S; Key(Val-5)} S;
  86. Key(Val-7)} S;
  87. }
  88.  
  89. //Sus2(0,2,7)
  90. Function Su2(Str S, Int Val){
  91. Sub{
  92. Sub{Key(Val) S; Key(Val-5)} S;
  93. Key(Val-7)} S;
  94. }
  95.  
  96. //Dim(0,3,6)
  97. Function Dim(Str S, Int Val){
  98. Sub{
  99. Sub{Key(Val) S; Key(Val-3)} S;
  100. Key(Val-6)} S;
  101. }
  102.  
  103.  
作者からのコメント
お久しぶりです。屍翠龍司です。
おさぼりツール"unison3.h"の改訂版を遂にリリースしました。
内容を見直し、大幅に修正を施しました。inucudeフォルダに入れてお使いください。
作曲者
自作
ライセンス
📧メール連絡で転載を許可MML内のメールアドレスへ連絡してください
転載
許可しない
ピコサクラ対応
未対応
ピコサクラバージョン
0.2.1
動画
なし
投稿日時
2020-03-28 17:49
更新日時
2020-03-28 17:49
お気に入り
レイン望
ダウンロード数
262
タグ
タグはありません。
→この曲(id:2109)に問題がある場合こちらへ

感謝のコメント

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