サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ロック ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 自作「2881:お隣のサックス」を改造して、ロック系の実験曲風にしてみました。 今回もボディだけですね・・・。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"お隣のエレキ"} 作者{"メロン"} // 自作「2881:お隣のサックス」を改造して、ロック系の実験曲風にしてみました。 // 今回もボディだけですね・・・。 Int L= 5 ;// お好きにどうぞ。。 //------------------------------------------------------------------------------ 音源初期化Tempo=164Include(chord2.h); Include(unison.h); Function RS2(Array R){Result=R(Random(SizeOf(R)));} Function RS(Array AR){Str A=AR(Random(SizeOf(AR)));A;}Str Q=RS2({c},{e},{g}) Function Z(Str A,D){Str R; If(A=={""b}){ R =RS2({"b},{c})} If(A=={"c}){ R =RS2({"b},{d})} If(A=={"d}){ R =RS2({"c},{"e})} If(A=={"e}){ R =RS2({"d},{"f})} If(A=={"f}){ R =RS2({"e},{"g})} If(A=={"g}){ R =RS2({"f},{"a})} If(A=={"a}){ R =RS2({"g},{"b})} If(A=={"b}){ R =RS2({"a},{c})} If(A=={c}){ R =RS2({"b},{d})} If(A=={d}){ R =RS2({c},{e})} If(A=={e}){ R =RS2({d},{f})} If(A=={f}){ R =RS2({e},{g})} If(A=={g}){ R =RS2({f},{a})} If(A=={a}){ R =RS2({g},{b})} If(A=={b}){ R =RS2({a},{`c})} If(A=={`c}){ R =RS2({b},{`d})} If(A=={`d}){ R =RS2({`c},{`e})} If(A=={`e}){ R =RS2({`d},{`f})} If(A=={`f}){ R =RS2({`e},{`g})} If(A=={`g}){ R =RS2({`f},{`a})} If(A=={`a}){ R =RS2({`g},{`b})} If(A=={`b}){ R =RS2({`a},{``c})} If(A=={``c}){ R =RS2({b},{c})} Result = R;} [(L) TR=1V=111o5@66@5@82@31;l16 q99 [8 [16 RS(,,,,,,{v0}) OctaveUnison(Q) Q=Z(Q) v(Random(80,122))] ] TR=2P=96@31 l1 o6@19 q100v77 Am F G Am Dm F7 B7 E7 TR=4P=32@31 l1 o4 q100 q40Am(4)Am(4)Am(8)q100Am(4.) F q40G(4)G(4)G(8)q100G(4.) Am q40Dm(4)Dm(4)Dm(8)q100Dm(4.) F7 B7 q30[6E7(8)][4E7(16)]q100 TR=3@35o2l8 [8RS({a},{a},{`a},{`c},{e},{r})][8f] [8RS({g},{g},{`g},{b},{d},{r})][8a] [8RS({d},{d},{`d},{f},{a},{r})] [8f][8b] >>ef+g+abg+f+e<< TR=13@37o2l8 [8RS({a},{a},{`a},{`c},{e},{r})][8f] [8RS({g},{g},{`g},{b},{d},{r})][8a] [8RS({d},{d},{`d},{f},{a},{r})] [8f][8b] >ef+g+abg+f+e< TR=10 [8 [RS({n36},{n36},{[n36,8]},{[4n36,16]}) RS({n38},{n38},{[n38,8]},{[4n38,16]})] r-1[8n42,8]r-1 RS({r1},{r1},{r1},{n49,1},{n49,4.n49,2+8})] ] Function _FA(B){Include(fadeio.h);Time(Time-TimeBase*4*B)FadeoutAll(B);}_FA(8); この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)