サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ジャズ・フュージョン ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント リベンジです。今回は音程跳躍率を調整できるようにしてみました。京都に出世したりして(笑)。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"京都タワーにて"} 作者{"メロン"} // リベンジです。今回は音程跳躍率を調整できるようにしてみました。 // 京都に出世したりして(笑)。 Int L= 5 ;// 曲長さ。お好きにどうぞ。。5 Int XX= 8 ;// 0 - 20 数字が小さいと跳躍率が高い。大きいとなだらか。 //------------------------------------------------------------------------------ 音源初期化 Tempo=114Include(chord2.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}) Array AA =({""b},{"c},{"d},{"e},{"f},{"g},{"a},{"b},{c},{d},{e},{f},{g},{a},{b},{`c},{`d},{`e},{`f},{`g},{`a},{`b},{``c}) Function Z(Str A,D){Str R; If(A=={""b}){ R =RS2({"b},{c})} If(A=={"c}){ R =RS2({"c},{"b},{d})} If(A=={"d}){ R =RS2({"d},{"c},{"e})} If(A=={"e}){ R =RS2({"e},{"d},{"f})} If(A=={"f}){ R =RS2({"f},{"e},{"g})} If(A=={"g}){ R =RS2({"g},{"f},{"a})} If(A=={"a}){ R =RS2({"a},{"g},{"b})} If(A=={"b}){ R =RS2({"b},{"a},{c})} If(A=={c}){ R =RS2({c},{"b},{d})} If(A=={d}){ R =RS2({d},{c},{e})} If(A=={e}){ R =RS2({e},{d},{f})} If(A=={f}){ R =RS2({f},{e},{g})} If(A=={g}){ R =RS2({g},{f},{a})} If(A=={a}){ R =RS2({a},{g},{b})} If(A=={b}){ R =RS2({b},{a},{`c})} If(A=={`c}){ R =RS2({`c},{b},{`d})} If(A=={`d}){ R =RS2({`d},{`c},{`e})} If(A=={`e}){ R =RS2({`e},{`d},{`f})} If(A=={`f}){ R =RS2({`f},{`e},{`g})} If(A=={`g}){ R =RS2({`g},{`f},{`a})} If(A=={`a}){ R =RS2({`a},{`g},{`b})} If(A=={`b}){ R =RS2({`b},{`a},{``c})} If(A=={``c}){ R =RS2({b},{c})} Result = R;} [(L) TR=10 [8 [n36n38]r-1[12n42,12]] TR=12o4q100 v90 @51 l1ad l2 a-g l1 cf l2 g-b l1 b l2 fe l1 TR=1o6@12 l12 q99 [8 y64,66 [12 RS(,,{v0}) Q IF(Random(XX)==0){Q=RS2(AA)} Q=Z(Q) v(Random(80,120))] y64,0] TR=2q100 v75 @51 l1 TimeKeyFlag(,,0,0,0,0,0,0,0); Am7 Dm7 TimeKeyFlag(,,-1,-1,0,0,-1,0,-1);l2 Ab7 TimeKeyFlag(,,0,0,-1,0,-1,0,0);G7 TimeKeyFlag(,,-1,0,1,0,0,0,1);l1 Cpdim TimeKeyFlag(,,0,0,0,0,0,0,0);FM7 TimeKeyFlag(,,0,0,0,-1,0,1,0);l2 Gbm7 TimeKeyFlag(,,0,0,0,1,0,1,0);B7 TimeKeyFlag(,,0,0,0,0,0,0,0);l1 Bm7b5 TimeKeyFlag(,,0,0,0,0,-1,0,0);l2 F7 TimeKeyFlag(,,0,0,0,0,0,0,1);E7 l1 TR=3@33o3 [8[4 IF(Random(8)==0){ [3 l12Q Q=Z(Q) v(Random(80,122))] l4 }Else{Q Q=Z(Q) v(Random(80,122))} ]] ] Function _FA(B){Include(fadeio.h);Time(Time-TimeBase*4*B)FadeoutAll(B);}_FA(8); この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)