サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 メール連絡すれば可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ワールド ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント 旅先で作った、短いBGM風味の音楽です。あまりなさそうな曲調です・・・。不思議気分でお楽しみいただければさいわいです。 曲データ(サクラから貼り付けます。) TrackName = {"『異邦』"} Copyright = {"ふみこみどり"} MetaText = {"公開日:2007/5/26 ジャンル:オリエンタルBGM"} /* 作者:ふみこみどり http://asiangreen.boo.jp/ hajike_green@hotmail.com 音源 制作者音源:MS-GS 推奨音源:MS-GSにてどうぞ〜 長さ:58秒 //------------------------------------------------------------------------------ 見知らぬ土地でひとり、 心をかすめるほんの少しの孤独。 //------------------------------------------------------------------------------ ■作者より おひさしぶりです&はじめまして。 ふみこみどりです。 旅先でぼーっとしながら作った、 なんだか不思議な雰囲気の小曲です。 すごい短いですが、 お楽しみいただけたら幸いです〜。 //------------------------------------------------------------------------------ ■注■ この曲は音源によって音色を変えられる仕組みになってます。 [0] ふつう用(ふつうはこれでどうぞ) [1] GS外部音源用(SC-D70で調整しています) [2] MOTIF-RACK ES用 [3] 初期化しない*/ Int TYPE = 0; /* "="の後の数字を0〜3の整数にしてください。*/ //------------------------------------------------------------------------------ TIME(0:0:1)テンポ(108) 拍子4,4 調+(fc) TimeBase=192 //------------------------------------------------------------------------------ Str Ti={""} Str Ti_={""} //Maj Str C={"Ti 'c*e*>c*<'"} Str Db={"Ti 'c*+e*+>c*+<'"} Str D={"Ti 'd*f*+a*'"}Str D_={"Ti_ 'd*f*+a*'"} Str Eb={"Ti 'd*+f*++a*+'"} Str E={"Ti 'd*++f*+++a*++'"}Str F={"Ti 'c*f*a*'"} Str Gb={"Ti 'c*+f*+a*+'"}Str G={"Ti 'c*++f*++a*++'"} Str Ab={"Ti 'c*+++f*+++a*+++'"}Str A={"Ti 'c*+e*a*'"} Str Bb={"Ti 'c*++e*+a*+'"}Str B={"Ti 'c*+++e*++a*++'"} //Min Str Cm={"Ti 'c*+++e*+++a*+++'"}Str Dbm={"Ti 'c*++++e*++++a*++++'"} Str Dm={"Ti 'd*f*a*'"}Str Ebm={"Ti 'd*+f*+a*+'"} Str Em={"Ti 'd*++f*++a*++'"}Str Fm={"Ti 'c*f*g*+'"} Str Gbm={"Ti 'c*+f*+a*'"}Str Gm={"Ti 'd*g*a*+'"} Str Abm={"Ti 'd*+g*+a*++'"}Str Am={"Ti 'c*e*a*'"} Str Bbm={"Ti 'c*+e*+a*+'"}Str Bm={"Ti 'c*++e*++a*++'"} //Aug Str Caug={"Ti 'c*e*>c*<'"}Str Dbaug={"Ti 'c*+e*+>c*+<'"} Str Daug={"Ti 'c*++e*++>c*++<'"}Str Ebaug={"Ti 'd*+g*b*'"} Str Eaug={"Ti 'c*e*>c*<'"}Str Faug={"Ti 'c*+e*+>c*+<'"} Str Gbaug={"Ti 'c*++e*++>c*++<'"}Str Gaug={"Ti 'd*+g*b*'"} Str Abaug={"Ti 'c*e*>c*<'"}Str Aaug={"Ti 'c*+e*+>c*+<'"} Str Bbaug={"Ti 'c*++e*++>c*++<'"}Str Baug={"Ti 'd*+g*b*'"} //Dim Str Cdim={"Ti 'd*+f*+>c*<'"}Str Dbdim={"Ti 'c*+e*a*+'"} Str Ddim={"Ti 'c*++e*+a*++'"}Str Ebdim={"Ti 'd*+f*+>c*<'"} Str Edim={"Ti 'c*+e*a*+'"}Str Fdim={"Ti 'c*++e*+a*++'"} Str Gbdim={"Ti 'd*+f*+>c*<'"}Str Gdim={"Ti 'c*+e*a*+'"} Str Abdim={"Ti 'c*++e*+a*++'"}Str Adim={"Ti 'd*+f*+>c*<'"} Str Bbdim={"Ti 'c*+e*a*+'"}Str Bdim={"Ti 'c*++e*+a*++'"} //sus4 Str C4={"Ti 'c*e*+>c*<'"}Str Db4={"Ti 'c*+e*++>c*+<'"} Str D4={"Ti 'd*f*++a*'"}Str Eb4={"Ti 'd*+f*+++a*+'"} Str E4={"Ti 'd*++f*++++a*++'"}Str F4={"Ti 'c*f*a*+'"} Str Gb4={"Ti 'c*+f*+a*++'"}Str G4={"Ti 'c*++f*++a*+++'"} Str Ab4={"Ti 'c*+++f*+++a*++++'"}Str A4={"Ti 'c*++e*a*'"} Str Bb4={"Ti 'c*+++e*+a*+'"}Str B4={"Ti 'c*++++e*++a*++'"} //Maj6 Str C6={"Ti 'e*g*>c*<'"}Str Db6={"Ti 'c*+e*+a*+'"} Str D6={"Ti 'c*++e*++a*++'"}Str Eb6={"Ti 'c*+++e*+++a*+++'"} Str E6={"Ti 'c*++++e*++++a*++++'"}Str F6={"Ti 'd*f*>c*<'"} Str Gb6={"Ti 'd*+f*+>c*+<'"}Str G6={"Ti 'd*e*b*'"} Str Ab6={"Ti 'd*+e*+b*+'"}Str A6={"Ti 'd*++e*++b*++'"} Str Bb6={"Ti 'd*f*a*+'"}Str B6={"Ti 'd*+f*+a*++'"} //Min6 Str Cm6={"Ti 'c*+++e*+++a*+++'"}Str Dbm6={"Ti 'c*+e*a*+'"} Str Dm6={"Ti 'c*++e*+a*++'"}Str Ebm6={"Ti 'c*+++e*++a*+++'"} Str Em6={"Ti 'c*+e*b*'"}Str Fm6={"Ti 'c*++e*+b*+'"} Str Gbm6={"Ti 'c*+++e*++b*++'"}Str Gm6={"Ti 'd*e*a*+'"} Str Abm6={"Ti 'd*+e*+a*++'"}Str Am6={"Ti 'd*++e*++a*+++'"} Str Bbm6={"Ti 'c*+e*+a*+'"}Str Bm6={"Ti 'c*++e*++a*++'"} //7th Str C7={"Ti 'c*e*a*+'"}Str Db7={"Ti 'c*+e*+a*++'"} Str D7={"Ti 'c*++e*++a*+++'"}Str Eb7={"Ti 'c*+++e*+++a*++++'"} Str E7={"Ti 'd*e*b*'"}Str F7={"Ti 'd*+e*+b*+'"} Str Gb7={"Ti 'd*e*b*'"}Str G7={"Ti 'd*e*+b*'"} Str Ab7={"Ti 'd*+e*++b*+'"}Str A7={"Ti 'c*+e*a*'"} Str Bb7={"Ti 'c*++e*+a*+'"}Str B7={"Ti 'c*+++e*++a*++'"} //Maj7 Str CM7={"Ti 'c*e*b*'"}Str DbM7={"Ti 'c*+e*+b*+'"} Str DM7={"Ti 'c*++e*++b*++'"}Str EbM7={"Ti 'c*+++e*+++b*+++'"} Str EM7={"Ti 'd*+e*b*'"}Str FM7={"Ti 'd*++e*+b*+'"} Str GbM7={"Ti 'd*+++e*++b*++'"}Str GM7={"Ti 'd*f*+b*'"} Str AbM7={"Ti 'd*+f*++b*+'"}Str AM7={"Ti 'c*+e*a*'"} Str BbM7={"Ti 'd*f*a*'"}Str BM7={"Ti 'd*+f*+a*+'"} //Min7 Str Cm7={"Ti 'c*+++e*+++a*+++'"}Str Dbm7={"Ti 'c*+e*b*'"} Str Dm7={"Ti 'c*++e*+b*+'"}Str Ebm7={"Ti 'c*+++e*++b*++'"} Str Em7={"Ti 'd*e*b*'"}Str Fm7={"Ti 'd*+e*+b*+'"} Str Gbm7={"Ti 'd*++e*++b*++'"}Str Gm7={"Ti 'd*f*a*+'"} Str Abm7={"Ti 'd*+f*+a*++'"}Str Am7={"Ti 'd*++f*++a*+++'"} Str Bbm7={"Ti 'c*+e*+a*+'"}Str Bm7={"Ti 'c*++e*++a*++'"} //9th Str C9={"Ti 'd*e*a*+'"}Str Db9={"Ti 'd*+e*+a*++'"} Str D9={"Ti 'd*++e*++a*+++'"}Str Eb9={"Ti 'c*+e*+a*+'"} Str E9={"Ti 'c*++e*++a*++'"}Str F9={"Ti 'c*+++e*+++a*+++'"} Str Gb9={"Ti 'c*+e*a*+'"}Str G9={"Ti 'c*++e*+a*++'"} Str Ab9={"Ti 'c*+++e*++a*+++'"}Str A9={"Ti 'c*+e*b*'"} Str Bb9={"Ti 'c*++e*+b*+'"}Str B9={"Ti 'c*+++e*++b*++'"} //弦楽器味付け用。 Str SU={"p.T(52,70,!32,70,64,!32)"} Str Su={"p.T(42,70,!16,70,64,!32)"} Str US={"p.T(64,68,!16,64,50,!4-16)"} Str UUSS={"p.T(64,68,!16,68,30,!4-16)"} Str Us={"p.T(86,60,!16,60,64,!32)"} Str SUS={"p.T(30,68,!12,68,64,!24)"} Str USU={"p.T(74,30,!12,30,64,!24)"} Str EPl11={"EP.T(100,110,!2,110,80,!1^2)M.T(30,70,!1,70,0,!1)"} Str EPl11s={"EP.T(100,120,!1,120,40,!1)M.T(30,70,!1,70,0,!1)"} Str EPl1={"EP.T(115,125,!4,125,80,!2^4)M.T(10,70,!1)"} Str EPl1s={"EP.T(105,125,!2,125,40,!2)M.T(30,70,!2,70,0,!2)"} Str EPl2={"EP.T(100,110,!4,110,80,!4)M.T(30,70,!4,70,0,!4)"} Str EPl2s={"EP.T(100,115,!4,115,40,!4)M.T(30,70,!4,70,0,!4)"} Str EPl4={"EP.T(100,110,!8,110,80,!8)M.T(30,40,!8,40,0,!8)"} Str EPl4s={"EP.T(100,115,!8,115,40,!8)M.T(30,70,!8,70,0,!8)"} Str EPEP={"EP(110)M(10)"} //------------------------------------------------------------------------------ IF(TYPE==0) { ResetGM(); TrackSync; System.MeasureShift(1); //音源初期化用 }IF(TYPE==1) { ResetGS(); TrackSync; System.MeasureShift(1); //音源初期化用 }IF(TYPE==2) { ResetXG(); TrackSync; System.MeasureShift(1); //音源初期化用 }IF(TYPE==3) { TrackSync; System.MeasureShift(1); //音源初期化用 } //------------------------------------------------------------------------------ Function SetTrack(Int nTrack, Int nNote, Int nNote2, Int nNote3, Int nVol, Int nPan, Int nRev, Int nCho, Int nRezo, Int nAtt, Int nCut) { IF(TYPE!=0 && TYPE!=1 && TYPE!=2 && TYPE!=3){ Str ALT = {"TYPEの後の数字は、0〜3の整数でお願いします〜"}; Print(ALT); End(); } IF(TYPE==0) { Track(nTrack) Channel(nTrack) Voice(nNote) }IF(TYPE==1) { Track(nTrack) Channel(nTrack) Voice(nNote, nNote2) y71,nRezo y73,nAtt y74,nCut }IF(TYPE==2) { Track(nTrack) Channel(nTrack) Voice(nNote, nNote2, nNote3) y71,nRezo y73,nAtt y74,nCut } V(nVol) P(nPan) REV(nRev) CHO(nCho) } IF((TYPE == 0)||(TYPE == 1)){ //SetTrack( 1, 1, 0, 0,100, 64, 0, 0, 64, 64, 64);//標準 // No Note Vol Pan Rev Cho Rez Att Cut SetTrack( 1, 7, 2, 0,125, 75, 0, 5, 70, 64, 64); SetTrack( 2, 7, 2, 0,110, 55, 0, 5, 70, 64, 64); SetTrack( 3, 14, 0, 0, 80, 0, 20, 0, 64, 64, 64); SetTrack( 4,114, 0, 0, 85,127, 20, 0, 64, 64, 64); SetTrack( 5,117, 0, 0,120, 64, 10, 0, 64, 64, 64); SetTrack(10, 1, 0, 0,100, 64, 0, 10, 64, 64, 64); } IF(TYPE == 2){ //SetTrack( 1, 1, 0, 0,100, 64, 0, 0, 64, 64, 64);//標準 // No Note Vol Pan Rev Cho Rez Att Cut SetTrack( 1, 7, 0, 0,125, 75, 0, 5, 64, 64, 64); SetTrack( 2, 7, 0, 0,110, 55, 0, 5, 64, 64, 64); SetTrack( 3, 14, 0, 0, 80, 0, 20, 0, 64, 64, 64); SetTrack( 4,114, 0, 0, 85,127, 20, 0, 64, 64, 64); SetTrack( 5,117, 0, 0,120, 64, 10, 0, 64, 64, 64); SetTrack(10, 2, 63, 32,100, 64, 0, 10, 64, 64, 64); } //------------------------------------------------------------------------------ Track(1) v100 o6 q99 M(0) EP(110) p(64) Str PianoR1={" l16 'f'^d ^bae 'd'efr* 'df'^f'e' 'cf''e'''^ dde'f'^'a'^'e'^l32 'f'dfa l16 r*^'fb'^'ea'^'e'^ defr*'cf'^^'ca' 'fb''b>d<''fb''ea'fr*de 'fb''b>d<''fb''ea''f'^^^ 'e'^ef''r*'e'^ef''^d^e^ 'cf'r*fa'f'de fr*'df'^l32 dfa l16 [3 '']r* 'fb'^fb [3 '']r* defa 'f'ede''^fe fede''^ "} Str PianoR2={" l16 ''r*'f'r*f^'f'e de'df''ea''df'^^^,90 'e'r*efafed 'e'r*'e'a'df'^^a 'fb'fbr*a^ba 'f''e''d''e'''^^ defar*ba 'df'^^^^^^ ''r*'f'r*f^'f'e de'df''ea''df'^^^,90 'e'r*ef'a'f'e'f 'fb''b>d<''fb''ea''df'^^^,90 'fb''b>d<''fb''ea''df'efa 'fb''b>d<''fb''ea''df'^'d'^ 'e'r*er*efaf'fb'^^^'ca'^^^ f^d^e^ "} Str PianoR1a={" l16 'f'^d ^bae 'd'efr* 'df'^f'e' 'cf''e'''^ dde'f'^'a'^'e'^l32 'f'dfa l16 r*^'fb'^'ea'^'e'^ defr*'cf'^^'ca' 'fb''b>d<''fb''ea'fr*de 'fb''b>d<''fb''ea''f'^^^ 'e'^ef''r*'e'^ef''^d^e^ 'cf'r*fa'f'de fr*'df'^l32 dfa l16 [3 '']r* 'fb'^fb [3 '']r* defa 'f'ede''^fe fede'' "} TIME(1:1:0) PianoR1 TIME(9:1:0) PianoR2 TIME(17:3:0) PianoR1a //------------------------------------------------------------------------------ Track(2) v100 o4 q99 M(0) EP(110) p(64) Str PianoL1={" l16 'dg'r*dg'dgb'^ 'cea'^ce'cea''ea>c<''f'^ ''r*'fb'^'ea'^'f'^'fb''ea''f''e''d'efa 'dg'^^^,90 ga'dgb'^ 'cea'^l24 faf l16 de'df''ea' 'dfb'r*'cea'^fa''^'dfb'r*'cea'^fa r*'dg'r*r*'dg'^ 'dg'r*'dgb'r*^^ r*'cea'r*r*'cea'^ 'cea'r*'cea'r*^^ 'df'^^'df'r*^^ 'cea'r*'cea''cea'^fa ''^fb'ea'^fa 'dfb'r*''^'dfb'r*^ "} Str PianoL2={" l16 ''^^'dfb'afd 'e'def''^^^ 'eb'def'fa'^fa 'fb'afed ''^^^''^^^''^^^ bafe defa fede 'f'^de fefa ''^dedefa 'fb'afed^ l24 ded l16 'eb'def'ca'^^'fb'r*'f'r*'fb'^a^ 'fb'r*'fb'r*'ea'r*'ea'r*fede''^^ 'd'efa'df'ede 'df'ede 'ef'efa 'f'^'>'^'d'^'e'^ "} Str PianoL1a={" l16 'dg'r*dg'dgb'^ 'cea'^ce'cea''ea>c<''f'^ ''r*'fb'^'ea'^'f'^'fb''ea''f''e''d'efa '