サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント ちょっと冬寄りなエピックトランスです。(ユーフォリックトランスとも言うそうな・・) 初っ端から飛ばしすぎたので、しばらくポップめに作ります。 曲データ(サクラから貼り付けます。) // 前回と違ってユーロトランス寄りです INT EST=143PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={Really Winter Song}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,003,00,0,K,054,0,0,127,09,0)WIN(07,07,039,01,0,K,084,0,0,120,09,0)WIN(13,13,002,00,0,0,084,0,0,117,09,0) WIN(02,02,039,08,0,K,044,0,0,100,09,0)WIN(08,08,012,00,0,K,054,0,0,127,09,2)WIN(14,14,103,00,0,K,074,0,0,097,09,0) WIN(03,03,039,00,0,K,084,0,0,100,10,0)WIN(09,09,012,00,0,K,074,0,0,127,09,2)WIN(15,15,103,00,0,0,000,0,0,127,10,0) WIN(04,04,103,00,0,K,070,0,0,100,10,0)WIN(10,10,025,00,0,0,064,0,0,127,10,0)WIN(16,16,091,00,0,0,127,0,0,127,10,0) WIN(05,05,039,00,0,K,044,0,0,120,09,0)WIN(11,11,025,00,0,0,064,0,0,127,09,0)//--Light source ver1.7--// WIN(06,06,050,00,0,K,090,0,0,080,10,4)WIN(12,12,026,00,0,0,064,0,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP; INT HAZ=2INT ST0=18INT BK0=34INT BGN=50INT HZ2=74INT BK1=90INT ST1=106INT ST2=130 /*1*/STR MN1={IF(CH==13){l32rl8}MidiDelay({errrrrf#rgrrr`f#rrr`errrrr`cr`crrr`drrrbrrrrrf#rgrrr`f#rrr`errrrrrr[8r]},8,!8)}STR MN2={IF(CH==!14){HAM2({MN1})}Else{MN1}} STR MMR={l8>DL=ST0[MN1]DL=BGN;V=127[MN1]DL=BK1[MN1]DL=ST1[MN2]}TR=1MMR;TR=13MMR;TR=14; この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)