サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル アニメ・ゲーム ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 前回、メロ感が薄かったので、なんとか乱数でメロは出せないものかと頑張ってみました。 小学校の遠足って感じかと思います。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"秋の遠足"} 作者{"メロン"} // 前回、メロ感が薄かったので、なんとか乱数でメロは出せないものかと頑張ってみました。 // 小学校の遠足って感じかと思います。 // Seed をマイナス値にすると、メロが毎回少し変わります。 // 一応、今回は繰り返しの構成を中心に、「乱数メロ出し」の方法論をあれこれ考えてみました。 Int Seed= 1 ; // メロ番号の選択。 0 - 65530 マイナスだとランダム・メロ Int CC= 0 ; // コード種の選択。 0:原色コード 1:テンションコード //------------------------------------------------------------------------------ 音源初期化 Tempo=200 Int _Seed=Random(65530);IF(Seed>-1){System.RandomSeed(Seed);PRINT({Seed =},Seed);}Else{ System.RandomSeed(_Seed);PRINT({Seed =},_Seed);} Str CM If(CC==0){ CM={ceg}} If(CC==1){ CM={egb`d}} //*/*/*/*/ 自動メロディー 雛型 テンプレート Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} // 配列位置のものをランダムに返す。 Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} // 直接鳴る。 Array Ar=({c},{d},{e},{g},{a},{b},{`c},{`d}) Function Fx(Int N,D){Str S = RS2(Ar,{r},{r}) + { } [(N-1) S = S + RS2(Ar,{r},{^}) + { } ] Result = S} //-------------------- Str A2_A Str A2_B Str A2_C Str A2_D Str A4_A Str A4_B Str A4_C Str A4_D Str A8_A Str A8_B Str Temp Str X Str Z00={TimeKeyFlag(,,0,0,0,0,0,0,0) } Str Zmm={TimeKeyFlag(,,-1,-1,0,0,-1,0,0) } Str Z77={TimeKeyFlag(,,0,-1,0,0,0,0,0) } A4_A = Fx(4) A4_B = Fx(4) A4_C = Fx(4) A4_D = Fx(4) A8_A = Fx(8) A8_B = Fx(8) Function IN(Str S,Str C){ TR=1 S TR=11 S TR=2 r1 TR=12 r1 TR=4 r1 TR=3 o3 rgab TR=10 UseKeyShift(0) n49,1 UseKeyShift(1) } Function K4(Str S,Str C){ TR=1 S TR=11 S TR=2 IF(C=={}){'CM'1}Else{C} TR=12 IF(C=={}){'CM'1}Else{C} TR=4 Temp = RS2({c},{e},{g},{`c},{`d}) + {2.} + RS2(Ar) + {4} Temp TR=3 o3 rgab TR=10 UseKeyShift(0) [[n38,8]n36]r-1 n49,4.n49,2+8 UseKeyShift(1) } Function KK(Str S,Str C){ TR=1 S TR=11 S TR=2 IF(C=={}){'CM'1}Else{C} TR=12 IF(C=={}){'CM'1}Else{C} TR=4 Temp = RS2({c},{e},{g},{`c},{`d}) + {2.} + RS2(Ar) + {4} Temp TR=3 o3 [c]gc TR=10 UseKeyShift(0) [n36n38]r-1[8n42,8] UseKeyShift(1) } //------------ TR=1 @81 q90 M=99 V=90 P=127 TR=11 @81 q90 M=99 V=90 o6 P=0 TR=2 o5 P=32 @25 q100 V=80 TR=12 o5 P=96 @49 q100 V=70 TR=3 @33 TR=4 @49 o6 q100 v70 Int NN Str Cx = {} Str Cz = {v-20[8'CM'8]v+20} [3// IN({r1}) [ If(NN==2) { Cx = {P=64o5@25v+10q40r8[4 'CM'4]r-8q100v-10} } [ If(CC==0){Z00 TimeKey(0)}Else{RS({Zmm TimeKey(4)},{Zmm TimeKey(-3)})} KK({l8}+ A4_A + A4_A, Cx) Zmm TimeKey(-3) KK({l8}+ A8_A, Cx) :If(CC==0){Zmm TimeKey(5)}Else{RS({Z00 TimeKey(-3)},{Zmm TimeKey(2)})} KK({l8}+ A4_A + Fx(4), Cx) Z77 TimeKey(-5) KK(RS2({g1},{d1},{`d1})) ] Z77 TimeKey(-5) KK({l8}+ A4_A + A4_A) IF(NN<1){Z00 TimeKey(0) K4({c1})}Else{Z00 TimeKey(0) K4({`c1})} ] //// NN++ : IF(NN==2){Cx={l8 v88 @12o6} [8 Cx=Cx + {P=} + #STR(Random(128)) + RS2(Ar)] } //Else{Cx={@49'CM'1}} [ Z00 TimeKey(5) KK({l4}+ RS2(Ar)+ RS2(Ar)+ RS2(Ar)+ RS2(Ar), Cx) Z00 TimeKey(0) KK({l4}+ RS2(Ar)+ RS2(Ar)+ RS2(Ar)+ RS2(Ar), Cx) :Z77 TimeKey(-5) KK({l4}+ RS2(Ar)+ RS2(Ar)+ RS2(Ar)+ RS2(Ar), Cx) Z77 TimeKey(0) K4({g1},{'CM'4. 'CM'2+8}) ] Z77 TimeKey(2) KK({l8}+ RS2(Ar)+ RS2(Ar)+ RS2(Ar)+ RS2(Ar) + {>reef<}) Z77 TimeKey(-5) K4({``d1}) ]// この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)