Int TYPE = 1/* 数字は1、2、3のいずれか(半角の数字でお願いします) 1 → 飛翔 今回つくった新作 2 → 新・飛翔 少し前につくった未完の作品 3 → 飛翔(完全版) 一番初めにつくったもの */ /* 〔　新しい飛翔の完成に寄せて(軽い読み物)　〕 最初に断っておきたいことがあります。 この曲は決して飛翔している様子をそのまま音楽にしたという作品ではありません。 この曲は、飛びたくてでも飛べなくて、それでも飛びたくて というような音楽です。 今回、この曲は過去の作品の作り直しということで もう一度まっさらな状態からMMLを組み立てていきました。 これは珍しいことではありません。 年に二度くらいやりますし、こういう作り直しはいつも予定の中にあります。 ただ、作り直すたびに毎回思うのが、 あれ、思ったほどよくならないなぁ ということです。現実、劇的に変わったみたいなのはありません。 自分が進歩していないということなのかもしれませんが、これはなかなか辛いです。 なんというか、過去の作品には下手なりに上手くいってたところがあるように感じます。 最近は最近で、昔よりそれなりに音楽に詳しくなって、表現できるものもずいぶん増えた気がします。 しかし、力の出し具合となると、これは昔のほうに分があるんじゃないかと思ったりします。 力の出し具合、それはつまりベストをつくしたかどうかですが、 これは作品を作り終えてからしばらく経って初めて浮き彫りになるような気がします。 ただ単に技術を詰め込めばいいってもんでもないですね。 音楽でいうところの味わいとかコクとかっていうのは 音から知覚に変わる段階で加わってくるのかなぁ、と思います。 文章でいうところの行間を読むっていうようなことを 誰もが無意識に行っているのではないでしょうか。 それは私がみなさんの人の作品を聞くときにも感じますし、 みなさんも私の作品にたま〜に何か感じてくれることがあるのではないでしょうか。 これは確かにプレセボかどうか怪しいところがありますが、 僕はあくまで肯定する姿勢でいきます。 ここまでまとめますと、 作り直しは前よりベストを尽くさねば作り直す意味が無い と僕は思っているということです。 そもそも、なんで『飛翔』を作り直そうと思ったかという話なんですが、 今回ばかりでなく前にもこの曲を作り直したことがあります。 『新・飛翔』という曲です。高校卒業の手前、3年位前につくりました。未完の作品です。 自分の身の回りもずいぶん変わることだし、 ここまでの作曲に一区切りつけようとしてつくりました。 そのときのテーマは　翼を得た時間　でした。 原曲は　もし翼があるなら　だったので、思い切って飛び立ちました。 (今回は　飛びたくてでも飛べなくて、それでも飛びたくて　みたいな感じです) んー、まだまだ翼は持っていなかったみたいです。 力不足を感じて、そのときはあきらめてしまいました。 また何年か経ち、最近はものすごい閉塞感を感じていました。 自分が成長していないことを痛感する毎日です。 なんとか情熱を取り戻したいと思ってこの曲に望みを託し、 もう一度この曲に挑戦することにしました。 私はこの曲がとても好きです。とても気に入っているところがいくつもあります。 たとえば、1コーラス目のサビが終わったところで転調するところがありますね。 これは今回の作り直しで転調という作業をしました。 過去の作品は何度か聞いていると、 どうしてもこの部分に入ったところで一息ついてしまうような感じがしました。 でも、転調すると、まだまだっ!!って感じがしますよね。 (これは別の作品、Progressiveでもやっていることです。) このまだまだっ!!っていうのが意外と大事です。 私は音楽は最初から最後まで気を抜いて作るつもりはないし、 聞いている人にも、一応は最後まで緊張のまま聞いてほしいなぁ、と思っています。 聞いてくれる側に何かを強要するっていうのは別にしませんが、 表現を発信する側として上手くできたことについてはとても満足しています。 満足というか納得というか。 ほかの部分についてもいろいろ見てみますと、 トラック8と9のソースに『この響きに命かけてます』とコメントしてあります。 コメントしたのは私です。はい、命かけてます。 この和音は今回の作り直しで新たに入れました。 最初に『飛翔』を作ったときには別に気にしていなかったのですが、 『新・飛翔』を作るときには自分の中途半端な知識のせいで何の和音を仕込めばよいか わからなくなって頭を抱えてしまった、ということがあります。 『新・飛翔』のときからは3年近く経った今回、納得のいく(しかも命かけちゃうくらい) 和音(響き)が作れたのはとてもうれしいです。 なんだかんだ、進歩してました。よかったです。 それでは、次の言葉をもってこのノートを終わりにしようと思います。 私が最初(16か17のとき)に飛翔を作ってからしばらく数年して 作曲が急につまらなくなったときに気づいたことです。 音楽は謙虚で清貧な精神と何かに立ち向かうアツい思いが共存したときにのみ最高の結果を残すことができる (最近はこれを意識するようにしてますが、なかなか情熱というのはみなぎってきてはくれないです笑) */ IF(TYPE = 1){ TrackName = {"飛翔"} Copyright = {"騎士王321"} MetaText = {"とても思い入れのある曲です"} テンポ 144 拍子 4,4 KeyFlag-(bead);Key(0); TrackSync; Include(gs.h);Include(delay.h);Include(groove.h);Include(unison.h); System.MeasureShift(1);ResetGS; TrackSync; GSScaleTuning(72,72,72,72,72,72,72,72,72,72,72,72);//A = 442Hzくらい CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7; CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7; CuePoint={"TwmParam(70,127,30)"} CuePoint={"TwmChorus(1,127,24,64,64,20,1)"} //================================================================================================== STR KEEP = {} STR RS02 = {r%768} STR RS16 = {r%6144} //-------------------------------------------------------------------------------------------------- STR PF01 = {r-4[2 "a"bdef4^8e4^8a4f4^8e4^8"a"bdee4^8d4^8f4e8d8c8d4^8: "a"bdef4^8e4^8a4f4^8e4^8a4b2^4`c4`d4^8`c4^8] "a"bdef4^8e4^8a4f4^8e4^8a4b1^1} STR PF02 = {Key(1);/*r-4 "a"bde*/f4^8e4^8a4f4^8e4^8"a"bdee4^8d4^8f4e8d8c8d4^8 "a"bdef4^8e4^8a4f4^8e4^8a4b2^4`c4`d4^8`c4^8 "a"bdef4^8e4^8a4f4^8e4^8"b4e4^8d4^8"f8"a8e8d8c8d4^8 "a"bdef4^8e4^8a4f4^8e4^8a4b1^1} STR PF03 = {Sub{<>v+15 q+30/*手の大きさ自慢*/} r-4/*節回しが少し変わる*/Tempo(136); "a"bdef4^8e4^8a4f4^8e4^8"a"bdee4^8d4^8f4e8d8c8d4^8 "a"bdef4^8e4^8a4f4^8e4^8a4b2^4`c4`d4^8`c4^8 "a"bdef4^8e4^8a4f4^8e4^8"b4e4^8d4^8"f8"a8e8d8c8d4^8 "a"bdef4^8e4^8a4f4^8e4^8a4 TempoChange(136,144,!1^1);b1^1 v127} STR PF11 = {/*前のメロディのちょっとした変奏*/} STR PF21 = {r%3072< b^^rb^`cb^^^^^^^^ b^^^`c^`db^^^^^^^^ b^^`c^^`d^`e^^`d^^`c^b32>a8^32,,,-4g^^f^e^^d^^c^ d^^^d^ed^^^^^^^^ "a1f2"b2c2"f4"a4"b1 r-1} STR PF41 = {KeyFlag+(fc);v120 l8 l16 v127} STR PF81 = {<[4 "b^bfdfd"b[3 '"bdfb'^:r] "b^bfd+fd+"b[3 '"bd+fb'^:r] "b^bfefe"b[3 '"aefb'^:r] Sub{e^rc^re^}[3 '"bfa'^:r][2 '"bdfb'^r]'"bcfa'^]>} STR PF91 = {Sub{v80[4 r1]"bcfe16^1^2r4b`f`b``c16^1^1 v127}r%6144 KeyFlag-(beadg);REV(52);} STR PF92 = {[8 r1]q101<<'"d"a'1'"e"b'1'"fc'1^2'"e"b'2'"d"a'1'"e"b'1'"ae'1^2'"bf'2>>q151 KeyFlag-(beadg);} STR PF93 = {o5 l8 EP.T(127,1/*←最後まで望みを捨て切れなくて0にできない*/,6144);/*ここで回想*/q+50 ""g"d"a'"bdf'^^rr|""a"e"b'"ace'^^rr|""f"c"f'"ace'^^rr|""b"f"a'"bdf'^^rr ""g"d"a'"bdf'^^rr|""a"e"b'"ace'^^rr|""b"f"b'"ace'^^rr|""d""a"f'c-ea'^^rr ""g"d"a'"bdf'^^rr|""f"e"f'"a+ca'^^rr|""b"f"a'"bdf'^^rr|""b"f"b'"ace'^^rr TempoChange(144,108,768);//劇的になり過ぎない程度に ""g"d"a'"bdf'^^rr|""a"e"b'"ace'^^rr|""b"f"a'bdf'^^rr|"""b""b"f'"bd+f'^^rr} トラック1 KeyFlag-(bead);Key(0);//ピアノ。片手で出来る楽々系 V(120) REV(80) CHO(40) M(0) q121 P(68) o6 l16 @3,0,0 p%(512) v127 r1 RS02 PF91 RS16 PF11 PF21 RS16 PF01 RS16 RS16 RS02 PF03 PF02 RS16 RS16 PF93 RS02 //-------------------------------------------------------------------------------------------------- トラック2 KeyFlag-(bead);Key(0);//厚化粧。ひび割れ注意 V(80) REV(32) CHO(40) M(10) q119 o6 l16 @100,0,0 p%(128) v127 r1 P(64) RS02 PF92 RS16 PF11 PF21 RS16 RS16 RS16 RS16 RS02 PF03 RS16 PF41 RS16 PF93 RS02 //-------------------------------------------------------------------------------------------------- STR IR01 = {b2^4ab`d`e`c1} STR IR02 = {"b2^4"a"bdec1"a2^4"f8"b8"g+8"a8"a+8"b8^2|"b2^4"a"bdec1d2^4e4f4^8a2^8 "b2^4"a"bdec1"a2^4"f8"b8"g+8"a8"a+8"b8^2|"b2^4"a"bdec1d1d+1} STR IR03 = {Key(1); "b2^4"a"bdec1"a2^4"f8"b8"g+8"a8"a+8"b8^2|"b2^4"a"bdec1d2^4e4f4^8a2^8 "b2^4"a"bdec-1"a2^4"f8"b8"g+8"a8"a+8"b8^2|"b2^4"a"bdec1d1d+1} STR IR11 = {EP(80);r4dega[2 b2^4^8ab`d2^8b8`d8`e8`f2^4^8^16`e16`f2^4`e4,,,1: `d2^4^8b`d`e2^4`a4`f1^2`e8b24,51a24,51f24,51 dega]`d2b2`e2`f2`d+32`e4^16r32`d1r8 EP(127);} STR IR12 = {} STR IR32 = {EP.T(64,127,6144);< Sub{b4^8f4^8b4`c4^8b4^8`c4`d8^16`c8^16a8f2^4^8f8g8a4^8 b4^8f4^8b4`c4^8b4^8`c4`d8^16`a8^16`g8`f8^16`e8^16`d8`c4^8b4^8a+4 b4^8f4^8b4`c4^8b4^8`c4`d8^16`c8^16a8f2^4^8f8g8a4^8 b4^8f4^8b4`c4^8b4^8`c4`d1`d+1}v100 f4^8d4^8f4a1b1"b2^4e4 f4^8d4^8f4a1f2a+2b2f2 f4^8d4^8f4a1b1"b2^4e4 f4^8d4^8f4a1b1"b1>v127} STR IR41 = {r%3072|g2^4a8b8`c4^8b4^8a4|f2^4g8a8b4^8g4^8f4|e2^4f8g8d2c2b1-16"b1^16} STR IR71 = {r-4 Key(-3); dega[2 b2^4^8ab`d2^8b8`d8`e8`f2^4^8^16`e16`f2^4`e4,,,1: `d2^4^8b`d`e2^4`a4`f1^2`e8b24,51a24,51f24,51 dega]`d2b2`e2`f2`d+32`e4^16r32`d1^2r8 Key(0);/**/} STR IR81 = {/*EP.T(127,0,6144);*/< [4 "b^bfdfd"b[3 '"bdfb'^:r] "b^bfd+fd+"b[3 '"bd+fb'^:r] "b^bfefe"b[3 '"befb'^:r] Sub{e^rc^re^}[3 '"bfa'^:r][2 '"bdfb'^r]'"bcfa'^] '"bdfb'%6144>} トラック3 KeyFlag-(beadg);Key(0);//合いの手系 V(100) REV(44) CHO(60) M(0) q109 P(32) o6 l16 @97,0,0 p%(64) v125 r1 RS02 RS16 IR11 IR12 RS16 IR32 IR02 RS16 IR71 RS02 RS16 IR03 IR41 IR81 KEEP RS02 //-------------------------------------------------------------------------------------------------- STR BS01 = {r-4[2 "a&"bd&ef4^8&e4^8&a4f4^8&e4^8"a&"bd&ee4^8&d4^8&f4e8&d8&c8d4^8: "a&"bd&ef4^8&e4^8&a4f4^8&e4^8a4&b2^4&`c4`d4^8&`e4^8>] "a&"bd&ef4^8&e4^8&a4f4^8&e4^8&a4&b2^4b4&&`b1< r-1 M(0,127,!8);r1 M.onNoteWave(0,0,!4,0,80,!2^4);} STR BS02 = {Key(1);r-4 "a&"bd&ef4^8&e4^8&a4f4^8&e4^8"a&"bd&ee4^8&d4^8&f4e8&d8&c8d4^8 "a&"bd&ef4^8&e4^8&a4f4^8&e4^8a4&b2^4&`c4`d4^8&`e4^8> "a&"bd&ef4^8&e4^8&a4f4^8&e4^8&"b4e4^8&d4^8&"f8&"a8e8&d8&c8d4^8 "a&"bd&ef4^8&e4^8&a4f4^8&e4^8&a4&b2^4b1a4} STR BS11 = {r-4 dega[2 b2^4^8ab`d2^8b8`d8`e8`f2^4^8^16`e16`f2^4`e4,,,1: `d2^4^8b`d`e2^4`a4`f1^2`e8b24,51a24,51f24,51 dega]`d2b2`e2`f2`d+32`e4^16r32`d1^2r8} STR BS22 = {r%(3072 + 1536); b^^^b^`cb^^^^^^^^ b^^^`c^`db^^^^^^^^ b^^`c^^`d^`e^^`d^^`c^>"b&a^g^^&f^e^^&d^^c^<} STR BS31 = {b4^8f4^8b4&`c4^8b4^8`c4`d8^16`c8^16a8f2^4^8f8g8&a4^8 b4^8f4^8b4&`c4^8b4^8`c4`d8^16`a8^16`g8`f8^16`e8^16`d8`c4^8b4^8&a+4 b4^8f4^8b4&`c4^8b4^8`c4`d8^16`c8^16a8f2^4^8f8g8&a4^8 b4^8f4^8b4&`c4^8b4^8`c4`d1&`d+2^8r4^8/*リードが次のメロディに入るため、早めに切る*/} STR BS32 = {>f4^8d4^8f4a1b2^4^8a24,81f24,81e24,81"b2^4e4 f4^8d4^8f4a1f2a+2b2a32,201f4^8^16^32 f4^8d4^8f4a1b2^4^8a24b24f24"b2^4e4 f4^8d4^8f4a1b1^1<} STR BS40 = {[15 r1]EP.T(127,32,!16,32,127,!4^8^16);>g+1,,,-5} STR BS41 = {[2 g2^4a8b8`c4^8b4^8a4|f2^4g8a8b4^8g4^8f4|e2^4f8g8:f4^8a+4^8b4|`c2^4^8`c24b24a+24b2^4a4] d2c2[2 "b^^"b^^"a+^]b^^b^^a+^"b^dfbfd"b EP.T(127,0,6144);[4 d1d+1e1c1]} STR BS71 = {Key(9); f2^4^8efa4^8f4^8a4e2^4^8def1 f2^4^8efa4^8f4^8a4b2^4`c4`d4`c24,81`d24,81`e24,81`f2^8> f2^4^8efa4^8f4^8e4e2^4^8d"ad2^4c4< b2^4^8afe4^8f4^8a8f16e16d1^2[3 d12,81][4 d16,81] Key(1);} トラック4 KeyFlag-(beadg);Key(0);//咆えるバリトン V(125) REV(40) CHO(32) M.onNoteWave(0,0,!4,0,64,!2) q101 P(80) o3 l16 @67,0,0 p%(256) v127 r1 RS02 RS16 BS11 RS16 RS16 BS32 RS16 BS71 RS16 RS02 RS16 BS40 BS41 KEEP RS16 RS02 //-------------------------------------------------------------------------------------------------- STR BS72 = {KeyFlag-(be); f4^8[3 c&d&f]g&b16^4^8&`c2ra2^4^8&b8^2 q41 bgfgfd q101 c&"b b4^8`f8^16&`d8^16`c8&b8[2 `c&`d&`c&a:`c&`d&`f&`d]`c&`f&`d&b [4 `c&`d]`d&`c&`f&`g`g&`f&`g&`a[2 "b,41]`b8r8`a8r8`g4&``f8 M(127);``f1^1^1,100&&``g8 M.onNoteWave(0,0,!4,0,100,!2^4);``b8r8``a8r8``g4&``f+8 ``f+32&``g8^32``f8^16``d8``c8^16&``d8^16``c&`b`g8^16`f8^16`d8`c8^16&`d8^16`f8b1^1 KeyFlag-(beadg);} STR BS42 = {f16&&g2^8^16&a8b8b8&&`c4b4^8a4|f2^4&g8a8a+8&&b4g4^8f4 e2^4f8&g8f4^8a+4^8&b4&`c2^4^8`c24b24a+24b^^`br`ar`f`e+`e`dbrarf/*この辺からラストスパート*/ gr`g^^`fr`ggf&daf&db&d`c`ebb+`c[4 b`c:`e]| bafabafe+f"b,51fe,51ge,51ae,51b12[5 `b12,81][3 `g12,81][4 `f,51] `efab`d&`eb&afd&ef&gd&eg[4 d,51]d4[3 c12,81][4 c,51] [2 "b^^"b^^"a+^]b^^b^^a+^"b^dfbfd"b EP.T(127,0,6144);b%6144} トラック5 KeyFlag-(beadg);Key(0);//脇役に収まらない脇役 V(127) REV(60) CHO(80) M.onNoteWave(0,0,!4,0,100,!2^4) q101 P(48) o5 l16 @82,1,0 p%(0) v127 GSScaleTuning(80,80,80,80,80,80,80,80,80,80,80,80);r1 RS02 RS16 BS11 RS16 BS22 BS31 BS01 BS72 RS16 RS02 RS16 BS02 BS42 KEEP RS16 RS02 GSScaleTuning(72,72,72,72,72,72,72,72,72,72,72,72); //-------------------------------------------------------------------------------------------------- STR BA01 = {[3 [4 g]:r8][3 [4 a]:r8][3 [4 f]:r8][3 [4 b]:r8]} STR BA02 = {[4 [3 [4 g]:r8][3 [4 f]:r8][2 [3 [4 b]:r8]]]} STR BA11 = {[2 [2 [3 [4 g]:r8]:[3 [4 f]:r8][3 [4 b]:r8][2 [4 b]r8]"bb"ba] [3 [4 a]:r8][2 [3 [4 d]:r8]]]} STR BA12 = {[2 [3 [4 g]:r8]:[3 [4 f]:r8][3 [4 b]:r8][2 [4 b]r8]"bb"ba] [3 [4 a]:r8][2 [3 [4 d]:r8]] [2 [3 [4 g]:r8]:[3 [4 f]:r8][3 [4 b]:r8][2 [4 b]r8]"bb"ba] [3 [4 a]:r8][3 [4 b]:r8][3 [4 a]:r8]} STR BA13 = {Key(9);EP.T(127,127,6144,127,0,6144); [4 [2 [3 [4 g]:r8]:[3 [4 f]:r8][3 [4 "b]:r8][2 [4 "b]r8]"bb"ba] [3 [4 a]:r8][2 [3 [4 d]:r8]]] Key(0);/*32bar*/} STR BA31 = {[2 [3 [4 g]:r8][3 [4 a]:r8][3 [4 b]:r8][3 [4 b]:r8]: [3 [4 g]:r8][3 [4 a]:r8][3 [4 b]:r8][3 [4 f]:r8]] [3 [4 g]:r8][3 [4 a]:r8][3 [4 b]:r8][3 [4 b]:r8]} STR BA41 = {[2 [3 [4 g]:r8][3 [4 a]:r8][3 [4 f]:r8][3 [4 b]:r8]: [3 [4 g]:r8][3 [4 a]:r8][3 [4 b]:r8][3 [4 d]:r8]] [3 [4 g]:r8][3 [4 a]:r8][3 [4 b]:r8][3 [4 b]:r8]} STR BA42 = {KeyFlag+(fc);EP(127); [2 [3 [4 g]:r8][3 [4 a]:r8][3 [4 f]:r8][3 [4 b]:r8]: [3 [4 g]:r8][3 [4 a]:r8][3 [4 b]:r8][3 [4 d]:r8]] [3 [4 g]:r8][3 [4 a]:r8][3 [4 b]:r8][3 [4 b]:r8]} STR BA61 = {[3 [4 g]:r8][3 [4 a]:r8][3 [4 f]:r8][3 [4 b]:r8] [3 [4 g]:r8][3 [4 a+]:r8][2 [4 f]r8]f`caa+[2 [4 b]r8][4 a] [3 [4 g]:r8][2 [4 a]r8]c-ega[3 [4 f]:r8][3 [4 b]:r8] [3 [4 g]:r8][3 [4 f]:r8][2 [3 [4 b]:r8]]} STR BA81 = {EP.T(127,0,6144);[4 [3 [4 g]:r8][3 [4 a]:r8][3 [4 b]:r8][2 [4 b]r8][4 a]]} トラック6 KeyFlag-(beadg);Key(0);//この音色ははじめて使います。 V(120) REV(16) CHO(80) M(0) q69 P(60) o2 l16 @37,110,1 p%(0) v127 r1-64 RS02 RS16 BA11 BA11 BA12 BA31 BA41 BA13 KEEP RS02 RS16 BA42 BA61 BA81 RS16 RS02 //-------------------------------------------------------------------------------------------------- STR XS01 = {'"gdb`d`f''"aea`c`e''"fca`c`e''"bfab`d'} STR XS11 = {[2 '"gdb`d`f''"fea+`d`a'/*←この響きに命かけてます*/'"bfa`d`f''"bfa`c`e' '"gdb`d`f''"aga`c`e''"dfa`c`e':'"dfa`c-`e']'"dfa`c`f'} STR XS12 = {[2 '"gdb`d`f''"fea+`d`a'/*←この響きに命かけてます*/'"bfa`d`f''"bfa`c`e' '"gdb`d`f''"aga`c`e':'"dfa`c`e''"dfa`c-`e']'"bfa`d`f''"aeg`c-`e'} STR XS13 = {Key(9); [2 '"gdb`d`f''"fea+`d`a'/*←この響きにあ、はい*/'"bfa`d`f''"bfa`c`e' '"gdb`d`f''"aga`c`e''"dfa`c`e':'"dfa`c-`e']'"dfa`c`f' Key(0);} STR XS21 = {[4 '"gdb`d`f''"aea`c`e'Sub{"b"a}'fa`d`f'^]} STR XS31 = {[2 '"gdb`d`f''"aea`c`e''"bfa`d`f''"bfa`c`e': '"gdb`d`f''"aea`c`e''"bfa`c`e''"bfa`d`f'2'"fea+`c`e'2] '"gdb`d`f''"aea`c`e''"bfa`d`f''"bfa`d+`f'} STR XS41 = {[2 '"gdb`d`f''"aea`c`e''"fea`c`e''"bfa`d`f': '"gdb`d`f''"aea`c`e''"bfa`d`f''"dfa`c-`e'] '"gdb`d`f''"aea`c`e''"bfa`d`f''"bfa`d+`f'} STR XS42 = {KeyFlag+(fc); '"gdb`d`f''"aea`c`e''"fea`c`e''"bfa`d`f' '"gdb`d`f''"aea`c`e''"bfa`d`f''"dfa`c-`e' '"gdb`d`f''"aea`c-`e''"fea`c`e''"bfa`d`f' '"gdb`d`f''"aea`c`e''"bfa`c`e''"bfa`d+`f'} STR XS51 = {[14 r1]EP.T(0,127,!1^2^4);/*タイミングが難しい*/'"bfb`d+`f'^} STR XS61 = {'"gdb`d`f''"aea`c`e''"fea`c`e''"bfa`d`f' '"gdb`d`f''"a+eg`c`e''"fea+`c`g''"bfa`d`f'2'"ag`c-`e`g'2 '"gdb`d`f''"aeg`c`e''"fea`c`e''"bfa`d`f' '"gdb`d`f''"fea+`d`a'2'"fea+`c`e'2'"bfa`c`e''"bfb`d`f'} STR XS81 = {[4 '"gdb`d`f''"aea`c`d+''"bfa`c`e''"afb`d`f']} STR XS91 = {EP(0);[8 r1]EP.T(0,127,3072); '"d"adf''"e"beg''"fcfa'1^2'"gegb'2 '"d"adfa''"e"begb''"aea`c`e'1^2'"bfa`d+`f'2 KeyFlag-(beadg);} トラック8 KeyFlag-(bead);Key(0);//お得意の。 V.WR(30,80,!8,80,60,!8) REV(24) CHO(100) M(10) q99 P(0) o4 l1 @82,90,1 p%(256) v127 r1 RS02 XS91 XS11 XS11 XS12 XS31 XS41 XS13 XS13 RS02 XS51 XS42 XS61 XS81 RS16 RS02 //-------------------------------------------------------------------------------------------------- トラック9 KeyFlag-(bead);Key(0);//左右でピッチをずらすのがポイント V.WR(30,80,!4) REV(24) CHO(100) M(10) q99 P(127) o4 l1 @82,90,1 p%(-256) v127 r1 RS02 XS91 XS11 XS11 XS12 XS31 XS41 XS13 XS13 RS02 XS51 XS42 XS61 XS81 RS16 RS02 //-------------------------------------------------------------------------------------------------- STR YS11 = {EP.T(96,127,3072,127,64,3072);/*V.W(127,100,!8);*/ Sub{[8 P.T(64,0,!2,0,127,!1,127,64,!2);r1^1]} [2 `b``c``d1^2``c2`b``c``d``f]} STR YS13 = {Key(-3); EP.T(96,127,3072,127,64,3072);/*V.W(127,100,!8);*/ Sub{[8 P.T(64,0,!2,0,127,!1,127,64,!2);r1^1]} [2 `b``c``d1^2``c2`b``c``d``f] Key(0);} STR YS51 = {EP.T(64,127,6144); '"gdb`d`f''"aea`c`e''"fea`c`e''"bfa`d`f' '"gdb`d`f''"aea`c`e''"bfa`d`f''"dfa`c-`e' '"gdb`d`f''"aea`c-`e''"fea`c`e''"bfa`d`f' '"gdb`d`f''"aea`c`e''"bfa`d`f''"bfa`d+`f'} STR YS81 = {KeyFlag+(fc); EP.T(64,127,3072+1024,127,64,3072-1024);/*V.W(127,80,!8);*/ Sub{[8 P.T(64,0,!2,0,127,!1,127,64,!2);r1^1]} >>>baf^aa+^bga`c`dfed^<<<} STR YS91 = {V.onNoteWave(127,80,!8^16);EP.T(80,127,!1^1^1^1); [2 '"d"adf''"e"beg':'"fcfa'1^2'"e"beg'2]'"aea`c'1^2'"gegb`e'2,,,-2 [2 '"d"afa`d`f''"e"beg`e`g':'"fcfa`e`a'1^2'"e"begb`g'2]EP.T(127,64,!1^1);'""a"aea`c`e``c'1^2'""b"fb`d+`f``d+'2 KeyFlag-(beadg);} STR YS92 = {EP.T(64,100,6144);`f%(12288 - 192),98 r-1 EP.T(100,64,!1);V(80);r1 EP.T(64,127,!4,127,0,!1^1);'""b"f"b'%3072,,,-96} トラック7 KeyFlag-(bead);Key(0);//最後の音がやっぱり飛翔。 REV(48) CHO(40) M(20) q92 P(64) o4 l1 @90,0,0 p%(0) v127 r1-64 RS02 YS91 RS16 RS16 YS11 RS16 RS16 RS16 YS13 RS02 YS51 RS16 YS81 YS92 KEEP KEEP //-------------------------------------------------------------------------------------------------- STR OG01 = {MidiDelay({[16 [2 `eafbe"bf`c]]},2,!4^8);} STR OG02 = {EP.T(127,0,6144); MidiDelay({[16 [2 `eafbe"bf`c]]},2,!4^8);} STR OG03 = {KeyFlag-(be); MidiDelay({[16 [2 `daf`c`dfga]]},2,!4^8); KeyFlag-(beadg);} STR OG90 = {EP.T(64,127,!1^1);MidiDelay({[2 [2 `erbr`crfr]]},2,!4^8);} STR OG91 = {Sub{[15 r1]r4 MidiDelay({""b"c"e"f"bcefb`c`e`f},2,!4^8);} MidiDelay({[16 [2 `erbr`crfr]]},2,!4^8);} STR OG21 = {KeyFlag+(fc); [15 r1]r4 MidiDelay({""b"c"e"f"bcefb`c`e`f},2,!4^8);} トラック13 KeyFlag-(bead);Key(0);//初代ではオルゴールの音色でした。 V(40) REV(80) CHO(100) M(0) q29 P(16) o6 l16 @82,110,2 p%(256) v127 r1 OG90 OG91 OG01 OG01 OG01 OG01 OG01 OG03 OG03 RS02 OG21 OG01 OG01 OG01 OG02 RS02 //-------------------------------------------------------------------------------------------------- トラック14 KeyFlag-(bead);Key(0);//擬似ディレイ V(30) REV(80) CHO(100) M(0) q29 P(112) o6 l16 @82,110,1 p%(128) v127 r1^8^16 OG90 OG91 OG01 OG01 OG01 OG01 OG01 OG03 OG03 RS02 OG21 OG01 OG01 OG01 OG02 RS02 //-------------------------------------------------------------------------------------------------- Key(0);KeyFlag+(); STR DR01 = {Sub{[16 [4 f+,,100f+,,90,2f+f+,,100,2]]} [15 [4 '"bc'4]][2 '"bc'4][2 '"bc'8][4 '"bc'16]} STR DR02 = {Sub{[16 [4 f+,,100f+,,90,2f+f+,,100,2]]} [2 [7 [4 '"bc'4]][2 '"bc'4][2 '"bc'8][4 '"bc'16]]} STR DR03 = {Sub{[12 r1]v16[32 d][32 d v+4]} Sub{[16 [4 f+,,100f+,,90,2f+f+,,100,2]]} [15 [4 '"bc'4]][2 '"bc'4][2 '"bc'8][4 '"bc'16]} STR DR04 = {Sub{[16 [4 f+,,100f+,,90,2f+f+,,100,2]]} [7 [4 '"bc'4]][2 '"bc'4][2 '"bc'8][4 '"bc'16][7 [4 '"bc'4]][2 '"bc'8]r8[3 '"bc'24][3 '"bc'8:r16]} STR DR11 = {Sub{[12 r1]v16[32 d][32 d v+4]} [16 [4 '"bc'4]]} STR DR91 = {[12 r1]v16[32 d][32 d v+4]} STR DR90 = {Sub{[12 r1]v16[32 d][32 d v+4]} Sub{[16 [4 f+,,100f+,,90,2f+f+,,100,2]]} [15 [4 '"bc'4]][2 '"bc'4][2 '"bc'8][4 '"bc'16]} トラック10//DJ.Hino風 V(120) REV(8) CHO(120) q11 P(64) o3 l16 @27,7,0 BR(12) p%(-1000) v127 r1 RS02 DR91 DR01 DR01 DR02 DR03 DR04 DR02 DR90 RS02 RS16 DR04 DR03 DR11 RS16 RS02 //-------------------------------------------------------------------------------------------------- STR SD01 = {[16 [2 r4'"ed+'4]]} STR SD02 = {[15 r1]r2^4'"ed+'4}/*これ、どこで使おうと思ったんだろう。。。*/ トラック11//@27,90,0が鳴る方はそちらでも V.onNoteWave(80,127,!8) REV(110) CHO(127) q13 P(64) o3 l4 @25,90,1 BR(12) p%(3000) v127 r1 RS02 RS16 SD01 SD01 RS16 RS16 SD01 RS16 RS16 RS02 RS16 SD01 SD01 RS16 RS16 RS02 //-------------------------------------------------------------------------------------------------- STR CS01 = {Sub{MidiDelay({'`c+`a'},6,!4);}r%6144} STR CS02 = {v100 r4 Sub{MidiDelay({'`c+`a'},6,!4);}r%6144 r-4} STR CS11 = {v100 Sub{MidiDelay({'`c+`a'},6,!4);}r%6144 v127} STR CS21 = {v64 Sub{MidiDelay({'`c+`a'},6,!4);}r%6144 v127} トラック12//意外とうまくいい音できました。 V(80) REV(100) CHO(100) q15 P(64) o3 l8 @27,7,0 BR(12) p%(500) v127 r1 RS02 RS16 CS01 RS16 CS11 RS16 CS01 CS11 CS01 RS02 RS16 CS11 CS02 CS11 CS21 RS02 //-------------------------------------------------------------------------------------------------- STR RR01 = {[8 r1]EP.T(0,0,3072-192,0,127,192);@126,7,0;o10[6 r1]p%.T(-8191,0,!1^1);'cg'1^1,100} STR DB00 = {r-4 @117,8,0;o2;EP(127);Sub{'cg'1^1/*実はフライングして鳴らしてる*/}r4 r%6144} STR DB01 = {@117,8,0;o2;EP(100);Sub{'cg'1^1}r%6144} STR DB02 = {@117,8,0;o2;EP(40);Sub{'cg'1^1}r%6144} トラック15//やりくり上手になりたい。。。 V(127) REV(127) CHO(127) q103 P(64) o2 l1 @117,8,0 BR(12) p%(0) v127 r1 RS02 RR01 RS16 RS16 RS16 RR01 RS16 RS16 RS16 DB00 RS02 DB01 RR01 RS16 DB02 RS02 //-------------------------------------------------------------------------------------------------- STR WN01 = {r-1 p%.T(0,8191,384,8191,-8191,6144);EP.T(64,127,384,127,0,6144);'cde'%(6144 + 384)} STR WN02 = {p%.T(-8191,8191,6144);EP.T(0,127,6144);'cde'%(6144)} STR WN91 = {EP.T(0,0,3072,0,127,1536,127,0,1536);p%.T(0,-8191,3072,-8191,8191,3072);r%3072'cde'%3072,,100} トラック16//連続使用ができない系 V(80) REV(120) CHO(0) q100 P(64) o5 l1 @123,1,0 BR(12) p%(0) v127 r1 RS02 WN91 RS16 RS16 WN01 WN02 RS16 RS16 WN02 RS02 RS16 WN01 RS16 WN01 RS16 RS02 //================================================================================================== } IF(TYPE = 2){ TrackName = {"新･飛翔"} Copyright = {"騎士王321"} MetaText = {"翼を得た時間"} /* 今回のテーマは『翼を得た時間です』。 前回の飛翔は『もし翼があるならば』 という『夢』だったので、音全体も少々重めでしたが今回は違います。 翼があるのです。 自由に飛べます。 ふわりふわりと優雅に舞うときもあれば 思いっきり滑空することもあります。 軽やかに転調します。 メロディも華麗に踊ります。 やがて、空彼方に消える最後の瞬間まで その最後の瞬間まで どうぞ心を自由な青空へ。 */ テンポ 144 拍子 4,4 KeyFlag-(bead); TrackSync; Include(delay.h);Include(groove.h);Include(unison.h); System.MeasureShift(1);ResetGS;TrackSync; Function Tune444(){Int I;For(I=1; I<=16;I ++){CH(I)FineTune(80) DataLSB($03) RPN(127,127,0)} CH 1} Tune444() CH(11) SysEx$ = f0,41,10,42,12,{40,1a,15,02},f7; CH(12) SysEx$ = f0,41,10,42,12,{40,1b,15,02},f7; CuePoint={"TwmParam(100,127,1)"} //================================================================================================== STR RS08 = {[8 r*1]} STR RS16 = {[16 r*1]} STR RS18 = {[18 r*1]} //-------------------------------------------------------------------------------------------------- STR ME01 = {r-4 v+20"a,121"b,121d,121e,121 v-20 [2 '"a2^4^8d2^4^8,111f2^4^8'e,121,125f,121,125'"b2^8f2^8a2^8'f8,121,125a8,121,125b8,121,125 'f2^4^8^16a2^4^8^16`c2^4^8^16'b,121,125Sub{e1}'a2^4`c2^4''g4b4': 'd2^4^8f2^4^8a2^4^8'f,121,125a,121,125'e2^4g2^4b2^4'`e8^16,,125`d32,201`d-32,201 'e2^4^8^16a2^4^8^16`c2^4^8^16'b,121,125Sub{e2^4}'a2`c2''g4b4' v+20"a"bde v-20] 'd2^4f2^4a2^4'f8,121,125a8,121,125'e2g2b2'`c8^16^32,,125`d32,201`e4,,125 M.T(0,127,!1^1);EP.T(127,127,!1,127,80,!1);Sub{'a1^1`c1^1'}`f16`e16`f1^2^4^8 M(0)} STR ME02 = {r-1 EP(127) r1 r-4 v+20"a,121"b,121d,121e,121 v-20 } トラック1 V(127) REV(48) CHO(64) M(0) q101 P(64) o6 l16 v105 @82,90,1 KeyFlag-(bead); RS18 ME01 RS16 RS16 RS08 RS16 ME02 //-------------------------------------------------------------------------------------------------- STR PF01 = {Sub{[6 r*1]v80 b`c`f`e2^4^16r*1`b``c``f``g2^4^16 v127}[18 r*1]@2} STR PF02 = {Sub{ }[16 r*1]} STR PF03 = {Sub{<[2 f1a2b8^16a8^16b8`c1`c2b2:a1b2`c4`e8^16`d32`d-32`c2^4^8^16b`c2b2] a2f2b2`c2b4^8a1^2^8>} Sub{[2 f1a2b8^16a8^16b8`c2^4^8^16b32b+32`c2b2:a1b2`c4`e8^16`d32`d-32`c2^4^8^16b`c2b2] a2f2b2`c2b4^8a1^2^8} >[2 f1a2b8^16a8^16b8`c2^4^8^16b32b+32`c2b2:a1b2`c4`e8^16`d32`d-32`c2^4^8^16b`c2b2] a2f2b2`c2b4^8a1^2^8<} STR PF04 = {} STR PF05 = {} トラック2 V(127) REV(64) CHO(48) M(0) q163 P(96) l16 @1 KeyFlag-(bead); PF01 PF02 PF03 RS16 PF04 PF05 //-------------------------------------------------------------------------------------------------- STR AS01 = {Sub{v120 def1^2e2dea1^2g2 def1^2e2dea1^2b2} Sub{v80 ab`c1^2b2ab`e1^1 ab`c1^2b2ab`e1^2`f2} Sub{o4 fga1^2g2fg`c1^2b2 fga1^2g2fg`c1^2`d+2} Sub{o5 v60[7 r*1]r2 e2 c1^1e1^1c1^1g1^1} Sub{o4 [8 r*1] ab`c1^2b2ab`e1^2`f2} o5 v80[8 r*1] fga1^2g2fg EP.T(80,96,!1^2,96,127,!2);`c1^2 REV.T(100,32,!2);`d+2 EP(80)} STR AS02 = {Sub{o3 v120 def1^2e2dea1^2g2 def1^2e2dea1^2g2} Sub{v80 ab`c1^2b2ab`e1^1 ab`c1^2b2ab`e1^1} Sub{o4 f1^1a1^2g2fg`c1^2b2 f1^1a1^2g2fg`c1^2 l16 v120 `cb`c`e`f`e`f`f+ l1} Sub{v60 ab`c1^2b2ab`e1^1 ab`c1^2b2ab`e1^2>l16 v120 e"aecagab l1 v60} Sub{o5 c1^1e1^1c1^1g1^1 c1^1e1^1c1^1g1^1} v90 f1^1a1^2g2fg`c1^2b2 f1^1a1^2g2fg`c1^2 l16 v120 `cb`c`e`f`e`f`f+ l1} STR AS03 = {Sub{o3 v120 def1^2e2dea1^1 def1^2e2dea1^2g2} Sub{v80 ab`c1^2b2ab`e`g-,,100 ab`c1^2b2ab`e1^1} Sub{o5 q81 v120 l8^16[4 [3 gfb8]`cb`e8] [3 [3 gfb8]`cb`e8][3 gf:b8]e8c"b"g8 l1 q101} Sub{o4 v100 fga1^2g2fg`c1^1 fga1^2g2fg`c1^2b2} Sub{o5 v0 fga1^2g2fg`c1^1 fga1^2g2fg`c1^2b2} o6 q81 v120 l8^16[4 [3 gfb8]`cb`e8] [3 [3 gfb8]`cb`e8][3 gf:b8]e8c"b"g8 l1 q101} STR AS04 = {Sub{o3 v120 def1^2e2dea1^1 def1^2e2dea1^2g2} Sub{v80 ab`c1^2b2ab`e`g-,,100 ab`c1^2b2ab`e1^1} Sub{o5 q81 v80 l8^16[4 [3 gfb8]`cb`e8] [3 [3 gfb8]`cb`e8][3 gf:b8]e8c"b"g8 l1 q101} Sub{o4 v100 fga1^2g2fg`c1^1 fga1^2g2fg`c1^2b2} o6 q81 v80 l8^16[4 [3 gfb8]`cb`e8] [3 [3 gfb8]`cb`e8][3 gf:b8]e8c"b"g8 l1 q101} トラック3 V(120) REV(100) CHO(48) M(0) q101 P(0) l1 p%(-256) v80 o3 @51,110 KeyFlag-(bead);r1^1 EP.T(48,80,!1) AS01 AS02 AS03 RS16 RS08 RS16 //-------------------------------------------------------------------------------------------------- トラック4 V(120) REV(100) CHO(48) M(20) q101 P(127) l1 p%(256) v80 o3 @51,110 KeyFlag-(bead);r1^1 EP.T(48,80,!1) AS01 AS02 AS04 RS16 RS08 RS16 //-------------------------------------------------------------------------------------------------- STR ES01 = {[12 r*1]EP.T(0,32,!1^1^1^2,32,127,!2);l1^1^1^1'"aegb`c'r-1 P.T(64,0,!1);r1 l1} STR ES02 = {[8 P.T(0,127,!1,127,0,!1);r1^1][16 r-1] Sub{[2 "d"e"f1^2"e2 "d"e"f1^2"c2]} Sub{[2 "a"b"a1^2"b2 "a"bc1^2e2]} Sub{[2 fge1^2g2 fgef]} Sub{[2 `c1^1^1a2`c2 `c1^1^1^2a2]} [2 `f1^1^1^2`g2 `f`g:`a1^2``c2]`a1^1} STR ES03 = {[4 P.T(0,127,!1,127,0,!1);r1^1][8 r-1] Sub{"d"e"f1^2"e2 "d"e"f1^2"c2} Sub{"a"b"a1^2"b2 "a"bc1^2e2} Sub{fge1^2g2 fgef} Sub{`c1^1^1a2`c2 `c1^1^1^2a2} `f1^1^1^2`g2 `f`g`a1^1} STR ES04 = {[8 P.T(0,127,!1,127,0,!1);r1^1][16 r-1]KeyFlag-(beadg); Sub{[2 "g"a"b1^2"a2 "g"a"b:"f]""b} Sub{[2 dcf1^2c2 dcd:"a+]"b} Sub{[2 f1^1^1^1^1^1^1:e]d+} Sub{[2 ba1^1^1 a1^1^1:a+]f} [2 b`c`d1^2`e2 `c1^1`d:`c]`d+} トラック5 V(127) REV(120) CHO(0) M(0) q99 P(64) l1 v65 r-16//Time(x,y,z);は禁止 @90 KeyFlag-(bead);t.N(0,1,2,3,4); RS18 RS16 ES01 ES02 ES03 ES04 //-------------------------------------------------------------------------------------------------- STR BS01 = {[10 r*1]'d1a1''e1b1''f1^2`c1^2''e2b2''d1a1''e1b1''a1^2`e1^2''b2`f2'} STR BS02 = {v127[2 d8r"d8r"dr4^8^16d8 e8r"e8r"er4^8^16e8 f8r"f8r"fr4^8^16e8 f8r"f8r"fr4^8^16e8 d8r"d8r"dr4^8^16d8 e8r"e8r"er4^8^16eg a8r"a8r"ar4^8^16g8 a8r"a8r"ar4^8^16c8]} STR BS03 = {[4 d8r"d8r"dr4^8^16d8 e8r"e8r"er4^8^16e8[2 f8r"f8r"fr4^8^16e8]]} STR BS04 = {[2 d8r"d8r"dr4^8^16d8 e8r"e8r"er4^8^16e8[2 f8r"f8r"fr4^8^16e8]]} STR BS05 = {KeyFlag-(beadg);[2 g8r"g8r"gr4^8^16g8 a8r"a8r"ar4^8^16a8 [2 b8r"b8r"br4^8^16a8] g8r"g8r"gr4^8^16g8 a8r"a8r"ar4^8^16a8 b8r"b8r"br4^8^16:c8 f8r"f8r"fr4^8^16f8] a8 b8r"b8r"br4^8^16f8} トラック6 V(127) REV(0) CHO(64) M(0) q98 P(80) o3 v90 l16 EP.W(127,127,!2,127,96,!4^8); @39,1 KeyFlag-(bead); BS01 BS02 BS02 BS03 BS04 BS05 //-------------------------------------------------------------------------------------------------- STR LB01 = {[2 def1^2e2 dea1^2e2]} STR LB02 = {[2 def1^2e2 def1^1]} STR LB03 = {def1^2e2 def1^1} STR LB04 = {KeyFlag-(beadg);[2 gab1^2a2 gab:f]v+10 b v-10} トラック7 V(127) REV(0) CHO(24) M(10) q99 P(64) o2 l1 @81,8 KeyFlag-(bead); RS18 LB01 LB01 LB02 LB03 LB04 //-------------------------------------------------------------------------------------------------- STR GT01 = {t.N(0,1,2,3,4);/*MidiDelay({*/[2 [3 '"adf`c`f'[3 '"a,27d,27f,27`c,27`f,27']:[2 '"a,27d,27f,27`c,27`f,27']] [3 '"bea`c`f'[3 '"b,27e,27a,27`c,27`f,27']:[2 '"b,27e,27a,27`c,27`f,27']] [3 'cfa`c`e'[3 'c,27f,27a,27`c,27`e,27']:[2 'c,27f,27a,27`c,27`e,27']] [2 'cfa`e`a'[3 'c,27f,27a,27`e,27`a,27'][2 'c,27f,27a,27`e,27`a,27']]'"beg`c`g'[3 '"b,27e,27g,27`c,27`g,27'] [3 '"adf`c`f'[3 '"a,27d,27f,27`c,27`f,27']:[2 '"a,27d,27f,27`c,27`f,27']] [3 '"bea`c`f'[3 '"b,27e,27a,27`c,27`f,27']:[2 '"b,27e,27a,27`c,27`f,27']] [3 'ea`c`e`g'[3 'e,27a,27`c,27`e,27`g,27']:[2 'e,27a,27`c,27`e,27`g,27']] [3 '"aegb`e'[3 '"a,27e,27g,27b,27`e,27']:[2 '"a,27e,27g,27b,27`e,27']] ]/*},1,!4);*/} STR GT02 = {t(0);v120 [2 f4f8gf2^16f4g8af2^16 f^^g^^a^b^^a^^g^g32`e8^32`d^^`c^b^^a^^g^ o5]} STR GT03 = {} トラック8 V(127) REV(48) CHO(64) M(0) q97 P(32) v90 o4 l16 @31,8 KeyFlag-(bead); RS18 GT01 GT01 RS16 GT02 GT03 //-------------------------------------------------------------------------------------------------- STR AP01 = {[17 r*1]r2[4 f32g32b32`c32>v+10]} STR AP02 = {o5 q299 v65[2 [2 "d"afa`caf"a][2 "e"bgb`cbg"b][3 "fcea`caec]"e"bgb`cbg"b [2 "d"afa`caf"a][2 "e"bgb`cbg"b][2 "aegb`cbge]"aefgb`c`e`g'`b``e'`g`f`e`cfge]} STR AP03 = {o5 q299 v65[2 [2 "d"afa`caf"a][2 "e"bgb`cbg"b][3 "fcea`caec]"e"bgb`cbg"b [2 "d"afa`caf"a][2 "e"bgb`cbg"b][2 "aegb`cbge]:>"acecegb v+10 `cbag-fc