サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 メール連絡すれば可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル クラシック ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント いつぞやの米粒より満腹感があるはず!というわけで「一膳」です(^^;) http://members2.jcom.home.ne.jp/nagamochi/kh/2006/m/03/20060212.mp3 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ Include(gs.h); //------------------------------------------------------------------------------ TrackName={"2006-02-12"}; //タイトル Copyright={"米食む"}; //著作権表示 TimeSignature=4,4; //拍子記号の設定 Tempo(120); //テンポの設定 System.MeasureShift = 1; //(弄らないこと) ResetGM; r2 ResetGS; r2 //音源初期化命令 TrackSync; //全てのトラックを同期する //------------------------------------------------------------------------------ /* ダウンロードしていただき、ありがとうございます。 楽しんでいただけることを祈っております(^^ ) さて、いつもならダラダラと書くところですが、 この曲の解説は書きにくいのです・・・。 そこで次回への抱負を一言。 『ドラム使うぞ!』 ※今回もtemperament.hを利用できます。 http://members2.jcom.home.ne.jp/nagamochi/kh/2005/h/temperament.h */ //_設定 Int Rec = 0; // 0:MSGS 1:録音 //Include(temperament.h) // required for TPM //TP_pTPM = 1 //TP_pTemperament = 1 //Solo(2,3,4,5) //Mute(7) //Key(0) //_音符たち not required for TPM Function SetTemperament(){} Function AI(Str LQVT){ Str S={a}+LQVT; S } Function BI(Str LQVT){ Str S={b}+LQVT; S } Function CI(Str LQVT){ Str S={c}+LQVT; S } Function DI(Str LQVT){ Str S={d}+LQVT; S } Function EI(Str LQVT){ Str S={e}+LQVT; S } Function FI(Str LQVT){ Str S={f}+LQVT; S } Function GI(Str LQVT){ Str S={g}+LQVT; S } Function AF(Str LQVT){ Str S={a*-}+LQVT; S } Function BF(Str LQVT){ Str S={b*-}+LQVT; S } Function AN(Str LQVT){ Str S={a*}+LQVT; S } //_関数たち //_TS() どこでもTrackSync Function TS(){ Track(0); Int Pos = Time; Int TargetTr = 0; FOR(Int A=1; A<=16; A=A+1){ Track(A); If(Pos < Time){ Pos = Time; TargetTr = A; } } Track(TargetTr) TrackSync; } //_TAdd(Int Num = 0) テンポを相対的に変える Function TAdd(Int Num = 0){ Tempo = Tempo + Num; } //_トラック設定用文字列マクロ #Ordinary = { o5 l8 q98 v100 t0 } + { EP(100) M(0) } + { SetTemperament{Silbermann} }; #Rc = {TR(1)} + #Ordinary + {o6}; #Rci = #Rc + {V(105) P(54) REV(0) CHO(0)} + { 音色(Recorder) } + {[(1-Rec) V(120)]}; #Kb = { } + #Ordinary; #Kbi = #Kb + {V(110) P(74) REV(0) CHO(0)} + { 音色(Harpsichord) } + {[(1-Rec) V(100)]}; #Kb1 = {TR(2)} + #Kb ; #Kb1i = {TR(2)} + #Kbi; #Kb2 = {TR(3)} + #Kb ; #Kb2i = {TR(3)} + #Kbi; #Kb3 = {TR(4)} + #Kb ; #Kb3i = {TR(4)} + #Kbi; #Kb4 = {TR(5)} + #Kb + { o4 }; #Kb4i = {TR(5)} + #Kbi + { o4 }; #Vc = {TR(6)} + #Ordinary + {o4} + {EP.W(110,75,!8, 75,90,!4)}; #Vci = #Vc + {V(90) P(104) REV(0) CHO(0)} + { 音色(Cello) } + {[(Rec) V(100) @44,1 ]}; #Vl = {TR(7)} + #Ordinary + {o6}; #Vli = #Vl + {V(127) P(24) REV(0) CHO(0)} + { 音色(Strings1) }; //_曲、始まるよ TimeSignature(4,4) Tempo(98) KeyFlag-() #tail = {EP.T(100,100,!4, 100,40,!4)} #tail2 = {EP.T(100,100,!8, 100,40,!8)} #cre1 = {EP.T(60,100,!4.)} #cre2 = {EP.T(80,120,!4.)} //_A1 Str A1 = { #Rci | r CI{16}DI{16}EI FI{,80} [4 GI{,60}] | GI{4,99}FI{,,-20} EI{,80,-10} EI{4,99}DI{4,80,-20} | GI{2}l4 FI EI{,80} | EI DI | #Kb1i |>EI{2,,,3} [4 GI{16}EI{16}] | "BI CI DI EI GI{8.}FI{16} | #Kb2i |>CI{2,,,2} CI{4} CI{4} | FI{4.,,,3}r8 [4 AI{16}FI{16}] |t4 GI{2} EI{4} r< BF t2 | AI GI FI EI DI{4} DI{4} | #Kb2 |>DI{4.,,,2}r8 DI{4} DI{4} | EI DI CIDI{16}EI{16} | [4 FI{,,,2}] DI{.}CI{16}CI{8 |+8} CI{4} CI{} r AI FI r | < BI{2,,,4} #Kb2 | AI{2,,,2} r2 |r r4 CI{,,,1} r2 | GI{2,,,2} #Kb3 | r1 |r1 | #Kb4 | FI{2} r4 "AI CI{8 |+8} CI{4} CI r AI FI r | EI{2} #Vc | FI{2} r4 "AI CI{8 |+8,80}CI{4,80}CI r AI{,99}FI{,80,70} r | EI{2} #Vl | #tail r1 EP(100) |r2 r AI{,99}FI{,80,70} r | r2 TS()}B2 //_B3 Str B3 = { #Rc r EP(100) BF GI Stretch{EI{2.} | DI{4}EI{.}DI{8} [3 EI DI]}2+8 CI r4 FI | #Kb1 r2 |r t2 BF{4} BF r `GI `EI r | #Kb2 r2 |r t1 r4 "BF #Kb3 r2 | #Kb4 r4 r GI EI r | #Vc r4 r GI{,99}EI{,80,70} r | #Vl r2 |r2 r GI{,99}EI{,80,70} r | TS()}B3 //_B2 B2; //_B4 Str B4 = { #Rc r EP(100) BF GI Stretch{EI{2.} | DI{4}EI{.}DI{8} [3 EI DI]}2+8 CI FI AI GI{,80} | #Kb1 r4 t2 GI BF{8 |+8} BF{4} BF t2 `CI{4}`CI BI | #Kb2 r2 |r t1 "BF{4} r t1 AI{4} r4 | #Kb3 r2 |r2 r FI r4 | #Kb4 r4 "AI{4} EI{4} | #Vc r4 "AI{4} EI{4} | TS()}B4 //_B5 #Rc | Stretch{GI FI{4.}}8 EI DI "BI CI{4,60} r4 | #Kb1 | t2 BI `CI`DI `DI`CI DI EI FI | #Kb2 | t1 r AI BI BI r2 | #Kb4 | "BI CI DI DI CI DI EI FI | #Vc | "BI CI DI{,80} DI CI DI EI FI | TS() //_B1,B2,B3,B2,B4 B1;B2;B3;B2;B4; //_B6 #Rc | Stretch{GI FI{4.}}8 EI DI "BI CI{4} r4 | #Kb1 | t2 BI `CI`DI t3 `DI`CI r4 | #Kb2 | t1 r AI BI t2 BI GI r4 | #Kb3 | r r r4 t1 EI r4 | #Kb4 | "BI CI DI DI CI{4} r4 | #Vc | "BI CI DI{,80} DI CI{4} r4 | TS() //_A1,A2,A3 A1;A2;A3 この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)