サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 許可しない 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント ドラムによる「乱数出しミニマル実験」です。プレイごとに変わります。即席で作ったので、あまり面白くないみたいですが・・。最初はドラムだけでしたが、メロトラックや効果トラックなどを追加してみました。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------ // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.36) //------------------------------------------------------------------------------ 曲名{"ドラマル"} 作者{"メロン"} // ドラムによる「乱数出しミニマル実験」です。プレイごとに変わります。 Int MM= 0 ;// メロ・トラックです。。ゼロでメロ付き。それ以外、メロなし。 Int PPP= 0 ;// メロのパン。ゼロでランダム・パン。それ以外はセンター。 Int KKK= 1 ;// ゼロにすると効果音が付きます。 Int L= 128 ;// お好きなだけループさせてください。 //------------------------------------------------------------------------------ 音源初期化 拍子4,4 テンポ(120) 調#() // C Function RS(Array AR){Str A = AR( Random( SizeOf(AR) ) );Sub{o5A;}o4 A;o5} Function RS2(Array AR){Result = AR( Random( SizeOf(AR) ) );} Array Dr=({n37 },{n40 },{n41 },{n42 },{n43 },{n44 },{n45 },{n46 },{n47 },{n48 }, {n50 },{n54 },{n55 },{n56 },{n27},{n59 },{n80 },{n82 },{n70 },{n35 },{n85 }); Str AA={}+RS2(Dr)+{rrrrrrr}; Int M1=0 Str BB={r}+RS2(Dr)+{rrrrrr}; Int M2=0 Str CC={rr}+RS2(Dr)+{rrrrr}; Int M3=0 Str DD={rrr}+RS2(Dr)+{rrrr}; Int M4=0 Str EE={rrrr}+RS2(Dr)+{rrr}; Int M5=0 Str FF={rrrrr}+RS2(Dr)+{rr}; Int M6=0 Str GG={rrrrrr}+RS2(Dr)+{r}; Int M7=0 Str HH={r1-32}+RS2(Dr)+{32}; Int M8=0 Function Z(){ Int T=Random(16); If(T==0){M1=100} If(T==1){M2=100} If(T==2){M3=100} If(T==3){M4=100} If(T==4){M5=100} If(T==5){M6=100} If(T==6){M7=100} If(T==7){M8=100} If(T==8){M1=100} If(T==9){M2=0} If(T==10){M3=0} If(T==11){M4=0} If(T==12){M5=0} If(T==13){M6=0} If(T==14){M7=0} If(T==15){M8=0} } Int CT=0; Include(fadeio.h); [(L) CT++; TR=1 IF(CT<16){V=0}Else{IF(Random(2)=0){V=0}Else{V=100}} IF(MM<>0){V=0} @5 q(RandomSelect(40,80,160)) [8 IF(PPP==0){P=Random(128)} n(Random(30,100)),16,,(RandomSelect(0,100))] TR=2IF(KKK==0){IF(Random(3)==0){@119 a2}Else{r2}} TR=3IF(KKK==0){IF(Random(3)==0){@120 a2}Else{r2}} TR=4IF(KKK==0){IF(Random(6)==0){@118 o3a8a8a4}Else{r2}} TR=10V=100 音色(AnalogSet) l16 Z Sub{v(M1) HH}Sub{v(M2) GG}Sub{v(M3) FF}Sub{v(M4) EE}Sub{v(M5) DD}Sub{v(M6) CC}Sub{v(M7) BB}v(M8)AA ] [4r-1]FadeoutAll(4) この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)