サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ジャズ・フュージョン ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 「1077:A Jazz」をより自然な感じになるように改造してみました。。 あと、曲前後のテーマ部分があれば、いい感じになりそうなんですが・・(^^;)。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.35a) //------------------------------------------------------------------------------ 曲名{"A Jazz On Lydian"} 作者{"メロン"} // 「1077:A Jazz」をより自然な感じになるように改造してみました。。 // あと、曲前後のテーマ部分があれば、いい感じになりそうなんですが・・(^^;)。 //------------------------------------------------------------------------------ 音源初期化 Tempo=120 Function RS(Array AR,D){ Result= AR(Random(SizeOf(AR))); } Array SC =({"c},{"d},{"e},{"f},{"g},{"a},{"b},{c},{d},{e},{f+},{g},{a},{b},{`c},{`d},{`e},{`f},{`g},{a},{b},{``c}); Str C={'cf+b`e'} Str D={'dg`c`f+'} Str E={'ea`d`g'} Str F={'f+b`e`a'} Str G={'"gcf+b'} Str A={'"adg`c'} Str B={'"bea`d'} Function FF(UD,K,Array A){Int N; Str X;Str Y=RS({},{},{},{r}); Int I=Random(7,22-7); [(K) X=X+A(I+UD*N);N++; IF(RandomSelect(0,0,1)==0){Result=X;}Else{Result= X+Y+RS({16},{8},{8.},{4},{4+16},{4.},{4.+16},{2},{2+16},{2+8},{2.},{2.+16},{2.+8});}]} Str AA [80 AA=AA+FF(RandomSelect(-1,-1,0,1,1),Random(1,8),SC)] Int N; Array BB;[350 BB(N)=RandomSelect(0,100,100,100); N++;] //------------ TR=1 P=64+25 o5@12q95@67M=50 v.N(BB); l16 AA TR=2 l8 v115 o3@33 [13 cdega-gf+e >edc この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)