サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ポップス ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 乱数自動作曲(メロ出し)の実験曲です。インスト・ポップスな感じかも・・です。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"ゲレンデの恋人達"} 作者{"メロン"} Int L = 16 ;// 曲の長さ可変です。 Int SX= 0 ;// イントロ付きで聴いてみたい人はゼロ以外で。。 ;// タイトルに合わないので、ないほうがいいです。。 // 乱数自動作曲(メロ出し)の実験曲です。インスト・ポップスな感じかも・・です。 // 人によっては、「何んだんねん1?」と言う感じにも聴こえそうです(笑)。 //------------------------------------------------------------------------------ 音源初期化 Tempo = 144 Include(chord2.h);Include(unison.h); Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} Function Rhyt(){ Result=RS2({l8},{l8},{l8},{l8}, {l8},{l8},{l8},{l8},{l8},{l8},{l8},{l8}, {l8},{l8},{l8},{l8}, {l8},{l8},{l8},{l8},{l4.},{l4.},{l4.},{l4},{l4},{l4},{l4},{l4},{l4}, {l4},{l4},{l4},{l4},{l4},{l4},{l2},{l2},{l2+8},{l2+8},{l2.},{l2.},{l1})} Function Note(){Result=RS2({r2+8},{"a},{"b},{c},{c8"b},{d},{b16a16},{e-16d16},{e},{g}, {e8c},{f8g},{a8g},{f8e})} Str RR;Str NN Str Q1={[4RS({"a4},{"b4},{c4},{d4},{e4},{g4},{e8c8},{f8g8},{f8e8})]} Str Q2={[4RS({f4},{g4},{a4},{b4},{`c4},{a8f8},{e8f8},{f8e8},{b8a8})]} //-------------------------------------------------------------------------- If(SX!=0){ TR=0 [(L) TimeKeyFlag(,,0,0,0,0,0,0,0)r1+1+1 TimeKeyFlag(,,-1,0,0,0,0,-1,1) r1] TR=1@49q80 o6 OctaveUnison(Sub{l2[fe]l8fefer cdg+b1} l2[`cb]l8`cb`cbr ga`c+`e1) TR=11@56q80 v70 o5 OctaveUnison(Sub{l2[fe]l8fefer cdg+b1} l2[`cb]l8`cb`cbr ga`c+`e1) TR=2l2 [F E]l8 [F E]l2 E7 Am7(4.) Am7(2+8) TR=3@33o3 l2[fe]l8fefe"bcde"a+2 r8 e8g+8b8 l4 TR=200 CH=10[4n49,2]r1.+8n49,4. TR=10[3 [n36n38]r-1[8n42,8]] [3n36][4n38,16] TrackSync } TR=1 l8q95M=0 @66@12o6q200@12 [(L-1) RS({v75q200M=0;o6;@12},{v110 q100M=100;o4@66}, {v100 q100M=0;o6@1},{v90 q100M=0;o6@49}) [14 IF(Time<(96*4*4)*L-192){RR=Rhyt; NN=Note; RR OctaveUnison(NN)}]] Function Cho(Str CC){[8l8RS({v70},{v40})CC]} TR=2q99@5 l1@49v66 [(L)Am7 Dm7 Bm7b5 E7] TR=7@25o4P=96 [(L)Cho(Am) Cho(Dm) Cho(Bm7b5) Cho(E7)] TR=3@33o3 [(L)a[3RS({"a},{c},{e},{"b},{g},{g+8a8})] d[3RS({"a},{d},{f},{fd},{`c},{f8d8})] b[3RS({"a},{d},{d8a8},{f},{a})] e[3RS({"a-},{c-},{e--},{"b},{g+},{>g+8b8<})]] TR=4o6P=64-20 l1q100@50v77 [(L)RS({"a},{"b},{c},{d},{e},{g},{a},{b},{`c}) RS({"a},{"b},{c},{d},{f},{g},{a},{b},{`c}) RS({"a},{"b},{d},{e},{g},{a},{b},{`c}) RS({"a-},{"b},{c},{d},{e},{g+},{a-},{b},{`c++}) ] TR=5o4P=64+20 l1q100@50v77 [(L)RS({"a},{"b},{c},{d},{e},{g},{a},{b},{`c}) RS({"a},{"b},{c},{d},{f},{g},{a},{b},{`c}) RS({"a},{"b},{d},{e},{g},{a},{b},{`c}) RS({"a-},{"b},{c},{d},{e},{g+},{a-},{b},{`c++}) ] TR=6l8q200@26o5v77@5@103 [(L)RS({o3},{o4},{o5},{o6}) [8RS({o3},{o4},{o5},{o6},{o7},{o8},{o9}) RS({"a},{"b},{c},{d},{e},{g},{a},{b},{`c})] [8RS({o3},{o4},{o5},{o6},{o7},{o8},{o9}) RS({"a},{"b},{c},{d},{f},{g},{a},{b},{`c})] [8RS({o3},{o4},{o5},{o6},{o7},{o8},{o9}) RS({"a},{"b},{d},{e},{g},{a},{b},{`c})] [8RS({o3},{o4},{o5},{o6},{o7},{o8},{o9}) RS({"a-},{"b},{c},{d},{e},{g+},{a-},{b},{`c++})] ] TR=10 [(L) n36n38n36RS({[n38,8]},{n38})r-1[8n(RandomSelect(42,42,42,42,42,42,42,42,46)),8] [n36n38]r-1[8n42,8] n36n38n36RS({[n38,8]},{n38})r-1[8n(RandomSelect(42,42,42,42,42,42,42,42,46)),8] RS({[n36n38]r-1[8n42,8]},{[3n36]n36,8[n38,16]r-1[8n42,8]}, {[n36]n36,8 n38,8 r8 n38,8 r-1[8n42,8]}) ] //TR=110CH=10[(L) [4[4r8RS({n38,8},{r8},{r8},{r8},{r8},{r8},{[n38,16]},{[n38,16]})]]] TR=111CH=10[(L) [4[4r8RS({n36,8},{r8},{r8},{r8},{r8},{r8},{[n36,16]},{[n36,16]})]]] TR=112CH=10[(L) r1+1+1 RS({n49,1},{r8n49,1-8},{r4n49,2.},{r4.n49,2+8},{r2n49,2}, {r2+8n49,4.},{r2.n49,4},{r1-8n49,8},{r1},{r1},{r1},{r1},{r1})] Function _FA(B){Include(fadeio.h);Time(Time-TimeBase*4*B)FadeoutAll(B);}_FA(8); この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)