曲名{"荒野を抜けて"}作者{"レイン望"}/*完成日：2016.06.01*/
//------------------------------------------------------------------------------
音源初期化
Tempo 108
Include(fadeio.h);
//------------------------------------------------------------------------------
TR 1
#TR1A={ r-4音色(PanFlute)o6q100M(60)v110v.Random(10)g4
l2+4[ `d,90`c8`f8 `c,90b8`c16b16 a,90:g4 d,90g4 ]f4g2+4,90 }
#TR1B={ o4v127q120 r-4音色(NylonGuitar)M(0)l4g>
[ l8dd16d,50c,50d16+4+16,75["b16]c16 dc16f,50e,50d16+4+16,75"b16c16d16 c4+8<ba4Div{aba}4 a4:r-16b32a32d4+4+8,75g> ]r-16g32f32g2,75 }
#TR1C={ r-4音色(BrightPiano)o5q100v100ef
[ l2g,75l8.gab8,50 a2+8,75l8gfg : l4afe4.l16fe d1,75r-8"b8 f8e16e8,50d8,50e16+4.,80"b8,50 f8e16e8,50d8,50e16+8l8"bcd e4.l16fed2+2+4+8,75l16ef ]l4ad`ca b2+4+8,80l16ga b4.,75b8,50b8.`c8.b8 l4adaf g1+2+4,75 }
#TR1D={ r-4音色(PanFlute)o6q100M(60)v110v.Random(10)g4
l2+4[ `d,90`c8`f8 `c,90b8`c16b16 a,90:g4 d,90g4 ]f4g2+4,90 }
#TR1E={ o4v127q120M(0) r-4音色(NylonGuitar)l4g>
[ l8dd16d,50c,50d16+4+16,75["b16]c16 dc16f,50e,50d16+4+16,75"b16c16d16 c4+8<ba4Div{aba}4 a4:r-16b32a32d4+4+8,75g> ]r-16g32f32g2,75 }
//------------------------------------------------------------------------------
TR 2
#TR2C={ 音色(Crystal)P(127)FineTune(80)o8v50
l1gaag r1+1+1+1 gaa2`c2b bag,150 }
//------------------------------------------------------------------------------
TR 3
#TR3IN={音色(SteelcGuitar)o5v80q100v.Random(10)P(32)
[ ペダルl16"g"d"gl8dcf8.ede放す ] }
#TR3A={ o5v80q100
[ ペダルl16"g"d"gl8dcf8.ede放す ][ ペダルl16"f"c"fl8c"be8.dcd放す ]
[ ペダルl16"g"d"gl8dcf8.ede放す ] ペダルl16"f"c"fl8c"be8.dcd放す ペダルl16"g"d"gl8dcf8.ede放す
[ ペダルl16"g"d"gl8dcf8.ede放す ][ ペダルl16"f"c"fl8c"be8.dcd放す ]
[ ペダルl16"g"d"gl8dcf8.ede放す ] ペダルl16"f"c"fl8c"be8.dcd放す ペダルl16"g"d"gl8dcf8.ede放す }
Function Gt03(Str Gt003){q100'Gt003'8.q30'Gt003'8.q100'Gt003'8+2}
Function Gt03A(Str Gt003A){q100'Gt003A'8.q30'Gt003A'8.q30'Gt003A'8}
Function Gt03B(Str Gt003B){q100'Gt003B'8.['Gt003B'8]'Gt003B'16q20'Gt003B'2}
#TR3C={ o4v48 t.N(-4,-2,0,2,4,6)/*必ずノートを6コ並べる事*/
[Gt03("bdgb`d`g)Gt03(cfa`c`f`a):Gt03(dfa`d`f`a)Gt03(dgb`d`g`b)] Gt03A("bdfb`d`f)Gt03A(ceg`c`e`g)Gt03(dfa`d`f`a)
[Gt03("bdgb`d`g)Gt03(cfa`c`f`a):Gt03(dfa`d`f`a)Gt03(dgb`d`g`b)] Gt03(dgb`d`g`b)Gt03B(dgb`d`g`b) t(0) }
//------------------------------------------------------------------------------
TR 4
#TR4IN={ 音色(FingerBass)q100v105v.Random(10)P(40) }
#TR4A={ o2[ l8g8.,75g16bg16`g8.`dba ][ l8f8.,75f16af16:`f8.bab ]`c8.bab
[ l8g8.,75g16bg16`g8.`dba ]l8f8.,75f16af16`c8.bab l8g8.,75g16bg16`g8.`dba }
#TR4B={ o2[ l8g8.,75g16bg16`g8.`dba ][ l8f8.,75f16af16:`f8.bab ]`c8.bab
[ l8g8.,75g16bg16`g8.`dba ]l8f8.,75f16af16`c8.bab l8g8.,75g16bg16`g8.`dba }
#TR4C={ o3[ l8.ee,30e8+2ff,30f8+2 dd,30d4l8dfdl8.gg,30g8+2 : ee,30e8+2ff,30f8+2 l8."b"b,30"g8cc,30"a8dd,30d4l8def ]
l8.ee,30e8+2ff,30f8+2 gg,30g4l8dfa gg16`gba16g2,20 }
//------------------------------------------------------------------------------
TR 5
Function Cho1(Str CHO1){l8.[ q100'CHO1'q30'CHO1' ]q100'CHO1'4}
Function Cho1A(Str CHO1A){l8.[ q100'CHO1A'q30'CHO1A' ]q100'CHO1A'4}
Function Cho2(Str CHO2){l8.q100'CHO2'q30'CHO2'q100'CHO2'8}
#TR5IN={音色(GrandPiano)o5v75q100 }
#TR5A={ P(48)[ Cho1(ga#d)Cho1A(fadc):Cho1(d#ga#)Cho2(fac)Cho2(f#ac#) ]Cho2(d#ga#)Cho2(fac)Cho1(ga#d) }
#TR5B={ P(48)[ Cho1(ga#d)Cho1A(fadc):Cho1(d#ga#)Cho2(fac)Cho2(f#ac#) ]Cho2(d#ga#)Cho2(fac)Cho1(ga#d) }
Function Cho3(Str CHO3){q100'CHO3'8.q30'CHO3'8.q100'CHO3'8+4r4}
#TR5C={ P(48)
v60 Cho3(egb) Cho3(fac) Cho3(dfa) Cho3(gbd)
v65 Cho3(egb) Cho3(fac) '"bdf'8.,100'"bdf'8.,30r8'ceg'8.,100'ceg'8.,30r8 'dfa'8.,100'dfa'8.,30[ 'dfa'16 ]r2
v60 Cho3(egb) Cho3(fac) Cho3(dfa) Cho3(gbd)
v70 Cho3(egb) Cho3(fac) v80 Cho3(gbd) q100'gbd'8.['gbd'8]'gbd'16'gbd'4,20r4 }
//------------------------------------------------------------------------------
TR 6音色(Strings1)
#TR6IN={o5q100v80EP.onTime(40,127,!1+1)P.onTime(0,127,!1,127,0,!1)'g"a#d'1+1P(64)EP(127) }
#TR6A={ P(72)v60[ l1'ga#d''fadc':'d#ga#'l2'fac''f#ac#' ]l2'd#ga#''fac'l1'ga#d' }
#TR6B={ P(72)v60[ l1'ga#d''fadc':'d#ga#'l2'fac''f#ac#' ]l2'd#ga#''fac'l1'ga#d' }
// [ l1'ga#d''fadc':'d#ga#'l2'fac''f#ac#' ]l2'd#ga#''fac'l1'ga#d'
TR 10/*ドラム*/ o3調+()v.Random(20)
Time(3:1:0)
Sub{[ [4 l8 n80,n81,n80,l16[rn80,]n81,8:n80,4 ]n80,8n81,8 ]}//トライアングル
Sub{l16 [3 crrcrrcr rrcrrrrr ]crrcrrcr rrcrrcrr}
`c#r- l16[2 [4f#]d[f#]d [4f#]d[3f#] :[4f#]d[f#]d [4f#]d[f#]a# ] [4f#]d[f#]d f#d[f#]df#[d]
Sub{l16 [3 crrcrrcr rrcrrrrr ]crrcrrcr rrcrrcrr}
`c#r- l16 [4f#]d[f#]d [4f#]d[3f#] [4f#]d[f#]d [4f#]d[f#]a# [2 `ar-[4f#]d[f#]d ] `c#r-[4f#]d[f#]d f#d[f#]df#[d]
Time(11:1:0)
Sub{[ [4 l8 n80,n81,n80,l16[rn80,]n81,8:n80,4 ]n80,8n81,8 ]}
Sub{l16 [3 crrcrrcr rrcrrrrr ]crrcrrcr rrcrrcrr}
`c#r- l16[2 [4f#]d[f#]d [4f#]d[3f#] :[4f#]d[f#]d [4f#]d[f#]a# ] [4f#]d[f#]d f#d[f#]df#[d]
Sub{l16 [3 crrcrrcr rrcrrrrr ]crrcrrcr rrcrrcrr}
`c#r- l16 [4f#]d[f#]d [4f#]d[3f#] [4f#]d[f#]d [4f#]d[f#]a# `ar-[2 [4f#]d[f#]d ] `c#r-[4f#]d[f#]d f#d[f#]df#[d]
Time(19:1:0)
[ l8.n55,r n51,8r2 r-1 n48,n45,n41,4r8d8r8 r-1 ccc8r2
l8.n55,r n49,8r2 r-1 n48,n45,n41,8r8n45,8[d16]n41,8 r-1 ccc8r4.c8 ]
[ l8.n55,r n51,8r2 r-1 n48,n45,n41,4r8d8r8 r-1 ccc8r2
l8.n55,r n49,8r2 r-1 n48,n45,n41,8r8n45,8[d16]n41,8 r-1 ccc8r4.c8 ]
[ l8.n55,r n51,8r2 r-1 n48,n45,n41,4r8d8r8 r-1 ccc8r2
l8.n55,r n49,8r2 r-1 n48,n45,n41,8r8n45,8[d16]n41,8 r-1 ccc8r4.c8 ]
l8.n55,r n51,8r2 r-1 n48,n45,n41,4r8d8r8 r-1 ccc8r2
l8.n55,r n49,8r2 r-1 n48,n45,n41,8r8n45,8[d16]n41,8 r-1 ccc8r4.c8
l8.n55,r n51,8r2 r-1 n48,n45,n41,8r8n45,8[d16]n41,8 r-1 ccc8r4.c8
l8cc16n49,l16c[d]l4'n45,c'n41,
Time(35:1:0)
Sub{[ [4 l8 n80,n81,n80,l16[rn80,]n81,8:n80,4 ]n80,8n81,8 ]}//トライアングル
Sub{l16 [3 crrcrrcr rrcrrrrr ]crrcrrcr rrcrrcrr}
`c#r- l16[2 [4f#]d[f#]d [4f#]d[3f#] :[4f#]d[f#]d [4f#]d[f#]a# ] [4f#]d[f#]d f#d[f#]df#[d]
Sub{l16 [3 crrcrrcr rrcrrrrr ]crrcrrcr rrcrrcrr}
`c#r- l16 [4f#]d[f#]d [4f#]d[3f#] [4f#]d[f#]d [4f#]d[f#]a# [2 `ar-[4f#]d[f#]d ] `c#r-[4f#]d[f#]d f#d[f#]df#[d]
Sub{[ [4 l8 n80,n81,n80,l16[rn80,]n81,8:n80,4 ]n80,8n81,8 ]}
Sub{l16 [3 crrcrrcr rrcrrrrr ]crrcrrcr rrcrrcrr}
`c#r- l16[2 [4f#]d[f#]d [4f#]d[3f#] :[4f#]d[f#]d [4f#]d[f#]a# ] [4f#]d[f#]d f#d[f#]df#[d]
Sub{l16 [3 crrcrrcr rrcrrrrr ]crrcrrcr rrcrrcrr}
`c#r- l16 [4f#]d[f#]d [4f#]d[3f#] [4f#]d[f#]d [4f#]d[f#]a# `ar-[2 [4f#]d[f#]d ] `c#r-[4f#]d[f#]d f#d[f#]df#[d]
//------------------------------------------------------------------------------
調-(be)
Time(1:1:0)
PLAY(, , , #TR3IN, #TR4IN, #TR5IN,#TR6IN,)
Time(3:1:0) //Aパート
PLAY(, #TR1A, , #TR3A, #TR4A, #TR5A, #TR6A,)
Time(11:1:0)
PLAY(, #TR1B, , , #TR4B, #TR5B, #TR6B,)
Time(19:1:0) //Bパート
PLAY(, #TR1C, #TR2C, #TR3C, #TR4C, #TR5C, ,)
Time(35:1:0) //Cパート
PLAY(, #TR1D, , #TR3A, #TR4A, #TR5A, #TR6A,)
Time(43:1:0)
PLAY(, #TR1E, , , #TR4B, #TR5B, #TR6B,)
//フェードアウトコマンドの挿入専用
TR 0 Time(43:1:0)FadeoutAll(8)