サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ポップス ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント マイナーとメジャー、2曲分です(笑)。 乱数だと、まあ、こんなものかなぁ・・な感じですね。 ※ 5/3 20:40 以前のものは、ちょっとバグってました。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"切ない朝/さわやかな朝"} 作者{"メロン"} // マイナーとメジャー、2曲分です(笑)。 // 乱数だと、まあ、こんなものかなぁ・・な感じですね。 // 一応、マイナーとメジャーでタイトルを合わせてみましたが・・・。 // ※ 5/3 20:40 以前のものは、ちょっとバグってました。 Int Mode= 0 ; // 0:Minor 1:Major Int L = 8 ; // 小節数指定。 //------------------------------------------------------------------------------ 音源初期化 Function Swap(Array A){ Array TempA =(A(0)); Array TempB =(A(1)); Array Ret =(A(1), A(0)); Result = Ret;} Function SwapArray(Array X){ Array TT; Array Ret; Array SS; // 0,1 Int Temp1; Int Temp2; Int Temp3; [(SizeOf(X)*2) Temp1=Random(SizeOf(X)); SS(0)=X(Temp1); Temp2=Random(SizeOf(X)); SS(1)=X(Temp2); X(Temp1)=SS(1); X(Temp2)=SS(0); ] Result=X; } IF(Mode==1){KeyFlag=(0,0,1,0,0,1,1);} Function RS(Array AR){ Str A = AR( Random( SizeOf(AR) ) ); A;} Array Am = ({"e},{"a},{c},{e},{g},{a},{`c},{`e},{`a},{r},{r},{r}); Array Dm = ({"d},{"f},{"a},{c},{d},{e},{f},{a},{`c},{`d},{`e},{`f},{`a},{r},{r},{r}); Array E7 = ({"d},{"e},{"g+},{"b},{d},{e},{g+},{b},{`d},{`e},{`g+},{r},{r},{r},{r}); Array G = ({"g},{"b},{d},{e},{f},{g},{a},{b},{`d},{`e},{`f},{`g},{r},{r},{r}); Array QQ = (0,1,2,3); QQ=SwapArray(QQ); Function YY(ZZ){ Array Z=({RS(Am)},{RS(Dm)},{RS(E7)},{RS(G)}); Result=Z(ZZ);} Function YY2(ZZ){ Array Z=( {RS({"a},{c},{e})}, {RS({"a},{d},{f})}, {RS({"g},{"b},{d})}, {RS({"g+},{"b},{d})}); Result=Z(ZZ); } Str PL1; Str PL2; Str PL3; Str PL4; PL1=YY(QQ(0)); PL2=YY(QQ(1)); PL3=YY(QQ(2)); PL4=YY(QQ(3)); TR=1v120 y64,66 V=120 @1 q160 o5 l16 P.N(25,50,75,100) v.N(120,75,100) [(L) [16 PL1; PL2; PL3; PL4] ] c1 Str PB1=YY2(QQ(0)); Str PB2=YY2(QQ(1)); Str PB3=YY2(QQ(2)); Str PB4=YY2(QQ(3)); TR 2v-15 P=64+30 o6 @49 q99 l1 [(L) PB1; PB2; PB3; PB4;] e1+1r1 Function YY3(ZZ){ Array Z=({"a },{d },{g },{e }); Result=Z(ZZ);} Str PS1=YY3(QQ(0)); Str PS2=YY3(QQ(1)); Str PS3=YY3(QQ(2)); Str PS4=YY3(QQ(3)); TR 4 P=64-30 o4 @49 q99 [(L) PS1; PS2; PS3; PS4; ] a1+1r1 Function YY4(ZZ){ Array Z=({"ace1 },{"adf1 },{"g"bd1 },{ }); Result=Z(ZZ);} Str PH1=YY4(QQ(0)); Str PH2=YY4(QQ(1)); Str PH3=YY4(QQ(2)); Str PH4=YY4(QQ(3)); TR 3@50q99 P=64+50 l0 [(L) PH1; PH2; PH3; PH4; ] "ace1+1r1 TR 10 [(L*4) n36,2.+8 n36,8 r-1 r2 n37,2 r-1 [n42] r8 n46,4.,,70 ] n42,8n46,1+8+1r1 //////// TR=11v120 y64,66 V=100 @1 q160 o6 l16 P.N(100,75,50,25) v.N(120,75,100,80,110) [(L) [16 PL1; PL2; PL3; PL4] ] c1 この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)