サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント トランス(とアンビエント系?)はメロがなくてもなんとかなるみたいですね。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"トラビエント"} 作者{"メロン"} // トランス(とアンビエント系?)はメロがなくてもなんとかなるみたいですね。 //------------------------------------------------------------------------------ 音源初期化 Int L= 4 ;// Tempo=140 Function SwapArray(Array X){Array TT; Array Ret; Array SS;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;}Int QQ; Array Cm=({c},{e-},{g},{`c},{r},{`d},{`f+});Array Fm=({f},{a-},{`c},{`f},{r},{`g},{`b+}); Array Dm=({d},{f},{a-},{b},{r},{`d},{`f});Array G7=({g},{b},{`d-},{`f},{`a},{`b},{r}); Cm=SwapArray(Cm); Fm=SwapArray(Fm); Dm=SwapArray(Dm); G7=SwapArray(G7); Str ZCm=Cm(0)+Cm(1)+Cm(2)+Cm(3);Str ZFm=Fm(0)+Fm(1)+Fm(2)+Fm(3); Str ZDm=Dm(0)+Dm(1)+Dm(2)+Dm(3);Str ZG7=G7(0)+G7(1)+G7(2)+G7(3); Str Q1={l8 [4[4c`c]] [2[4f`f]] [2[4c`c]] [2[4d`d]] [4g2]} Str Q2={@17 l16 [4[4ZCm]] [2[4ZFm]] [2[4ZCm]] [2[4ZDm]]} Str Q3={[4'ce-g`d'1][2'fa-`c`f'1] [2'ce-g`d'1][2 'dfa-b'1] r1+1} [(L)TR=1 P.N(127,0)Q2 [[4ZG7]]TR=2v120o3@39 Q1 TR=16v120o2@79Q1 TR=3v120@89Q3 TR=4v50@80 Q3 TR=15v120q40@49o6[6QQ=RandomSelect(0,1);If(QQ==0){r1r[3d]}ELSE{r1r1}] TR=9@128o6v70l16q60[10[[4a]erar]]r1+1TR=10 @25@17 [3[3[n36n38]r-1[8n42,8]] IF(RandomSelect(0,1)==0){n36n38 n36,8n38,4n38,8r-1[4n42,8]n42,8n49,4n42,8} Else{n36n38 n36,8[n38,16][n38,8]r-1[4n42,8]n42,8[n49,16][n42,8]}] TR=11 r64 o6 P.N(0,127) Q2 r1+1 r-64TR=12 r32 o4 P.N(64-30,64+30) Q2 r1+1 r-32] Include(fadeio.h);Time(Time-TimeBase*4*10)FadeoutAll(10) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)