サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ヒーリング・ニューエイジ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 今回も乱数曲です。時た〜ま心地いいのが出る・・(?)かも(笑)。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"春の宴"} 作者{"メロン"} // 今回も乱数曲です。時た〜ま心地いいのが出る・・(?)かも(笑)。 Int L= 20 ;// Loops //------------------------------------------------------------------------------ 音源初期化 拍子4,4 テンポ(120) Include(unison.h); Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} Int Pat=0Str K={y64,0y64,66} Array Sus4={c},{d},{f},{g},{a},{b},{`c},{`d} Array Dim={c},{d},{e-},{f},{g-},{a-},{a},{b},{`c},{`d} Array TT={c},{d},{e},{g},{a},{b},{`c},{`d} Array TTm={c},{d},{e-},{g},{a-},{b-},{`c},{`d} Array DDM={"b},{d},{e},{f},{g},{a},{b},{`d} Array DDm={"b-},{d-},{e-},{f},{g},{a},{b-},{`d-} Function AlpX(Array Z){K[8 RS(Z)]} Function AlpX2(Array Z){K RS({r[3 RS(Z)]},{[4RS(Z)]},{l2[RS(Z)]l4})} Str LL={RS({l.N(!2.,!4)},{l.N(!2,!2)})} TR=1 P=96 l8 @47o4 TR=2 @50 q100 v77 l1 TR=3 @33o3 @50q100l1 v82v77 TR=4 o6 @50q100 TR=5 P=32 @25 @46 TR=10 Str XM7={ If(Pat==0){ TR=1 l8 AlpX(TT) TR=2 'cegb'1 TR=3 Unison5th(c) TR=4 LL [RS(TT)] TR=5 AlpX2(TT) TR=10 UseKeyShift(0)[n36n37]r-1[8n42,8]UseKeyShift(1) } If(Pat==1){ TR=1 l8 AlpX(TT) TR=2 'cegb'1 TR=3 Unison5th(c) TR=4 LL [RS(TT)] TR=5 AlpX2(TT) TR=10 UseKeyShift(0)[n36,8][3r8n36,8]r-1r2n37,2r-1[n42,8n46,8[n42,8]]UseKeyShift(1) } } Str X7={ If(Pat==0){ TR=1 AlpX(DDm) TR=2 'cegb-'1 TR=3 Unison5th(c) TR=4 LL [RS(DDm)] TR=5 AlpX2(DDm) TR=10 UseKeyShift(0)[n36n37]r-1[8n42,8]UseKeyShift(1) } If(Pat==1){ TR=1 l8 AlpX(DDm) TR=2 'cegb-'1 TR=3 Unison5th(c) TR=4 LL [RS(DDm)] TR=5 AlpX2(DDm) TR=10 UseKeyShift(0)[n36,8][3r8n36,8]r-1r2n37,2r-1[n42,8n46,8[n42,8]]UseKeyShift(1) } } Str Xm7={ If(Pat==0){ TR=1 AlpX(TTm) TR=2 'ce-gb-'1 TR=3 Unison5th(c) TR=4 LL [RS(TTm)] TR=5 AlpX2(TTm) TR=10 UseKeyShift(0)[n36n37]r-1[8n42,8]UseKeyShift(1) } If(Pat==1){ TR=1 l8 AlpX(TTm) TR=2 'ce-gb-'1 TR=3 Unison5th(c) TR=4 LL [RS(TTm)] TR=5 AlpX2(TTm) TR=10 UseKeyShift(0)[n36,8][3r8n36,8]r-1r2n37,2r-1[n42,8n46,8[n42,8]]UseKeyShift(1) } } Str Xdim={ If(Pat==0){ TR=1 AlpX(Dim) TR=2 'ce-g-a'1 TR=3 'cg-' TR=4 LL [RS(Dim)] TR=5 AlpX2(Dim) TR=10 UseKeyShift(0)[n36n37]r-1[8n42,8]UseKeyShift(1) } If(Pat==1){ TR=1 l8 AlpX(Dim) TR=2 'ce-g-a'1 TR=3 'cg-' TR=4 LL [RS(Dim)] TR=5 AlpX2(Dim) TR=10 UseKeyShift(0)[n36,8][3r8n36,8]r-1r2n37,2r-1[n42,8n46,8[n42,8]]UseKeyShift(1) } } Str X7sus4={ If(Pat==0){ TR=1 AlpX(Sus4) TR=2 'cfgb-'1 TR=3 Unison5th(c) TR=4 LL [RS(Sus4)] TR=5 AlpX2(Sus4) TR=10 UseKeyShift(0)[n36n37]r-1[8n42,8]UseKeyShift(1) } If(Pat==1){ TR=1 l8 AlpX(Sus4) TR=2 'cfgb-'1 TR=3 Unison5th(c) TR=4 LL [RS(Sus4)] TR=5 AlpX2(Sus4) TR=10 UseKeyShift(0)[n36,8][3r8n36,8]r-1r2n37,2r-1[n42,8n46,8[n42,8]]UseKeyShift(1) } } //------------------------- Function TX(){RS({TimeKey(0)XM7},{TimeKey(-3)Xm7},{TimeKey(4)Xm7},{TimeKey(0)Xm7}, {TimeKey(4)Xdim})} Function DX(){RS({TimeKey(-5)X7},{TimeKey(1)X7},{TimeKey(-1)Xdim})} Function SX(){RS({TimeKey(5)XM7},{TimeKey(2)Xm7},{TimeKey(5)Xm7},{TimeKey(-4)X7}, {TimeKey(-4)XM7},{TimeKey(1)XM7},{TimeKey(-1)X7})} Str AZ={TimeKey(0)XM7 TimeKey(-3)Xm7 TimeKey(5)XM7 TimeKey(-5)X7} AZ[(L) Pat=Random(2)TX TX SX DX]AZ TimeKey2(12) TR=1 e1+2. r1 TR=2 'egb`d'1+2. TR=3 l1+2.Unison5th(c) TR=4 c1+2. TR=5 c1+2. TR=10 UseKeyShift(0)['n36n49'8]UseKeyShift(1) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)