サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 メール連絡すれば可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル クラシック ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 良いお年を! http://members2.jcom.home.ne.jp/nagamochi/kh/m/20051108.mp3 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ Include(gs.h); //------------------------------------------------------------------------------ TrackName={"2005-11-08 continuo"}; //タイトル Copyright={"米食む"}; //著作権表示 TimeSignature=4,4; //拍子記号の設定 Tempo(120); //テンポの設定 System.MeasureShift = 1; //(弄らないこと) ResetGM; r2 ResetGS; r2 //音源初期化命令 TrackSync; //全てのトラックを同期する //------------------------------------------------------------------------------ /* ダウンロードいただき、ありがとうございます。 今回のタイトル、continuo はすでにお気づきの方もいらっしゃると思いますが、 イタリア語(?)で通奏低音を意味する basso continuo からとりました。 通奏低音とは、低音の旋律が与えられるとはいえ、現在のコード進行と似たものです。 この曲では歴史的な調律法の再現も試みています。 Include(temperament.h) によって呼び出されるファイルは http://members2.jcom.home.ne.jp/nagamochi/kh/2005/h/temperament.h より入手することができます。興味のある方はぜひサクラの Include フォルダに入れ、 以下の設定を変更して聞いてみてください。 では、楽しんでいただけることを願っております(^^ ) */ //_設定 //Include(temperament.h) //このコメントをはずします。下の「音符たち」へ //TP_pTPM = 1 //TP_pTemperament = 1 //Solo(2,3,4,5) //Key(0) //_音符たち //以下、「関数たち」の直前まですべてコメントアウトします。 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 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) }; #Cl = {TR(1)} + #Ordinary + { SetTemperament{Silbermann} }; #Cli = #Cl + {V(120) P(74) REV(0) CHO(0)} + { 音色(Clarinet) }; #Kb = { } + #Ordinary + { SetTemperament{Silbermann} }; #Kbi = #Kb + {V(120) P(54) REV(0) CHO(0)} + { 音色(Harpsichord) }; #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(100,70,!8, 70,80,!4)} + { SetTemperament{Silbermann} }; #Vci = #Vc + {V(120) P(34) REV(0) CHO(0)} + { 音色(Cello) }; #Vl = {TR(7)} + #Ordinary + { SetTemperament{Silbermann} }; #Vli = #Vl + {V(120) P(94) REV(0) CHO(0)} + { 音色(Violin) }; //_曲、始まるよ TimeSignature(6,8) Tempo(66) KeyFlag-(be) #tail = {EP.T(100,100,!4, 100,40,!4)} #cre1 = {EP.T(60,100,!4.)} #cre2 = {EP.T(80,120,!4.)} //_1 #Cli |#cre1 rBI AI FI #tail| "BI{4.} r4. EP(100)| r FI EI DI | DI{4.,,+10} #tail CI{4.,90,-25} | #Kb1i | BI r4 t5 FI{4.} | FI{4.} r4. t0| EI r4 t7 FI{4.} t3 | FI{4.} EI r4 | #Kb2i | FI r4 t3 "BI CI{4} | DI{4}DI CIt0| "BI r4 t5 DI{4.} | r4. r4. | #Kb3i | DI r4 t1 r4"AI | r4. r4. t0| "GI r4 t3 "AI{4}"BI | r4. t0 CI l16 EI DI CI"BI | #Kb4i | "BI CI DI DI EI DI | | "EI EI "BI DI{4}"BI | | #Vci |#w "BI CI DI DI EI DI | | "EI EI "BI DI{4}"BI | | TS() //_2 #Vli | r2. |#cre1 r AI `CI `EI{4.} |#cre2 BI l16 `DI BI `FI BI l8 `AF{4.} | #tail >EI{4.,90} EP(100) DI GI{8.,40}DI{16}< | #Cl |#cre1 CI EI GI BI{4}"BI |#tail FI{4.} #Kb1 |t7 GI{4}`CI BI BI{4} | AI{4.} r4 AI | BI{4} `DI `DI{4.} | t0 `CI GI EI r `DI{,40} r | #Kb2 |t5 EI{4} GI GI GI FI | FI{4.} r4 BI | FI{4} BI AF{4.} | t0 r4. r BI{,40} r | #Kb3 |t3 CI{4} r "BI DI{4} | CI{4.} r4 CI | DI{4} FI FI{4.} | t0 r4. r4 GI | #Kb4 | CI{4} EI EI DI DI | FI{4.} r4 EI | DI{4} "BI DI{4.} | CI{4.} "BI{4.} | #Vc | CI{4} EI EI DI DI | FI{4.} r4 EI | DI{4} "BI DI{4.} | CI{4.} "BI{4.} | TS() //_3 #Vl | >CI FI{8.,40}CI{16}< BI`EI BI |#tail AF{4.,90} EP(100) GI`CI AF | Stretch{GI{32} FI}(8) EI DI FI EI{,,-30} AN |#tail BI{16}AI{16} FI EI r4. | #Kb1 | r`CI{,40} r r4. | >DI{16}CI{8.+8}t5 CI{4} CI | CI{4} t3 DI CI{4} CI |t5 "BI{4} t0 CI DI | FI EI DI EI CI"AF | CI{4} "FI CI{4} "FI | "BI DI"GI "BI DI CI | #Vc | DI | FI EI DI EI CI"AF | CI{4} "FI CI{4} "FI | "BI DI"GI "BI DI CI | TS() //_4 TR(0)| r2. | r2. | r2. | r2. |TAdd(-25) #Cl |#cre1 r DI FI BI AI FI{,40} | r4 DI #tail FI{4.,90} EP(100) | DI{16}FI{16}FI FI CI{16}EI{16} EI DI |#tail "BI{4.,90} EP(100) CI{16}EI{16} DI CI |#tail DI{4.} r4. | #Kb1 | BI r4 t5 FI{4} FI{,40} | r4.t7 FI l16t0 FI EI DI CI l8 |t7 FI{4.} EI{4} DI | DI{4.} EI DI EI | FI{4.} r4. | #Kb2 | FI r4 t3 "BI CI CI{,40} | r4.t5 DI{4} r | DI{4.} CI{4} "BI | "BI{4.} CI "BI CI | DI{4.} r4. | #Kb3 | DI r4 t1 r4 AI{,40} | r4.t3 r4. | #Kb4 | "BI{4}DI DI EI DI{,40} | r4. DI{4.} | DI CI CI | "BI{4.} r4. | #Vc | "BI{4}DI DI EI DI{,40} | r4. DI{4.} | DI CI CI | "BI{4.} r4. | TS() この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)