サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント Nice to meet you!!!!! This is Deep Minimal Techno for MML ver 2.31. Da Ya!!!!DJ heats the floor. Let's dance because of the highest sound. (c)2007 PMR 曲データ(サクラから貼り付けます。) INT TEMPO_EST = 126 ; PlayFrom.SysEx(on)PlayFrom.CtrlChg(on)PlayFrom.RPN_NRPN(on) TrackName={DeepTek Half Mind}Copyright={(c) 2007 Pitchbend Master Records}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=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 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 , Key, P , CHO, REV, v , VAR, M ) Autoexec( 001, 001, 012, 000, 000, 000, 064, 030, 040, 127, 090, 000) Autoexec( 002, 002, 100, 000, 000, 000, 064, 040, 020, 100, 093, 000) Autoexec( 003, 003, 011, 000, 000, 000, 110, 040, 020, 090, 100, 000) Autoexec( 004, 004, 115, 000, 000, 000, 010, 040, 020, 090, 100, 000) Autoexec( 005, 005, 080, 000, 000, 000, 064, 020, 020, 127, 100, 010) Autoexec( 006, 006, 080, 000, 000, 000, 054, 040, 030, 127, 100, 020) Autoexec( 007, 007, 080, 000, 000, 000, 074, 030, 020, 127, 100, 000) Autoexec( 008, 008, 012, 000, 000, 000, 000, 030, 020, 100, 100, 020) Autoexec( 009, 009, 012, 000, 000, 000, 064, 030, 020, 127, 100, 020) Autoexec( 010, 010, 025, 000, 000, 000, 064, 030, 040, 127, 100, )DL(-2)GSRY(1)r8 Autoexec( 011, 011, 025, 000, 000, 000, 064, 030, 000, 127, 090, )DL(-2)GSRY(2)r8 Autoexec( 012, 012, 026, 000, 000, 000, 064, 030, 000, 127, 090, )DL(-2)GSRY(1)r8 Autoexec( 013, 013, 119, 009, 000, 000, ___, 020, 000, 127, 090, ) Autoexec( 014, 014, 056, 000, 000, 000, 020, 040, 020, 127, 090, ) Autoexec( 015, 015, 115, 000, 000, 000, 107, 040, 020, 127, 090, ) Autoexec( 016, 016, 091, 000, 000, 000, 084, 030, 020, 127, 100, ) //------( TR , CH , @ , Key, P , P2 , P3 , CHO, REV, v , VAR, M ) //-------------------------------------------------------------------------------------------------------------------------------------------------------------------// DL=0Tempo=TEMPO_EST;INT HAZ=1INT ST0=17INT BGN=25INT ST2=41INT ST3=57INT BK1=73INT ST4=89INT ST5=105INT ST6=121INT BK2=137INT ST7=161INT ST8=177 //------------------------------------------------------------------------------TR=001;------------------------------------------------------------------------------// //------------------------------------------------------------------------------TR=003;------------------------------------------------------------------------------// STR TT1={@38,0BR=40p.W(0,60,!8)MD({[4rrrrbrgrd^^g[20r]]},2,!8)} TR=3l16>}STR BG2={EP=80@116,0q=4l16[8p.T(127,30,!1)[16f]]}STR BG3={@116,0q.T(4,100,!1^1^1^1^1^1^1^1)l16EP=80MD({[8p.T(127,30,!1)[16f]]},3,!32)} TR=16DL=ST0;BG1;DL=BK1+8[BG1]DL=BK2+16v.T(50,127,!1^1^1^1^1^1^1^1)SUB{rBG1}SUB{rrBG1}SUB{rrrBG1}[BG1]DL=ST8;BG2[BG3]BG2; この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)