サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ワールド ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント RandomSeed 値で、「複数部分を決定する方法」のテストに作ってみました。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------[ Edit by MP.EXE ] 曲名{"お洗濯"} 作者{"メロン"} // RandomSeed 値で、「複数部分を決定する方法」のテストに作ってみました。 // 下の Seed の設定で、半自動作曲します。いろいろな値にセットしてみてください。 Int Seed_A= 1 ;// Aメロの選択。0 - 65535 (デフォ値 : 1) Int Seed_B= 12345 ;// Bメロの選択。0 - 65535 (デフォ値 : 12345) //------------------------------------------------------------------------------ 音源初期化 テンポ(120) Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} Function Q(Str DD,D){UseKeyShift(0)DD UseKeyShift(1)}Str K Array T={c2+8edc},{g4.e2r8},{d4.e2r8},{rg4a4b4e},{efgagab`d},{r4g4e4g4},{c4.g4.a4},{g2.e4},{red+ebe4g-},{e4.a4.g4},{gagf+g8.f8.e},{aaae8+2},{d4.c4ccd},{c8.e8.ga8.g8.e},{rgag`c`c`cb},{cg4ede4.},{r2edde} Array W={"b2c2},{c2e2},{e2c2},{g2e2},{e2g2},{g2g2},{e2e2},{`c2e2},{e2`c2},{g2c2},{c2g2},{`c2e2},{e2`c2},{c1},{e1},{g1},{`c1}//,{d1},{a1},{b1} TR=1P=32 TR=16l8P=96 TR=13P=96 TR=11o5v77P=0 TR=12o4v77P=127 TR=13o3v77P=64 Str TM={K=RS2(T) TR=1l8 TimeKeyFlag(,,0,0,0,0,0,0,0) o6q100@49 K TR=16 o5q100@49 K TR=11 q100@49RS(W) TR=12 q100@49RS(W) TR=13 q100@49RS(W) TR=2l1@49v77q100 TimeKeyFlag(,,0,0,0,0,0,0,0) 'ceg`d'1 TR=3@33o3cegb TR=10 Q({[n36n38]r-1[8n42,8]}) } Str TE={K=RS2({c1},{`c1}) TR=1l8 TimeKeyFlag(,,0,0,0,0,0,0,0) o6q100@49 `c1 TR=16 o5q100@49 c1 TR=11 q100@49RS(W) TR=12 q100@49RS(W) TR=13 q100@49RS(W) TR=2l1@49v77q100 TimeKeyFlag(,,0,0,0,0,0,0,0) 'ceg`c'1 TR=3@33o3 c4.c2+8 TR=10 Q({n49,4.n49,2+8r-1[n36,8][n38,8]n36,8n36n38,16n36,16r-1[3n46][4n42,16]}) } Str SM={K=RS2(T) TR=1l8 TimeKeyFlag(,,0,0,0,0,0,1,0) /* Lydian */ o6q100@49 K TR=16 o5q100@49 K TR=11 q100@49RS(W) TR=12 q100@49RS(W) TR=13 q100@49RS(W) TR=2l1@49v77q100 TimeKeyFlag(,,0,0,0,0,0,1,0) 'ceg`d'1 TR=3@33o3cegb TR=10 Q({[n36n38]r-1[8n42,8]}) } Str T7={K=RS2(T) TR=1l8 TimeKeyFlag(,,0,-1,0,0,0,0,0) /* Mixo-Lydian */ o6q100@49 K TR=16 o5q100@49 K TR=11 q100@49RS(W) TR=12 q100@49RS(W) TR=13 q100@49RS(W) TR=2l1@49v77q100 TimeKeyFlag(,,0,-1,0,0,0,0,0) /* Mixo-Lydian */ 'cegb'1 TR=3@33o3cegb TR=10 Q({[n36n38]r-1[8n42,8]}) } Str T7m={K=RS2(T) TR=1l8 TimeKeyFlag(,,-1,-1,0,-1,0,0,0) /* HMP5B */ o6q100@49 K TR=16 o5q100@49 K TR=11 q100@49RS(W) TR=12 q100@49RS(W) TR=13 q100@49RS(W) TR=2l1@49v77q100 TimeKeyFlag(,,-1,-1,0,-1,0,0,0) 'cegb'1 TR=3@33o3cegb TR=10 Q({[n36n38]r-1[8n42,8]}) } Str D_dim={K=RS2(T) TR=1l8 TimeKeyFlag(,,0,-1,0,0,0,0,0) o6q100@49 K TR=16 o5q100@49 K TR=11 q100@49RS(W) TR=12 q100@49RS(W) TR=13 q100@49RS(W) TR=2l1@49v77q100 TimeKeyFlag(,,0,-1,0,0,0,0,0) 'c+egb'1 TR=3@33o3cegb- TR=10 Q({[n36n38]r-1[3n42,8]n46[3n42,8]}) } Str Tm={K=RS2(T) TR=1l8 TimeKeyFlag(,,-1,-1,0,0,-1,0,0) o6q100@49 K TR=16 o5q100@49 K TR=11 q100@49RS(W) TR=12 q100@49RS(W) TR=13 q100@49RS(W) TR=2l1@49v77q100 TimeKeyFlag(,,-1,-1,0,0,-1,0,0) 'ceg`d'1 TR=3@33o3cegb TR=10 Q({[n36n38]r-1[8n42,8]}) } Str Sm={K=RS2(T) TR=1l8 TimeKeyFlag(0,-1,0,0,-1,0,0) // C Dorian o6q100@49 K TR=16 o5q100@49 K TR=11 q100@49RS(W) TR=12 q100@49RS(W) TR=13 q100@49RS(W) TR=2l1@49v77q100 TimeKeyFlag(0,-1,0,0,-1,0,0) 'ceg`d'1 TR=3@33o3cegb TR=10 Q({[n36n38]r-1[8n42,8]}) } Str Sp={K=RS2(T) TR=1l8 TimeKeyFlag(-1,-1,0,-1,-1,0,0)//C Phrygian o6q100@49 K TR=16 o5q100@49 K TR=11 q100@49RS(W) TR=12 q100@49RS(W) TR=13 q100@49RS(W) TR=2l1@49v77q100 TimeKeyFlag(-1,-1,0,-1,-1,0,0) 'ceg`d'1 TR=3@33o3cegb TR=10 Q({[n36n38]r-1[8n42,8]}) } Str Loc={K=RS2(T) TR=1l8 TimeKeyFlag(-1,-1,0,-1,-1,0,-1) o6q100@49 K TR=16 o5q100@49 K TR=11 q100@49RS(W) TR=12 q100@49RS(W) TR=13 q100@49RS(W) TR=2l1@49v77q100 TimeKeyFlag(-1,-1,0,-1,-1,0,-1) 'ceg'1 TR=3@33o3cegb TR=10 Q({[n36n38]r-1[8n42,8]}) } //-- System.RandomSeed(Seed_A) [[ RS({TimeKey(4) Sp},{TimeKey(0) TM}) TimeKey(-1) D_dim : RS({TimeKey(5) SM},{TimeKey(-3) T7}) RS({TimeKey(5) T7},{TimeKey(7) T7},{TimeKey(-1) T7}) ] TimeKey(7) T7 TimeKey(0) TE ] //-- TR=10r8 TR=1r8 TR=16r8 [System.RandomSeed(Seed_B) RS({TimeKey(-3) Tm TimeKey(2) Sm TimeKey(-1) Loc TimeKey(4) T7m}, {TimeKey(0)Tm TimeKey(0) T7m TimeKey(5) Sm TimeKey(7) T7}, {TimeKey(4) T7m TimeKey(-3) Tm TimeKey(2) Sm TimeKey(-1) Loc} {TimeKey(4) Sp TimeKey(-3) Tm TimeKey(-1) T7m TimeKey(4) Sp} {TimeKey(-3) Tm TimeKey(4) Sp TimeKey(-1) T7m TimeKey(4) T7m} ) ] TR=10 r-8 TR=1 r-8 TR=16r-8 System.RandomSeed(Seed_A) [ TimeKey(0) TM TimeKey(-1) D_dim :TimeKey(5) SM TimeKey(5) T7 ] TimeKey(7) T7 TimeKey(0) TE この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)