サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ソウル・R&B ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 今回はジャズと言う感じではなく、ファンクかソウルかR&B の感じかもです。 // 「魂の瞑想」・・としたいところですが、そんな大層なもんじゃないので「迷走」です(笑)。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"魂の迷走"} 作者{"メロン"} Int L= 3 ;//お好きなだけループ // 今回はジャズと言う感じではなく、ファンクかソウルかR&B の感じかもです。 // 「魂の瞑想」・・としたいところですが、そんな大層なもんじゃないので「迷走」です(笑)。 //------------------------------------------------------------------------------ 音源初期化Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} Function OctX(Str Note, Int Lo=4, Int Hi=8){ Result = {o} + #STR(Random(Lo, Hi)) + Note; } Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Function OctW( Int Lo=4, Int Hi=8, Array Notes){ Str A1;Str A2; A1=OctX(RS2(Notes),Lo,Hi); A2=OctX(RS2(Notes),Lo,Hi); S{A1}A2 } Str DX={[r16l16[14RS({n49},{r},{n40},{n36},{n47},{n43})]r16][6r1]} Str Q={v60@49q100l1[[4RS({a},{c},{e},{b})][4RS({d},{f},{a},{e})]]} //-------------------------------------------------------------------- [(L)TR=1 P=127o7Q TR=11P=0o6Q TR=2P=32q95@5o5[['"aceb`e'1+1]['dfa`e'1+1]]TR=3@5q90l16@37[ [64 OctW(2,5,{a},{c},{e},{b})][64OctW(2,5,{d},{f},{a},{e})]]TR=4P=96v70l16 @26[[64 RS({'"aceb'},{r},{r},{r})] [64RS({'dfa`e'},{r},{r},{r})] ]TR=10[8 [16l16 n(RandomSelect(38,1,1,1))]r-1 [16l16 n(RandomSelect(36,1,1))]r-1 [16l16 n(RandomSelect(42,46,42,42))]]DX TR=100CH=10l8[8[4rn(RandomSelect(37,1,1,1,1))]]DX] Include(fadeio.h);Time(Time-384*8)FadeoutAll(8); この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)