//_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
// Ａ　Ｆｌｉｇｈｔ　ｏｆ　ｔｈｅ　ｆｕｔｕｒｅ・・ v1.0
//
// 作曲＆MMLかき：ななこっち★（ゆった） / 著作者：ななこっち★
//
// MP3/動画のリンク先はWAVEです。
//
// 奨励音源
// TiMidiTy+atomic+fluid3+RealGS+izumo
// （そのままきいても、大して何ともありません・・）
// 音源のURLは、End行の後に書いてあります。
//
// 転載：無条件可
// 編曲：禁止
//
// 作成環境
// YAMAHA RX-5
// YAMAHA HX-1
// (いや、本当です・・) 
//
// 変換環境
// SoundEngine v5
//
// 相当昔、子供の頃に作った曲です。
// 同じころはやりだした映画のバックチューザフューチャーがイメージされています。
//
// 実際は約５分の曲ですが、これ以上思い出せないのと、ループ編集が必要とのことで
// このような形になっています。
//
// 以前、曲掲示板 ver ３あたりかな？SM調教師瞳３ってので出してますけど
// 別の古い音源が見つかりましたので・・・・
// （ゆったと名乗っています）
//
// できている音源は、以下からダウンロードしてください。
// http://www.daiba.cx/Diary/2012-12-08/
//
//
// 参考：YAMAHA RX-5での音色配列
// オケヒット＋ティンパニー：そのまま
// メロディー等：クラビ
// コード：マリンバ等
// コントラバス：エレキベース
//_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
// v1.1 2013/05/06 変数ループ対応化
//_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
//
// 以下応募テープのドキュメントより
//
//　中３のときにつくったオリジナルの曲も入れてみました。とはいえクラシック調で
//
//　コンピューターミュージックとしては音色数が非常に少ないですが結構大作だと思
//
//　います。この曲ではあの映画「バックチューザヒューチャー」に感動して作ったも
//
//　です。実際にこれは某ヤクルトホールで私が演奏したといえばわかる人もいるかも
//
//　？？（著作権違反かも？？）ということでＲＸ−５だけで打ち込んだが、音色が少
//
//　なく（ＭＳＸで打ち直そうと思ったがこの容量では足りない）、パンポット機能や
//
//　同時発音機能がなかったので非常に苦労しました。また　同時発音数も結構少なく
//
//　音の割当でカットせざる得ないところもありました。とはいえＩ／Ｏポート直接ア
//
//　クセスはしていません。(^_^); 聞けばわかると思うが、ひどくガタガタになって
//
//　しまいました。それは手弾きでないというマイナス点があるからしょうがないの
//
//　です。参考に手弾きのものもあとのほうに入れておきます。（下手くそ！！）
//
//　それと　この曲は異常なほど濃いリバーブをかけてやらないと様にならないんです
//
//　ねぇ。（笑）それと　手弾きのほうはエレクトーンのＨＸ１／５ＦとＲＸ−５を
//
//　ＭＩＤＩでつなげて演奏しました。若干違うところやミスがありますけど．．．
//
//
//　ひとりごと：　今度はＦＭ−ＰＡＣ＋ＰＳＧやＭＳＸ−Ａｕｄｉｏにチャレンジし
//
//　てみたいと思います。うーむ。最低限　Ｘａｋぐらいの音にしてやってみたいな。
//
//　またオリジナルでも書いてみるか。そうそう。ソフコンのほうもがんばろう。
//
//　とかいってるが、録音機のＣＭＸ−１が故障していて修理しながらやったから
//
//　結構音が汚ないし。．．．．
//
//_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
//
// ループ数の指定
//
Int LOOP=6
//
//_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

Function Slowly(Mes) {
	Int TT = Tempo;
	Int T = Tempo / Mes ;
	T = T / 16;
	For(Int I=1; I <= Mes; I++){
		Sub{ [4
			TT = TT - T;
			Tempo = TT; r4
		]}
	}
}

