サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ジャズ・フュージョン ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント ジャズのコードでない普通のコードで Jazz っぽくしてみたつもりです。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"ホット・コーヒー"} 作者{"メロン"} // ジャズのコードでない普通のコードで Jazz っぽくしてみたつもりです。 Int Seed= 26925 ; // あまり変りませんが、好きな数値でお楽しみください。65536 Max // (マイナス値だとプレイごとに毎回ランダムです) //------------------------------------------------------------------------------ 音源初期化 拍子4,4 テンポ(120) 調#() // C Int _Seed=Random(65530); IF(Seed>-1){System.RandomSeed(Seed);}Else{System.RandomSeed(_Seed);PRINT({Seed =},_Seed);} Function RS(Array AR){ Str A = AR(Random(SizeOf(AR))); Result=A; } Array Cho1=({'ceg'},{'fa`c'},{'"g"bd'},{'"gcd'},{'dfa'},{'"ace'},{'"bdf'}); Array Mes; For(Int N=0;N<16;N++){Mes(N)={^};} For(Int N=0;N<16;N++){If(Random(100)>50){Mes(N)=RS({o4 },{o5 })+RS(Cho1);}} Str PL;For(Int N=0;N<16;N++){PL=PL+{ }+Mes(N);} Array Bass=({c},{d},{e},{f},{g},{a},{b}); Array Mes2; For(Int N=0;N<16;N++){Mes2(N)={^};} For(Int N=0;N<16;N++){If(Random(100)>65){Mes2(N)=RS(Bass);}} Str PL2; For(Int N=0;N<16;N++){PL2=PL2+{ }+Mes2(N);} TR=1@67l8q97@12 [3 [l16 [r1 egadeag+a`d`c2-16] l8 gad+16e g8.ad16+e16+8+1] [b`cfed+dcg+ad:>dc4.<]:>d+e4.< ] >r8e4l16fd+ e1 TR=2 [3 @33o3 l16 [16PL2] ] TR=3o6 [3 l8 [8PL] ] 'egb >d<'1 TR=10 [3 [16 [n36n37] r-1 [16n42,16] ] ] n57,8.n49 この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)