サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 今年最後の曲です。壮大系プログレッシブハウスみたいなの目指して作りました。来年からはハウスも作っていきますが、受験があるので顔出すことが減るかもしれません。よろしくです。 曲データ(サクラから貼り付けます。) //------------------------------------------------------------------------------------------------- // テキスト音楽「サクラ」音楽データ (dSakura.dll Version.2.372)[08/12/29MO][PROGRESSIVE]W-Temp'08 //------------------------------------------------------------------------------------------------- // 今年もいろんなことがありましたね Include(gs.h)ResetGS;r4;Include(delay.h)System.MeasureShift=2System.vMax=150 TrackName={"Sky blue (Good bye 2008 mix)"}Copyright={"West"} MetaText{"*PR* Myblog→ " katasumi_7019@yahoo,co,jp " *Access here!*} //------------------------------------------------------------------------------------------------- Tempo=128FUNCTION 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,080,120,064,00,026,00,03)LAC(03,127,040,000,00,079,00,05)LAC(06,127,100,000,00,082,00,04) LAC(02,080,120,064,00,027,00,03)LAC(04,090,100,064,00,052,00,05)LAC(07,127,100,127,00,088,09,04) INT STME=0INT SET=STME*-1INT R=0LAC(05,127,040,064,00,080,00,05)LAC(08,127,100,064,00,039,09,04) //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,033,00,03)LAC(12,127,100,064,00,039,09,05)LAC(15,127,100,064,00,039,09,05) LAC(10,127,080,064,00,026,00,03)LAC(13,090,100,064,00,045,00,05)LAC(16,127,100,064,00,039,09,05) LAC(11,127,080,064,00,026,00,03)LAC(14,090,100,064,00,049,00,05)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 VC={IF(CH==1){r64}}STR VC1={VC;MM({[4[32f#][32e]]})} //KICK--------------------------------------------------------------------------------------------- STR MD1={p.W(70,0,!32)V=150BR=30[64c4]} //CHORD-------------------------------------------------------------------------------------------- STR CH1={l2V.W(90,40,!1^1^1^1)[4'df#'^^'g#b''eg#'^^'f#a']V=90}STR CH2={ V.T(20,90,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)l1'df#'^^^^^^^^^^^^^^^}STR CH3={l1'df#'^^^^^^^^^^^^^^^} STR CH4={MP({CH3})} //MELO--------------------------------------------------------------------------------------------- STR SY1={V.W(90,0,!8)[4[6"d[3'df#']]["g#[3'g#b']][6"e[3'eg#']][d[3'f#a']]]}STR SY2={ FOR(INT A=0;A<4;A++){MidiDelay({[6"d[3'df#']]["g#[3'g#b']][6"e[3'eg#']][d[3'f#a']]},A,!8)}}STR SY3= {MidiDelay({[32"dr'df#'rr'df#'rr]},2,!8)}STR SY4={[8r1]V.T(0,70,!1^1^1^1^1^1^1^1)[16"dr'df#'rr'df#' rr]} //KICK&SNARE--------------------------------------------------------------------------------------- STR BD={'n27n32n33n35n36'}STR SD={'n27n32n33n35n36n38'}STR BS1={[30BD;rrrSD;rrr]}STR BS2={[32BD;rrr SD;rrr]}STR BS3={[24BD;rrrSD;rrr][8SD;rrr][16SD;r]}STR BS4={[8r1]V.T(0,127,!1^1^1^1^1^1^1^1)[16rrrr SD;rrr]}STR BS5={[32rrrrSD;rrr]}STR BS6={[24rrrrSD;rrr][8SD;rrr][16SD;r]} //HIHAT-------------------------------------------------------------------------------------------- STR XC={'n42n44n46'}STR XD={'n42n44'}STR XC1={BR=5p0[32n44r'n44n70'r][32'n42n44'r'n42n46n70n82'r]} STR XC2={[64'n42n44'r'n42n46n70n82'r]}STR XC3={[8r1]V.T(0,127,!1^1^1^1^1^1^1^1)[32'n42n44'r 'n42n46n70n82'r]}STR XC4={FOR(INT X=0;X<16;X++){MidiDelay({[4'n42n44'r'n42n46n70n82'r]},X,!32)}} STR XC5={[64n44r'n44n70'r]} //PER---------------------------------------------------------------------------------------------- STR BW1={'n55n49n57'}STR BW2={[BW1[15r][7r1]]}STR BW3={MidiDelay({BW1},16,!4)}STR BW4={MidiDelay({ BW2},16,!4)} //TR=12-------------------------------------------------------------------------------------------- STR FR1={@82,0q100V=90[8r1]p.T(0,127,!1^1^1^1^1^1^1^1)V.T(0,80,!1^1^1^1^1^1^1^1)l1BR=10`g^^^^^^^} //TR=13-------------------------------------------------------------------------------------------- STR PA1={MP({[4l2'df#'^^'g#b''eg#'^^'f#a']})}STR PA2={V.T(20,90,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1) PA1} //TR=15-------------------------------------------------------------------------------------------- STR GT1={@127,0q100V=90[8r1]p.T(0,127,!1^1^1^1^1^1^1^1)V.T(0,80,!1^1^1^1^1^1^1^1)l1BR=10`g^^^^^^^} //TR=16-------------------------------------------------------------------------------------------- STR CY1={[8r1]q100@127,0BR=10V.T(0,100,!1^1^1^1^1^1^1^1)p.T(0,127,!1^1^1^1^1^1^1^1)'>cdef<'^^^^^^^} STR CY2={[6r1]V.T(0,120,!1^1)BR=20p.T(20,100,!1^1)l8@123,1[40rg]l16} //(TIME, BAS, BAS, TR3, TR4, TR5, TR6, TR7, TR8,KiSn,HiHt,Perc,TR12,TR13,TR14,TR15,TR16)(//R+) PL( SET, , , MD1, , MD1, , , , BS1, XC1, BW1, , , , , CY2) PL( 016, , , MD1, CH2, MD1, , , , BS2, XC2, BW2, , , , GT1, ) PL( 032, , , MD1, CH3, MD1, , , , BS3, XC2, BW4, FR1, , , GT1, ) PL( 048, , , , CH3, , , , , BS4, XC3, BW3, , , , , CY2)//doun PL( 064, , , , CH3, , , , , BS5, XC2, BW3, , PA2, PA2, GT1, CY2) PL( 080, , , , CH3, , SY4, SY4, SY4, BS6, XC4, BW4, FR1, PA1, PA1, GT1, CY1) PL( 096, VC1, VC1, MD1, CH3, MD1, SY3, SY3, SY3, BS2, XC5, BW3, , , , , )//get PL( 112, VC1, VC1, MD1, CH3, MD1, SY3, SY3, SY3, BS3, XC5, BW3, FR1, PA2, PA2, GT1, ) PL( 128, VC1, VC1, MD1, CH3, MD1, SY3, SY3, SY3, BS2, XC2, BW3, , PA1, PA1, , ) PL( 144, VC1, VC1, MD1, CH3, MD1, SY3, SY3, SY3, BS3, XC2, BW3, FR1, PA1, PA1, GT1, ) PL( 160, , , , CH3, , , , , BS5, XC2, BW3, , PA1, PA1, GT1, CY2)//doun PL( 176, , , , CH3, , SY4, SY4, SY4, BS6, XC4, BW4, FR1, PA1, PA1, GT1, CY1) PL( 192, , , MD1, , MD1, SY1, SY1, SY1, BS2, XC5, BW3, , , , , )//st PL( 208, VC1, VC1, MD1, CH2, MD1, SY2, SY2, SY2, BS1, XC5, BW3, , PA2, PA2, GT1, ) PL( 224, VC1, VC1, MD1, CH1, MD1, SY1, SY1, SY1, BS2, XC2, BW3, , PA1, PA1, , ) PL( 240, VC1, VC1, MD1, CH1, MD1, SY2, SY2, SY2, BS3, XC4, BW3, FR1, PA1, PA1, GT1, ) PL( 256, VC1, VC1, MD1, CH3, MD1, SY3, SY3, SY3, BS2, XC2, BW3, , , , , ) PL( 272, VC1, VC1, MD1, CH3, MD1, SY3, SY3, SY3, BS3, XC2, BW3, FR1, PA2, PA2, GT1, ) PL( 288, VC1, VC1, , CH3, , , , , BS5, XC2, BW3, FR1, PA1, PA1, GT1, CY2) PL( 304, , , MD1, , MD1, , , , BS1, XC5, BW3, , , , , CY2)End この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)