サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ジャズ・フュージョン ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント お久しぶりですぅぅ。。 ずっとカキコできずにごめんなさいです〜。 えと、今回も相変わらず乱数ものですが、これまでの総まとめ・・みたいな感じで仕上がっているかと・・・。Web サクラよりソースのDLがお薦めですぅ。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"音楽天国"} 作者{"メロン"} // お久しぶりですぅぅ。。 // ずっとカキコできずにごめんなさいです〜。 // えと、今回も相変わらず乱数ものですが、これまでの総まとめ・・みたいな感じで // 仕上がっているかと・・・。Web サクラよりソースのDLがお薦めですぅ。 // まだBメロなど手抜き気味ですが、一応、「1曲」として聞けるセンを目指してみました。 // 久々に投稿用作品と戯れることができました。とても楽しい時間でした。 // System.RandomSeed= 23 ; // ↑ この行のコメント・アウトをはずすと、毎回同じになります。 // 適当な数字で試してみてください。23 //------------------------------------------------------------------------------ 音源初期化 拍子4,4 テンポ(120) 調#() // C Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );Sub{o5A;}o4 A;o5} Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Array TTT = ({'cegb'},{'cegb-'},{'egbd'},{'aceg'},{'cfg'},{'ac+e'},{'aceb'},{'dg>cf+<'},{'ce-g-a'}); Array SSS = ({'dfac'},{'face'},{'face-'},{'df+a'},{'ea>dg<'},{'fa-bd'}); Array DDD = ({'gbdf'},{'d-ea-b'},{'bdfa'},{'fb>e-a<'},{'gb->d-e<'}); Array S01 = (-1,-1,0,0,-1,0,0);Array S02 = (0,0,0,0,-1,0,-1); Array S03 = (0,-1,0,0,0,0,0); Array S04 = (1,-1,0,0,1,0,0); Array S05 = (-1,0,0,0,-1,1,0); Array S06 = (-1,0,0,-1,0,0,0); Array S07 = (0,-1,0,-1,-1,0,0);Array S08 = (-1,-1,0,-1,0,0,0); Array S09 = (-1,0,0,0,-1,1,0); Array S10 = (-1,0,0,-1,0,-1,-1); Array S11 = (0,0,0,0,-1,0,0); Array S12 = (0,-1,0,0,-1,1,-1); Function SS(Q){Array AA; IF(Q==1){AA=S01} IF(Q==2){AA=S02} IF(Q==3){AA=S03} IF(Q==4){AA=S04} IF(Q==5){AA=S05} IF(Q==6){AA=S06} IF(Q==7){AA=S07} IF(Q==8){AA=S08} IF(Q==9){AA=S09} IF(Q==10){AA=S10} IF(Q==11){AA=S11} IF(Q==12){AA=S12} KeyFlag=(AA);} SS(Random(0,12)) Int L = 12 ;// TR=1 Array Mel; Str Mels; [ @12 l8l16 r4 rggab>cge d+ead+ea2 g+afed+ecb4.>d2.d+cd+a2 cge d+ead+ea2 g+afed+ecb4.>d2.d+cd+a2 この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)