Function LoopPlay(Str Mml, Int count) {
	Str _MML
	For (Int i = 1; i < LOOP + count; i++) {
		_MML=_MML + #STR(Mml)
	}
	_MML
}


トラック 1;
#TR1={
	音色(Trumpet)
	r1
	l16v127
	o4q80
	r4a4>d4.c#d
	c#r<are2c#rdr
	e4.f#g# a4.g#f#
	b2.r4
	>
	f#4b4>f#4.e#f#
	drc#r<b2

	[7 r1]r2
	r2<e2
	a4>d4.c#d
	c#r<are2c#rdr
	e4.f#g# a4.g#f#
	b2.r4
	[4 r1]
	[9 r1]
	[7 r1]
}

LoopPlay(#TR1)

トラック 2;
#TR2={
	Tempo 150
	音色(Violin)
	r1
	[5 r1]
	v127
	q100l8
	o5
	r2.g#a
	b>c#de f#g#ab>
	c#2.ed
	c#2<b2
	a8r8>f#2r..

	l16
	[2 ec#] [2 d<b>]
	[2 c#<a>] <[2 bg#]
	[2 af#] [2 g#e]
	[2 f#d] [2 ec#]

	'f#2<a2>' 'e2<g#2>'
	'd#8<f#8>' r8 'e2<g#2>'r4

	[4 r1]
	o5l4
	f#b>f#.e#16f#16< g#>c# a#4.g#24g24f24
	Slowly(1)
	'<b-1.>e-1.b-1.'
	Tempo 150
	r1
	o5
	r4b-4>b-4.a-24g24f24
	g8d8<b-2.
	r4a-4>c4>c4<
	b-2&b-8a-8g8f8
	g2.^8g16a-16
	b-2>e-4g4&
	g2^8f8e-8g8
	f8e-8d8c8<b-8>c8e-8d8

	Sub{r8<c8e-8d4e-4f8>}c4.<f4g4a-8
	Sub{r8<b-8>d8e-4.}b-2.r4
	Sub{r8<a-8>c8<b-4>c4d8}a-4.d4e-4f8
	Sub{r8<g8>d8c4.}g2.r4>
	Sub{r8<c8e-8d4e-4f8>}c4.<f4g4a-8
	Sub{r8<b-8>d8e-4.}b-2.r4
	Sub{r8<a-8>c8d4e-4f8}a-4.f4g4a-8
	l16gggrrrggg
}

LoopPlay(#TR2)

トラック 8;
#TR8={
	音色(Cello)
	o5l4q88v90
	[7 r1]
	Sub {g#f#eg#} <b1>
	Sub {ag#f#2} c#1
	'c#2e2' 'c#2e#2'
	'c#8f#8'r8'<f#2>d#2'r4
	r1r1
	<
	'a2>c2f#2<' 'g#2b2>e2<'
	'f#8a8>d#8<' r8 'g#2b2>e2<'
	r4
	[4 r1]
	r8[3 'f#4b4>d#4<'] 'f#8b8>d#8<'
	r8[3 'g#4>c#4e#4<'] 'g#8>c#8e#8<'
	'b-1.>e-1.g1.<'

	l4
	'b-8>d8g8<' [3 'b-4>d4g4<' ] 'b-8>d8g8<'
	'b-8>d8g8<' [3 'b-4>d4g4<' ] 'b-8>d8g8<'
	'b-8>d8g8<' [3 'b-4>d4g4<' ] 'b-8>d8g8<'
	'a-8>c8f8<' [3 'a-4>c4f4<' ] 'a-8>c8f8<'
	'a-8>c8f8<' [3 'a-4>c4f4<' ] 'a-8>c8f8<'
	'b-8>d8g8<' [3 'b-4>d4g4<' ] 'b-8>d8g8<'
	'b-8>d8g8<' [3 'b-4>d4g4<' ] 'b-8>d8g8<'
	'a-8>c8f8<' [3 'a-4>c4f4<' ] 'a-8>c8f8<'
	'a-4>c4f4<' r2.

	'a-4.>c4.e-4.<' 'b-8^2>d8^2f8^2<'
	'b-4.>d4.f4.<' 'g8^2>c8^2e-8^2<'
	'a-4.>c4.e-4.<' 'b-8^2>d8^2f8^2<'
	'b-4.>d4.f4.<' 'g8^2>c8^2e-8^2<'
	'a-4.>c4.e-4.<' 'b-8^2>d8^2f8^2<'
	'b-4.>d4.f4.<' 'g8^2>c8^2e-8^2<'
	'a-4.>c4.e-4.<' 'b-8^2>d8^2f8^2<'
	l16gggrrrgggrrrrrr
}

LoopPlay(#TR8)

トラック 9;
#TR9={
	音色(Strings1)
	o3v120
	[7 r1]
	l4q90
	g#f#eg#
	ag#f#2
	e2e#2
	f#8r8d#2r4
	音色(PizzicatoStrings)
	v100
	>
	c#de<f
	f#g#ac#
	音色(Strings1)
	v127
	d#2e2
	f#8r8e2r4
	[4 r1]
	<
	r8b4b4b4b8>
	r8c#4c#4c#4c#8
	e-1.

	l4q70
	e-8e-e-e-e-8
	e-8e-e-e-e-8
	e-8e-e-e-e-8
	d-8d-d-d-d-8
	d-8d-d-d-d-8
	e-8e-e-e-e-8
	e-8e-e-e-e-8
	d-8d-d-d-d-8
	d-4r2.

	q90
	a-4.b-4.a-4
	g4.>c8&c2<
	f4.b-4.a-4
	g4.>c8&c2<
	a-4.b-4.a-4
	g4.>c8&c2<
	f4.b-4.a-4
	l16gggrrrggg
}

LoopPlay(#TR9)

トラック 11;
#TR11={
	音色(OrchestraHit)
	o5l8q100v120
	r4''e16<e16>''r.  r8. 'e<e>''e16<e16>''e16<e16>'
	r8'a16<a16>'r16 r2.
	r4.'a16<a16>'r16 r8'a16<a16>'r16 r4
	r1
	r4[4 'b16<b16>'] [2 r8'b16<b16>'r16]
	r1
	r4[2 r8'b16<b16>'r16]r4

	[8 r1]
	'a16<a16>'r16r8 r2.
	r4.'a16<a16>'r16 r8'a16<a16>'r16 r4
	r1
	r4[4 'b16<b16>'] [2 r8'b16<b16>'r16]

	[2 r1]
	[9 r1]
	[8 r1]
	[1 r1]
	r2
}

LoopPlay(#TR11)

トラック 12;
#TR12={
	音色(Timpani)
	o3q200
	v50
	v.onTime(50,127,!1)
	[16 e16]
	r16a16r8r2.
	r4.a8r8a8r4
	r1
	r4[4 b16] [2 r8'b16'r16]
	r1
	r4[2 r8'b16'r16]r4

	[8 r1]
	a1
	r4r8a8 r8a8 r4
	r1
	r4[4 b16] [2 r8'b16'r16]
	r1r1
	o4v127
	e-8.e-16e-4.<b-8>e-8a-8
	g8e-8g8>c8<b-4
	[7 r1]
	[8 r1]
	[1 r1]
	r2.
}

LoopPlay(#TR12)

トラック 10;
#TR10={
	音色(OrchestraSet)
	$b{n(Kick1),}
	$s{n(Snare1),}
	$c{n(CrashCymbal2),}
	$t{n(OpenTriangle),}

	q200

	v.onTime(50,127,!1)
	Rythm {
		[16 's'16]
	}
	v127
	Rythm {
		r8'c8b8s8'r2.
		r4.'c8b8s8'r8'c8b8s8'r4
		r1
		r4'b16s16c16' [3 'b16s16'] r8'c8b8s8'r8'c8b8s8'
		r1
		r4.'c8b8s8'r8'c8b8s8'r4
		[2 r1]
		t2t2t4t2.
		[2 r1]
		v100'b16s16c16t16' v80[7 s16] v100'b16s16c16t16' v80[7 s16]
		v127'b4s4c4t4''b4s4c4t4'r2

		'b1s1'
		r4.'b8s8' r8'b8s8' r4
		r1
		r4  [4 'b16s16'] r8'b8s8'r8'b8s8'

	}
	[2
	v.onTime(127,80,!1.)
	Rythm {
		r8[3 'b4s4']'b8s8'
	}
	]


	v.onTime(127,50,!1.)
	Rythm {
		'b48s48c48t48'[47 s48]
		[24 s48]
	}
	v127
	Rythm {
		[8
		v110's8' v100s16 v82[2 s32] v75s8 v120s16 v82[2 s32] v82s8 v100s16 v82[2 s32] v120s8 v100 s8
		]
		v100s1
		[3 t4. t4. t4  t4. t2^8]
		t4.t4.t4
	}

	Rythm {
		v127
		s16s16s16r16r8s16s16 s8
	}
	r2
}

LoopPlay(#TR10)

End
以下 timidity.cfg

http://www.daiba.cx/TiMidity%2b%2b/Windows%e3%82%a4%e3%83%b3%e3%82%b9%e3%83%88%e3%83%bc%e3%83%a9/


# for pw

dir ../patches/goemon
dir ../patches/goemon/goemon
dir ../patches/eawpats
dir ../patches/eawpats
dir ../patches/eawpats/ethnic
dir ../patches/eawpats/gsdrum08
dir ../patches/eawpats/gsdrum25
dir ../patches/eawpats/gsdrum40
dir ../patches/eawpats/gus
dir ../patches/eawpats/mazpat
dir ../patches/eawpats/power
dir ../patches/eawpats/sfx
dir ../patches/eawpats/wime
dir ../patches/syuuhou/realgs
dir ../patches/izumo/inst
dir ../patches/izumo/inst/GUS
dir ../patches/izumo/inst/gusperc
dir ../patches/izumo/inst/mazpat
dir ../patches/izumo/inst/misc
dir ../patches/izumo/inst/orchhit-patch
dir ../patches/izumo/inst/release
dir ../patches/izumo/inst/roland
dir ../patches/izumo/inst/wime
dir ../patches/izumo/inst/wowpats

dir ../patches/cfgs
dir ../patches/syuuhou/ultimate
dir ../patches/fluid3
dir ../patches/atomic
dir ../patches/SYUUHOU/scc

dir ../patches/atomic

source atomic_main.cfg
source atomic_sup.cfg

bank 0
	47 %font FluidR3GM.SF2 0 47 amp=172 pan=12	
	55 %font 8RealGS20.SF2 0 55 amp=140 pan=0	

	56 release/solotrmp.pat amp=270

drumset 48
	35 %font FluidR3GM.SF2 128 48 35 amp=280 pan=0 # Orch Bass Drum
	36 %font FluidR3GM.SF2 128 48 35 amp=280 pan=0 # Orch Bass Drum
	38 %font FluidR3GM.SF2 128 48 38 amp=119 pan=-31 # Orch Snare
	40 %font FluidR3GM.SF2 128 48 40 amp=122 pan=0 # Orch Snare
	57 %font FluidR3GM.SF2 128 48 57 amp=200 pan=-31 # Orchcrash
	59 %font FluidR3GM.SF2 128 48 59 amp=200 pan=-47 # Orchcrash
	65 %font FluidR3GM.SF2 128 48 38 amp=119 pan=-31	# Orch Snare

以下 timidity起動バッチ
rem y:
rem cd "\Program\Timidity++\Timidity++"
timidity  -c ../patches/cfgs/pw.cfg --reverb=d,127 -s 48000 d:\pw\1.mid
rem timidity -Ow -c ../patches/cfgs/pw.cfg --reverb=d,127 -s 48000 d:\pw\1.mid

以下 soundengineで行なうこと
・約1分3秒650前後で切る
・以下のパラメータでリバーブをかける。
　2.9sec / そのまま / そのまま / 82% / 70% / 3.0dB / そのまま / そのまま / そのまま / -1.0dB