サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 メール連絡すれば可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ヒーリング・ニューエイジ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 今回はメロがありません。一応リード風のものはありますが、メロって感じではなく、「装飾メロ」みたいな感じで入れてみました。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"天国のアンビエント"} 作者{"メロン"} // 今回はメロがありません。一応リード風のものはありますが、メロって感じではなく、 // 「装飾メロ」みたいな感じで入れてみました。 Int L= 45 ;// //------------------------------------------------------------------------------ 音源初期化 Include(chord2.h);Include(delay.h); Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} Function Fx(Str A,D){ If(A=={"a}){Result = RS2({"a},{"a},{"b},{d}, {e}, {"a})} If(A=={"b}){Result = RS2({"b},{"b},{c}, {e}, {f}, {"b})} If(A=={c}){ Result = RS2({c}, {c}, {"b},{d}, {e}, {"a})} If(A=={d}){ Result = RS2({d}, {d}, {c}, {e}, {f}, {"b})} If(A=={e}){ Result = RS2({e}, {e}, {d}, {f}, {g}, {c})} If(A=={f}){ Result = RS2({f}, {f}, {e}, {g}, {a}, {d})} If(A=={g}){ Result = RS2({g}, {g}, {f}, {a}, {b}, {e})} If(A=={a}){ Result = RS2({a}, {a}, {g}, {b}, {`c},{f})} If(A=={b}){ Result = RS2({b}, {b}, {a}, {`c},{`d},{g})} If(A=={`c}){Result = RS2({`c},{`c},{b}, {`d},{`e},{a})} If(A=={`d}){Result = RS2({`d},{`d},{`c},{`e},{`f},{b})} If(A=={`e}){Result = RS2({`e},{`e},{`c},{`f},{`f},{b})} If(A=={`f}){Result = RS2({`f},{`f},{`c},{b})} //{`e},{`f}, } Str T1={c} Str T2 Str Z1 Str Z Function Px(){Result = {P=} + #STR(Random(0,122))} Str K0={TimeKeyFlag(,,0,0,0,0,0,0,0)} Str Km={TimeKeyFlag(,,0,0,0,0,-1,0,0)} Int KK=RandomSelect(0,-1) Str Cx={[1RS({'cegb'},{'aceg'},{'egbd'},{'gbdf'},{'face'})]} Str Bx={ TR=2 v100 q80 @37 [16 T2=Fx(T1) Z=Z+RS2(T1,{r}) Z=Z+RS2({o2},{o3},{o4}) T1=T2 ] l16 Z Z={}Z1={} } Str Dx={ UseKeyShift(0) TR=10 [n36'n37n86n42n54']r-1 [8 RS({n(RandomSelect(42,42,42,42,42,42,42,46)),8},{[n42,16]}) ] TR=99CH=10 RS({r2.+8 [3n75,16] r2.+16 r-2.+8},{r1} ) UseKeyShift(1) } Str QQ={ TimeKey(Random(-6,6)) RS({ TimeKeyFlag(,,0,KK,0,0,KK,RandomSelect(0,1),RandomSelect(0,-1,1))},K0,K0,K0,Km,K0) TR=1RS({@12},{@5,8})y64,66 RS({o7},{o6}) l16 RS({v0},{v0},{v0},{v100}) [[8 T2=Fx(T1) If(Random(2)==0){Z1=Z1+{r}}Else{Z1=Z1+T1} Z1=Z1+Px T1=T2 ]] MidiDelay(Z1,2,!1) Bx TR=3 @90 o5 v76 q100 l1 Cx TR=4 @90 q100 M=77 l1 v67 o6 P=32 RS({a},{e},{g},{b},{`d}) TR=5 @90 q100 M=77 l1 v77 o4 P=96 RS({c},{e},{g},{b},{`d}) Dx } Str Mx={ TR=2q30@37o3[3c]r8[`c16] UseKeyShift(0) TR=10 [3n36]'n49n36'8[n42,16]UseKeyShift(1) [Bx Dx] TrackSync } Mx[8 QQ][Mx][(L) QQ] この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)