MetaText  ={"                                                  '1分 24秒 - `16 4/17 update'"} 
TrackName ={"荒城の月"}
Copyright ={"庚申works"}

 
/* 
  guitar2.h ver4.02
  tuner2.h ver1.11 以降が必要です

  サクラ向け、TWでも可
  構造化エディタ対応

  XPでのみチェックしています

　GOMA様の企画、頭文字[V]の選択による音色のみを使用した曲です
　ドラムはさらに厳しく、ドラムノート音色 58:VibraSlapのみ使用しています


　■ 当曲をつくるまで---

　　曲をつくるとき、最近はほとんど組み込み式です
　実は..ほとんど楽器らしきものを触ることはないんです。


　　
　手始めに、メロがある曲では、コードアサインから、
　メロがない場合は、まずコードから考えます

　コード先行の時には、感性を研ぎ澄まして、sunvoxなどで合うメロを探します
　まず、全音をアサイン、これを二分音符化、必要なら四分八分音符まで細かくします

　理論をつかってもメロのアサインはできますが、
　これをするとメロ発見の楽しみが半減するので、今はしません、


　　メロとコードができたら、サクラは一旦閉じます
　新規でサクラを立ち上げて、基本リズムを単独で組みます

　できたリズムを、メロ+コードに組み込みます
　テンポが違っている場合は、l8 -> l12とかに変えて合わせます、
　パートの長さが合わなくなるので、ループの繰り返しなどで無理やり合わせます
　フラムやフィル、パートチェンジのお知らせとか加えていくのが、味噌になるとは思います


　　上ものも上記同様に、それぞれ新規からつくります

　ストリングスとかホーンセクション、
　効果音系のサウンド、パートチェンジを予感させるベンドアップ音とか、
　最近は面倒なのであまりここまでしませんが、これも後に組み込むことになります


　■ 説明文

　　音楽的に普通ありえないのですが、古典調律を途中で切り替えて使っています
　イントロとアウトロは、キルンベルガー第３調律法、メインはヴェルクマイスターiiiを使用しています

　キルンベルガーは中全音律のいいところを生かした調律のようで、
　なんとなく開放的です。よく言えば明るい感じがします

　ヴェルクマイスターはバッハの平均律曲集の調律として有名です

　どちらも移調した時にこそ真価を発揮するようで、カラーががらりと変わります。
　なぜバッハが、24の長短移調した音楽集をつくる気持ちになったのか、よく分かります

　普通の平均律では半音が100cent単位のためか、それほどの変化は感じられません


*/


 	
Include(gs.h) ResetGS()r4 CH=10 GS_RHYTHM(1)r8 
Include(guitar2.h)
Include(tuner2.h)

TimeBase=120
r1^4 TrackSync

TR=0
Time(2:1:0)  Kb("a") Tempo=88
Time(10:3:0) Wm("a") Tempo=90
Time(26:2:0) Kb("a") Tempo=89
Time(28:1:0)         Tempo=88
//Eq("a")
//Mt("a")
//#Aug4="64/45" Js("a")
//#Aug4="45/32" Js("a")
//Py("a")
 
TR=8 r-4 音色(Vibraphone) V=99 P=99 v+11 
l4 o5 M.onNoteSine(0,11,33,!3^3,1) q114 EP.W(55,127,!3^3^3^3)
#M0={ e+8r8 }
#M1={
ff16r16r8b>c8r8d8r8c<br
g16r16r8g8r8f #M0 f2fr
f8r8f8r8b>c8r8dc8r8<b^8r8
}
#M2={
g8r8 v-11 e16r16 v+11 r8f^8f16r16
}

#Eight={
#M1
#M2 v-33 <b2^r v+33 >

