サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント コンセプトを特に決めずに、ダンス風・・とだけで作っていたら、ちょっと手足のないボディだけになってしまいました。 まぁメロもフレーズ乱数なので、こんなものか・・な感じで。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"星たちのダンス"} 作者{"メロン"} // コンセプトを特に決めずに、ダンス風・・とだけで作っていたら、 // ちょっと手足のないボディだけになってしまいました。 // まぁメロもフレーズ乱数なので、こんなものか・・な感じで。 //------------------------------------------------------------------------------ 音源初期化 拍子4,4 Tempo = 144 Include(fadeio.h); Int LL = 4 ;// 基本4小節 Int L = 16 ;// Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );A;} Array QQ=({"a},{"b},{c},{e},{g},{a},{b},{`c},{`e},{r},{r}) Str Q01={r1} Str Q1={r1} Str Q11={l16 aabarare r2 l8} Str Q13={l16 eebfrer"b r2 l8} Str Q12={l16 aargarba l8} Str Q2={erereaaa} Str Q22={erer} + RS2(QQ) + RS2(QQ) + {l16} + RS2(QQ) + {l8} + RS2(QQ) + {l16} + RS2(QQ) ; Str Q3={rr a^e^} + RS2(QQ) + RS2(QQ); Str Q33={r2 erferdre} Str Q4={e4.a2+8} Str Q44=RS2(QQ) + RS2(QQ) + RS2(QQ) + RS2(QQ); Str Q45=RS2(QQ) + RS2(QQ) + RS2(QQ) + {l16} + RS2(QQ) + RS2(QQ) + RS2(QQ) + RS2(QQ); Str Q5={red+e>rcc-c<} Str Q6={"a2e2} Str Q66={"a2efe4} Str Q7={r2+8"ab`c} Str Q8={r1} Str Q81={l16} + RS2(QQ) + RS2(QQ) + {r4.} + RS2(QQ) + RS2(QQ) + {r4.l8} Str Q9 [8 Q9=Q9+RS2(QQ)] Str Z Str Maj={TimeKeyFlag(0,0,1,0,0,0,1)} Str Min={TimeKeyFlag()} Function K(){RS(Min.Maj);TimeKey(,,RandomSelect(0,5,-5,-7,-4,4)); r1+1+1+1} TR=0 r1+1 [(L)K] TR=333 [16 RS(Maj,Min,Min) [(LL)r1] ] TR=2 r1+1 q99@5 l1v77 [(L)[(LL)'""a"a`ce`a']] Str BK={o5@86 l1 q100 BR(44) p%.T(7444,0,!1)`c o1 @48@117 'cc+dd+eff+gg+aa+'1,,122} TR=6 BK [((LL*L)/2) IF(Random(100)>88){BK}ELSE{r1+1} ] TR=1 r1+1P=96 l8q95M=0 @12 o6 [(L) Z={} [4Z=Z+RS2(Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9,Q22,Q66,Q11,Q12,Q33,Q44,Q01,Q01,Q81,Q45,Q13)]Z] TR=11 r1+1 P=32l8q95M=0 @97 o5 [(L)Z={} [4Z=Z+RS2(Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9,Q22,Q66,Q11,Q12,Q33,Q44,Q01,Q01,Q81,Q45,Q13)] Z] Str X1={[(LL*4)a`a16r16]} TR=9 r1+1 @35 o2q100 l8 [(L)X1] TR=3 r1+1 @33 o2q100 l8 [(L)X1] TR=13 r1+1 @37 o2q100 l8 [(L)X1] TR=16 r1+1 q100v66 l1 @50 [(L) [(LL)RS(QQ)]] TR=15 r1+1 q100v66 > l1 @50 [(L) [(LL)RS(QQ)]] Str J={P=Random(128)} TR=14 r1+1 l16 [(L) RS({@19},{@5}); RS({o4v100},{o5v90},{o6v80}); [(LL) [J "aJ cJ eJ "aJ cJ eJ "aJ c]]] TR=8 r1+1 o3l8[(L)[(LL*2)ea16r16ga]] TR=7 r1+1 @119 UseKeyShift(off) >[(L)[(LL)[4"c8r16"c16]]] TR=10 音色(ElectronicSet) r2 EP.T(0,127,!1+2) ['n36n35''n88n27n35n38n55n43n40'] [(L)[(LL) ['n36n35''n88n27n35n38n55n43n40']r-1[16n42,16]]] Function _FA(B){Time(Time-TimeBase*4*B)FadeoutAll(B);}_FA(8); この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)