サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント CyberTRANCE好きな方にオススメ! とにかくミーハーです。 velfarreが閉店してから早くも一年。 東京のトランスシーンでもうダッチトランスが流行る事は無いでしょうが、今回は追悼の意を込めて投稿してみます。 曲データ(サクラから貼り付けます。) // systemFのようなダッチトランスを目指してみました INT EST=146PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={airwalk}Copyright={Cyberhippie}System.MeasureShift=3Tempo=1000Include(delay.h)ResetGS; FUNCTION WIN(X1,X2,X3,XA,XB,X4,X5,X6,X7,X8,X9,XC){TR=X1;DL(0)CH=X2;@(X3,XA,XB)TrackKey=X4;P=X5;CHO=X6*10REV=X7*10v=(X8)q=(X9*10)M=(XC*10)} FUNCTION DL(ti){Time(ti:1:0)}FUNCTION PAN(ER1,ER2){If(ER2==0){P.T(0,127,ER1)}If(ER2==1){P.T(127,0,ER1)}}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=12SA;Key=0}SA}FUNCTION HAM2(STR SA){Sub{Key=-12SA;Key=0}SA}FUNCTION HAM3(STR SA){Sub{Key=-12SA;Key=0}Sub{Key=12SA;Key=0}SA}FUNCTION REC(FF=127){EP.T(FF,0,!1^1^1^1^1^1)}FUNCTION REC2(FF=100){V.T(FF,0,!1^1^1^1^1^1)}FUNCTION IP(DW=1){DL(-2)GSRY(DW)r8}INT K=0DL=0Tempo=EST; Function MD(Str S,Int Repeat, Int Delay){Int Temp_v=MML(v);Int Dly=Delay;Int Dec_v=Temp_v/(Repeat+2);Int J=Temp_v+20;J=J-(Dec_v*2);v(J);For(Int I=1;I<=Repeat;I++){Sub{r%(Dly)v(J)S}Dly=Dly+Delay;J=J-Dec_v;}v(Temp_v)S} //-(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M)---(TR,CH,@ ,2 ,3,K, P ,C,R, v ,q ,M) WIN(01,01,008,00,0,K,064,0,0,127,09,0)WIN(07,07,081,00,0,K,094,0,0,120,10,0)WIN(13,13,049,00,0,K,032,0,0,100,10,0) WIN(02,02,082,00,0,K,064,0,0,100,09,3)WIN(08,08,012,00,0,K,064,0,0,127,09,0)WIN(14,14,049,00,0,K,096,0,0,100,10,0) WIN(03,03,082,00,0,K,000,0,0,100,10,3)WIN(09,09,012,00,0,K,064,0,0,127,09,0)WIN(15,15,003,00,0,0,010,0,0,120,10,0) WIN(04,04,082,00,0,K,127,0,0,100,10,3)WIN(10,10,025,00,0,0,064,0,0,127,10,0)WIN(16,16,003,00,0,0,117,0,0,120,10,0) WIN(05,05,039,00,0,K,034,0,0,120,10,0)WIN(11,11,025,00,0,0,064,0,0,127,09,0)//--Light source ver1.7--// WIN(06,06,049,00,0,K,032,0,0,080,10,0)WIN(12,12,026,00,0,0,064,0,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP; INT HAZ=5INT ST0=21INT ST1=37INT BK1=53INT BGN=69INT ST2=85INT HZ2=101INT ST3=117INT ST4=133INT BK2=149INT BK3=167INT BN2=183INT ST5=199INT ST6=215 /*1*/STR MNH={} STR MNI={} TR=1l16DL=HAZ;P.onCycle(!8,54,74)[4MNH][MNI]DL=HZ2[4MNH][MNI]DL=BK2+8MNI;DL=ST5[MNH] /*2&3&4*/STR RTA={@82,0q=150If(CH==3){BR=20p%=130}If(CH==4){BR=20p%=-130}}STR RTH={EP=110RTA[4MidiDelay({<`g^b`g^b`g^>},8,!2)[56r]]} STR RTI={EP=120RTA;q.T(150,10,!1^1^1^1^1^1^1^1)MD({`g^b`g^b`g^`f#^b`f#^b`f#^`e^b`e^b`e^`d^b`d^b`d^;`c^g`c^g`c^`d^g`d^g`d^[`e^g`e^g`e^] `f#^a`f#^a`f#^`e^a`e^a`e^`d^a`d^a`d^`c^a`c^a`c^;b^gb^gb^`c^g`c^g`c^[`d^g`d^g`d^]},1,!8) q.T(10,100,!1^1^1^1^1^1^1^1)MD({`g^b`g^b`g^`f#^b`f#^b`f#^`e^b`e^b`e^`d^b`d^b`d^;`c^g`c^g`c^`d^g`d^g`d^[`e^g`e^g`e^] `f#^a`f#^a`f#^`e^a`e^a`e^`d^a`d^a`d^`c^a`c^a`c^[b^gb^gbg]},1,!8)MD({[bbgbbgbg]},2,!16)} STR RTJ={EP=120RTA;q.T(10,100,!1^1^1^1^1^1^1^1)MD({`g^b`g^b`g^`f#^b`f#^b`f#^`e^b`e^b`e^`d^b`d^b`d^;`c^g`c^g`c^`d^g`d^g`d^[`e^g`e^g`e^] `f#^a`f#^a`f#^`e^a`e^a`e^`d^a`d^a`d^`c^a`c^a`c^[b^gb^gbg]},1,!8)MD({[bbgbbgbg]},2,!16)} STR RT1={EP=120RTA;q=150MD({`g^b`g^b`g^`f#^b`f#^b`f#^`e^b`e^b`e^`d^b`d^b`d^;`c^g`c^g`c^`d^g`d^g`d^[`e^g`e^g`e^] `f#^a`f#^a`f#^`e^a`e^a`e^`d^a`d^a`d^`c^a`c^a`c^;b^gb^gb^`c^g`c^g`c^[`d^g`d^g`d^]},1,!8)} STR RT2={EP=120RTA;q=150MD({`g^b`g^b`g^`f#^b`f#^b`f#^`e^b`e^b`e^`d^b`d^b`d^;`c^g`c^g`c^`d^g`d^g`d^[`e^g`e^g`e^] `f#^a`f#^a`f#^`e^a`e^a`e^`d^a`d^a`d^`c^a`c^a`c^[b^gb^gbg]},1,!8)MD({[bbgbbgbg]},2,!16)} STR RRF={l16HAM({DL=ST0;RTH;DL=BK1;RTI;DL=BGN[RT1;RT2]DL=ST3;RTH;DL=BK3+8RTJ;DL=BN2;RT1;RT2;})}TR=2RRF;TR=3RRF;TR=4RRF; /*5*/STR BSH={MidiDelay({[32r"ggg]},3,!16)}STR BSI={q.T(150,10,!1^1^1^1^1^1^1^1)[MidiDelay({[4"grgrggrg][4cr`cr`c`cr`c][4dr`dr`d`dr`d]},3,!8):MidiDelay({[4"grgrggrg]},3,!8)q.T(10,100,!1^1^1^1^1^1^1^1)]MidiDelay({[3"grgrggrg]},3,!8)rrrrrrg&"gq=100} STR BS1={MidiDelay({[8r"ggg][8rc`c`c][8rd`d`d][8r"ggg]},2,!16)} STR BASS={l16<} STR SST={q=100EP=90BR=20p%=60If(CH==14){p%=-60}l4@49SUB{d^^^^^d^g^^^a^^^b^^^^^`d^g^^^^^^^}[g^^^^^a^b^^^^^^^]} STR SSU={q=100EP=90BR=20p%=60If(CH==14){p%=-60}l4@49SUB{d^^^^^d^g^^^a^^^b^^^^^`d^g^^^^^^^}HAM({[g^^^^^a^b^^^^^^^]})} STR SSA={q=100EP=100BR=20p%=60If(CH==14){p%=-60}l4@103,2SUB{g^f#^e^d^c^d^e^^^f#^e^d^c^"b^c^d^^^}<"g^^^^^^^c^^^"a^^^"f#^^"g"a^d^"b^^^"g^^^>EP=127} STR SSB={q=100EP=100BR=20p%=60If(CH==14){p%=-60}l4@103,1SUB{g^f#^e^d^c^d^e^^^f#^e^d^c^"b^^^^^^^}<"g^^^^^^^c^^^"a^^^d^^^^^^^"g^^^^^^^>EP=127} STR SSH={q=100EP=100BR=20p%=70If(CH==14){p%=-70}l4@50SUB{g^f#^e^d^c^d^e^^^f#^e^d^c^"b^c^d^^^}<"g^^^^^^^c^^^^^^^d^^^^^^^"g^^^^^^^>EP=127} STR SSI={q=100EP=100BR=20p%=70If(CH==14){p%=-70}l4@50SUB{g^f#^e^d^c^d^e^^^f#^e^d^c^"b^^^^^^^}<"g^^^^^^^c^^^^^^^d^^^^^^^"g^^^^^^^>EP=127} STR SSG={l16EP=120q=150@37,0BR=20p%=70If(CH==4){BR=20p%=-70}q.T(0,150,!1^1^1^1^1^1^1^1^1^1^1^1^1^1^1^1)MD({`g^b`g^b`g^`f#^b`f#^b`f#^`e^b`e^b`e^`d^b`d^b`d^;`c^g`c^g`c^`d^g`d^g`d^[`e^g`e^g`e^] `f#^a`f#^a`f#^`e^a`e^a`e^`d^a`d^a`d^`c^a`c^a`c^;b^gb^gb^`c^g`c^g`c^[`d^g`d^g`d^]},1,!8)@39,0 MD({`g^b`g^b`g^`f#^b`f#^b`f#^`e^b`e^b`e^`d^b`d^b`d^;`c^g`c^g`c^`d^g`d^g`d^[`e^g`e^g`e^] `f#^a`f#^a`f#^`e^a`e^a`e^`d^a`d^a`d^`c^a`c^a`c^[b^gb^gbg]},1,!8)MD({[bbgbbgbg]},2,!16)} STR SS1={l4@49q=100BR=20p%=70If(CH==14){p%=-70}l4SUB{g^f#^e^d^c^d^e^^^f#^e^d^c^"b^c^d^^^}<"g^^^^^^^c^^^^^^^d^^^^^^^"g^^^^^^^>} STR SS2={l4@49q=100BR=20p%=70If(CH==14){p%=-70}l4SUB{g^f#^e^d^c^d^e^^^f#^e^d^c^"b^^^^^^^}<"g^^^^^^^c^^^^^^^d^^^^^^^"g^^^^^^^>} STR STT={DL=HAZ+8SSS;SST;SSU;DL=ST1;>SSA;SSBSSA;SSBSSA;SSBSTT; /*15&16*/STR BGH={@123,3BR=40p.T(127,0,!1^1^1^1)If(CH==16){p%=-3000}l1c^^^} STR BG1={@123,3BR=40If(CH==16){BR=50l64rp.T(127,800,!1^1^1^1)l1c^^^^^^^}Else{p.T(127,800,!1^1^1^1)l1c^^^^^^^}} STR BG2={@128,2If(CH==16){l64r}l1BR=20p.T(0,127,!1^1^1^1,127,0,!1^1^1^1)FOR(INT A;A<100;A++){l(A+2)c}FOR(INT A;A<100;A++){l(100-A)c}p=64}STR BG3={@120,0If(CH==16){l64r}l4rq=80'cde'^^q=100} STR BG4={@128,2If(CH==16){l64r}l1BR=20p.T(0,127,!1^1^1^1,127,0,!1^1^1^1)FOR(INT A;A<90;A++){l(A+2)c}FOR(INT A;A<90;A++){l(90-A)c}p=64} STR BG5={V=127EP.T(100,127,!1^1^1^1^1^1^1)SUB{FOR(INT A=1;A<30;A++){l(A)p.T(127,0,!A)r}FOR(INT A=1;A<26;A++){l(30-A)p.T(127,0,!(30-A))r}l1}@123,3BR=40If(CH==16){BR=45l64rl1}l1`c^^^^^^V=100p=64} STR BG6={If(CH==16){l64r}@126,8BR=40p.T(127,0,!1^1)l4'g'^^^^^^^p=64} STR BBN={DL=HAZ-4BG2;DL=HAZ+15BG3;DL=ST0+15BG3;DL=ST1;BG6;DL=ST1+15BG3;DL=BK1;BG4;DL=BK1+8BG5;DL=BK1+15BG3;DL=BGN;BG6;DL=BGN+15BG3;DL=ST2;BG6;DL=ST2+12BG4; DL=HZ2+15BG3;DL=ST3+15BG3;DL=ST4;BG6;DL=ST4+15BG3;DL=BK2+17BG3;DL=BK3;BG4;DL=BK3+8BG5;DL=BK3+15BG3;DL=BN2;BG6;DL=BN2+15BG3;DL=ST5;BG6;DL=ST5+15BG3;DL=ST6+15BG3;}TR=15BBN;TR=16BBN; この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)