//_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
// Ａ Ｆｌｉｇｈｔ ｏｆ ｔｈｅ ｆｕｔｕｒｅ・・ 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