/*
■☆1-Hour☆
　作成：さくらもどき

詳細
【推奨環境】ヘッドホン
【推奨音源】TWM2(TWMをもっていない方はMP3でどうぞ。)
【無断転用】可
【　編曲　】可
【ジャンル】Trance
作成環境
【   OS   】WindoowsXP HomeEdition
【　音源　】TWM2、SoundFont
【出力環境】MDR-CD100	（ヘッドホン）
		RH-300	（ヘッドホン）
		HP-NC80	（ヘッドホン）
		UA-20		（オーディオI/O）
◆ＭＥＭＯ
ＤＬありがとうございました。

今回も１発ネタっぽい感じですいません。

「この曲は１時間で、曲を作ってみようっ！」って思って作ってみた曲です。
全体的にショッパイですが（笑）、聞いていただければ幸いです

ちなみに今回のMP3はTWMを録音しただけです。
http://www.geocities.jp/dolls_rosebud/mp3/1hour.mp3

あとニコニコ動画に今回の作曲風景を録画したのをうｐしてあるので宜しければ見てやってください。
何かの参考になれば、と思います。
注：僕の酷い声がブツブツつぶやいてます（笑



◆動画からの変更点
・この投稿用コメント
・メロディの１小節目の後半を微妙に変更してます。
・最後にストリングスのフレーズを変更してます
*/
曲名{"1-Hour"}
作者{"SakuraModki"}
ResetGS
拍子4,4
テンポ( 155 )
調#()

Key = -2

Int Cnt=1;
[16 TR=Cnt V=100 Cnt++]

Function L1(int){Result=(!1 * int)}	//数小節分の長さを返す
Function R1(int){[(int)r*1]}		//数小節分の休符
Function X(int){Sub{[(int)r-1]?}}	//数小節戻ってから再生(デバッグ用)

TimeKey((1:1:0),,0)
TimeKey((33:1:0),,3)
//=============================================================================================
#String={ v65
 Sub{>
 v_=-10
  edc2"b2"a2e2
  edc2g2f2e2
 v_=0
<}
EP.T(127,95,L1(6),95,127,L1(2))
[
 "f0f0"a0c1
 "g0g0"b0d1
 "e0e0"b0d1
 "a0a0 c0e1
]
}

#String_2={ v65
 Sub{>
 v_=-10
  edc2"b2"a2e2
  ed"g2"b2c1
 v_=0
<}
EP.T(127,95,L1(6),95,127,L1(2))
[
 "f0f0"a0c1
 "g0g0"b0d1
 "e0e0"b0d1
 "a0a0 c0e1
]
}


