サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント しばらくの間ネットが使えなくなって困ってたんですが、そのときに作りすぎて溜め込んだ曲をちょっとづつ出して行こうと思います。まずは非常に解りやすいミニマルから。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------------------------- // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.372)[08/11/02MO][MINIMAL]W-Temp'08 //------------------------------------------------------------------------------------------------- // TR=16の音がすごく良くできた。ヘッドホンはやめとこう。 Include(gs.h)ResetGS;r4;Include(delay.h)System.MeasureShift=2System.vMax=150 TrackName={"Trouble"}Copyright={"West"} MetaText{"*PR* Myblog→ " katasumi_7019@yahoo,co,jp " *Access here!*} //------------------------------------------------------------------------------------------------- Tempo=130FUNCTION XE(tx){Time(tx:1:0)}FUNCTION MP(STR FR){Sub{>FR<}FR}FUNCTION MM(STR Y){Sub{}Y} FUNCTION MB(STR Z){Sub{>Z<}Sub{}Z}FUNCTION DP(P){XE(-2)GS_RHYTHM(P)r8}TR=9DP=1TR=10DP=2TR=11DP=1 FUNCTION LAC(TC,Vn,Qn,Pn,Mn,Vo1,Vo2,On){TR=TC;CH=TC;XE(0)l16v(Vn)q(Qn)P=Pn;M(Mn*10)@(Vo1,Vo2)o(On)} //B(TC, v , q , P , M, @ ,V2, o)M/C(TC, v , q , P , M, @ ,V2, o)SYN(TC, v , q , P , M, @ ,V2, o) LAC(01,127,080,064,00,057,00,02)LAC(03,127,080,127,00,005,00,05)LAC(06,127,080,064,00,039,09,03) LAC(02,127,080,064,00,039,00,02)LAC(04,127,080,064,00,005,00,05)LAC(07,127,080,064,00,039,09,03) INT STME=0INT SET=STME*-1INT R=0LAC(05,127,080,000,00,005,00,05)LAC(08,127,080,064,00,039,09,03) //D(TC, v , q , P , M, @ ,V2, o)MSE(TC, v , q , P , M, @ ,V2, o)/SE(TC, v , q , P , M, @ ,V2, o) LAC(09,127,080,064,00,026,00,03)LAC(12,127,080,064,00,001,00,05)LAC(15,127,100,064,00,039,09,05) LAC(10,127,080,064,00,026,00,03)LAC(13,127,050,127,00,017,00,07)LAC(16,127,080,064,00,123,01,05) LAC(11,127,080,064,00,026,00,03)LAC(14,127,050,064,00,017,00,07)FUNCTION PL(T,STR T1,STR T2,STR T3, STR T4,STR T5,STR T6,STR T7,STR T8,STR T9,STR T10,STR T11,STR T12,STR T13,STR T14,STR T15,STR T16){ STR I={XE=T+R+STME}TR=01I;T1;TR=02I;T2;TR=03I;T3;TR=04I;T4;TR=05I;T5;TR=06I;T6;TR=07I;T7;TR=08I;T8; TR=09I;T9;TR=10I;T10;TR=11I;T11;TR=12I;T12;TR=13I;T13;TR=14I;T14;TR=15I;T15;TR=16I;T16} //BASS--------------------------------------------------------------------------------------------- STR VC1={l32V.W(0,127,!16)[60rrra^^rr]}STR VC2={[64rrra^^rr]}STR VC3={r4[63rrra^^rr]} //MELO--------------------------------------------------------------------------------------------- STR MD1={IF(CH==5){r64}l8V.W(20,100,!32,100,0,!32)[7r'cae'rrrrrr]MidiDelay({r'cae'rrrrrr},3,!8)[8r 'cae'rrrrrr]}STR MD2={[14r'cae'rrrrrr]MidiDelay({r'cae'rrrrrr},6,!16)S{MidiDelay({r'cae'},3,!8)}rrr rV.T(0,127,!2)'cae'2V.W(20,100,!32,100,0,!32)} //CHORD-------------------------------------------------------------------------------------------- STR CH1={V=0l32[4[3r2rrrrV=127'cea'rrr'cea'rr'dfa'rrrr]MidiDelay({r2rrrr'cea'rrr'cea'rr'dfa'rrrr},2 ,!8)]}STR CH2={l32FOR(INT E=0;E<16;E++){MidiDelay({r2rrrr'cea'rrr'cea'rr'dfa'rrrr},2+E,!8)}} //SE----------------------------------------------------------------------------------------------- STR SE1={@120,0[15r1]r2``b2}STR SE2={@120,0[7r1]r2``b2}STR SE3={@120,0[[7r1]r2``b2]} //KICK&SNARE--------------------------------------------------------------------------------------- STR BD={BR=15p127'n27n32n35'}STR SD={'n27n28n32n35n38'}STR BS1={[64BD;rrr]}STR BS2={[48BD;rrr] FOR(INT D=0;D<7;D++){MidiDelay({BD;rrrSD;rrr},D,!8)}}STR BS3={[32BD;rrrSD;rrr]}STR BS4={[31BD;rrrSD rrr]}STR BS5={[32BD;rrr]}STR BS6={rrrrSD;rrr[31BD;rrrSD;rrr]} //HIHAT-------------------------------------------------------------------------------------------- STR XC={BR=3p67'n42n70n82'}STR XD={MidiDelay({XC},8,!64)}STR XC1={[64rrXC;r]}STR XC2={[8[6rrXC;r]rr XD;rrrXC;r]}STR XC3={r4[5rrXC;r]rrXD;rrrXC;r[7[6rrXC;r]rrXD;rrrXC;r]} //PER---------------------------------------------------------------------------------------------- STR BW1={l32p127[16rrrrn82rrn82n82rrn82n82rrn82rrrrn82rrn82n82rrrn82rrr]}STR BW2={[8r1]l32p127[8rrr rn82rrn82n82rrn82n82rrn82rrrrn82rrn82n82rrrn82rrr]} //TR=12-------------------------------------------------------------------------------------------- STR FR1={[8[l32@119,0rrrr""d[15r]:rrr""d[8r]]""drr""e[8r]]} //TR=13-------------------------------------------------------------------------------------------- STR PA={IF(CH==14){r64}}STR PA1={[15r1]l12r2rPA[5a]}STR PA2={l32PA[16d[19r]arrgrrrfrrrr]}STR PA3={ PA;FOR(INT O=0;O<16;O++){[MidiDelay({drrrarrgrrrfrrrr},O,!32)]}} //TR=15-------------------------------------------------------------------------------------------- STR GT1={[12r1]<<@126,8BR=0l1p.W(0,127,!1^1^1^1)V.W(0,127,!1^1^1^1)'ga'^^^>>}STR GT2={[12r1]@123,1 BR=10V.W(0,90,!1^1^1^1)'cc#d'^^^} //TR=16-------------------------------------------------------------------------------------------- STR CY1={V=0p.T(127,100,!1^1^1^1^1^1^1^1)V.T(110,20,!1^1^1^1^1^1^1^1)r-4l1q100@123,1`b^^^^^^^} STR CY2={r4V=0p.T(127,100,!1^1^1^1^1^1^1^1)V.T(110,20,!1^1^1^1^1^1^1^1)r-4l1q100@123,1`b^^^^^^^} //(TIME, BAS, BAS, TR3, TR4, TR5, TR6, TR7, TR8,KiSn,HiHt,Perc,TR12,TR13,TR14,TR15,TR16)(//R+) PL( SET, , , , , , , , SE3, BS1, XC1, , FR1, , , GT1, ) PL( 016, VC1, VC1, , , , , , SE2, BS2, XC2, , FR1, , , GT2, CY1)//in e PL( 032, VC2, VC2, MD1, , MD1, , , SE1, BS3, XC2, , FR1, , , , ) PL( 048, VC2, VC2, MD2, , MD2, , , SE2, BS4, XC2, BW1, FR1, PA1, PA1, GT1, ) PL( 064, VC2, VC2, MD1, , MD1, , , SE1, BS3, XC2, , FR1, PA2, PA2, , CY1)//In o PL( 080, VC2, VC2, MD2, , MD2, , , SE1, BS3, XC2, BW1, FR1, PA2, PA2, GT1, ) PL( 096, VC1, VC1, MD1, CH2, MD1, , , SE3, BS5, XC1, BW2, , PA3, PA3, GT2, CY1)//mb PL( 112, VC2, VC2, MD1, CH1, MD1, , , SE1, BS3, XC2, , FR1, , , , CY1) PL( 128, VC1, VC1, MD2, CH1, MD2, , , SE2, BS4, XC2, BW1, FR1, , , GT1, ) PL( 144, VC2, VC2, , CH1, , , , SE1, BS3, XC2, , FR1, , , , CY1)//MD e PL( 160, VC1, VC1, , CH1, , , , SE1, BS3, XC2, BW1, FR1, , , GT1, ) PL( 176, VC1, VC1, , CH2, , , , SE3, , XC1, BW2, , PA3, PA3, GT2, CY1)//br PL( 192, VC2, VC2, MD1, , MD1, , , SE1, BS3, XC2, , FR1, PA2, PA2, , CY1)//In o PL( 208, VC2, VC2, MD2, , MD2, , , SE2, BS3, XC2, BW1, FR1, PA2, PA2, GT2, ) PL( 224, VC3, VC3, MD2, CH1, MD2, , , SE1, BS6, XC3, , FR1, , , GT1, CY2)//flash PL( 240, VC2, VC2, MD2, CH1, MD2, , , SE2, BS3, XC2, BW1, FR1, , , GT2, ) PL( 256, VC2, VC2, , , , , , SE2, BS1, XC2, , FR1, , , GT1, CY1)//nu PL( 272, VC1, VC1, , , , , , SE3, BS2, XC2, , , , , , CY1)End この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)