サクラトップ > 掲示板トップ > 投稿フォーム
曲の投稿にはユーザー登録が必要です。 曲 名 作 者 名前: パスワード: 転 載 メール連絡すれば可 全て許可 メール連絡すれば可 許可しない (ゲームのBGMなど使いたい場合、許可するかどうかを指定。 サクラ本体への収録はあらかじめご承諾ください。) ゲーム制作サイト「Rmake」への転載(およびMP3変換)を許可する ジャンル ワールド ポップス ハードロック・ヘヴィーメタル ヒップホップ クラシック 歌謡曲・演歌 J-POP ロック ブルース・カントリー ダンス・エレクトロニカ ワールド アニメ・ゲーム 日本の伝統音楽・芸能 オルタナティヴロック ソウル・R&B ジャズ・フュージョン ヒーリング・ニューエイジ キッズ・ファミリー 音 源 (パソコン内蔵音源、GS音源、GM音源など) 公開 公開する 削除する (公開を中止して削除するときには、この項目を変更します。) コメント どうもお久しぶりです。桜の季節ということで、和風っぽい香りのする楽曲をお送りします。ゆったり聴いていただければありがたいです。 mp3はこちら♪http://asiangreen.boo.jp/music/2010-0404koto.mp3 曲データ(サクラから貼り付けます。) TrackName = {"『古都に咲く花』"} Copyright = {"作曲:ふみこみどり"} MetaText = {"公開日:2010/04/04 ジャンル:和風っぽいBGM"} /* 作者:ふみこみどり http://asiangreen.boo.jp/ hajike_green@hotmail.com 音源 制作者音源:KONTAKT 4 などなど 推奨音源:MS-GS(Vista)で調整しています。 もしくはmp3(いろんなVST版)でどうぞ。 長さ:4分33秒 調性:ロ短調 mp3版はこちらからどうぞです。 http://asiangreen.boo.jp/music/2010-0404koto.mp3 //------------------------------------------------------------------------------ 来年もまた、素敵な景色に出逢えますように。 //------------------------------------------------------------------------------ ■作者より はじめまして または おひさしぶりです。 ダウンロードどうもありがとうございます♪ 北部九州、今年の桜の見ごろは だいたい終わってしまったようです・・・・。 筝、尺八、馬頭琴の音色をメインとして使用、 低音はピアノだけ、パーカッションもなし、という構成です。 mp3版ではやたらそれっぽいサンプリング音で お楽しみいただけますので、そちらがお勧めです♪ ゆったり聴いていただければ幸いです♪ どうぞよろしくお願いします〜。 ■注■ この曲は音源によって音色を変えられる仕組みになってます。 [0] ふつう用(MS-GS(Vista)で調整しています。) [1] 作者環境用(いろんなVSTを使用) ※ちなみにmp3は[1]がもとになっています。*/ Int TYPE = 0; /* "="の後の数字を0〜2の整数にしてください。*/ //------------------------------------------------------------------------------ TIME(0:1:1)Tempo(102) TIME(0:1:0)拍子3,4 調+(fc) TimeBase=480 //------------------------------------------------------------------------------ Str Ti={""} Str Ti_={""} // 〜LowGウクレレ〜 //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,!16,70,64,!16)"} Str Su={"p.T(42,70,!16,70,64,!16)"} Str US={"p.T(60,72,!16,72,64,!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(64,70,!8,70,64,!16)"} Str USU={"p.T(74,60,!16,60,64,!8)"} //弦楽器味付け用2。 IF(TYPE == 1) { SU={"y(2).T(0,96,!16,96,64,!16)"} Su={"y(2).T(32,96,!16,96,64,!16)"} US={"y(2).T(45,127,!12,127,64,!16)"} UUSS={"y(2).T(64,96,!12,96,32,!16)"} Us={"y(2).T(86,60,!12,60,64,!24)"} SUS={"y(2).T(0,127,!8,127,64,!16)"} USU={"y(2).T(127,0,!16,0,64,!8)"} } Str EPl11={"EP.T(100,110,!2^4,110,40,!1^2)M.T(30,70,!1,70,0,!1)"} Str EPl11s={"EP.T(100,120,!1^4,120,40,!1^4)M.T(30,70,!1,70,0,!1)"} Str EPl1={"EP.T(115,110,!2,110,40,!1)M.T(10,70,!1)"} Str EPl1s={"EP.T(105,125,!2^4,125,40,!2^4)M.T(30,70,!2,70,0,!2)"} Str EPl2={"EP.T(100,110,!4,110,40,!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,40,!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)"} Str PO={" y64,0 y64,127 "} Str PF={" y64,0 "} Str SO={" y68,0 y68,127 "} Str SF={" y68,0 "} /* 笙 */ Int intShouKey = 0; /*乞*/Str Sh01={"Key(intShouKey) 'e*a*b*>e*f*+<' Key(0)"} /*市*/Str Sh02={"Key(intShouKey) 'd*e*a*b*>f*+<' Key(0)"}//ほんとは「一」 /*工*/Str Sh03={"Key(intShouKey) 'c*+d*e*g*+ab' Key(0)"} /*几*/Str Sh04={"Key(intShouKey) 'd*e*a*b*>e*f*+<' Key(0)"}//ほんとは上に´付きの几 /*乙*/Str Sh05={"Key(intShouKey) 'e*a*b*>d*f*g*a*+<' Key(0)"} /*下*/Str Sh06={"Key(intShouKey) 'f*+g*+a*b*>d*f*+<' Key(0)"} /*十*/Str Sh07={"Key(intShouKey) 'f*+g*a*b*>d*e*<' Key(0)"} /*斗*/Str Sh08={"Key(intShouKey) 'g*a*b*>d*e*<' Key(0)"}//ほんとは「`十」 /*美*/Str Sh09={"Key(intShouKey) 'g*+a*b*>c*d*f*+<' Key(0)"} /*彳*/Str Sh10={"Key(intShouKey) 'a*b*>d*e*f*+<' Key(0)"} /*比*/Str Sh11={"Key(intShouKey) 'a*b*>c*d*e*f*+<' Key(0)"} // 尺八 Str SHK_NORMAL={"v1 o2 e*"} Str SHK_FORTE={"v1 o2 f*"} Str SHK_STC={"v1 o2 f*+"} Str SHK_VIB1={"v1 o2 g*"} Str SHK_VIB2={"v1 o2 g*+"} Str SHK_LICK1={"v1 o2 a*"} Str SHK_LICK2={"v1 o2 a*+"} Str SHK_LICK3={"v1 o2 b*"} Str SHK_LICK4={"v1 o3 c*"} Str SHK_LICK5={"v1 o3 c*+"} Str SHK_LICK6={"v1 o3 d*"} Str SHK_LICK7={"v1 o3 d*+"} // 二胡 Str ERH_VIB={"v1 o2 e*,1"} Str ERH_ESP={"v1 o2 f*,1"} Str ERH_VIB_FORTE={"v1 o2 f*+,1"} Str ERH_TR={"v1 o2 g*,1"} Str ERH_LICK={"v1 o2 g*+,1"} Str ERH_SLIDEUP2={"v1 o2 a*,1"} Str ERH_SLIDEUP3={"v1 o2 a*+,1"} Str ERH_SLIDEDOWN3={"v1 o2 b*,1"} Str ERH_STC_PIANO={"v1 o3 c*,1"} Str ERH_STC_FORTE={"v1 o3 c*+,1"} Str ERH_PIZZ={"v1 o3 d*,1"} // 筝 Str KT_NORMAL={"v1 o2 c*,1"} Str KT_VIB={"v1 o2 c*+,1"} Str KT_LICK={"v1 o2 d*,1"} Str KT_DOWN={"v1 o2 d*+,1"} // Strings Str STR_SUS_SHORT={"v1 o0 c*,1"} Str STR_M_SUS_SHORT={"v1 o0 c*+,1"} Str STR_UP_DOWN={"v1 o0 d*,1"} Str STR_UP={"v1 o0 d*+,1"} Str STR_DOWN={"v1 o0 e*,1"} Str STR_PIZZ={"v1 o0 f*,1"} Str STR_TRM_SHORT={"v1 o0 f*+,1"} Str STR_TRM={"v1 o0 g*,1"} Str STR_M_HALF_TR={"v1 o0 g*+,1"} Str STR_HALF_TR={"v1 o0 a*,1"} Str STR_M_TR={"v1 o0 a*+,1"} Str STR_TR={"v1 o0 b*,1"} // 馬頭琴ベース Str MORINBS_NORMAL={"v1 o2 c*,1"} Str MORINBS_VIB={"v1 o2 c*+,1"} Str MORINBS_TREMOLO={"v1 o2 d*,1"} Str MORINBS_STC={"v1 o2 d*+,1"} Str MORINBS_PIZZ={"v1 o2 e*,1"} Str MORINBS_PIZZ_MUTE={"v1 o2 f*,1"} Str MORINBS_PIZZ_UP={"v1 o2 f*+,1"} Str MORINBS_PIZZ_DOWN={"v1 o2 g*,1"} // 馬頭琴 Str MORIN_LEGATO1P={"v1 o2 e*,1"} Str MORIN_LEGATO1F={"v1 o2 f*,1"} Str MORIN_LEGATO2P={"v1 o2 f*+,1"} Str MORIN_LEGATO2F={"v1 o2 g*,1"} // チェロ Str KIRK_LEG_VIB={"v1 o2 c*,1"} Str KIRK_DETACHE={"v1 o2 c*+,1"} Str KIRK_MARCATO={"v1 o2 d*,1"} Str KIRK_MOD_VIB_VOL={"v1 o2 d*+,1"} Str KIRK_VIVO={"v1 o2 e*,1"} Str KIRK_MOD_VIB={"v1 o2 f*,1"} Str KIRK_TREMOLO={"v1 o2 f*+,1"} Str KIRK_SPICATO={"v1 o2 g*,1"} Str KIRK_PIZZCATO={"v1 o2 g*+,1"} Str KIRK_ADG_VIB={"v1 o2 a*,1"} //------------------------------------------------------------------------------ IF((TYPE==0)) { ResetGM(); TrackSync; System.MeasureShift(1); //音源初期化用 }IF((TYPE==1)||(TYPE==2)) { TrackSync; System.MeasureShift(1); //音源初期化用 } //------------------------------------------------------------------------------ Function SetTrack(Int nTrack) { IF(TYPE!=0 && TYPE!=1 && TYPE!=2){ Str ALT = {"TYPEの後の数字は、0〜2の整数でお願いします〜"}; Print(ALT); End(); } IF(TYPE==0) { Track(nTrack) }IF(TYPE==1) { Track(nTrack) IF(nTrack <= 16){Port(0);Channel(nTrack);} IF((nTrack <= 32)&&(nTrack > 16)){Port(1);Channel(nTrack - 16);} IF(nTrack > 32){Port(2);Channel(nTrack - 32);} } } Function InitTrack(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){ Str ALT = {"TYPEの後の数字は、0〜2の整数でお願いします〜"}; Print(ALT); End(); } IF(TYPE==0) { Track(nTrack) Voice(nNote) IF(nTrack <= 16){Port(0);Channel(nTrack);} IF(nTrack > 16){Mute(nTrack);} M(10) }IF(TYPE==1) { Track(nTrack) IF(nTrack <= 16){Port(0);Channel(nTrack);} IF((nTrack <= 32)&&(nTrack > 16)){Port(1);Channel(nTrack - 16);} IF(nTrack > 32){Port(2);Channel(nTrack - 32);} Voice(nNote, nNote2, nNote3) y71,nRezo y73,nAtt y74,nCut } EP(nVol) P(nPan) REV(nRev) CHO(nCho) } IF(TYPE == 0){ //InitTrack( 1, 1, 0, 0,100, 64, 0, 0, 64, 64, 64);//標準 // No Note Vol Pan Rev Cho Rez Att Cut InitTrack( 1, 108, 0, 0, 90, 60, 10, 0, 64, 64, 64);//音色(Koto) InitTrack( 2, 73, 0, 0,125, 75, 10, 0, 64, 64, 64);//音色(Shakuhachi) InitTrack( 3, 41, 0, 0,120, 55, 10, 0, 64, 64, 64);//音色(Morin) InitTrack( 4, 1, 0, 0,100, 64, 10, 0, 64, 64, 64);//音色(Piano) InitTrack( 5, 10, 0, 0, 70, 64, 10, 0, 64, 64, 64);//音色(Glock) InitTrack( 6, 47, 0, 0,125, 80, 20, 0, 64, 64, 64);//音色(Harp) InitTrack( 7, 106, 0, 0,120, 40, 20, 0, 64, 64, 64);//音色(Domra) InitTrack( 8, 47, 0, 0,120, 90, 20, 0, 64, 64, 64);//音色(Harp) InitTrack( 9, 120, 0, 0,125, 64, 10, 0, 64, 64, 64);//音色(Cymbal) InitTrack(11, 49, 0, 0,115, 32, 10, 0, 64, 64, 64);//音色(Violin1A) InitTrack(12, 49, 0, 0,115, 96, 10, 0, 64, 64, 64);//音色(Violin2A) InitTrack(13, 49, 0, 0,115, 45, 10, 0, 64, 64, 64);//音色(VioraA) InitTrack(14, 49, 0, 0,115, 85, 10, 0, 64, 64, 64);//音色(CelloA) InitTrack(15, 108, 0, 0, 80, 70, 10, 0, 64, 64, 64);//音色(Koto) InitTrack(16, 108, 0, 0, 80, 50, 10, 0, 64, 64, 64);//音色(Koto) } IF(TYPE == 1){ //InitTrack( 1, 1, 0, 0,100, 64, 0, 0, 64, 64, 64);//標準 // No Note Vol Pan Rev Cho Rez Att Cut InitTrack( 1, 108, 0, 0,110, 60, 10, 0, 64, 64, 64);//音色(Koto) InitTrack( 2, 73, 0, 0,110, 75, 10, 0, 64, 64, 64);//音色(Shakuhachi) InitTrack( 3, 41, 0, 0,125, 55, 10, 0, 64, 64, 64);//音色(Morin) InitTrack( 4, 1, 0, 0,125, 64, 10, 0, 64, 64, 64);//音色(Piano) InitTrack( 5, 9, 0, 0,125, 64, 10, 0, 64, 64, 64);//音色(Glock) InitTrack( 6, 47, 0, 0,125, 80,110, 0, 64, 64, 64);//音色(Harp) InitTrack( 7, 106, 0, 0,125, 40, 20, 0, 64, 64, 64);//音色(Domra) InitTrack( 9, 120, 0, 0,125, 64, 10, 0, 64, 64, 64);//音色(Cymbal) InitTrack(17, 49, 0, 0,100, 32, 10, 0, 64, 64, 64);//音色(Violin1A) InitTrack(18, 49, 0, 0,100, 32, 10, 0, 64, 64, 64);//音色(Violin1B) InitTrack(19, 49, 0, 0,100, 40, 10, 0, 64, 64, 64);//音色(Violin1C) InitTrack(20, 49, 0, 0,100, 96, 10, 0, 64, 64, 64);//音色(Violin2A) InitTrack(21, 49, 0, 0,100, 96, 10, 0, 64, 64, 64);//音色(Violin2B) InitTrack(22, 49, 0, 0,100, 96, 10, 0, 64, 64, 64);//音色(Violin2C) InitTrack(23, 49, 0, 0,100, 45, 10, 0, 64, 64, 64);//音色(VioraA) InitTrack(24, 49, 0, 0,100, 45, 10, 0, 64, 64, 64);//音色(VioraB) InitTrack(25, 49, 0, 0,100, 45, 10, 0, 64, 64, 64);//音色(VioraC) InitTrack(26, 49, 0, 0,100, 85, 10, 0, 64, 64, 64);//音色(CelloA) InitTrack(27, 49, 0, 0,100, 85, 10, 0, 64, 64, 64);//音色(CelloB) InitTrack(28, 49, 0, 0,100, 85, 10, 0, 64, 64, 64);//音色(CelloC) InitTrack(29, 49, 0, 0,100, 70, 10, 0, 64, 64, 64);//音色(BassA) InitTrack(30, 49, 0, 0,100, 70, 10, 0, 64, 64, 64);//音色(BassB) InitTrack(31, 49, 0, 0,100, 70, 10, 0, 64, 64, 64);//音色(BassC) } //------------------------------------------------------------------------------ // Port(0) //------------------------------------------------------------------------------ Track(1)Port(0) v100 o6 q100 M(0) V(110) Str Koto0={" v.N(50,55, 95,90) l8 d^^^^^ ^^^^^^ l8 SU c^^^^^ ^^ US d^e^ "} Str Koto1={" v.N(70,95, 90,90,85, 60,95,60,95,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70, 85, 80,90,95, 60,90,80,85,80, 60,75) l8 'f'^ef SU b^ USU 'fb'afe'd'^ v.N(70,95, 90,90,85, 60,95,60,100,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70,95,90,90, 85, 60,90, 80) l8 'f'e^f^a SUS 'f'^^^,96 SUS e^ v.N(70,95, 90,90,85, 60,95,60,95,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70, 85, 90,90,95, 60,95,90,90,90, 70,85) l8 'f'^ef SU b^ USU 'fb'afe'd'^ v.N(70,95, 90,90,85, 60,95,60,95,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70,95,90,85, 90, 60,90) l8 'f'e^f^a SUS 'b'^^^^^ "} Str Koto3={" v.N(80, 75,90, 85,75) l8 SU a^^^^^ a^^^>c^ l8 USU c^^^^^< SUS b^^^^^ v.N(90, 75,90, 90,85,80) l8 SU a^^^^^ a^^^>c^ l8 SUS d^^^e^ f^^^^^ v.N(85,85, 95,85,85, 85,80, 75) l8 SU e^^^f^ SU a^f^e^ l8 USU e^^^^^ d^^^f^ SUS e^^^ c^ l8 < SUS b^^^^^ ^^^^^^ ^^^^^^ ^^^^^^ "} Str Koto1a={" v.N(70,95, 90,90,85, 60,95,60,95,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70, 85, 80,90,90, 65,95,85,85,80, 60,75) l8 'f'^ef SU b^ USU 'fb'afe'd'^ v.N(70,95, 90,90,85, 60,95,60,100,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70,95,90,90, 85, 65,90, 90) l8 'f'e^f^a SUS 'f'^^^,96 SUS e^ v.N(70,95, 90,90,90, 60,95,60,95,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70, 85, 90,90,95, 60,95,90,90,90, 70,85) l8 'f'^ef SU b^ USU 'fb'afe'd'^ v.N(70,95, 90,90,85, 60,95,60,95,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70,95,90,90, 85, 60,95) l8 'f'e^f^a SUS 'b'^^^^^ ^^^^^^ "} Str Koto1b={" v.N(70,95, 90,90,85, 60,95,60,95,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70, 85, 80,90,90, 60,90,80,80,70, 60,80) l8 'f'^ef SU b^ USU t.N(-5,5) 'fb' t0 afe'd'^ v.N(70,95, 90,90,85, 60,95,60,100,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70,95,90,90, 85, 60,95, 90) l8 'f'e^f^a SUS 'f'^^^,96 SUS e^ v.N(70,95, 90,90,85, 60,95,60,100,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70, 85, 90,90,95, 60,85,80,80,85, 70,85) l8 'f'^ef SU b^ USU t.N(-5,5) 'fb' t0 afe'd'^ v.N(70,95, 90,90,85, 60,95,60,95,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(70,95,90,90, 85, 60,90) l8 'f'e^f^a SUS 'b'^^^^^ l1^2 r*^^ v.N(70, 60,90,85,85,80,80,80) l8 r*^^^^ l8-48 r* l48 a l8 'fb'afefa v.N(70,90, 60,80) l8 USU 'fb'^^^^^ 'ea'^^^^^ v.N(70,95,80,80,70,75, 70,100,80,90,75,85) l8 'fa'bafe^ 'e'fed< SU a^> v.N(70,95, 90,90,85, 60,95,60,95,60,105) l8 US 'f'^ef 'e'^'f'^'da'^ v.N(115, 85,75,80, 70,80, 70,70, 60,65) l8 > US c^^< afa t.N(0,10) 'db'^^^fa t.N(0,10) 'fb'^^^^^ ^^^^^^ t0 "} TIME(1:1:0)o6 Koto0 TIME(5:1:0)o6 Koto1 TIME(56:1:0)o5 Koto3 TIME(74:1:0)o6 Koto1a TIME(116:1:0)o6 Koto1b //------------------------------------------------------------------------------ Track(2)Port(0) v100 o6 q100 M.onNoteWave(0,35,!1^2) V(110) Str Shakuhachi3_={" l8 r*^ SHK_VIB1 ^ SHK_NORMAL ^ SHK_FORTE ^ SHK_NORMAL ^^^ l8 SHK_LICK5 ^^^^^ SHK_VIB2 ^^^^^ l8 SHK_VIB1 ^^^^^ SHK_VIB2 ^^^^^ l8 SHK_VIB1 ^^^^^ SHK_VIB1 ^^^ SHK_NORMAL ^ l2^4-32 SHK_VIB2 l32 SHK_NORMAL l2-32 SHK_VIB2 l32 SHK_NORMAL l8 SHK_NORMAL ^ l2^4-32 SHK_LICK5 l32 SHK_NORMAL l8 SHK_LICK5 ^^^^^ "} Str Shakuhachi3={" v.N(80,70,60, 70,70) l8 r*^f^a^b^a^f^ v.N(80,70,75,80) l8 a^^^^^ V.T(110,115,!4, 115,60,!2) f^^^^^,96 V(110) l8 d^^^^^ < V.T(110,115,!2, 115,60,!4) b^^^^^,96 V(110) > v.N(80, 70,80, 80,70,80,70,80,80) l8 d^^^^^ f^^^f V.T(110,115,!4, 115,80,!4) c^^^ V(110) d^< l8 V.T(110,115,!2^4, 115,50,!2^4) b^^^^^ ^^^^^^,96 V(110) v.N(55, 60,50, 55,60, 60) l8 b^^^ab> V.T(110,115,!4, 115,80,!4) c^^^ V(110) d^< l8 V.T(110,115,!2^4, 115,50,!2^4) b^^^^^ ^^^^^^,96 V(110) v.N(55, 60,50, 55,60, 60, 55, 60,50) l8 b^^^ab> V.T(110,115,!4, 115,80,!4) c^^^ V(110) d^< l8 V.T(110,115,!4^8, 115,50,!4^8) b^^^^^ V.T(90,115,!4, 115,90,!4) a^^^,96 V(110) fa v.N(55, 60,50, 55,60, 60, 70,60, 50) l8 b^^^ab> V.T(110,115,!4, 115,80,!4) c^^^ V(110) d^ l8 V.T(110,115,!2, 115,80,!4) c^^^< V(110) ba V.T(110,115,!2, 115,80,!4, 80,10,!2^4) b^^^^^ ^^^^^^ "} TIME(62:1:0)o5 t-50 Shakuhachi3_ TIME(62:1:0)o5 t0 Shakuhachi3 TIME(90:1:0)o5 t-50 Shakuhachi4_ TIME(90:1:0)o5 t0 Shakuhachi4 TIME(116:1:0)o6 t-50 Shakuhachi1b_ TIME(116:1:0)o6 t0 Shakuhachi1b //------------------------------------------------------------------------------ Track(3)Port(0) v100 o6 q100 M(0) V(110) Str Morin2_={" l8 MORIN_LEGATO2F ^^^^ MORIN_LEGATO2P MORIN_LEGATO2F ^^^ MORIN_LEGATO2P ^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO2F ^^^^^ l8 MORIN_LEGATO2F ^^^ MORIN_LEGATO2P ^ MORIN_LEGATO2F ^^^ MORIN_LEGATO2P ^ l8 MORIN_LEGATO2P ^^^ MORIN_LEGATO2F MORIN_LEGATO2P MORIN_LEGATO2F ^^^ MORIN_LEGATO1F ^ l8 MORIN_LEGATO2P MORIN_LEGATO2F ^ MORIN_LEGATO2P ^^ MORIN_LEGATO2F ^^^ MORIN_LEGATO2P ^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO2F ^^^ ^ MORIN_LEGATO2P l8 MORIN_LEGATO2F ^^^^^ ^^^^ MORIN_LEGATO2P ^ l16 MORIN_LEGATO1F l2^4-16 MORIN_LEGATO2F l2^4 MORIN_LEGATO1F l8 MORIN_LEGATO2F ^^^^ MORIN_LEGATO2P MORIN_LEGATO2F ^^^ MORIN_LEGATO2P ^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO2F ^^^^^ l8 MORIN_LEGATO2F ^^^ MORIN_LEGATO2P ^ MORIN_LEGATO2F ^^^ MORIN_LEGATO2P ^ l8 MORIN_LEGATO2P ^^^ MORIN_LEGATO2F MORIN_LEGATO2P MORIN_LEGATO2F ^^^ MORIN_LEGATO1F ^ l8 MORIN_LEGATO2P MORIN_LEGATO2F ^ MORIN_LEGATO2P ^^ MORIN_LEGATO2F ^^^ MORIN_LEGATO2P ^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO2F ^^^ ^ MORIN_LEGATO2P l8 MORIN_LEGATO2F ^^^^^ ^^^^ MORIN_LEGATO2P ^ l16 MORIN_LEGATO1F l2^4-16 MORIN_LEGATO2F l2^4 MORIN_LEGATO2P "} Str Morin2={" v80 l8 f^^e^d V.T(95,120,!4, 120,80,!4) c^^^,96 V(110) cd l8 V.T(105,110,!4, 110,90,!4) c^^^ V(110) d^ V.T(95,110,!4, 110,80,!4) c^^^,96 V(110) cd l8 V.T(100,120,!4, 120,100,!4) c^^^ V(110) V.T(95,120,!4, 120,90,!4) f^^^,96 V(110) a^ l8 ab^a^f V.T(110,120,!4, 120,100,!4) e^^^,96 V(110) ef l8 e^d^c^ < V.T(95,120,!4, 120,80,!4) b^^^,96 V(110) fa l8 V.T(110,120,!4, 120,100,!4) b^^^ V(110) b>d V.T(110,120,!4, 120,100,!4) c^^^ V(110) l32 cd V.T(95,120,!4, 120,70,!2) l2^4-16 c,96 V.T(75,110,!4^8, 110,60,!4^8) l2^4 c,96 V(110) l8 f^^e^d V.T(95,120,!4, 120,80,!4) c^^^,96 V(110) cd l8 V.T(105,110,!4, 110,90,!4) c^^^ V(110) d^ V.T(95,110,!4, 110,80,!4) c^^^,96 V(110) cd l8 V.T(100,120,!4, 120,100,!4) c^^^ V(110) V.T(95,120,!4, 120,110,!4) f^^^ V(110) a^ l8 ab^a^f V.T(110,110,!4, 110,100,!4) e^^^,96 V(110) ef l8 e^d^c^ < V.T(110,120,!4, 120,100,!4) b^^^,96 V(110) fa l8 V.T(110,120,!4, 120,100,!4) b^^^,98 V(110) b>f V.T(110,120,!4, 120,100,!4) e^^^ V(110) c^< l32 b>c< l2^4-16 V.T(105,110,!4, 110,80,!2) b,96 l2^4 V.T(85,100,!4^8, 100,45,!4^8) b,96 "} Str Morin1a_={" l8 MORIN_LEGATO2P ^^^^^ ^^^^^^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO2F ^^^ MORIN_LEGATO1F ^ l8 MORIN_LEGATO2P ^^^^^ ^^^^^^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO1F ^^^^^ l8 MORIN_LEGATO2P ^^^^^ ^^^^^^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO2F ^^^ MORIN_LEGATO1F ^ l8 MORIN_LEGATO2P ^^^^^ ^^^^^^ l8 MORIN_LEGATO2P ^^^ MORIN_LEGATO1F MORIN_LEGATO2P ^^^^^ "} Str Morin1a={" v55 V.T(110,120,!4, 120,110,!2, 110,120,!4, 120,110,!2) l8 b^^^^^a^^^^^ V.T(110,120,!4, 120,110,!2, 110,125,!4, 125,110,!2) l8 b^^^^^>c^^^c^^^d^ V.T(95,120,!4, 120,80,!4) c^^^,96 V(110) cd l8 V.T(100,110,!4, 110,100,!4) c^^^ V(110) de V.T(95,120,!4, 120,110,!4) f^^^ V(110) a^ l8 ab^a^f V.T(100,110,!4, 110,80,!4) e^^^,96 V(110) ef l8 e^d^c^ < V.T(95,120,!4, 120,80,!4) b^^^,96 V(110) fa l8 V.T(95,120,!4, 120,80,!4) b^^^,96 V(110) b>f V.T(95,120,!4, 120,80,!4) e^^^ V(110) c^< l32 b l2^4-16 V.T(105,110,!4, 110,80,!2) b,96 l2^4 V.T(85,110,!4^8, 110,60,!4^8) b,96 "} Str Morin1b_={" l8 MORIN_LEGATO2P ^^^^^ ^^^^^^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO2F ^^ MORIN_LEGATO1F MORIN_LEGATO1P MORIN_LEGATO1F l8 MORIN_LEGATO2P ^^^^^ ^^^^^^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO1F ^^^^^ l8 MORIN_LEGATO2F ^^^^^ MORIN_LEGATO2P ^^^^^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO2F ^^^ MORIN_LEGATO1F ^ l8 MORIN_LEGATO2P ^^^^^ ^^^^^^ l8 MORIN_LEGATO2P ^^^ MORIN_LEGATO1F ^ MORIN_LEGATO2P ^^^^^ l8 MORIN_LEGATO2P ^^^^^ ^^^^^^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO2F ^^ MORIN_LEGATO1F MORIN_LEGATO1P MORIN_LEGATO1F l8 MORIN_LEGATO2P ^^^^^ ^^^^^^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO1F ^^^^^ l8 MORIN_LEGATO2F ^^^^^ MORIN_LEGATO2P ^^^^^ l8 MORIN_LEGATO2P ^^^^^ MORIN_LEGATO2F ^^^ MORIN_LEGATO1F ^ l8 MORIN_LEGATO2P ^^^^^ ^^^^^^ l8 MORIN_LEGATO2P ^^^ MORIN_LEGATO1F ^ MORIN_LEGATO2P ^^^^^ MORIN_LEGATO1F ^^^^^ "} Str Morin1b={" v55 V.T(110,120,!4, 120,110,!2, 110,120,!4, 120,110,!2) l8 b^^^^^a^^^^^ V.T(110,120,!4, 120,110,!2, 110,125,!4, 125,110,!2) l8 b^^^^^>c^^< v.N(55,75,50) afa v55 V.T(110,120,!4, 120,110,!2, 110,120,!4, 120,110,!2) l8 b^^^^^a^^^^^ V.T(110,120,!4, 120,90,!2, 110,120,!4, 120,110,!4, 110,120,!4) l8 f^^^^^,96 v.N(70,50,65,50) fef^a^ v55 V.T(110,120,!4, 120,110,!2, 110,120,!4, 120,110,!2) l8 b^^^^^a^^^^^ V.T(110,120,!4, 120,110,!2, 110,125,!4, 125,110,!2) l8 b^^^^^>c^^< v.N(55,45,50) afa v55 V.T(110,120,!4, 120,110,!2, 110,120,!4, 120,110,!2) l8 b^^^^^a^^^^^ V.T(110,120,!4, 120,110,!2, 110,120,!4, 120,80,!2) l8 f^^^a^b^^^^^,94 V.T(110,120,!4, 120,110,!2, 110,120,!4, 120,110,!2) l8 b^^^^^a^^^^^ V.T(110,120,!4, 120,110,!2, 110,125,!4, 125,110,!2) l8 b^^^^^>c^^< v.N(55,75,55) afa v55 V.T(110,120,!4, 120,110,!2, 110,120,!4, 120,110,!2) l8 b^^^^^a^^^^^ V.T(110,120,!4, 120,90,!2, 110,120,!4, 120,110,!4, 110,120,!4) l8 f^^^^^,96 v.N(70,50,65,50) fef^a^ v55 V.T(110,120,!4, 120,110,!2, 110,120,!4, 120,110,!2) l8 b^^^^^a^^^^^ V.T(110,120,!4, 120,110,!2, 110,125,!4, 125,110,!2) l8 b^^^^^>c^^ v.N(55,45,55) ec< f v55 V.T(110,120,!4, 120,110,!2, 110,120,!4, 120,110,!2) l8 b^^^^^a^^^^^ V.T(110,120,!4, 120,110,!2, 110,120,!4, 120,110,!2) l8 f^^^a^ b^^^^a V.T(90,125,!2, 125,30,!1) b^^^^^ ^^^^^^ "} TIME(24:1:0)o5 t-50 Morin2_ TIME(24:1:0)o5 t0 Morin2 TIME(74:1:0)o5 t-50 Morin1a_ TIME(74:1:0)o5 t0 Morin1a TIME(100:1:0)o5 t-50 Morin2a_ TIME(100:1:0)o5 t0 Morin2a TIME(116:1:0)o5 t-50 Morin1b_ TIME(116:1:0)o5 t0 Morin1b //------------------------------------------------------------------------------ Track(4)Port(0) v100 o6 q97 M(0) V(125) t.Random(2) Str PianoR1={" v.N(70,70,75, 65,65,70, 70,70,75, 75,75,80) l8 'dfb'^^^^^ 'cea'^^^^^ l8 'dfb'^^^^^ 'ea>c<'^^^^^ v.N(70,70,75, 65,65,70, 70,70,75, 75,75,85, 70,75, 70,75) l8 'dfb'^^^^^ 'cea'^^^^^ l8 'dfb'^^^^^ 'fa>c<'^'fa'^'cf'^ v.N(70,70,80, 70,70,75, 65,65,80, 75,75,70, 75,75,85, 70,70,75, 85,85,90, 70,70,75) l8 'dfb'^^^'dfb'^ 'cea'^^^'cea'^ l8 'dfb'^^^'dfb'^ 'ea>c<'^^^'cfa'^ v.N(70,70,80, 70,70,75, 65,65,70, 55,55,60, 70,70,75, 80,80,90, 80,80,85, 70,70,75) l8 'dfb'^^^'dfb'^ 'cea'^^^'cea'^ l8 'cfa'^^^'fa>c<'^ 'dfb'^^^'cfa'^ v.N(70,70,75, 70,70,75, 65,65,70, 55,55,60, 70,70,75, 70,70,75) l8 'dfb'^^^'cfa'^ 'dfb'^^^'cfa'^ l8 'dfb'^^^'df'^ "} Str PianoL1={" v.N(80,75,80,80,90, 80,80,80,90,90,80) l8 v.N(92,70,75, 90,70,80,60) l8 dg^^^ eb^a^ v.N(92,70,80, 85,70,75,75,65,60) l8 fb^^^ eb>dcdg^^^ eb^a^ v.N(88,75,75, 90,95, 85,60,75,80,65) l8 ef^'a'^ fb>dfbfba fb>dfbfba "} Str PianoR2={" v.N(70,70,80, 85,85,90, 90,90,90, 95,70,70,70,70,60) l8 'dg'^^^^^ 'cea'^^^^^ l8 'df'^^^^^ bafefa v.N(70,70,80, 85,85,90, 90,90,90, 85,85,90, 70,70,75, 75,75,85) l8 'dg'^^^^^ 'cea'^^^^^ l8 'dfb'^^^^^,96 'dfb'^'fb>d<'^'dfa'^ v.N(70,70,80, 85,85,90, 90,90,90, 90,90,90, 95,80,80,80,80,70) l8 'dg'^^^^^ 'cea'^^^^^ l8 'cf'^^^'fa>c<'^ bafefa v.N(70,70,80, 85,85,90, 90,90,90, 85,85,85,90) l8 'dg'^^^^^ 'cea'^^^^^ l8 'cf'^^^^^,92 'cef'^^^^^ v.N(70,70,80, 85,85,90, 90,90,90, 95,75,75,75,75,65) l8 'dg'^^^^^ 'cea'^^^^^ l8 'df'^^^^^ bafefa v.N(70,70,80, 85,85,90, 90,90,90, 70, 85,85,90, 70,70,75, 75,75,85) l8 'dg'^^^^^ 'cea'^^^^^ l8 'dfb'^^^^ a 'dfb'^'fb>d<'^'dfa'^ v.N(70,70,80, 85,85,90, 90,90,90, 90,90,90, 95,80,80,80,80,70) l8 'dg'^^^^^ 'cea'^^^^^ l8 'cf'^^^'fa>c<'^ bafefa v.N(70,70,80, 85,85,90, 90,90,90, 85,85,85,90) l8 'dg'^^^^^ 'cea'^^^^^ l8 'dfb'^^^^^ 'dfb'^^^^^ "} Str PianoL2={" v.N(92,60,75,65,60, 90,65,75,60,50) l8 dgdg^ eaea^ v.N(92,60,75,65,60, 90,65,75,85,50) l8 fbfb^ fb v.N(92,60,75,65,60, 90,65,75,60,50) l8 dgdg^ eaea^ v.N(92,60,75,65,60, 90,65,75,90,60) l8 fbfb^ fb>ddgdg^ eaea^ v.N(95,60,75,65,60, 90,65,75,85,50) l8 cfce^ fbfb^ v.N(95,60,75,65,60, 95,65,75,85,60) l8 dgdg^ eaea^ v.N(90,60,75,65,60, 95,65,75,85,50) l8 cfcf^ cece^ v.N(95,70,75,70,75,50, 95,70,75,70,75,50) l8 dgdgd eaeae v.N(95,70,75,70,70,50, 95,70,75,80,60) l8 fbfbf fb v.N(95,70,75,70,70,70, 95,70,75,70,75,60) l8 dgdgd eaeae v.N(95,70,75,70,70,50, 98,70,75,80,60) l8 fbfbf fbfb^ v.N(95,70,75,70,70,70, 95,70,75,70,75,70) l8 dgdgd eaeae v.N(95,70,75,70,70,70, 95,70,75,85,65) l8