TR=1 q100 o5 l1 @49 P=40
[8 #String ]
#String_2

//=============================================================================================
TR=2 q100 o5 l1 @51 P=100
[8 #String ]
#String_2
//=============================================================================================
TR=3 q100 o3 l1 @80 P=64 v80
[9 [ fgea ] ]

//=============================================================================================
#Bass_0={
[
 [4 "f^f^]
 [4 "g^g^]
 [4 "e^e^]
 [4 "a^a^]
]
}

#Bass={
[
 [4 ["f]f"f]
 [4 ["g]g"g]
 [4 ["e]e"e]
 [4 ["a]a"a]
]
}

TR=4 q100 o3 l16 @35 P=64 v110
R1(8)
EP.T(50,127,L1(4))
#Bass_0
#Bass_0

[4 #Bass ]

//=============================================================================================
#SynthBass={
[
 [ ""f"ff"f f""f"ff]
 [ ""g"gg"g g""g"gg]
 [ ""e"ee"e e""e"ee]
 [ ""a"aa"a a""a"aa]
]
}
TR=5 q100 o4 l16 @40 P=64 v80
R1(8)
R1(8)
R1(8)
[4 #SynthBass]


//=============================================================================================
#Synth1_1={
"fa"f"f	`d"f"f`e
"f"f`c"f	`e`g"f`a

`a"g"g`e	"g"g`d"g
"g`e"g"g	`d"g`e"g

"ea"e"e	`d"e"e`e
"e"e`a"e	`d`e`a"e

`a"a"a`e	"a"a`a"a
"a"a``e"a	``e``d`b`g
}
#Synth1_2={
"fa"f"f	`d"f"f`e
"f"f`c"f	`e`g"f`a

`a"g"g`e	"g"g`d"g
"g`e"g"g	`d"g`e"g

"ea"e"e	`d"e"e`e
"e"e`a"e	`d`e`a"e

`a"a"a`e	"a"a`a"a
"a"a`e"a	`a"a"a"a
}

TR=6 q40 o4 l16 @82,110,1 P=64 v110
R1(8)R1(8)
EP.T(0,127,L1(8))
 #Synth1_1
 #Synth1_2
[4
 #Synth1_1
 #Synth1_2
]
//=============================================================================================
#Synth2_1={
rarr	`drr`e 
rr`cr	`e`gr`a

`arr`e	rr`dr
r`err		`dr`er

rarr	`drr`e
rr`ar	`d`e`ar

`arr`e	rr`ar
rr``er	``e``d`b`g
}

#Synth2_2={
rarr	`drr`e 
rr`cr	`e`gr`a

`arr`e	rr`dr
r`err		`dr`er

rarr	`drr`e
rr`ar	`d`e`ar

`arr`e	rr`ar
rr`er		`arrr
}

TR=7 q40 o5 l16 @82,90,1 P=64 v127
R1(8)
R1(4)EP.T( 50,127,L1(4) )
 #Synth2_2

[4
 #Synth2_1
 #Synth2_2
]

UseKeyShift=off 調-()
TR=10 o3 l8 q40 @=27,90 V=100
//------------------------------------
R1(8)
Sub{v70 [8 [ rf+g+f+ ]]}
R1(8)

Sub{v90 [8 [ rf+g+f+ ]]}
R1(8)
Sub{r-4.v110 c16c16cc}
Sub{v40 [8 r-1] [64 d16 v+1][(64-8) d16] }
Sub{v100[8 r-1] `c+1[3r1] `c+1r1 [3`c+2]r2  }
//------------------------------------
Sub{
 Sub{v127 `c+}
R1(16)
 Sub{v127 `c+}
}

[4
Sub{v90 [8 [ rf+g+f+ ]]}
Sub{v100[8 r2.d+4] }
Sub{v127[16 r4c+4] }
v120 [31 c4] r-8c16c16cc
]

Sub{v40 [8 r-1] [64 d16 v+1][64 d16]}
Sub{v100[8 r-1] `c+1[3r1] `c+1r1 [3`c+2]r2  }
//------------------------------------
[ R1(8) ]


//=====================SFX系サウンド==============================

//_TR15====================================================
TR=15q100@=123,3v67o7 REV=127CHO=127BR(36)//ベントレンジに注意っ！
/*1-4*/
R1(8)
Sub{p.T(127,0,!1)
P.T(97,30,!1)
EP.T(97,97,!2,97,60,!2)
"c0c0g0`c1
}
R1(8)
R1(8)
R1(8)

/*5-8*/
R1(8)
R1(8)
Sub{p.T(127,0,!1)
P.T(97,30,!1)
EP.T(97,97,!2,97,60,!2)
"c0c0g0`c1
}

/*9-12*/
Sub{p.T(127,0,!1)
P.T(97,30,!1)
EP.T(97,97,!2,97,60,!2)
"c0c0g0`c1
}

//_TR16====================================================
TR=16q100@=123,1 v110 o7REV=127CHO=127BR(36)//ベントレンジに注意っ！
/*1-4*/
R1(8)
Sub{r-1
p.T(127,0,!1^1)
P.T(30,97,!1^2,97,30,!2)
EP.T(20,97,!2,97,97,!1,97,60,!2)
"c0c0g0`c1^1
}

R1(8)
Sub{r-1
p.T(0,20,!2,20,127,!1^2,127,0,!1)
P.T(30,97,!1^1,97,30,!1)
EP.T(20,127,!2,127,127,!1^2,127,60,!1)
"c0c0g0`c1^1^1
}

R1(8)
Sub{r-1
p.T(127,0,!1^1)
P.T(30,97,!1^2,97,30,!2)
EP.T(20,97,!2,97,97,!1,97,60,!2)
"c0c0g0`c1^1
}
R1(8)

/*5-8*/
R1(8)
R1(8)
Sub{r-1
p.T(0,20,!2,20,127,!1^2,127,0,!1)
P.T(30,97,!1^1,97,30,!1)
EP.T(20,127,!2,127,127,!1^2,127,60,!1)
"c0c0g0`c1^1^1
}
R1(8)
R1(8)

/*9-12*/
Sub{r-1
p.T(0,20,!2,20,127,!1^2,127,0,!1)
P.T(30,97,!1^1,97,30,!1)
EP.T(20,127,!2,127,127,!1^2,127,60,!1)
"c0c0g0`c1^1^1
}