dr8d16r16c^8<b16r16
>g8r8gf2 efg^8g16r16f2^r4
f8r8fb8r8>cdc8r8<b2
g8r8e8r8f^8f8 v-33 <b1 v+33>

}
TrackKey=3
#M0={ e8r8 }
調＃(ドファ) r1^2 #M1 r2 r8 TrackKey=5
#M0={ e+8r8 }
#Eight r2
#M2 v-44 <b1^1 v+44>
調＃()
 
TR=9 r-4 音色(Vibraphone) V=111 P=33 v+11 
o4 l8 M.onNoteSine(0,0,22,!2,1) q111 EP.W(44,127,!1)
#Mode_set= "arp"
#Arp_set= "r131 3212"

#C1={
Dm7|FM7
Bm7b5|Em7("3131")Am7("u212")
Dm7|FM7("r131 u212")
}
#C2={
G7|Dm7("3131")
}

#Nine={
#C1
#C2 Bm7b5("3212")
FM7|G7
Em7|Am7("r131")FM7("3213")
Dm7|FM7
Em7|Dm7("3131")Am7("u213")
}
TrackKey=0
#C1 r1^2^2 r8 r8 TrackKey=2
調♭(シ)
#Nine
#C2 Bm7b5("321 v-33 Key=3 1^^^ ^^^^ v+33 Key=0")
調♭()
	
/* 
TR=9 l1 r1^2
 o5 M.W(11,22,!2) q108 音色(Vibraphone) EP.W(55,127,!1) P=102
// o6 音色(VoiceLead) EP.W(11,127,!2)
r2

'da>f>c<<''f>ca>e<<'
'<b->f>da<''eb->g>d<<'
'da>f>c<<''f>ca>e<<'
'<g>db->f<''da>f>c<<'

'<f>ca>e<''<g>db->f<'
'eb->g>d<<''<a>e>cg<'
'da>f>c<<''f>ca>e<<'
'eb->g>d<<''da>f>c<<'


'dfac''face'
'b-dfa''egb-d'
'dfac''face'
'gb-df''dfac'

'face''gb-df'
'egb-d''aceg'
'dfac''face'
'egb-d''dfac'
*/
  
TR=2 音色(Vibraphone) EP.W(11,127,!4) o8 l6 V=99 P=64 
#D={ r v111 [6 a+ rr v-33 a+ r:r v+33 ] }
#Two={
#D r8 #D #D
}
#Two
[#D]

 
TR=1 音色(VoiceOohs) o4 M=11 EP.W(33,127,!4) V=88 P=108 v+11 
#P={ l3 r8 'c<g<a+'>> r r8 'c<g<a+'^>> }

#One={

Key=0  #P Key=-5 #P
Key=0  #P Key=-7 #P r8
Key=0  #P Key=-5 #P
Key=0  #P Key=-7 #P r-8

Key=0  #P Key=-5 #P r8
}
#One
[
Key=0  #P Key=-5 #P
Key=0: #P Key=-7 #P
]

 
//音色(VoiceLead)EP.W(11,127,!4) 'c>g>a+'1<< 'c<g<a+'1>> 
//音色(VoiceOohs)EP.W(11,127,!4) 'c>g>a+'1<< 'c<g<a+'1>>
//音色(Violin) EP.W(11,127,!4) 'a+'1
//音色(Viola) EP.W(11,127,!4) 'a+'1
//音色(Vibraphone) EP.W(11,127,!4) 'cga+'1
 
TR=10 r8  BR=24 V=66 Int Pitch= 666 
$x{r-48 M=1   P=126 EP=111 p%=7777+Pitch  l48 v11[9 n(VibraSlap), v+11][5r] }
$z{r48  M=126 P=66  EP=111 p%=-6666+Pitch l24 v11[8 n(VibraSlap), v+11] r }
$w{r48  M=126 P=66  EP=99  p%=-5555+Pitch l24 v11[8 n(VibraSlap), v+11] r }
#Ten={
Rhythm{ xwrxzr }
}

[5 #Ten ] r8
[13 #Ten ]