サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント (( へへ(へへ ; ´・ω・` )へへ < いずれも一年半以上前のデータです。 曲データ(サクラから貼り付けます。) /* 曲名 旧掲示板への投稿日時 ID ■ENDLESS DANCING 2004/05/17 18:57:08 3413 リフの部分が特徴的だと思います。ここまでアグレッシブ路線に徹したのも珍しいかも。 もう一年半以上前の曲ですが、メロディ構成はなかなかうまく行きました。 余計な効果音が多いのが、この頃の悪いクセなんだと思います。 曲名 旧掲示板への投稿日時 ID ■SWEET SUMMER DANCE 2004/06/15 19:10:37 3631 こういう和音の重ね方のリフは初の試みだったと思います。 地味な展開と軽いパーカス…徐々に飽きられていくキッカケでした。 このデータ自体は受け悪いわけじゃなかったですけど・・ */ INT PLAY_SONG = 0 ;// 0でENDLESS DANCING、その他の数字を入れるとSWEET SUMMER DANCEを演奏します。 If(PLAY_SONG==0){ INT TEMPO_EST=157STR MODE1=GS;PlayFrom.SysEx(on)PlayFrom.CtrlChg(on)PlayFrom.RPN_NRPN(on) TrackName={ENDLESS DANCING}Copyright={H゛}System.MeasureShift(3)Tempo=1000Include(delay.h)ResetGS; Function Autoexec(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){ TR=X1;DL(0)CH=X2;@(X3,XA,XB)Key=X4;P=X5;CHO=X6;REV=X7;v=(X8)q=(X9)M=(XC)} Function DL(ti){Time(ti:1:0)}STR INS={InstrumentName} Function PAN(ER1,ER2){If(ER2=0){P.T(000,127,ER1)}If(ER2==1){P.T(127,000,ER1)}} Function Review(STR OIN,Revalue,ReNo){STR REPO= "r" + Revalue;Sub{[(ReNo);OIN;REPO]}} Function GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}} _CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;} Function HAM(STR SA){Sub{Key=12;SA;Key=0}SA}Function HAM2(STR SA){Sub{Key=-12;SA;Key=0}SA}Function HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12;SA;Key=0}SA} STR LC={"cceg`c}STR LD={"ddf#a`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LF={"ffa`c`f}STR LFS={"f#f#a#`c#`f#}STR LG={"gga#`d`g}STR LA={"aa`c#`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`f#`b} STR WC={r'LC'}STR WD={r'LD'}STR WDS={r'LDS'}STR WE={r'LE'}STR WF={r'LF'}STR WFS={r'LFS'}STR WG={r'LG'}STR WA={r'LA'}STR WAS={r'LAS'}STR WB={r'LB'} //------( TR , CH , @ , @2 , @3 , Key, P , CHO, REV, v , VAR, M )INS={InstrumentName} Autoexec( 001, 001, 011, 000, 000, 000, 064, 060, 060, 127, 090, 000)INS={"MAIN"} Autoexec( 002, 002, 082, 000, 000, 000, 064, 040, 020, 100, 093, 000)INS={"SYNTH"}If(MODE1==TWM){v=110CHO=60} Autoexec( 003, 003, 115, 000, 000, 000, 000, 040, 020, 100, 100, 000)INS={"SYNTH"}If(MODE1==TWM){v=110CHO=60} Autoexec( 004, 004, 021, 000, 000, 000, 127, 040, 020, 100, 100, 000)INS={"SYNTH"}If(MODE1==TWM){v=110CHO=60} Autoexec( 005, 005, 082, 000, 000, 000, 064, 020, 020, 127, 100, 010)INS={"BASS"} Autoexec( 006, 006, 031, 000, 000, 000, 032, 080, 030, 060, 103, 020)INS={"CHORD"}If(MODE1==TWM){v=80} Autoexec( 007, 007, 039, 008, 000, 000, 000, 070, 030, 070, 090, 040)INS={"HIGH"}If(MODE1==TWM){v=80} Autoexec( 008, 008, 038, 000, 000, 000, 127, 070, 030, 070, 090, 040)INS={"HIGH"}If(MODE1==TWM){v=80} Autoexec( 009, 009, 011, 000, 000, 000, 096, 030, 040, 090, 103, 020)INS={"URA_MERO"} Autoexec( 010, 010, 025, 000, 000, 000, 064, 030, 040, 127, 100, )INS={"KICK"}DL(-2)GSRY(1)r8 Autoexec( 011, 011, 025, 000, 000, 000, 064, 030, 000, 127, 090, )INS={"HI_HAT"}DL(-2)GSRY(2)r8 Autoexec( 012, 012, 025, 000, 000, 000, 064, 030, 000, 127, 090, )INS={"SYMBAL"}DL(-2)GSRY(1)r8 Autoexec( 013, 013, 119, 009, 000, 000, ___, 020, 000, 127, 090, )INS={"TAM"} Autoexec( 014, 014, 081, 008, 000, 000, ___, 040, 030, 127, 100, )INS={"BGM"} Autoexec( 015, 015, 003, 000, 000, 000, ___, 030, 050, 127, 100, )INS={"BGSOUND"} Autoexec( 016, 016, 091, 000, 000, 000, ___, 030, 050, 127, 100, )INS={"BGSOUND"} //------( TR , CH , @ , Key, P , P2 , P3 , CHO, REV, v , VAR, M )INS={InstrumentName} //-------------------------------------------------------------------------------------------------------------------------------------------------------------------// DL=0Tempo=TEMPO_EST;INT HAZ=1INT BGN=13INT ME1=21INT ME2=29INT SB1=38INT RF1=46INT ME3=54INT ME4=62INT SB2=71 INT RF2=87INT ME5=95INT ME6=103INT SB3=112INT ME7=120INT SB4=129INT END=145STR PH={p.T(64,84,!1^1^1^1)}Function REC(FF){EP.T(FF,0,!1^1^1^1^1^1)} //------------------------------------------------------------------------------TR=001;------------------------------------------------------------------------------// STR MG1={l8[gaa#`d^r`d`d`ca#rara#:gr[16r]]`dr[16r]} STR MG2={[l16MidiDelay({a#^^a^^g^r},3,!2)[7r]MidiDelay({`c^^a#^^a^r},3,!2)[7r]a#^^a^^:g^rrg^a^g^l8g^^f^^rr]a#^rr`d^`d^`c^`d^^^[8r]} STR MG3={l16[[3`d^^a#^^`d^:`c^rrrra#`c]:`c^^a#^^ara#^^ra#r`c`d^^[6r]]`cr`dr`fr`gr`gr`gr`gr`f`g[8r]} STR MG4={P.onCycle(!1,64,0,127,0)MidiDelay({`d^^a#^^`d^`c^},4,!1)[54r]P=64} TR=1DL=ME1;V=110If(MODE1==TWM){V=120}MG1;MG2;DL=SB1;MG3;DL=ME3;MG1;MG2;DL=SB2[MG3]DL=SB3[MG4]P=64MG2;DL=SB4;TrackKey=3[MG3] //------------------------------------------------------------------------------TR=002&003&004;----------------------------------------------------------------------// STR FG1={[[`da#`cr`dr`d#`d^:ga#ga#ga#`c]:`d`d#`d`f`d#`d`c]`d`dr`d#r`fr; [`da#`cr`dr`d#`d^:ga#ga#ga#`c]`d`d#`d`f`d#`d`c;`da#`cr`dr`d#`d^a#a#ra#rargrgrMidiDelay({ga#`d`g},3,!4)[8r]} STR FG2={l8EP=100M=50[16r]SUB{a#^ra#a^rgffffrf#^^}g^rdf^rdccccrd^^[16r]SUB{grgrffrfd#rd#'"ff'^^}[a#r][[a#]r]a#a^^M=0EP=127l16} STR FG3={EP=100[14r][dga#[13r]fa`c:[29r]>SUB{"a#r"a#^}frf^^^<[10r]]EP=127}STR FG4={EP=90['LD'^r:r]'LD'r['LD']r'LD'^^^EP=127} STR FG5={EP=100[57r]SUB{ggrfrfr}a#a#r`cr`drEP=127}STR FG6={EP=100M=90SUB{[4"a"ar]"a^^^}HAM2({[4`d`dr]`d^^^})EP=127M=0} STR RRF={DL=BGN;l16FG1;FG2;FG3;DL=SB1-1FG4;DL=SB1;FG5;DL=RF1;FG1;FG2;DL=SB2-1FG6;DL=SB2;FG5;DL=SB2+8FG5;DL=RF2;FG1; FG2;FG3;DL=SB3-1FG4;DL=SB3;FG5;DL=ME7-1[12r]FG3;DL=SB4;TrackKey=3FG5;DL=SB4+8FG5;DL=END;FG1;REC=127;FG1;TrackKey=0}TR=2;>HAM2({RRF})TR=3RRF;TR=4RRF; //------------------------------------------------------------------------------TR=005;------------------------------------------------------------------------------// STR BSH={[[[4d`d^]:f^g^]:c^c#^]fdfg}STR BS1={[[[d#`d#][f`f][g`g]:[f`f]][g`g]]}STR BS2={[[g`g][f`f][3d#`d#]f`f[g`g][a#`a#][`c``c]:f`ff#`f#][`d``d]} STR BS3={[[[4d#`d#]:[4f`f]]:[3a#`a#]f`f][4d`d]}STR BS4={[[[d#`d#][f`f]:[g`g][f`f]]:[a#`a#]c`cd`d][8r]} TR=5DL=HAZ;l16<<@39,8[BSH]PH[16d^`d^]DL=BGN;p=64l8WC<]WF;WFS]} STR GR3={[[[4WDS]:[4WF]]:[4WAS]][4WD]}STR GR4={[[[WDS][WF]:[WG][WF]]:[WAS]WC;WD][8r]} STR HGTH={DL=BGN;l8GR1;GR2;GR3;DL=SB1;GR4;GR1;DL=SB2[GR4]GR1;GR2;GR3;DL=SB3;GR4;GR3;DL=SB4;TrackKey=3[GR4]GR1;v.T(70,0,!1^1^1^1^1^1)GR1;DL=END+12v=0EP=0} TR=7HGTH;TR=8HGTH; //------------------------------------------------------------------------------TR=009;------------------------------------------------------------------------------// STR DR1={l16[SUB{a#^^g^^g^a^}d#^^d#^^d#^f^rrrrfff^^f^^f^g^rrrrddd#^^d#^^d#^:f^^d^^"a#rd^^rdrd#f^^[6r]]drdr"a#r"gr"a#r"a#r"a#r"a"a#[8r]} STR DR2={MidiDelay({a#^^g^^g^a^},4,!1)[54r]}TR=9DL=SB1;DR1;DL=SB2[DR1]DL=SB3[DR2]DL=SB4;TrackKey=3[DR2] //------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------// STR O1={'n27n32n33n35n36'}STR O2={'n27n32n33n35n36n40'}STR O3={'n27n32n33n35n36n49'}STR O4={'n27n32n33n35n36n38'}STR O5={'n27n32n33n35n36n51n59'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]} STR DM2={O1;rrrO2;rrr}STR DM3={O1;rrrO2;rrrO1;rrrO2;rrO2}STR DM4={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;rO1;r} STR DM5={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;O2;r[2O1]r[2O1]}STR DM6={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrr[2O2;r]} STR DM7={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;r[2O2]}STR DM8={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[4[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM11={[3O1;rrrO2;rrrO1;rrrO2;rrr][O2;r[O1]][O2;r][O2]rr} STR DM12={[O1;r]O4;r[O1][O1]O4;r[4'n27n28']}STR DM13={[6DM2]O3[7r]['n28n39'r]rrrr}STR DM14={[7O1;rrr][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[3O1;rrrO2;rrrO1;rrrO2;rrr]p%=2000O3;rrr['n39n28'r:rr]O1;r[4O1]p%.onCycle(!4,2000,3000)} STR PA1={p%.onCycle(!4,2000,3000)} TR=10DL=HAZ@25If(MODE1==TWM){@27,7}l16BR=20p%=2000SUB{O3}[4O5:[15r]][7r][O1;r][4O1]@17,0SUB{[64n54]}DM10@25If(MODE1==TWM){@27,7}p%.T(3000,-3000,!1^1,-3000,3000,!1)[14DM1]p%=2000[8O1] DL=BGN;EP=100PA1;DM6;DM9;DM16;DM8;DM4;DM6[DM1]p%=2000[O1;r][4O1]PA1;DM4[6DM2][3DM1]O1;r[O1]DM6;DM9;DM16;DM8;DL=ME4+4@26,0DM6@25If(MODE1==TWM){@27,7} DL=SB2[DM4:DM5][6DM2][3DM1]O1;r[O1]DM6;DM9;DM16;DM8;DM4;DM6[DM1]p%=2000[O1;r][4O1]PA1;DM4[6DM2][3DM1]O1;r[O1] DM4;DM6;DL=SB4[DM4:DM5][6DM2][3DM1]O1;r[O1]PA1;DM6;DM9;REC=100DM6;DM9; //------------------------------------------------------------------------------TR=011;------------------------------------------------------------------------------// STR GR={n42}STR GA={n44}STR GB={n46}STR TA={n54};STR MT={n51};STR DR={n40};STR PL1={P.onCycle(!8,32,90)If(MODE1==TWM){P.onCycle(!8,32,100)}}STR PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!8,30,80)}} STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[GR]GB;r][2GR][2GB]}STR GP4={[GR]GB;GR}STR GP5={[3GP4][GR][GB]} TR=11DL=HAZ;If(MODE1==TWM){@27,7v=100}l16PL1;BR=20p%=2000DL=HAZ+4[8GP5]DL=BGN[8GP3][[[3GP2]:[16r]]GP2:[8GP2][16r][[7GP3]:[16r]]GP3]DL=ME4+4[4GP2] DL=SB2[[7GP3][16r]][8GP3][[3GP2]:[16r]]GP2[8GP2][16r][7GP3][16r][8GP2][16r][24GP3]REC=127[8GP3] //------------------------------------------------------------------------------TR=012;------------------------------------------------------------------------------// STR PD1={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]} TR=12DL=BGN;If(MODE1==TWM){@27,7}l16BR=20p%=1000PD1;DL=SB1[PD1]DL=ME4;PD1;DL=SB2[3PD1]DL=SB3;PD1;DL=SB4[3PD1]REC=127PD1; //------------------------------------------------------------------------------TR=013;------------------------------------------------------------------------------// STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DS1={br`br`gr`e`c`cargrdr};STR DS2={[8r][4`c]grgg}STR DS3={[8r]d`dd`drd`dd}STR DS4={gr`drbrggrg`dggg`dg} STR DS5={`d`dr`dararfrfrcrcc}STR DS6={[10r]`ar`ergr}STR DS7={[12r]`eaer}STR DS8={P.T(127,0,!1)p%.T(0,-8192,!1)HAM({[16e]})p%=0}STR DS9={[`d#][a#][g][d#][8r]} STR DS10={[8`g]`c`cgrcr"gr}STR DS11={[rrrr`dafd]}STR DS12={[4`g][4`d]ggrgrgrg}STR DS13={[8r][`dr]`dad"a} TR=13DL=HAZ;>} STR GT3={l4q=104@103,0P.onCycle(!1,97,30)[[a#^^^:`c^^^]:`d^`c^]`d^^^} STR GT4={l16EP=70P=40@11[a#^^a#^^a#^a^rrrrfga^^a^^a^g^rrrrgaa#^^a#^^g^:a^^`c^^`d^a#^^^a#^c`d^^[6r]]arfrgrara#ra#ra#ra#a#[8r]} STR GT5={@25,0l16EP.onCycle(!8,40,50,60,70,80,90,100,110)P.onCycle(!8,0,10,20,30,97,107,117,127)[[[16g]:[16a]]:[16a#]][16a]} TR=14DL=HAZ+4EP=100GT2;DL=BGN;>GT1;DL=ME2;EP=60GT3;DL=SB1;GT4;DL=RF1;GT1;DL=ME4;GT5;DL=SB2[GT4]DL=RF2;GT1;DL=ME6;EP=60GT3; DL=ME7;GT3;TrackKey=3DL=SB4[GT4]GT1;DL=END+8v.T(127,0,!1^1^1^1^1^1)GT1; //------------------------------------------------------------------------------TR=015;------------------------------------------------------------------------------// STR BG1={@123,3l2p.T(100,32,!1^1)P.W(0,127,!1^1,127,0,!1^1)BR=48'gfe'^^^P=64p=64}STR BG2={BR=40@127,4p.T(64,127,!2,127,64,!2)[16c]}STR BG3={@80,0l16EP=70BR=120p.T(127,0,!24)`gp=64} STR BG4={l16[12r]P.T(127,0,!4)[4BG3]P=64}STR BG5={l16P.onCycle(!2,0,127)[rrrr[4BG3]]P=64}STR BG6={l16[12r]P.onCycle(!8,96,32)[BG3;r]P=64} STR BG7={}STR BG8={>>@125,1l2EP=90BR=12p.T(127,32,!1)e^<>@127,0l2EP=90BR=24p.T(127,32,!1)e^<P=64} TR=15DL=HAZ[BG9]DL=BGN-4DG1;DL=BGN-2BG1;DL=ME1+3BG6;DL=ME1+7BG6;DL=ME2+4P.onCycle(!1,30,97)[4BG2]DL=SB1+3BG5;DL=SB1+7BG6; DL=ME3+3BG6;DL=ME3+7BG6;DL=SB2+3BG5;DL=SB2+7BG6;DL=SB2+11BG5;DL=SB2+15BG6;DL=ME5+3BG6;DL=ME5+7BG6;DL=ME6+4P.onCycle(!1,30,97)[4BG2] DL=SB3+3BG5;DL=SB3+7BG6;DL=ME7+4P.onCycle(!1,30,97)[4BG2]DL=SB4+3BG5;DL=SB4+7BG6;DL=SB4+11BG5;DL=SB4+15BG6; //------------------------------------------------------------------------------TR=016;------------------------------------------------------------------------------// TR=16DL=HAZ+3BG6;DL=HAZ+7BG4;DL=BGN;BG7;DL=BGN+3BG6;DL=BGN+6BG8;DL=BGN+7BG4;DL=ME1;DG1;DL=SB1-2BG8; DL=SB1;BG7;DL=SB1+6BG10;DL=RF1;BG7;DL=RF1+3BG6;DL=RF1+6BG8;DL=RF1+7BG4;DL=ME3;DG1;DL=SB2;BG7;DL=SB2+6BG10; DL=SB2+8BG7;DL=SB2+14BG10;DL=RF2;BG7;DL=RF2+3BG6;DL=RF2+6BG8;DL=RF2+7BG4;DL=ME5;DG1;DL=SB3;BG7;DL=SB3+6BG10; DL=SB4-2BG8;DL=SB4-1BG11;DL=SB4;BG7;DL=SB4+6BG10;DL=SB4+8BG7;DL=SB4+14BG10;DL=END;BG7;DL=END+3BG6;DL=END+6BG8;DL=END+7BG4; v.T(127,0,!1^1^1^1^1^1)DL=END+8BG7;DL=END+11BG6;DL=END+14BG8; }Else{ STR MODE1=GS;INT TEMPO_EST=157PlayFrom.SysEx(on)PlayFrom.CtrlChg(on)PlayFrom.RPN_NRPN(on) TrackName={SWEET SUMMER DANCE}Copyright={H゛}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS; Function Autoexec(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){ TR=X1;DL(0)CH=X2;@(X3,XA,XB)Key=X4;P=X5;CHO=X6;REV=X7;v=(X8)q=(X9)M=(XC)} Function DL(ti){Time(ti:1:0)}STR INS={InstrumentName} Function PAN(ER1,ER2){If(ER2==0){P.T(000,127,ER1)}If(ER2==1){P.T(127,000,ER1)}} Function Review(STR OIN,Revalue,ReNo){STR REPO= "r" + Revalue;Sub{[(ReNo);OIN;REPO]}} Function GSRY(_D){INT _TCH=Channel;INT _CH;If(_TCH==10){_CH=$00;}Else{If(_TCH<10){_CH=_TCH;}Else{_CH=_TCH-1}} _CH=$10+_CH;SysEx=$F0,$41,(DeviceNumber),$42,$12,{$40,(_CH),$15,(_D)},$F7;} Function HAM(STR SA){Sub{Key=12;SA;Key=0}SA}Function HAM2(STR SA){Sub{Key=-12;SA;Key=0}SA}Function HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12;SA;Key=0}SA} STR LC={"cceg`c}STR LD={"ddf#a`d}STR LDS={"d#d#ga#`d#}STR LE={"eegb`e}STR LF={"ffa`c`f}STR LFS={"f#f#a#`c#`f#}STR LG={"gga#`d`g}STR LA={"aa`c#`e`a}STR LAS={"a#a#`d`f`a#}STR LB={"bb`f#`b} STR WC={r'LC'}STR WD={r'LD'}STR WDS={r'LDS'}STR WE={r'LE'}STR WF={r'LF'}STR WFS={r'LFS'}STR WG={r'LG'}STR WA={r'LA'}STR WAS={r'LAS'}STR WB={r'LB'} //------( TR , CH , @ , @2 , @3 , Key, P , CHO, REV, v , VAR, M )INS={InstrumentName} Autoexec( 001, 001, 011, 000, 000, 000, 064, 070, 050, 127, 090, 000)INS={"MAIN"} Autoexec( 002, 002, 082, 000, 000, 000, 064, 090, 030, 110, 093, 000)INS={"SYNTH"} Autoexec( 003, 003, 081, 000, 000, 000, 000, 090, 030, 110, 100, 000)INS={"SYNTH"} Autoexec( 004, 004, 083, 000, 000, 000, 127, 090, 030, 110, 100, 000)INS={"SYNTH"} Autoexec( 005, 005, 039, 000, 000, 000, 064, 020, 020, 127, 090, 010)INS={"BASS"} Autoexec( 006, 006, 049, 000, 000, 000, 032, 070, 030, 080, 103, 020)INS={"CHORD"} Autoexec( 007, 007, 039, 008, 000, 000, 000, 060, 030, 050, 090, 040)INS={"HIGH"} Autoexec( 008, 008, 037, 000, 000, 000, 127, 060, 030, 050, 090, 040)INS={"HIGH"} Autoexec( 009, 009, 011, 000, 000, 000, 074, 030, 040, 110, 090, 020)INS={"URA_MERO"} Autoexec( 010, 010, 025, 000, 000, 000, 064, 030, 040, 127, 100, )INS={"KICK"}DL(-2)GSRY(1)r8 Autoexec( 011, 011, 025, 000, 000, 000, 064, 030, 000, 127, 090, )INS={"HI_HAT"}DL(-2)GSRY(2)r8 Autoexec( 012, 012, 026, 000, 000, 000, 064, 030, 000, 127, 090, )INS={"CYMBAL"}DL(-2)GSRY(1)r8 Autoexec( 013, 013, 119, 009, 000, 000, ___, 020, 000, 127, 090, )INS={"TAM"} Autoexec( 014, 014, 082, 001, 000, 000, ___, 040, 030, 127, 090, )INS={""} Autoexec( 015, 015, 003, 000, 000, 000, 096, 050, 030, 110, 100, )INS={"BGSOUND"} Autoexec( 016, 016, 091, 000, 000, 000, 084, 070, 030, 127, 100, )INS={"BGSOUND"} //------( TR , CH , @ , Key, P , P2 , P3 , CHO, REV, v , VAR, M )INS={InstrumentName} //-------------------------------------------------------------------------------------------------------------------------------------------------------------------// DL=0Tempo=TEMPO_EST;INT HAZ=1INT BGN=17INT ME1=25INT ME2=41INT SB1=49INT RF1=57INT ME3=65INT ME4=81INT SB2=89 INT RF2=105INT NK1=113INT NK2=121INT ME5=129INT SB3=137INT END=153Function REC(FF){EP.T(FF,0,!1^1^1^1^1^1)} //------------------------------------------------------------------------------TR=001;------------------------------------------------------------------------------// STR AU1={[g^a^a#^ag^^^rr:a#a#^a^g^f^ad^^^^^rrrd#^f^g^gd#^d#f^g^g^f^^d#d^d#f^^^^rrrr]a#a#^a^g^f^f`c^^^^^rrrd#^f^g^gd#^d#f^ga^ga^^g^^a^a^^^^rrr} STR AU2H={[a#^^g^^f^g^rg`ca#a:g]a#a#^agra#a#aa#^agraafa^f^a^a#`c^^rrr}STR AU2={v=115HAM2({AU2H})v=127} STR AU3={ga^[a#^g^a#`c`d`c^a#^a#^`c`dr:a#`c`d`c^`f^aa#^`c^`d^rr]`c^`d^`c`d^a#`c^^`d^^^r} STR AU4={[a#^g^a#`c`d`c^a#^a#^`c`dr:a#`c`d`c^`f^aa#^`c^`d^rr]`c^`d^`c`d^a#`c^^`d^^^r} TR=1>l8DL=ME1;EP.W(110,127,!1)V=120If(MODE1==TWM){V=127}AU1;AU2;AU3;DL=ME3;AU1;AU2H;AU3;AU4;DL=ME5;AU2;AU3;AU4; //------------------------------------------------------------------------------TR=002&003&004;----------------------------------------------------------------------// STR OIH={MidiDelay({[4ggr]"a#"g"a#cd},3,!1)[47r]} STR OI1={[SUB{[a#a#r]a#a^^}[`d`dr]`d`c^^`caaa#`c`cSUB{[aar]ag^}[`c`cr]`ca#^SUB{ddrdrdr}ggrara#r: SUB{[ggr]}[a#a#:r]gaa#SUB{[ddr]}[a:ar]daa#`cSUB{a#a#rggraarddra#`ca#a}`d`dra#a#r[`c`cr]`d`d#`d`c] SUB{[ggr]gc^^crc^c^}[a#a#r]a#a^^a#ra^a#^dfgaa#`c`c#`drSUB{a#ra#a#^^^}`dr`d`d^^^} STR RRF={DL=HAZ+8EP=100l16[OIH]DL=BGN;EP=127OI1;DL=RF1;OI1;DL=RF2;OI1;DL=NK2;EP=100[OIH]EP=127DL=END;OI1;REC=127OI1;} TR=2;>RRF;TR=3RRF;TR=4RRF; //------------------------------------------------------------------------------TR=005;------------------------------------------------------------------------------// //STR YC={c^`c`c}STR YD={d^`d`d}STR YDS={d#^[`d#]}STR YF={f^[`f]}STR YFS={f#^`f#`f#}STR YG={g^`g`g}STR YA={a^`a`a}STR YAS={a#^[`a#]} STR YC={c^`c^}STR YD={d^`d^}STR YDS={d#^`d#^}STR YF={f^`f^}STR YFS={f#^`f#^}STR YG={g^`g^}STR YA={a^`a^}STR YAS={a#^`a#^} STR BSH={[[3"ggrggrggrggr"a#rcr]:"ggd"a#"g"f"dg^ggrgrgr]"gg"g"g"g"a#cdg^[6g]}STR BS1={[[YDS][YF]:[YD][YG]][4YG];[YDS][YF][YD][YG][4YC][YD]d^^^d^^^} STR BS2={[[8YG][8YD][8YDS]:[4YD][YF][f^^^]][4YF][4YFS]}STR BS3={[6YDS][YF][7YG]YF[4YDS][4YC][4YD][YF][8r]} TR=5DL=HAZ@7l16<@39,8BSH<@39,0BS3[3BS1]REC=127BS1; //------------------------------------------------------------------------------TR=006;------------------------------------------------------------------------------// STR CDH={l4SUB{[4a#^^:a]`c}HAM2({[4g^^:f]a#})} STR CD1={l4SUB{[a#^`c^:`c^`d^]`d^^^;a#^`c^`c^`d^a#^^^a^}SUB{[g^a^a^a#^:g^a^a#^^^]g^^^}HAM2({[d#^f^d^g^:d#^f^g^^^]c^^^d^})rr} STR CD2={l2SUB{a#^aa#agfag^fgf^a^;a#^aa#aa#`caa#aa#`ca^`c^}HAM2({[g^^^d^^^d#^^^:d^f^]f^f#^})} STR CD3={l4SUB{g^^^^^a^a#^^^^^^`ca#^^^g^^^a^^^`c^}HAM2({d#^^^^^f^g^^^^^^fd#^^^c^^^d^^^f^rr})} TR=6DL=HAZ@53v=70EP.W(100,127,!1)[4CDH]DL=BGN@49v=80If(MODE1==TWM){v=90}CD1[CD2;CD3[CD1]][CD1][CDH]DL=ME5;CD3[3CD1]v.T(80,0,!1^1^1^1^1^1)CD1;DL=END+14EP=0v=0V=0 //------------------------------------------------------------------------------TR=007&008;--------------------------------------------------------------------------// STR SR1={[[WDS][WF][WD][WG]:[WDS][WF][4WG]][4WC][WD][4r]}STR SR2={[[8WG][8WD][8WDS]:[4WD][WF]rrrr][4WF][4WFS]}STR SR3={[6WDS][WF][7WG]WF[4WDS][4WC][4WD][WF][4r]} STR HGTH={l8DL=BGN;SR1;SR2;SR3[SR1]DL=ME4;SR3[4SR1]DL=ME5;SR3[3SR1]REC=127SR1;}TR=7HGTH;TR=8HGTH; //------------------------------------------------------------------------------TR=009;------------------------------------------------------------------------------// STR UL2={[g^g^aaaf^f^f^a#a#^:gaa#a^`c^fg^a^a#^^r]g^a^ga^gg^^a^^^r}TR=9l8DL=SB1;EP.W(110,127,!1)UL2;DL=SB2[UL2]DL=SB3[UL2] //------------------------------------------------------------------------------TR=010;------------------------------------------------------------------------------// STR O1={'n27n32n33n35n36'}STR O2={'n27n32n33n35n36n40'}STR O3={'n27n32n33n35n36n49'}STR O4={'n27n32n33n35n36n38'}STR O5={'n27n32n33n35n36n51n59'}STR DM1={O1;rrr}STR DH1={[7DM1][2O1;r]} STR DM2={O1;rrrO2;rrr}STR DM3={O1;rrrO2;rrrO1;rrrO2;rrO2}STR DM4={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;rO1;r} STR DM5={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;O2;r[2O1]r[2O1]}STR DM6={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrr[2O2;r]} STR DM7={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO2;rrrO1;rrrO2;r[2O2]}STR DM8={[3O1;rrrO2;rrrO1;rrrO2;rrr]O1;rrrO1;rO2;rrrO1;rO2;r[2O2]} STR DM9={[6DM2]O3[7r]['n28n39'r][4'n28n39']}STR DM10={[4[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM11={[3O1;rrrO2;rrrO1;rrrO2;rrr][O2;r[O1]][O2;r][O2]rr} STR DM12={[O1;r]O4;r[O1][O1]O4;r[4'n27n28']}STR DM13={[6DM2]O3[7r][n54rrr]}STR DM14={[7O1;rrr][O1;r][4O1;rrr]O3[7r]['n28n39'r]rrrr} STR DM15={[[O1;r]O4;r[O1]:rO4[O1;r:O4;r]][O1]O4;r[4'n27n28']}STR DM16={[3O1;rrrO2;rrrO1;rrrO2;rrr]rrr['n39n28'r:rr]O1;r[4O1]} STR DM17={[6DM2]p.W(0,127,!16)[3DM1]p%=2000O1;r[O1]} TR=10DL=HAZ@26l16DM10@9DM10@25If(MODE1==TWM){@27,7v=110}SUB{[7[n27rrr'n28n39'rr:r]'n28n39']}[O3[15r][3SUB{n51}O1[15r]]]DL=BGN@25If(MODE1==TWM){@27,7}BR=24p%=2000EP=80DM6;DM13;DM6;DM17; DM6;DM5;DM7;DM9;DM6;DM17;DM6;DM13@26If(MODE1==TWM){@26,0}DM6;DM17;DM6;DM5@25If(MODE1==TWM){@27,7}DM7;DM9[DM6;DM17]DM6;DM13;DM6;DM17;EP=127p%=0SUB{[7[n27rrr'n28n39'rr:r]'n28n39']}[O3[15r][3SUB{n51}O1[15r]]] EP=80DL=ME5;p%=2000DM7;DM9[DM6;DM17]DM6;DM13;REC=100DM6;DM13; //------------------------------------------------------------------------------TR=011;------------------------------------------------------------------------------// STR GR={n42}STR GA={n44}STR GB={n46}STR TA={n54};STR MT={n51};STR DR={n40};STR PL1={P.onCycle(!8,32,90)}STR PL2={P.onCycle(!16,0,32,96,127)If(MODE1==TWM){P.onCycle(!8,30,80)}} STR GP1={[2GR;GA;GB;r][2GR;GA;GB;GR]}STR GP2={[3GR;rGB;r]GR;r[2GB]}STR GP3={[3[GR]GB;r][2GR][2GB]}STR GP4={[GR]GB;GR}STR GP5={[3GP4][GR][GB]} STR GP6={[GR][TA]}STR GP7={If(MODE1==TWM){p%=2000GP2}Else{[GP6][GR]TA;GR;GP6}} TR=11DL=HAZ+4l16@26BR=24PL1[4GP5][7GP3]EP=110If(MODE1==TWM){@27,7EP=100}DL=BGN[7GP7][16r]p%=2000[7GP2][16r][15GP2]DL=SB1[7GP3][16r]p%=0[7GP7]p%=2000 DL=ME3[7GP2][16r][15GP2]DL=SB2[[7GP3][16r]]p%=0[7GP7][16r]p%=2000[7GP2][16r][7GP3]DL=ME5[7GP2][16r][[7GP3][16r]]p%=0[[7GP7][16r]:REC=127] //------------------------------------------------------------------------------TR=012;------------------------------------------------------------------------------// STR PD1={SUB{n49}[48r][3n51rrr]SUB{rrn57}[2n51r]SUB{n49}[48r][3n51rrr][2n51r]}STR PD2={EP.T(30,127,!1^1^1^1^1^1^1^1)[112n40]l32[32n40]l16} TR=12l16DL=HAZ+8PD2;DL=BGN;PD1;DL=SB1[4PD1]DL=SB2[4PD1]DL=NK2;PD2;DL=SB3[3PD1]REC=127PD1; //------------------------------------------------------------------------------TR=013;------------------------------------------------------------------------------// STR PG1={P.onCycle(!8,0,22,106,127,106,22)}STR DS1={br`br`gr`e`c`cargrdr};STR DS2={[8r][4`c]grgg}STR DS3={[8r]d`dd`drd`dd}STR DS4={gr`drbrggrg`dggg`dg} STR DS5={`d`dr`dararfrfrcrcc}STR DS6={[10r]`ar`ergr}STR DS7={[12r]`eaer}STR DS8={p.T(127,0,!1)[16e]p=64}STR DS9={[`d#][a#][g][d#][8r]} STR DS10={[8`g]`c`cgrcr"gr}STR DS11={[rrrr`dafd]}STR DS12={[4`g][4`d]ggrgrgrg}STR DS13={[8r][`dr]`dad"a}STR DS14={[3`g]rgggr`gr`ggrg`g`g}STR DS15={`g`gr`d`drggrddr["gr]} TR=13DL=HAZ@119,0V=127l16@103,0l4q=100P=80EP.W(60,100,!1)g^^^^^a^a#^^^^^`c^a#^^^g^^^a^^^`c^rr<}TR=14DL=ME2;FD1;DL=ME5;FD1; //------------------------------------------------------------------------------TR=015;------------------------------------------------------------------------------// STR GY1={@81,8l8EP=50BR=40P.onCycle(!4,0,127)[4p.T(127,0,!4)`g^]P.onCycle(!1,0,127)[3p.T(127,0,!1)`g^^^^^^^]} STR GY2={l16@127,4EP=110p.T(64,127,!1^1^1^1^1^1^1^1)[8crcrc^ccrccrc^cr]}TR=15DL=HAZ[GY1]DL=ME2;GY2;DL=ME3+8[GY1]DL=NK1[GY1]DL=ME5;GY2; //------------------------------------------------------------------------------TR=016;------------------------------------------------------------------------------// STR BG1={l4rrrl8EP=80BR=36p.T(127,0,!4)@80,0`g^}STR BG2={>>@123,5l32BR=36p.T(64,32,!1)[32`e]< この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)