サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 全て許可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ダンス・エレクトロニカ ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント <<<Psychedelic Trance>>> MSGSの限界をどんどん超えていきましょう! 今回は打って変わってモーニング系のサイケトランスです。 ベースが結構うまく行ったんですが、キックはもう少し改善の余地がありそうです。 曲データ(サクラから貼り付けます。) // P S Y C H E D E L I C // // P S Y C H E D E L I C // //////////////////////////////////// // // // NH2 // // | // // C2H5 | C2H5 // // \ / \ / // // \/ \/ // // | | // // | | // // \ / // // \ / // // ` // // // //////////////////////////////////// INT EST=146PlayFrom.SysEx=1PlayFrom.CtrlChg=1PlayFrom.RPN_NRPN=1TrackName={C10H15N}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; //-(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,012,00,0,K,064,0,0,127,10,0)WIN(07,07,082,01,0,K,064,0,0,100,09,0)WIN(13,13,119,00,0,0,000,0,0,127,10,0) WIN(02,02,008,00,0,K,064,0,0,090,09,0)WIN(08,08,012,00,0,K,064,0,0,127,09,2)WIN(14,14,082,01,0,K,030,0,0,110,09,0) WIN(03,03,008,00,0,K,000,0,0,090,10,0)WIN(09,09,012,00,0,K,064,0,0,127,09,2)WIN(15,15,081,01,0,K,097,0,0,110,09,0) WIN(04,04,008,00,0,K,127,0,0,090,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,082,01,0,K,064,0,0,100,09,0)WIN(11,11,025,00,0,0,064,0,0,110,09,0)//--Light source ver1.7--// WIN(06,06,082,01,0,K,064,0,0,127,10,0)WIN(12,12,026,00,0,0,064,0,0,127,09,0)TR=10IP;TR=11IP=2TR=12IP; INT ITR=1INT HAZ=9INT ST0=25INT ST1=41INT ST2=57INT NK1=73INT BK0=81INT BGN=89INT HZ2=105INT ST3=121 INT NK2=137INT BK2=145INT BN2=154INT ST4=170INT ST5=186INT END=202 /*1*/STR MG1={@52,0l2M=30'""e"""e'^^^^^^^^^^^^^^^^^^^^^^^^^^^^} STR MG2={l16} STR MG3={@30,0q=100l1rrrrl2EP.T(30,110,!1^1^1^2)M.T(0,127,!1^1^1^2)'e"e'^^^^^^rEP=127} STR MG4={@52,0l2M=30'""e"""e'^^^^^rrrr} TR=1DL=ITR;MG1;DL=HAZ+8MG2;DL=ST0;MG3;DL=ST2;MG1;DL=NK1;MG2;DL=HZ2;MG2;MG3;DL=ST3;MG1;DL=ST5+8MG2;MG4; /*2&3&4*/STR RTA={If(CH==3){l32r}If(CH==4){l16r}@8,0l16}STR RTQ={q=90If(CH!=2){q=100}}STR RT={@8,0If(CH==2){P=64q=90EP=127}If(CH==3){P=0q=100EP=127}If(CH==4){P=127q=100EP=127}} STR RTK={If(CH==2){EP=0}If(CH==3){p=0}If(CH==4){p=127}l4@127,1c^^^e^"g^de^`c^e^^^e^^a^MidiDelay({c^^e^^"g^^^},3,!8)If(CH==2){EP=127}l16p=64RT} STR RTH={EP=127RTQ;SUB{FOR(INT A=1;A<24;A++){BR=A;If(CH==3){p.T(62,66,!A,66,62,!A)l(A)rr}If(CH==4){p.T(66,62,!A,62,66,!A)l(A)rr}}l16} MidiDelay({[4"e"e^e`e^"e^"ff`f"f"dd`e"e;`e"e"e`e"ee`e"e:"ff`f"f"dd`e"e]},4,!8)p=64BR=10q=10"ff`f"f"dd`e"eRTQ;} STR RTI={EP=127V.T(100,110,!1^1^1^1^1^1^1^1)RTQ;SUB{FOR(INT A=1;A<24;A++){BR=A;If(CH==3){p.T(62,66,!A,66,62,!A)l(A)rr}If(CH==4){p.T(66,62,!A,62,66,!A)l(A)rr}}l16} MidiDelay({[4"e^erd^"b^e^r"b^^d^][4"e^erd^"b^][4"e^er][8"ee]},4,!8)p=64BR=10q=100RT6;RTQ;} STR RT1={RTQ;BR=10If(CH==3){p.T(62,66,!1,66,62,!1,62,66,!1,66,62,!1,62,66,!1,66,62,!1,62,66,!1,66,62,!1)} If(CH==4){p.T(66,62,!1,62,66,!1,66,62,!1,62,66,!1,66,62,!1,62,66,!1,66,62,!1,62,66,!1)}MidiDelay({[4"e"e^e`e^"e^"ff`f"f"dd`e"e;`e"e"e`e"ee`e"e"ff`f"f"dd`e"e]},4,!8)} STR RT2={l16RT;q=10[8r]If(CH==3){p.T(62,66,!4,66,62,!4)}If(CH==4){p.T(66,62,!4,62,66,!4)}l16MidiDelay({"ff`f"f"dd`e"e},4,!8)} STR RT2A={q=10[8r]If(CH==3){p.T(62,66,!4,66,62,!4)}If(CH==4){p.T(66,62,!4,62,66,!4)}"ff`f"f"dd`e"e} STR RT3={M=0q=90RT} STR RT4={l8<>l16M=0RT}STR RT5={l8l16M=0RT} STR RT6={RT;If(CH==3){p.T(62,66,!4,66,62,!4)}If(CH==4){p.T(66,62,!4,62,66,!4)}c^rc^rc^d^rf#^rf#^} STR RT7={RTQ;BR=10If(CH==3){p.T(62,66,!1,66,62,!1,62,66,!1,66,62,!1,62,66,!1,66,62,!1,62,66,!1,66,62,!1)} If(CH==4){p.T(66,62,!1,62,66,!1,66,62,!1,62,66,!1,66,62,!1,62,66,!1,66,62,!1,62,66,!1)}MidiDelay({[8"e^erd^"b^e^r"b^^d^]},4,!8)} STR RRF={l16DL=ITR;RTK;DL=HAZ+7RT2;DL=HAZ+15RT2;DL=ST1;RT3;RTA[RT4]RT5;DL=ST2+15RT2A;DL=NK1+7RT2;DL=BK0;RTH;DL=BGN[RT1]RT4;RT5;DL=ST3+15RT6;RT7;RTI;DL=BN2;V=110[3RT7]RT4;RT5;V=100}TR=2HAM2({RRF})TR=3RRF;TR=4RRF; STR RG={If(CH!=14){l5r}}STR RGH={p.W(127,0,!8)[@31,0EP=60BR=40p.W(127,0,!8)l16MidiDelay({'cd'[29r]},20,!12)p.W(127,60,!8)@82,1MidiDelay({>>`e`e`e^<<},8,!4)[30r]]} STR RGI={p=64P=70@82,8EP.onCycle(!8,17,32,96,107,96,32)If(CH==15){@8,0EP.onCycle(!8,110,96,32,20,32,96)}MidiDelay({HAM({[8"e"e"g"a"e"e"a"b"e"e"be"e"eeg]})},4,!16)P=30If(CH==15){P=97}} STR RGJ={p=64P=70@82,8EP.onCycle(!8,17,32,96,107,96,32)If(CH==15){@8,0EP.onCycle(!8,110,96,32,20,32,96)}MidiDelay({HAM({[7"e"e"g"a"e"e"a"b"e"e"be"e"eeg]})},4,!16)P=30If(CH==15){P=97}} STR RG1={EP=60BR=40p.W(127,0,!8)[4"e"e^e`e^"e^"ff`f"f"dd`e"e;`e"e"e`e"ee`e"e"ff`f"f"dd`e"e]} STR RG2={EP=60BR=40p.W(127,0,!8)q.T(90,300,!1^1^1^1^1^1^1^1)[4"e"e^e`e^"e^"ff`f"f"dd`e"e;`e"e"e`e"ee`e"e"ff`f"f"dd`e"e]} STR RG3={<@5,24If(CH==15){@8,0}EP=100q.T(0,100,!1^1^1^1^1^1^1^1)["erer"eer"er"er"eer"er;"grgr"ggr"gr"gr"ggr"gr;"arar"aar"ar"ar"aar"ar;"drdr"ddr"dr"dr"ddr"dr]>q=100} STR RG4={<@5,24If(CH==15){@8,0}EP=100[8"erer"eer"er"er"eer"er]>} STR RG5={<@5,24If(CH==15){@8,0}EP=100["erer"eer"er"er"eer"er;"grgr"ggr"gr"gr"ggr"gr;"arar"aar"ar"ar"aar"ar;"drdr"ddr"dr"dr"ddr"dr]>q=100} STR RRG={l16RGJRG5;RG4[3RGI]<}TR=14RRG;TR=15RRG; /*5*/STR BSA={If(CH==5){p=65@82,1}Else{p=63@82,1}}STR BSB={If(CH==5){@80,0}Else{@8,0q.T(0,100,!1^1^1^1^1^1^1^1)}} STR BSH={BSB[7[3"eeee]"eg"dd]["eeee][8r]q=100}STR BSI={[7[3"eeee]"eg"dd]["eeee][8r]}STR BS1={BSA[8[3"eeee]"eg"dd]} STR BS2={BSA[[3"eeee]"e"eee[3"gggg]"g"ggg[3"aaaa]"a"aaa[3"dddd]"d"ddd]} STR BASS={l16< この曲は自作のオリジナル曲であるか、または、作曲者の死後50年以上経過した著作権に問題がない曲であることを確認しましたか? いいえ。よく分かりません はい。著作権に問題ありません (←選択)