// あなたが欲しいの
///////////////////
Int DEBUG=0 // 1=メトロノーム 2=雑音付き
Int KEY=0 // 移調
Int RTEMPO=10 // テンポをRTEMPO%範囲内でランダムにする 0で無効
Int TEMPORATIO=100 // テンポを％で変化させる 70%以下にしてはならない
Int TINY=0 // MIDIを軽くする TWM2時必須
Int IGNORETEMPO=0 // テンポ変化を無効にする
// Tempo 140
Int TEMPODIFF=0 // テンポ差分 -5以下にしてはならない
Int LOOP=2 // ループ回数 9=30min 2hour=39
System.RandomSeed=1 // 毎回同じ乱数を出す 発音タイミングと音長と音量とペダルのリリースとテンポが乱数
IF(TINY=1) {
Expression.Frequency(2);
Modulation.Frequency(8);
System.TimeBase=96
} ELSE {
Expression.Frequency(1);
Modulation.Frequency(1);
System.TimeBase=27648 //9216
// System.TimeBase=9216
// System.TimeBase=96
}
///////////////////////////////////////////////////////////////////////////////
// title: "tempo.h" ver 1.2
// description: TempoChange非互換高機能テンポチェンジ機能インクルードファイル(2025/09/20)
// keywords: SAKURA Function by ななこっち★ @nanakochi123456
// HP: https://773.moe/
///////////////////////////////////////////////////////////////////////////////
// tempo.h デバッグ機能付きテンポチェンジ
// （サクラに TempoChange がありますが、その高機能版です）
//
// Include前に、以下の変数を定義して下さい。
//
// ・Int DEBUG=0 // 1 でメトロノームがなります、2 でテンポチェンジ時にうるさい雑音が鳴ります
// （メトロノームは10000小節で終了します、4/4 を前提に作成されています。）
//
// ・Int RTEMPO
// 値%の範囲内でランダムにする
// ・Int TEMPORATIO
// ベーステンポの割合を％で設定します。（100がデフォルト。）
//
// ・Int TEMPODIFF
// ベーステンポを設定して、外部よりテンポを制御したい場合、TEMPODIFF に 整数値 (-～+)を設定します。
//
// ・Int IGNORETEMPO
// IGNORETEMPO=1 にすると、テンポチェンジを無効にします。
//
// #METORONOMEMML
// メトロノームのリズムMMLを設定できます。3拍子にする時等使用します。
// (M=表拍、m=裏拍)
//
// ※テンポチェンジは、専用のトラックを作成することをお勧めします。
///////////////////////////////////////////////////////////////////////////////
// Function TmpChange(tempo, len)
// テンポをチェンジします。
// 前のテンポは自動的に読み込まれます
// 即時チェンジする場合には、lenを 0 にします。
// それ以外は、!2 !4. 等を指定します。
//
// Function TmpChangeR(tempo, len)
// テンポをチェンジして、len分の休符を置きます。
///////////////////////////////////////////////////////////////////////////////
// テストするときは、以下のコメントを全て外してください。
//Int TEST=1
//Int DEBUG
//Int TEMPORATIO=100
//Int IGNORETEMPO=0
//Int TEMPODIFF=0
///////////////////////////////////////////////////////////////////////////////
#METORONOMEMML={M4m4m4}
IF(#METORONOMEMML="") {
#METORONOMEMML={M4m4m4}
}
IF(TEST=1) {
DEBUG=2
Tempo 200
}
IF(DEBUG>=1) {
IF(DEBUG=2) {
#DEBUGMML1={Sub{@1v90V(127)'v50o5do6fo7a#o8d'}}
#DEBUGMML2={Sub{@1v90V(127)'v50o5co6eo7g#o8c'}}
#DEBUGMML3={Sub{@1v127V(127)'v80o4cdefgabo6cdefgab'}}
}
TR(10)
$M{n(MetronomeBell),}
$m{n(MetronomeClick),}
[10000
Rythm{#METORONOMEMML}
]
}
Function TmpChangeR(tempo, len) {
TmpChange(tempo, len)
r%(len)
}
Function TmpChange(Atempo, len) {
Int Rtempo
IF(len=0) {
IF(DEBUG=2) {
#DEBUGMML1
}
} ELSE {
IF(DEBUG=2) {
#DEBUGMML2
}
}
IF(RTEMPO>0) {
Int Ztempo = Atempo * RTEMPO / 100
Rtempo=Random(Atempo - Ztempo, Atempo + Ztempo)
//Print("RTEMPO="+RTEMPO+" A="+Atempo+" Z="+Ztempo+" R="+Rtempo)
} ELSE {
Rtempo=Atempo
}
IF(len=0) {
IF(!(IGNORETEMPO<>1)) {
IF(TEMPORATIO=0) {
Tempo=Rtempo+TEMPODIFF
} ELSE {
Tempo=(Rtempo*TEMPORATIO)/100+TEMPODIFF
}
}
} ELSE {
IF(!(IGNORETEMPO<>1)) {
Int TT1=Tempo
Int TT2
IF(TEMPORATIO=0) {
TT2=Rtempo+TEMPODIFF
} ELSE {
TT2=(Rtempo*TEMPORATIO)/100+TEMPODIFF
}
Int TTDIFF=(TT2 - TT1)
Int TTSTEP=TTDIFF
IF(TTSTEP < 0) {
TTSTEP=-TTDIFF
}
Int TTR=len / TTSTEP
For(Int I=1; I < TTSTEP; I++) {
Sub {
r%(I*TTR)
IF(TTDIFF < 0) {
TT1 = TT1 - 1;
} ELSE {
TT1 = TT1 + 1;
}
Tempo = TT1;
}
}
Sub{
r%(len)
IF(TEMPORATIO=0) {
Tempo=tempo+TEMPODIFF
} ELSE {
Tempo=tempo*TEMPORATIO/100+TEMPODIFF
}
}
}
}
}
IF(TEST=1) {
TR(1)
TmpChange(100,0)
o5l8cdefgfed
TmpChange(120,!2)
o5l8cdefgfed
TmpChange(160,!2)
o5l8cdefgfed
TmpChange(80,!2)
o5l8cdefgfed
TmpChange(50,!2)
o5l8cdefgfed
TmpChange(160,!4)
o5l8cdefgfed
TmpChange(50,!2)
o5l8cdefgfedc1
}
///////////////////////////////////////////////////////////////////////////////
// title: "loop.h" ver 1.0
// description: Loopインクルードファイル(2015/06/02)
// keywords: SAKURA Function by ななこっち★ @nanakochi123456
// HP: https://773.moe/
///////////////////////////////////////////////////////////////////////////////
// loop.h 可変回数のループ
///////////////////////////////////////////////////////////////////////////////
// Function LoopPlay
// LoopPlay(mml string value[, loop count offset]) max 5 parms.
//
// Example
// Int LOOP=4
// Include(loop.h)
// #mml={
// cde
// }
// LoopPlay(#mml)
// LoopPlay(#mml,#mml2,0)
///////////////////////////////////////////////////////////////////////////////
// テストする時は、以下のコメントを外してください。
//Int TEST=1
//Int LOOP=5
///////////////////////////////////////////////////////////////////////////////
Function LoopPlay(Str Mml1, Str Mml2, Int count) {
Str _MML
For (Int i = 1; i < LOOP + count; i++) {
_MML=_MML + Mml1 + Mml2
}
_MML=_MML + Mml1
_MML
}
IF(TEST=1) {
曲名{"かえるの歌(test)"}
作者{"ドイツ民謡"}
#mmla={
l4
cdef
edc4.r8
}
#mmlb={
l4
efga
gfe4.r8
}
#mmlc={
crcr
crcr
l8ccddeeff
l4
edc2
}
TR(1)
o5
@(Clarinet)
q95
#mmla
LoopPlay(#mmlb,3)
#mmlc
TR(2)
o6
@(Violin)
q95
[2 r1]
#mmla
LoopPlay(#mmlb,2)
#mmlc
TR(3)
o4
q95
@(FrenchHorn)
[4 r1]
#mmla
LoopPlay(#mmlb,1)
#mmlc
TR(4)
o3
q95
@(Contrabass)
[6 r1]
#mmla
LoopPlay(#mmlb,0)
#mmlc
TR(5)
o3
q95
@(Timpani)
[8 r1]
#mmla
LoopPlay(#mmlb,-1)
#mmlc
}
///////////////////////////////////////////////////////////////////////////////
// title: "rnd.h" ver 1.12
// description: 単音、和音、ドラムをランダムな音量とタイミングで演奏するインクルードファイル(2025/09/23)
// keywords: SAKURA Function by ななこっち★ @nanonano773
// License: GPL3
///////////////////////////////////////////////////////////////////////////////
// rnd.h メロディー、和音、ドラムをランダムなタイミングで演奏する
///////////////////////////////////////////////////////////////////////////////
// 詳細の取扱説明書は、ファイル下部へ
//
// Function RMDINIT(rmin, rmax, vmin, vmax)
// 休符乱数値の最小値、最大値、最小、最大音量設定する。両方0にすると、同一タイミングで演奏します。
//
// Function RMDR(rmin, rmax)
// 休符乱数値の最小値、最大値の設定のみする
//
// Function RMDV(rmin, rmax)
// 音量乱数値の最小値、最大値の設定のみする。
// 同一の値を設定を両方に行うと、固定音量となる。
// rmaxを省略すると、rmin、rmax共に加算、または減算を行なう
//
// rmin, rmaxは与える休符値、vmin, vmaxは与える音量値
//
// Function RMDAV(vmin, vmax)
// MMLの音文字の前に ! を指定することで、アクセントと認識する
// そのアクセントの音量を設定する
//
// Function RMDQ(qmin, qmax)
//
// Function RMD(mml)
// ランダムに演奏したいメロディーのMMLを入力する
// Function RMDENABLE(1 or 0)
// メロディーランダム演奏機能を有効/無効にする
///////////////////////////////////////////////////////////////////////////////
// Function RCDINIT(rmin,rmax,vmin,vmax,vdif)
// 乱数値の最小値、最大値を設定する。両方0にすると、同一タイミングで演奏します。
// vmin,vmaxは音量の最小値、最大値
// vdifは音量増加値(マイナス値を指定すると減少値)
//
// Function RCD(mml)
// ランダムに演奏したい和音のMMLを入力する
// Function RCOT(mml)
// ランダムに演奏したい単音のMMLを入力すると、オクターブで演奏する。
// Function RCDENABLE(1 or 0)
// 和音ランダム演奏機能を有効/無効にする
// Function RCDQ(qmin, qmax)
// Function RCDR(rmin, rmax)
// Function RCDV(vmin, vmax)
// Function RCDAV(vmin, vmax)
// MMLの音文字の前に ! を指定することで、アクセントと認識する
// そのアクセントの音量を設定する
//
// RCDをSRCDに置き換えた同名関数があります。ケースバイケースで使い分けられます。
//
// RDINIT(ドラム音量,randvフラグ,randrフラグ,BDロテートフラグ,SDロテートフラグ,シンバルロテートフラグ)
// RDV(Int V)
// RDCresc(Int V)
// RandV(Int MIN, Int MAX)
// RandR(Int MIN, Int MAX)
// SyncR()
// #RDRUMSET1
///////////////////////////////////////////////////////////////////////////////
// Example
// Include(rnd.h)
// TR(1)
// RMDINIT(53,513,90,110)
// l4 RMD(ceg)
// RMDV(5)
// l8 RMD(<b>fg)
// RMDV(-5)
// l8 RMD(ceg)
// TR(2)
// RCDINIT(53,513)
// l4 RCD(ceg)
// l8 RCD(<b>fg)
// RCDINIT(53,513,90,100)
// l8 RCD(ceg)
// TR(10)
// RDINIT(110,1,1,1,1,1)
// #RDRUMSET1
// l8 [4 Rythm {'bh'h'sh''bh''bh'h'sh'h}]
///////////////////////////////////////////////////////////////////////////////
Int RMD_RMIN=192
Int RMD_RMAX=768
Int RMD_VMIN=95
Int RMD_VMAX=100
Int RMD_AMIN=95
Int RMD_AMAX=100
Int RMD_AFLG=0
Int RMD_CRESC=0
Int RMD_ENABLE=1
Int RMD_QMIN=0
Int RMD_QMAX=0
Int RCD_MIN=192
Int RCD_MAX=768
Int RCD_VMIN=-1
Int RCD_VMAX=-1
Int RCD_AMIN=-1
Int RCD_AMAX=-1
Int RCD_CRESC=0
Int RCD_TMIN=-1
Int RCD_TMAX=-1
Int RCD_ENABLE=1
Int RCD_QMIN=0
Int RCD_QMAX=0
Int SRCD_MIN=192
Int SRCD_MAX=768
Int SRCD_VMIN=-1
Int SRCD_VMAX=-1
Int SRCD_CRESC=0
Int SRCD_TMIN=-1
Int SRCD_TMAX=-1
Int SRCD_ENABLE=1
Int SRCD_QMIN=0
Int SRCD_QMAX=0
Int BDROTATE=0
Int SDROTATE=0
Int CYMROTATE=0
Int BDINIT=0
Int CYMINIT=0
Int SDINIT=0
Int RANDV=0
Int RANDR=0
Int RDVOL=127
Function RMDENABLE(Int FLG) {
RMD_ENABLE=FLG
}
Function RMDINIT(Int RMIN, Int RMAX, Int VMIN, Int VMAX) {
RMD_RMIN=RMIN
RMD_RMAX=RMAX
RMD_VMIN=VMIN
RMD_VMAX=VMAX
RMD_CRESC=0
}
Function RMDCresc(Str STEP) {
RMD_CRESC=STEP
}
Function RMDR(Int RMIN, Int RMAX) {
RMD_RMIN=RMIN
RMD_RMAX=RMAX
}
Function RMDQ(Int QMIN, Int QMAX) {
RMD_QMIN=QMIN
RMD_QMAX=QMAX
}
Function RMDV(Int VMIN, Int VMAX) {
IF(VMAX=0) {
Int TMPMIN=RMD_VMIN
Int TMPMAX=RMD_VMAX
TMPMIN=TMPMIN+VMIN
TMPMAX=TMPMAX+VMIN
IF(TMPMIN < 0) {
TMPMIN=0
}
IF(TMPMIN > 127) {
TMPMAX=127
}
IF(TMPMAX < 0) {
TMPMAX=0
}
IF(TMPMAX > 127) {
TMPMAX=127
}
RMD_VMIN=TMPMIN
RMD_VMAX=TMPMAX
} ELSE {
RMD_VMIN=VMIN
RMD_VMAX=VMAX
}
}
Function RMDAV(Int VMIN, Int VMAX) {
// RMD_CRESC=0
IF(VMAX=0) {
Int TMPMIN=RMD_AMIN
Int TMPMAX=RMD_AMAX
TMPMIN=TMPMIN+VMIN
TMPMAX=TMPMAX+VMIN
IF(TMPMIN < 0) {
TMPMIN=0
}
IF(TMPMIN > 127) {
TMPMAX=127
}
IF(TMPMAX < 0) {
TMPMAX=0
}
IF(TMPMAX > 127) {
TMPMAX=127
}
RMD_AMIN=TMPMIN
RMD_AMAX=TMPMAX
} ELSE {
RMD_AMIN=VMIN
RMD_AMAX=VMAX
}
}
Function RMD(Str MML) {
Str BUF=""
Str FIRST=""
Str ML=""
Str M
Str R
Str VL
Str RRMML
Str RMML
Str QRMML=""
Str Q=""
Str FM=""
Int C=0
Str LenStr
Int TOKEN=0
Int TO=0
Int ACT=0
BUF=""
R=""
IF(RMD_ENABLE=0) {
BUF=MML
} ELSE {
For(Int i=1; MID(MML, i, 1)!=""; i++) {
M=MID(MML, i, 1)
IF(M=="!") {
RMD_AFLG=1
} ELSE {
IF((ASC(M)>=48 && ASC(M)<=57) || M="r"||M="."||M="^") {
IF(TO>=1) {
LenStr=LenStr+M
}
ML=ML+M
} ELSE {
IF((ASC(M)>=97 && ASC(M)<=103)) {
TOKEN++
TO=1
IF(RMD_QMAX>0) {
Q=Random(RMD_QMIN, RMD_QMAX)
QRMML="q"+Q
}
FM=QRMML+RRMML+VL+ML+RMML
IF(TOKEN>1) {
C++
IF(FM!="") {
BUF=BUF+"Sub{"+FM+"}r"+LenStr
}
TOKEN=0
} ELSE {
BUF=BUF+ML
}
LenStr=""
ML=M
IF(RMD_RMAX>0) {
R=Random(RMD_RMIN, RMD_RMAX)
IF(Random(0,10)<5) {
RRMML=" r-"+R
RMML=" r"+R
} ELSE {
RRMML=" r"+R
RMML=" r-"+R
}
}
IF(RMD_AFLG == 0) {
VL="v"+Random(RMD_VMIN, RMD_VMAX)
RMDV(RMD_CRESC,0)
RMDAV(RMD_CRESC,0)
RMD_AFLG=0
} ELSE {
VL="v"+Random(RMD_AMIN, RMD_AMAX)
RMDV(RMD_CRESC,0)
RMDAV(RMD_CRESC,0)
RMD_AFLG=0
}
} ELSE {
ML=ML+M
IF(TO=1) {
TO=2
}
IF((ASC(M)>=97 && ASC(M)<=103) || M="r" || (ASC(M)>=48 && ASC(M)<=57) || M="." ||M="^"|| M="-"||M="#") {
} ELSE {
TO=0
}
}
}
}
}
FM=QRMML+RRMML+VL+ML+RMML
IF(FM!="") {
BUF=BUF+"Sub{"+FM+"}r"+LenStr
}
}
IF(DEBUG=1 || TEST=1) {
// Print(RMD_QMIN)
// Print(RMD_QMAX)
// Print(BUF)
}
BUF
}
Function RCDENABLE(Int FLG) {
RCD_ENABLE=FLG
}
Function SRCDENABLE(Int FLG) {
SRCD_ENABLE=FLG
}
Function RCDCresc(Int C) {
RCD_CRESC=C
}
Function SRCDCresc(Int C) {
SRCD_CRESC=C
}
Function RCDINIT(Int MIN, Int MAX, Int VMIN, Int VMAX, Int VDIF) {
RCD_MIN=MIN
RCD_MAX=MAX
IF(VMIN<>0 && VMAX<>0) {
RCD_VMIN=VMIN
RCD_VMAX=VMAX
RCD_CRESC=VDIF
} ELSE {
RCD_VMIN=-1
RCD_VMAX=-1
RCD_CRESC=0
}
}
Function RCDR(Int RMIN, Int RMAX) {
RCD_RMIN=RMIN
RCD_RMAX=RMAX
}
Function RCDV(Int VMIN, Int VMAX) {
RCD_CRESC=0
IF(VMAX=0) {
Int TMPMIN=RCD_VMIN
Int TMPMAX=RCD_VMAX
TMPMIN=TMPMIN+VMIN
TMPMAX=TMPMAX+VMIN
IF(TMPMIN < 0) {
TMPMIN=0
}
IF(TMPMIN > 127) {
TMPMAX=127
}
IF(TMPMAX < 0) {
TMPMAX=0
}
IF(TMPMAX > 127) {
TMPMAX=127
}
RCD_VMIN=TMPMIN
RCD_VMAX=TMPMAX
} ELSE {
RCD_VMIN=VMIN
RCD_VMAX=VMAX
}
}
Function RCDQ(Int QMIN, Int QMAX) {
RCD_QMIN=QMIN
RCD_QMAX=QMAX
}
Function SRCDQ(Int QMIN, Int QMAX) {
SRCD_QMIN=QMIN
SRCD_QMAX=QMAX
}
Function RCDAV(Int VMIN, Int VMAX) {
RCD_CRESC=0
IF(VMAX=0) {
Int TMPMIN=RCD_AMIN
Int TMPMAX=RCD_AMAX
TMPMIN=TMPMIN+VMIN
TMPMAX=TMPMAX+VMIN
IF(TMPMIN < 0) {
TMPMIN=0
}
IF(TMPMIN > 127) {
TMPMAX=127
}
IF(TMPMAX < 0) {
TMPMAX=0
}
IF(TMPMAX > 127) {
TMPMAX=127
}
RCD_AMIN=TMPMIN
RCD_AMAX=TMPMAX
} ELSE {
RCD_AMIN=VMIN
RCD_AMAX=VMAX
}
}
Function RCD(Str MML) {
Str BUF=""
Str FIRST=""
Str ML=""
Str M
Str R
Str FM
Int C=0
Str VL
Int ACT=0
Str Q
Str QRMML
IF(RCD_ENABLE=0) {
BUF="'" + MML + "'"
} ELSE {
RCD_TMIN=RCD_VMIN
RCD_TMAX=RCD_VMAX
BUF=""
R=""
For(Int i=1; MID(MML, i, 1)!=""; i++) {
M=MID(MML, i, 1)
IF(DEBUG=1||TEST=1) {
//Print("Count "+ C + " Str="+M)
}
IF(M="!") {
ACT=1
C++
} ELSE {
IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
C++
IF(C<2) {
FIRST=ML
ML=FM+M
FM=""
IF(RCD_TMIN>=0 && RCD_TMAX>=0) {
VL="v"+Random(RCD_TMIN, RCD_TMAX)
RCD_TMIN=RCD_TMIN+RCD_CRESC
RCD_TMAX=RCD_TMAX+RCD_CRESC
IF(RCD_TMIN<0) { RCD_TMIN=0 }
IF(RCD_TMIN>127) { RCD_TMIN=127 }
IF(RCD_TMAX<0) { RCD_TMAX=0 }
IF(RCD_TMAX>127) { RCD_TMAX=127 }
} ELSE {
VL=""
}
ML=VL+ML
} ELSE {
BUF=BUF+"Sub" + CHR(123)+R+ML+CHR(125)
IF(RCD_MAX>0) {
R=R+"r"+Random(RCD_MIN, RCD_MAX)
}
IF(RCD_TMIN>=0 && RCD_TMAX>=0) {
IF(ACT == 0) {
VL="v"+Random(RCD_TMIN, RCD_TMAX)
} ELSE {
VL="v"+Random(RCD_AMIN, RCD_AMAX)
}
ACT=0
RCD_TMIN=RCD_TMIN+RCD_CRESC
RCD_TMAX=RCD_TMAX+RCD_CRESC
IF(RCD_TMIN<0) { RCD_TMIN=0 }
IF(RCD_TMIN>127) { RCD_TMIN=127 }
IF(RCD_TMAX<0) { RCD_TMAX=0 }
IF(RCD_TMAX>127) { RCD_TMAX=127 }
} ELSE {
VL=""
}
ML=VL+M
}
ACT=0
} ELSE {
IF(M="#"||M="+"||M="-") {
ML=ML+M
} ELSE {
IF(C>0) {
ML=ML+VL+M
} ELSE {
FM=FM+VL+M
}
}
}
}
}
IF(RCD_QMAX>0) {
Q=Random(RCD_QMIN, RCD_QMAX)
QRMML="q"+Q
}
VL="Sub{r-96" + "v"+Random(RMD_VMIN, RMD_VMAX)+"}"
BUF=QRMML+BUF+"Sub"+CHR(123)+R+ML+CHR(125)+FIRST+"r"
IF(DEBUG=1 || TEST=1) {
// Print(RCD_QMIN)
// Print(RCD_QMAX)
// Print(BUF)
}
}
BUF
}
Function ROCT(Str MML) {
Str BUF=""
Str FIRST=""
Str ML=""
Str M
Str R
Str FM
Int C=0
Str VL
MML=MML + ">" + MML + "<"
IF(RCD_ENABLE=0) {
BUF="'" + MML + "'"
} ELSE {
RCD_TMIN=RCD_VMIN
RCD_TMAX=RCD_VMAX
BUF=""
R=""
For(Int i=1; MID(MML, i, 1)!=""; i++) {
M=MID(MML, i, 1)
IF(DEBUG=1||TEST=1) {
Print("Count "+ C + " Str="+M)
}
IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
C++
IF(C<2) {
FIRST=ML
ML=FM+M
FM=""
IF(RCD_TMIN>=0 && RCD_TMAX>=0) {
VL="v"+Random(RCD_TMIN, RCD_TMAX)
RCD_TMIN=RCD_TMIN+RCD_CRESC
RCD_TMAX=RCD_TMAX+RCD_CRESC
IF(RCD_TMIN<0) { RCD_TMIN=0 }
IF(RCD_TMIN>127) { RCD_TMIN=127 }
IF(RCD_TMAX<0) { RCD_TMAX=0 }
IF(RCD_TMAX>127) { RCD_TMAX=127 }
} ELSE {
VL=""
}
ML=VL+ML
} ELSE {
BUF=BUF+"Sub" + CHR(123)+R+ML+CHR(125)
IF(RCD_MAX>0) {
R=R+"r"+Random(RCD_MIN, RCD_MAX)
}
IF(RCD_TMIN>=0 && RCD_TMAX>=0) {
VL="v"+Random(RCD_TMIN, RCD_TMAX)
RCD_TMIN=RCD_TMIN+RCD_CRESC
RCD_TMAX=RCD_TMAX+RCD_CRESC
IF(RCD_TMIN<0) { RCD_TMIN=0 }
IF(RCD_TMIN>127) { RCD_TMIN=127 }
IF(RCD_TMAX<0) { RCD_TMAX=0 }
IF(RCD_TMAX>127) { RCD_TMAX=127 }
} ELSE {
VL=""
}
ML=VL+M
}
} ELSE {
IF(M="#"||M="+"||M="-") {
ML=ML+M
} ELSE {
IF(C>0) {
ML=ML+VL+M
} ELSE {
FM=FM+VL+M
}
}
}
}
BUF=BUF+"Sub"+CHR(123)+R+ML+CHR(125)+FIRST+"r"
IF(DEBUG=1 || TEST=1) {
Print(BUF)
}
}
BUF
}
Function SRCDINIT(Int MIN, Int MAX, Int VMIN, Int VMAX, Int VDIF) {
SRCD_MIN=MIN
SRCD_MAX=MAX
IF(VMIN<>0 && VMAX<>0) {
SRCD_VMIN=VMIN
SRCD_VMAX=VMAX
SRCD_CRESC=VDIF
} ELSE {
SRCD_VMIN=-1
SRCD_VMAX=-1
SRCD_CRESC=0
}
}
Function SRCDR(Int RMIN, Int RMAX) {
SRCD_RMIN=RMIN
SRCD_RMAX=RMAX
}
Function SRCDV(Int VMIN, Int VMAX) {
SRCD_CRESC=0
IF(VMAX=0) {
Int TMPMIN=SRCD_VMIN
Int TMPMAX=SRCD_VMAX
TMPMIN=TMPMIN+VMIN
TMPMAX=TMPMAX+VMIN
IF(TMPMIN < 0) {
TMPMIN=0
}
IF(TMPMIN > 127) {
TMPMAX=127
}
IF(TMPMAX < 0) {
TMPMAX=0
}
IF(TMPMAX > 127) {
TMPMAX=127
}
SRCD_VMIN=TMPMIN
SRCD_VMAX=TMPMAX
} ELSE {
SRCD_VMIN=VMIN
SRCD_VMAX=VMAX
}
}
Function SRCD(Str MML) {
Str BUF=""
Str FIRST=""
Str ML=""
Str M
Str R
Str FM
Int C=0
Str VL
SRCD_TMIN=SRCD_VMIN
SRCD_TMAX=SRCD_VMAX
IF(SRCD_ENABLE=0) {
BUF="'" + MML + "'"
} ELSE {
BUF=""
R=""
For(Int i=1; MID(MML, i, 1)!=""; i++) {
M=MID(MML, i, 1)
IF(DEBUG=1||TEST=1) {
Print("Count "+ C + " Str="+M)
}
IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
C++
IF(C<2) {
FIRST=ML
ML=FM+M
FM=""
IF(SRCD_TMIN>=0 && SRCD_TMAX>=0) {
VL="v"+Random(SRCD_TMIN, SRCD_TMAX)
SRCD_TMIN=SRCD_TMIN+SRCD_CRESC
SRCD_TMAX=SRCD_TMAX+SRCD_CRESC
IF(SRCD_TMIN<0) { SRCD_TMIN=0 }
IF(SRCD_TMIN>127) { SRCD_TMIN=127 }
IF(SRCD_TMAX<0) { SRCD_TMAX=0 }
IF(SRCD_TMAX>127) { SRCD_TMAX=127 }
} ELSE {
VL=""
}
ML=VL+ML
} ELSE {
BUF=BUF+"Sub" + CHR(123)+R+ML+CHR(125)
IF(SRCD_MAX>0) {
R=R+"r"+Random(SRCD_MIN, SRCD_MAX)
}
IF(SRCD_TMIN>=0 && SRCD_TMAX>=0) {
VL="v"+Random(SRCD_TMIN, SRCD_TMAX)
SRCD_TMIN=SRCD_TMIN+SRCD_CRESC
SRCD_TMAX=SRCD_TMAX+SRCD_CRESC
IF(SRCD_TMIN<0) { SRCD_TMIN=0 }
IF(SRCD_TMIN>127) { SRCD_TMIN=127 }
IF(SRCD_TMAX<0) { SRCD_TMAX=0 }
IF(SRCD_TMAX>127) { SRCD_TMAX=127 }
} ELSE {
VL=""
}
ML=VL+M
}
} ELSE {
IF(M="#"||M="+"||M="-") {
ML=ML+M
} ELSE {
IF(C>0) {
ML=ML+VL+M
} ELSE {
FM=FM+VL+M
}
}
}
}
BUF=BUF+"Sub"+CHR(123)+R+ML+CHR(125)+FIRST+"r"
IF(DEBUG=1 || TEST=1) {
Print(BUF)
}
}
BUF
}
Function SROCT(Str MML) {
Str BUF=""
Str FIRST=""
Str ML=""
Str M
Str R
Str FM
Int C=0
Str VL
MML=MML + ">" + MML + "<"
IF(SRCD_ENABLE=0) {
BUF="'" + MML + "'"
} ELSE {
SRCD_TMIN=SRCD_VMIN
SRCD_TMAX=SRCD_VMAX
BUF=""
R=""
For(Int i=1; MID(MML, i, 1)!=""; i++) {
M=MID(MML, i, 1)
IF(DEBUG=1||TEST=1) {
Print("Count "+ C + " Str="+M)
}
IF(M="a"||M="b"||M="c"||M="d"||M="e"||M="f"||M="g") {
C++
IF(C<2) {
FIRST=ML
ML=FM+M
FM=""
IF(SRCD_TMIN>=0 && SRCD_TMAX>=0) {
VL="v"+Random(SRCD_TMIN, SRCD_TMAX)
SRCD_TMIN=SRCD_TMIN+SRCD_CRESC
SRCD_TMAX=SRCD_TMAX+SRCD_CRESC
IF(SRCD_TMIN<0) { SRCD_TMIN=0 }
IF(SRCD_TMIN>127) { SRCD_TMIN=127 }
IF(SRCD_TMAX<0) { SRCD_TMAX=0 }
IF(SRCD_TMAX>127) { SRCD_TMAX=127 }
} ELSE {
VL=""
}
ML=VL+ML
} ELSE {
BUF=BUF+"Sub" + CHR(123)+R+ML+CHR(125)
IF(SRCD_MAX>0) {
R=R+"r"+Random(SRCD_MIN, SRCD_MAX)
}
IF(SRCD_TMIN>=0 && SRCD_TMAX>=0) {
VL="v"+Random(SRCD_TMIN, SRCD_TMAX)
SRCD_TMIN=SRCD_TMIN+SRCD_CRESC
SRCD_TMAX=SRCD_TMAX+SRCD_CRESC
IF(SRCD_TMIN<0) { SRCD_TMIN=0 }
IF(SRCD_TMIN>127) { SRCD_TMIN=127 }
IF(SRCD_TMAX<0) { SRCD_TMAX=0 }
IF(SRCD_TMAX>127) { SRCD_TMAX=127 }
} ELSE {
VL=""
}
ML=VL+M
}
} ELSE {
IF(M="#"||M="+"||M="-") {
ML=ML+M
} ELSE {
IF(C>0) {
ML=ML+VL+M
} ELSE {
FM=FM+VL+M
}
}
}
}
BUF=BUF+"Sub"+CHR(123)+R+ML+CHR(125)+FIRST+"r"
IF(DEBUG=1 || TEST=1) {
Print(BUF)
}
}
BUF
}
Function RDINIT(Int _RDVOL, Int _RANDV, Int _RANDR, Int _BDROTATE, Int _SDROTATE, Int _CYMROTATE) {
RDVOL=_RDVOL
RANDV=_RANDV
RANDR=_RANDR
BDROTATE=_BDROTATE
SDROTATE=_SDROTATE
CYMROTATE=_CYMROTATE
}
Function BassDrum(Int VO) {
Int CC
IF(BDROTATE=0) {
CC=VO
} ELSE {
IF(BDINIT=0) {
CC=BassDrum1
BDINIT=1
} ELSE {
CC=BassDrum2
BDINIT=0
}
}
Result=CC
}
Function Snare(Int VO) {
Int CC
IF(SDROTATE=0) {
CC=VO
} ELSE {
IF(SDINIT=0) {
CC=Snare1
SDINIT=1
} ELSE {
CC=Snare2
SDINIT=0
}
}
Result=CC
}
Function Cymbal(Int VO) {
Int CC
IF(CYMROTATE=0) {
CC=VO
} ELSE {
IF(CYMINIT=0) {
CC=CrashCymbal1
CYMINIT=1
} ELSE {
CC=CrashCymbal2
CYMINIT=0
}
}
Result=CC
}
Function RDV(Int V) {
RDVOL=V
}
Function RDCresc(Int V) {
RDVOL=RDVOL+V
IF(RDVOL>127) {
RDVOL=127
}
IF(RDVOL<0) {
RDVOL=0
}
}
Function _RDV(Int V) {
Int R=V
R=R-(127-RDVOL)
IF(R<0) {
R=0
}
Result=R
}
Function RandV(Int MIN, Int MAX) {
Str MML="v"
IF(RANDV=0) {
MML=MML+#STR(_RDV(MAX)
} ELSE {
MML=MML+Random(_RDV(MIN), _RDV(MAX))
}
MML
}
Str RMML
Function RandR(Int MIN, Int MAX) {
Str MML
IF(RANDR=1) {
MML=MML+"r"
RMML=RMML+"r"
Int VALUE=Random(0,10)
IF(VALUE<5) {
MML=MML+"-"
} ELSE {
RMML=RMML+"-"
}
Str RAND=Random(MIN,MAX)
MML=MML+RAND
RMML=RMML+RAND
MML
}
}
Function SyncR() {
Str MML=RMML
RMML=""
MML
}
#RDRUMSET1={
// stick
$k{Sub{RandR(800,1536) RandV(124,127) n(Sticks),16}r} //37
// Bass Drum
$B{Sub{RandR(800,1536) RandV(124,127) n(BassDrum(Kick2)),16}r}//35
$b{Sub{RandR(800,1536) RandV(124,127) n(BassDrum(Kick1)),16}r}//36
// Snare Drum
$s{Sub{RandR(800,1536) RandV(120,127) n(Snare(Snare1)),16}r}//38
$S{Sub{RandR(800,1536) RandV(120,127) n(Snare(Snare2)),16}r}//40
// Toms
$L{Sub{RandR(800,1536) RandV(123,127) n(LowTom2),16}r}//41
$l{Sub{RandR(800,1536) RandV(123,127) n(LowTom1),16}r}//43
$M{Sub{RandR(800,1536) RandV(123,127) n(MidTom2),16}r}//45
$m{Sub{RandR(800,1536) RandV(123,127) n(MidTom1),16}r}//47
$T{Sub{RandR(800,1536) RandV(123,127) n(HighTom2),16}r}//48
$t{Sub{RandR(800,1536) RandV(123,127) n(HighTom1),16}r}//50
// Hihat
$p{Sub{RandR(800,1536) RandV(110,127) n(PedalHiHat),16}r}//44
$h{Sub{RandR(800,1536) RandV( 65, 80) n(ClosedHiHat),16}r}//42
$o{Sub{RandR(800,1536) RandV( 90,110) n(OpenHiHat),16}r}//46
// Ride
$r{Sub{RandR(800,1536) RandV(100,110) n(RideCymbal1),16}r}//51
$R{Sub{RandR(800,1536) RandV(120,127) n(RideCymbal2),16}r}//59
$P{Sub{RandR(800,1536) RandV(120,127) n(RideBell),16}r}//53
// Cymbal
$c{Sub{RandR(800,1536) RandV(120,127) n(Cymbal(CrashCymbal1)),16}r}//49
$C{Sub{RandR(800,1536) RandV(120,127) n(Cymbal(CrashCymbal2)),16}r}//57
// Splash
$a{Sub{RandR(800,1536) RandV(120,127) n(SplashCymbal),16}r}//55
$A{Sub{RandR(800,1536) RandV(120,127) n(ChineseCymbal),16}r}//52
}
/*
■ rnd.h
名目上、CCライセンスは、表示-継承としましたが、
コード部がメインなのでGPLライセンスを適用して下さい
Includeフォルダに入れて使います
rnd.hとリネーム後、サクラやTWのIncludeフォルダに入れて下さい
-- 拡張子"h"が、何らかのソフトにより登録されている場合、
"rnd.h.mml"等とリネームされることがあります
この場合、フォルダオプションの"登録されている拡張子は表示しない"
のチェックを一時外し、リネームしてみて下さい --
■ 概要
メロディーラインにごくわずかな休符を＋／－につけたり、音量（ベロシティー）を
範囲内でランダムに演奏させることで、リアルな演奏感をつけるものです。
■ 基本雛型
Include(rnd.h)
TR(1)
RMDINIT(53,513,90,110)
l4 RMD(ceg)
RMDV(5)
l8 RMD(<b>fg)
RMDV(-5)
l8 RMD(ceg)
TR(2)
RCDINIT(53,513)
l4 RCD(ceg)
l8 RCD(<b>fg)
RCDINIT(53,513,90,100)
l8 RCD(ceg)
■ 関数 RMDINIT(rmin, rmax, vmin, vmax)
RMD機能の初期化を行います。
rmin : 休符の最小値 (1～System.TimeBaseの値)
rmax : 休符の最大値 (1～System.TimeBaseの値)
vmin : 音量の最小値 (0～127)
vmax : 音量の最大値 (0～127)
■ 関数 RMD(mml)
MMLを生演奏に近くなるように演奏をします。
（ストトンは使えません）
サポートしているMMLリスト
c- c c# d- d d# e- e e# f- f f# g- g g# a- a a# b- b b#
r . ^
1 2 3 4 5 6 7 8 9 0
※数値は一応サポートしていますが、長さがうまくいかない場合、
前に l8 等をつけて対応して下さい。
※和音はサポートしていません。RCD系の関数を使用して下さい。
■ 関数 RMDR(rmin, rmax)
RMD機能の休符値のみ設定します。
rmin : 休符の最小値 (1～System.TimeBaseの値)
rmax : 休符の最大値 (1～System.TimeBaseの値)
■ 関数 RMDV(vmin, vmax)
RMD機能の音量値のみ設定します。
vmin : 音量の最小値 (0～127)
vmax : 音量の最大値 (0～127)
■ 関数 RMDCresc(cresc)
ノートごとにcresc値の乱数音量値分を増量します。
マイナス値を設定すると、減量します。
cresc : 音量増減分 (-127～127)
■ 関数 RMDEnable(enabled)
RMD機能を有効にします。初期値は1です。
enabled : 1=有効、0=無効
■ 関数 RCDINIT(rmin,rmax,vmin,vmax,vdif)
RCD機能の乱数値を設定する。
rmin : 休符の最小値 (1～System.TimeBaseの値)
rmax : 休符の最大値 (1～System.TimeBaseの値)
vmin : 音量の最小値 (0～127)
vmax : 音量の最大値 (0～127)
vdif : 音量増加値（マイナスを設定すると減少値） (-127～127)
■ 関数 RCD(mml)
和音のMMLを生演奏に近くなるように演奏をします。
すでに「'～'」で囲まれているのと同等です。
（ストトンは使えません）
サポートしているMMLリスト
c- c c# d- d d# e- e e# f- f f# g- g g# a- a a# b- b b#
r . ^
1 2 3 4 5 6 7 8 9 0
※数値は一応サポートしていますが、長さがうまくいかない場合、
前に l8 等をつけて対応して下さい。
※単音はサポートしていません。RMD系の関数を使用して下さい。
■ RCOT(mml)
単音のMMLを入れると自動的に１オクターブ上の音と一緒に和音で生演奏に
近くなるように演奏をします。
（ストトンは使えません）
サポートしているMMLリスト
c- c c# d- d d# e- e e# f- f f# g- g g# a- a a# b- b b#
r . ^
1 2 3 4 5 6 7 8 9 0
※数値は一応サポートしていますが、長さがうまくいかない場合、
前に l8 等をつけて対応して下さい。
■ 関数 RCDR(rmin, rmax)
RCD機能の休符値のみ設定します。
rmin : 休符の最小値 (1～System.TimeBaseの値)
rmax : 休符の最大値 (1～System.TimeBaseの値)
■ 関数 RCDV(vmin, vmax)
RCD機能の音量値のみ設定します。
vmin : 音量の最小値 (0～127)
vmax : 音量の最大値 (0～127)
■ 関数 RCDEnable(enabled)
RCD機能を有効にします。初期値は1です。
enabled : 1=有効、0=無効
■ 関数 SRCDINIT(rmin,rmax,vmin,vmax,vdif)
RCD機能（サブ）の乱数値を設定する。
rmin : 休符の最小値 (1～System.TimeBaseの値)
rmax : 休符の最大値 (1～System.TimeBaseの値)
vmin : 音量の最小値 (0～127)
vmax : 音量の最大値 (0～127)
vdif : 音量増加値（マイナスを設定すると減少値） (-127～127)
■ 関数 SRCD(mml)
和音のMMLを生演奏に近くなるように演奏をします。
すでに「'～'」で囲まれているのと同等です。
（ストトンは使えません）
サポートしているMMLリスト
c- c c# d- d d# e- e e# f- f f# g- g g# a- a a# b- b b#
r . ^
1 2 3 4 5 6 7 8 9 0
※数値は一応サポートしていますが、長さがうまくいかない場合、
前に l8 等をつけて対応して下さい。
※単音はサポートしていません。RMD系の関数を使用して下さい。
■ SRCOT(mml)
単音のMMLを入れると自動的に１オクターブ上の音と一緒に和音で生演奏に
近くなるように演奏をします。
（ストトンは使えません）
サポートしているMMLリスト
c- c c# d- d d# e- e e# f- f f# g- g g# a- a a# b- b b#
r . ^
1 2 3 4 5 6 7 8 9 0
※数値は一応サポートしていますが、長さがうまくいかない場合、
前に l8 等をつけて対応して下さい。
■ 関数 SRCDR(rmin, rmax)
RCD機能（サブ）の休符値のみ設定します。
rmin : 休符の最小値 (1～System.TimeBaseの値)
rmax : 休符の最大値 (1～System.TimeBaseの値)
■ 関数 SRCDV(vmin, vmax)
RCD機能（サブ）の音量値のみ設定します。
vmin : 音量の最小値 (0～127)
vmax : 音量の最大値 (0～127)
■ 関数 SRCDEnable(enabled)
RCD機能（サブ）を有効にします。初期値は1です。
enabled : 1=有効、0=無効
■ RDINIT(rdvol,randv_flag,randr_flag,bdrotate,sdrotate,cymrotate)
RD機能を初期化します。
rdvol : ドラムの基本音量(0～127)
randv_flag : ランダム音量フラグ 1=有効、0=無効
randr_flag : ランダム休符フラグ 1=有効、0=無効
bdrotate : バスドラムロテートフラグ 1=有効、0=無効
sdrotate : スネアドラムロテートフラグ 1=有効、0=無効
cymrotate : シンバルロテートフラグ 1=有効、0=無効
■ RDV(vol)
RD機能の基本音量を設定します(0～127)
■ RDCresc(vol)
ノートごとに音量増をします。マイナス値を設定すると、減をします。 (0～127)
■ RandV(Int MIN, Int MAX)
ドラム定義マクロ内で使用する音量乱数範囲設定関数
MIN : 最小音量 (0～127)
MAX : 最大音量 (0～127)
■ RandR(Int MIN, Int MAX)
ドラム定義マクロ内で使用する休符乱数範囲設定関数
MIN : 休符の最小値 (1～System.TimeBaseの値)
MAX : 休符の最大値 (1～System.TimeBaseの値)
■ SyncR()
通常使用することはありませんが、ドラムの乱数休符を強制的にクリアする関数
■ #RDRUMSET1
既にRDVで定義してあるサンプルドラムセット
以下に対応します。
k : Sticks
B : Kick2 / b : Kick1
s : Snare1 / S : Snare2
L : LowTom2 / l : LowTom1
M : MidTom2 / m : MidTom2
T : HighTom2 / t : HighTom1
p : PedalHihat / h : ClosedHihat / o : OPenHihat
r : RideCymbal1 / R : RideCymbal2 / P : RideBell
c : CrashCYmbal1 / C : CrashCymbal2
a : SplashCymbal / A : ChineseCymbal
■ ドラムセットの指定方法のサンプル
$p{Sub{RandR(800,1536) RandV(110,127) n(PedalHiHat),16}r}
$h{Sub{RandR(800,1536) RandV( 65, 80) n(ClosedHiHat),16}r}
$o{Sub{RandR(800,1536) RandV( 90,110) n(OpenHiHat),16}r}
このマクロで指定することで、通常通りのドラムマクロで演奏感をつけることができます。
※ただし、ドラムノート音の長さに依存するものは、16の数字を適時変更するか、
通常の方法でマクロを指定して下さい。
■ よりリアリティーある演奏にさせるためのコツ
より細かいシステムクォンタイズ(System.TimeBase)にすることをおすすめします。
最低でも System.TimeBase=192に設定するようにしましょう。
■ 現在わかってる問題
MMLに数字を入れて長さを設定してもうまくいかないことがあります。
その場合は、事前に、l8 等を設定して、長さを設定して下さい。
*/
Function Q(Int qmin, Int qmax) {
RMDQ(qmin,qmax)
RCDQ(qmin,qmax)
SRCDQ(qmin,qmax)
}
#REV={
IF(TWM2=1) {
REV(50)
}ELSE{
REV(100)
}
}
#R={
RCDINIT(144,512)
RMDINIT(128,288,90,110)
}
#R2={
RCDINIT(36,52)
RMDINIT(144,320,90,110)
// RMDINIT(64,160,90,110)
}
#R3={
RCDINIT(256,768)
RMDINIT(256,512,90,110)
// RMDINIT(128,256,90,110)
}
#R4={
RCDINIT(56,68)
RMDINIT(144,320,90,110)
// RMDINIT(64,160,90,110)
}
Int DY=1
IF(DY=0) {
#SSP={
RMDCresc(0)
RMDV(32,32)
RCDV(32,32)
RMDAV(32,32)
RCDAV(32,32)
Sub {RMD(r96)}
}
#SP={
RMDCresc(0)
RMDV(33,36)
RCDV(33,36)
RMDAV(36,48)
RCDAV(36,48)
Sub {RMD(r96)}
}
#SPA={
RMDCresc(0)
RMDV(33,36)
RCDV(33,36)
RMDAV(48,56)
RCDAV(48,56)
Sub {RMD(r96)}
}
#PP={
RMDCresc(0)
RMDV(33,48)
RCDV(33,48)
RMDAV(48,56)
RCDAV(48,56)
Sub {RMD(r96)}
}
#PPA={
RMDCresc(0)
RMDV(33,48)
RCDV(33,48)
RMDAV(56,64)
RCDAV(56,64)
Sub {RMD(r96)}
}
#PPS={
RMDCresc(0)
RMDV(40,56)
RCDV(40,56)
RMDAV(56,64)
RCDAV(56,64)
Sub {RMD(r96)}
}
#PPSA={
RMDCresc(0)
RMDV(40,56)
RCDV(40,56)
RMDAV(64,72)
RCDAV(64,72)
Sub {RMD(r96)}
}
#P={
RMDCresc(0)
RMDV(48,64)
RCDV(48,64)
RMDAV(64,72)
RCDAV(64,72)
Sub {RMD(r96)}
}
#PA={
RMDCresc(0)
RMDV(48,64)
RCDV(48,64)
RMDAV(72,80)
RCDAV(72,80)
Sub {RMD(r96)}
}
#PS={
RMDCresc(0)
RMDV(56,72)
RCDV(56,72)
RMDAV(72,80)
RCDAV(72,80)
Sub {RMD(r96)}
}
#PSA={
RMDCresc(0)
RMDV(56,72)
RCDV(56,72)
RMDAV(80,88)
RCDAV(80,88)
Sub {RMD(r96)}
}
#M={
RMDCresc(0)
RMDV(64,80)
RCDV(64,80)
RMDAV(80,88)
RCDAV(80,88)
Sub {RMD(r96)}
}
#MA={
RMDCresc(0)
RMDV(64,80)
RCDV(64,80)
RMDAV(88,96)
RCDAV(88,96)
Sub {RMD(r96)}
}
#MS={
RMDCresc(0)
RMDV(72,88)
RCDV(72,88)
RMDAV(88,96)
RCDAV(88,96)
Sub {RMD(r96)}
}
#MSA={
RMDCresc(0)
RMDV(72,88)
RCDV(72,88)
RMDAV(96,104)
RCDAV(96,104)
Sub {RMD(r96)}
}
#F={
RMDCresc(0)
RMDV(80,96)
RCDV(80,96)
RMDAV(96,104)
RCDAV(96,104)
Sub {RMD(r96)}
}
#FA={
RMDCresc(0)
RMDV(80,96)
RCDV(80,96)
RMDAV(104,112)
RCDAV(104,112)
Sub {RMD(r96)}
}
#FS={
RMDCresc(0)
RMDV(88,104)
RCDV(88,104)
RMDAV(104,112)
RCDAV(104,112)
Sub {RMD(r96)}
}
#FSA={
RMDCresc(0)
RMDV(88,104)
RCDV(88,104)
RMDAV(112,120)
RCDAV(112,120)
Sub {RMD(r96)}
}
#FF={
RMDCresc(0)
RMDV(96,112)
RCDV(96,112)
RMDAV(112,120)
RCDAV(112,120)
Sub {RMD(r96)}
}
#FFA={
RMDCresc(0)
RMDV(96,112)
RCDV(96,112)
RMDAV(120,127)
RCDAV(120,127)
Sub {RMD(r96)}
}
#FFS={
RMDCresc(0)
RMDV(104,120)
RCDV(104,120)
RMDAV(120,127)
RCDAV(120,127)
Sub {RMD(r96)}
}
#FFSA={
RMDCresc(0)
RMDV(104,120)
RCDV(104,120)
RMDAV(127,127)
RCDAV(127,127)
Sub {RMD(r96)}
}
#SF={
RMDCresc(0)
RMDV(112,127)
RCDV(112,127)
RMDAV(127,127)
RCDAV(127,127)
Sub {RMD(r96)}
}
#SFA={
RMDCresc(0)
RMDV(112,127)
RCDV(112,127)
RMDAV(127,127)
RCDAV(127,127)
Sub {RMD(r96)}
}
#SSF={
RMDCresc(0)
RMDV(127,127)
RCDV(127,127)
RMDAV(127,127)
RCDAV(127,127)
Sub {RMD(r96)}
}
#SSFA={
RMDCresc(0)
RMDV(127,127)
RCDV(127,127)
RMDAV(127,127)
RCDAV(127,127)
Sub {RMD(r96)}
}
} ELSE {
#SSP={
RMDCresc(0)
RMDV(32,36)
RCDV(32,36)
RMDAV(36,52)
RCDAV(36,52)
Sub {RMD(r96)}
}
#SP={
RMDCresc(0)
RMDV(36,52)
RCDV(36,52)
RMDAV(52,64)
RCDAV(52,64)
Sub {RMD(r96)}
}
#SPR={
RMDCresc(0)
RMDV(32,52)
RCDV(32,52)
RMDAV(52,64)
RCDAV(52,64)
Sub {RMD(r96)}
}
#SPA={
RMDCresc(0)
RMDV(36,52)
RCDV(36,52)
RMDAV(64,72)
RCDAV(64,72)
Sub {RMD(r96)}
}
#PP={
RMDCresc(0)
RMDV(52,64)
RCDV(52,64)
RMDAV(64,72)
RCDAV(64,72)
Sub {RMD(r96)}
}
#PPR={
RMDCresc(0)
RMDV(32,64)
RCDV(32,64)
RMDAV(56,72)
RCDAV(56,72)
Sub {RMD(r96)}
}
#PPA={
RMDCresc(0)
RMDV(52,64)
RCDV(52,64)
RMDAV(72,80)
RCDAV(72,80)
Sub {RMD(r96)}
}
#PPAR={
RMDCresc(0)
RMDV(32,64)
RCDV(32,64)
RMDAV(56,72)
RCDAV(56,72)
Sub {RMD(r96)}
}
#PPS={
RMDCresc(0)
RMDV(56,72)
RCDV(56,72)
RMDAV(72,80)
RCDAV(72,80)
Sub {RMD(r96)}
}
#PPSR={
RMDCresc(0)
RMDV(32,72)
RCDV(32,72)
RMDAV(64,80)
RCDAV(64,80)
Sub {RMD(r96)}
}
#PPSA={
RMDCresc(0)
RMDV(56,72)
RCDV(56,72)
RMDAV(80,84)
RCDAV(80,84)
Sub {RMD(r96)}
}
#P={
RMDCresc(0)
RMDV(64,80)
RCDV(64,80)
RMDAV(80,84)
RCDAV(80,84)
Sub {RMD(r96)}
}
#PR={
RMDCresc(0)
RMDV(48,80)
RCDV(48,80)
RMDAV(64,84)
RCDAV(64,84)
Sub {RMD(r96)}
}
#PA={
RMDCresc(0)
RMDV(64,80)
RCDV(64,80)
RMDAV(84,92)
RCDAV(84,92)
Sub {RMD(r96)}
}
#PAR={
RMDCresc(0)
RMDV(48,80)
RCDV(48,80)
RMDAV(84,92)
RCDAV(84,92)
Sub {RMD(r96)}
}
#PS={
RMDCresc(0)
RMDV(72,84)
RCDV(72,84)
RMDAV(84,92)
RCDAV(84,92)
Sub {RMD(r96)}
}
#PSR={
RMDCresc(0)
RMDV(52,84)
RCDV(52,84)
RMDAV(72,92)
RCDAV(72,92)
Sub {RMD(r96)}
}
#PSA={
RMDCresc(0)
RMDV(72,84)
RCDV(72,84)
RMDAV(92,96)
RCDAV(92,96)
Sub {RMD(r96)}
}
#M={
RMDCresc(0)
RMDV(80,92)
RCDV(80,92)
RMDAV(92,96)
RCDAV(92,96)
Sub {RMD(r96)}
}
#MR={
RMDCresc(0)
RMDV(64,92)
RCDV(64,92)
RMDAV(80,96)
RCDAV(80,96)
Sub {RMD(r96)}
}
#MA={
RMDCresc(0)
RMDV(80,92)
RCDV(80,92)
RMDAV(96,108)
RCDAV(96,108)
Sub {RMD(r96)}
}
#MS={
RMDCresc(0)
RMDV(84,96)
RCDV(84,96)
RMDAV(96,108)
RCDAV(96,108)
Sub {RMD(r96)}
}
#MSR={
RMDCresc(0)
RMDV(68,96)
RCDV(68,96)
RMDAV(84,108)
RCDAV(84,108)
Sub {RMD(r96)}
}
#MSA={
RMDCresc(0)
RMDV(84,96)
RCDV(84,96)
RMDAV(108,112)
RCDAV(108,112)
Sub {RMD(r96)}
}
#F={
RMDCresc(0)
RMDV(92,108)
RCDV(92,108)
RMDAV(108,112)
RCDAV(108,112)
Sub {RMD(r96)}
}
#FR={
RMDCresc(0)
RMDV(72,108)
RCDV(72,108)
RMDAV(92,112)
RCDAV(92,112)
Sub {RMD(r96)}
}
#FRR={
RMDCresc(0)
RMDV(72,108)
RCDV(64,108)
RMDAV(92,112)
RCDAV(92,112)
Sub {RMD(r96)}
}
#FA={
RMDCresc(0)
RMDV(92,108)
RCDV(92,108)
RMDAV(112,120)
RCDAV(112,120)
Sub {RMD(r96)}
}
#FS={
RMDCresc(0)
RMDV(96,112)
RCDV(96,112)
RMDAV(112,120)
RCDAV(112,120)
Sub {RMD(r96)}
}
#FSR={
RMDCresc(0)
RMDV(80,112)
RCDV(80,112)
RMDAV(96,120)
RCDAV(96,120)
Sub {RMD(r96)}
}
#FSA={
RMDCresc(0)
RMDV(96,112)
RCDV(96,112)
RMDAV(120,124)
RCDAV(120,124)
Sub {RMD(r96)}
}
#FF={
RMDCresc(0)
RMDV(108,120)
RCDV(108,120)
RMDAV(120,124)
RCDAV(120,124)
Sub {RMD(r96)}
}
#FFR={
RMDCresc(0)
RMDV(92,120)
RCDV(92,120)
RMDAV(108,124)
RCDAV(108,124)
Sub {RMD(r96)}
}
#FFA={
RMDCresc(0)
RMDV(108,120)
RCDV(108,120)
RMDAV(124,127)
RCDAV(124,127)
Sub {RMD(r96)}
}
#FFS={
RMDCresc(0)
RMDV(112,124)
RCDV(112,124)
RMDAV(124,127)
RCDAV(124,127)
Sub {RMD(r96)}
}
#FFSR={
RMDCresc(0)
RMDV(112,124)
RCDV(112,124)
RMDAV(112,127)
RCDAV(112,127)
Sub {RMD(r96)}
}
#FFSA={
RMDCresc(0)
RMDV(112,124)
RCDV(112,124)
RCDAV(127,127)
RMDAV(127,127)
Sub {RMD(r96)}
}
#SF={
RMDCresc(0)
RMDV(120,127)
RCDV(120,127)
RMDAV(127,127)
RCDAV(127,127)
Sub {RMD(r96)}
}
#SFR={
RMDCresc(0)
RMDV(116,127)
RCDV(116,127)
RMDAV(120,127)
RCDAV(120,127)
Sub {RMD(r96)}
}
#SSF={
RMDCresc(0)
RMDV(127,127)
RCDV(127,127)
RMDAV(127,127)
RCDAV(127,127)
Sub {RMD(r96)}
}
#SSFR={
RMDCresc(0)
RMDV(127,127)
RCDV(127,127)
RMDAV(127,127)
RCDAV(127,127)
Sub {RMD(r96)}
}
}
Key(KEY)
TR(1)
#REV
TR(2)
#REV
TR(3)
#REV
TR(4)
#REV
曲名={"あなたが欲しい Je te veux(打ち込み版)"}
作者={"ななこっち★ based by Eric Alfred Leslie Satie"}
拍子 3,4
#PEDALON={Sub {r384 y64,127}}
#PEDALOFF={Sub{r-48 RandR(53,80) y64,0}}
#PEDALOFF2={Sub{r-96 RandR(112,256) y64,0}}
#PEDALOFF3={Sub{r-64 RandR(70,80) y64,0}}
#PEDALOFF4={Sub{r-32 RandR(36,64) y64,0}}
////////////////////////////
// MML
#Q0={
Q(15,20)
}
#Q1={
Q(40,45)
}
#Q2={
Q(50,55)
}
#Q3={
Q(60,65)
}
#Q4={
Q(70,75)
}
#Q5={
Q(95,97)
}
#PART1_16={
TmpChangeR(150)TmpChangeR(120,!2.)
TmpChangeR(120)r2.
TmpChangeR(120)TmpChangeR(80,!4.)r4.
TmpChangeR(70)r2.
TmpChangeR(40)r4
TmpChangeR(80)TmpChangeR(100,!2)
}
#PEDAL1={
Sub{
#PEDALON r2. #PEDALOFF
#PEDALON r2. #PEDALOFF
#PEDALON r2. #PEDALOFF
#PEDALON r2. #PEDALOFF
r4 #PEDALON r4r4 #PEDALOFF
}
}
#PART1_1={
o5 l4 #R #P #Q5 #PEDAL1
r4RMD(e4g4)
l2.RCD(<a>d)
#PS <Sub{RMD(a2)}>Sub{r32RMD(c2)}Sub{r32r32RMD(e2)}Sub{r32r32r32RMD(a2)} r2 #P l4 RCD(<e>e)
<l2.Sub{RMD(g2.^4)}Sub{r32RMD(b2.)}Sub{r32r32>RMD(e2.)}Sub{r32r32r32RMD(g2.^4)}r2.
l4 #SP RCD(<b>d)
o4 l4 #R #M #Q5 RMD(eg)
}
#PART1_2={
[4 r2.]
r4r2
}
#PART1_3={
o3 l2. #R #P #Q5 #PEDAL1
r2.
RCD(g>f<)
RCD(g>e<)
Sub{l1RCD(g>f<)}r2.
#Q3 RMD(<g4>)r2
}
#PART2_16={
TmpChangeR(150)TmpChangeR(180,!2.^2.^2.^2.)
TmpChangeR(185,!2.^2.)TmpChangeR(175,!2.)TmpChangeR(160,!2.)
TmpChangeR(170)TmpChangeR(190,!2.^2.^2.^2.)
TmpChangeR(200,!2.^2.)TmpChangeR(185,!2.)TmpChangeR(125,!2.)
TmpChangeR(150)TmpChangeR(200,!2.^2.^2.^2.)
TmpChangeR(210,!2.^2.)TmpChangeR(185,!2.)TmpChangeR(165,!2.)
TmpChangeR(210,!2.^2.^2.)TmpChangeR(150,!2.)
TmpChangeR(175,!2.^2.)TmpChangeR(140,!2.^2.)
}
#PEDAL2={
Sub{
#PEDALON r2.r2.#PEDALOFF
#PEDALON r2.r2.#PEDALOFF
#PEDALON r2.r2.#PEDALOFF
#PEDALON r4 #PEDALOFF r2 #PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2 #PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2 #PEDALON r2. #PEDALOFF
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
}
}
#PART2_1={
o5 l4 #R #M #Q5 #PEDAL2
RMDCresc(2)RMD(d2.)
RMD(c2e)
<RMD(b2.)
RMD(a2.)
RMDCresc(-2)RMD(b2.)
RMD(a2e)
RMD(b1)
RMDCresc(7)RMD(de)
RMD(g1)
#M RMDCresc(3)RMD(de)
RMD(a1)
#M RMDCresc(2)RMD(de)
RMD(g2f2
g2)
#Q1 l2.ROCT(e)
l4ROCT(d)ROCT(e)ROCT(g)
>l2.ROCT(d)
l2ROCT(c)l4ROCT(e)<
l2.ROCT(b)
ROCT(a)
ROCT(b)
l2ROCT(a)l4ROCT(g)
l2.ROCT(a)
>l4RMD(dfg)
<ROCT(a)RCDV(2)ROCT(b)RCDV(2)>ROCT(c)RCDV(2)
ROCT(d)RCDV(2)ROCT(e)RCDV(2)ROCT(f)RCDV(2)
ROCT(g)RCDV(-1)ROCT(e)RCDV(-1)ROCT(c)RCDV(-1)
<ROCT(a)RCDV(-1)>ROCT(c)RCDV(-1)ROCT(e)RCDV(-1)
l2<ROCT(g)RCDV(-1)l4ROCT(f)RCDV(-1)
ROCT(e)l2RCDV(2)ROCT(d)
RCDV(2)l1ROCT(c)
r4r4
}
#PART2_2={
o5 l4 #R #PP #Q0 #PEDAL2
r[RCD(eg)]
rRCD(eg)r
r[RCD(eg)]
r[RCD(eg)]
r[RCD(eg)]
rRCD(eg)r
r[RCD(fg)]
r2.
r[RCD(<b>f)]
r2.
r[RCD(<b>f)]
r2.
rRCD(<b>f)r
rrRCD(<b>f)
r[RCDV(-2)RCD(<g>c)]
r2.
#PP r[RCD(eg)]
rRCD(eg)r
r[RCD(eg)]
r[RCD(eg)]
r[RCD(eg)]
rRCD(eg)r
r[RCDV(-2)RCD(cf)]
r2.
#PP o4 r#Q5 RCD(fa)#Q0 RCD(eg)
o4 r#Q5 RCD(gb)#Q0 RCD(a>c<)
o4 r#Q5 RCD(g>c<)#Q0 RMD(a)
rSub{RMD(f#2)}#Q5 RMD(a)#Q0 RMD(>c<)
ro5RCD(ce)r
rr<RCD(fb)
r #MS RMDCresc(-2)#Q4 o5RMD(de)
RMD(f#b>c)
}
#PART2_3={
o3 l4 #R #P #Q3 #PEDAL2
ROCT(c)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr
ROCT(a)rr
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
RMD(d)rr
RMD(f)rr<
ROCT(g)rr
ROCT(f)rr
ROCT(e)rr
ROCT(f#)rr
ROCT(g)rROCT(a)
ROCT(f)ROCT(g)r
ROCT(c)rr
ROCT(d)rROCT(e)
}
#PART3_16={
TmpChangeR(170,!2.)TmpChangeR(200,!2.^2.)TmpChangeR(170,!2.)
TmpChangeR(170)TmpChangeR(220,!2.)TmpChangeR(190,!2.)TmpChangeR(180)TmpChangeR(190,!2.)TmpChangeR(170)TmpChangeR(160,!2.)
TmpChangeR(170,!2.)TmpChangeR(200,!2.^2.)TmpChangeR(170,!2.)
TmpChangeR(170)TmpChangeR(200,!2.)TmpChangeR(170,!2.)TmpChangeR(180)TmpChangeR(190,!2.)TmpChangeR(150)TmpChangeR(130,!2.)
TmpChangeR(170,!2.)TmpChangeR(200,!2.^2.)TmpChangeR(170,!2.)
TmpChangeR(170)TmpChangeR(220,!2.)TmpChangeR(190,!2.)TmpChangeR(180)TmpChangeR(190,!2.)TmpChangeR(170)TmpChangeR(140,!2.)
TmpChangeR(170,!2.)TmpChangeR(200,!2.^2.)TmpChangeR(170,!2.)
TmpChangeR(170)TmpChangeR(180,!2.)TmpChangeR(140,!2.)TmpChangeR(150)TmpChangeR(60,!2.)TmpChangeR(15,!4)
}
#PEDAL3={
Sub{
[3
#PEDALON r4 #PEDALOFF r2
#PEDALON r4 #PEDALOFF r2
#PEDALON r4 #PEDALOFF r2
#PEDALON r4 r2 #PEDALOFF
#PEDALON r2.
r2. #PEDALOFF
#PEDALON r2.#PEDALOFF
#PEDALON r2.#PEDALOFF
]
#PEDALON r4 #PEDALOFF r2
#PEDALON r4 #PEDALOFF r2
#PEDALON r4 #PEDALOFF r2
#PEDALON r4 r2 #PEDALOFF
#PEDALON r2.#PEDALOFF
#PEDALON r2.#PEDALOFF
#PEDALON r2.#PEDALOFF
#PEDALON r4 #PEDALOFF
}
}
#PART3_1={
o5 l4 #R #M #Q5 #PEDAL3
RMDCresc(2)RMD(e1)
RMD(ef#)
RMDCresc(-2)RMD(d1)
RMD(f#g)
Sub{
l2[3 ROCT(d)RCDV(5)]
}r4 #P l2RCD(f#>c<)l2RCD(f#>c<)l4RCD(f#>c<) #M
l2.ROCT(e)
l4ROCT(d)<ROCT(b)>ROCT(c)
RMDCresc(2)RMD(e1)
RMD(ef#)
RMDCresc(-2)RMD(d1)
<ROCT(b)ROCT(g)
Sub{
l2[3 ROCT(f#)RCDV(5)]
}r4 #P l2RCD(a#>e<)l2RCD(a#>e<)l4RCD(a#>e<) #M
l2.ROCT(b)
>Sub{l2ROCT(d)}Sub{#P r4RCD(eg)}#M l4r4<ROCT(b)>ROCT(c)
<l1ROCT(e)
l4ROCT(e)ROCT(f#)
l1ROCT(d)
l4ROCT(f#)ROCT(g)>
Sub{
l2[3 ROCT(d)RCDV(6)]
}r4 #P l2RCD(f#>c<)l2RCD(f#>c<)l4RCD(f#>c<) #MS
l2.ROCT(f#)
l4ROCT(e)ROCT(d)<ROCT(b)
l1ROCT(e)
l4ROCT(e)ROCT(f#)
l1ROCT(d)
l4ROCT(g)ROCT(f#)
ROCT(e)ROCT(g)>ROCT(c)
l2.ROCT(d)
l2.^8ROCT(g)
r8
}
#PART3_2={
o4 l4 #R #PP #Q0 #PEDAL3
r4[RCD(f#>c<)]
r2.
r4[RCD(gb)]
r2.
[r4#Q5 l2RCD(f#>c<)] #Q0
//
r4l2RCD(gb)
r2.
r4[l4RCD(f#>c<)]
r2.
r4[RCD(gb)]
r2.
r2.
r2.
r2.
r2.
r4[RCD(f#>c<)]
r2.
r4[RCD(gb)]
r2.
[r4#Q5 l2RCD(f#>c<)]#Q0
//
r4l2RCD(gb)
r2.
r4l4[RCD(f#>c<)]
r2.
r4[RCD(gb)]
r2.
l2.#Q5 RCD(g>c<)
Sub{r4l2RCD(a->c<)}>#Q0 r4[l4RCD(f#>c<)]<
#Q3 #P Sub{r4l4RCD(a>c<)RCD(gb)}r4>RCD(f>d<)ROCT(e)<
#R2 Sub{r36l8RCD(fb>f>d)}r8r8
}
#PART3_3={
o3 l4 #R #PP #Q5 #PEDAL3
RMD(a)rr
RMD(d)rr
RMD(g)rr
RMD(d)rr<
ROCT(a)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(d)rr
RMD(a)rr
RMD(d)rr
RMD(g)rr
RMD(d)rr<
ROCT(f#)rr>
ROCT(c#)rr
ROCT(d)rr
ROCT(c)r<ROCT(b)
ROCT(a)rr
ROCT(d)rr
ROCT(g)rr
ROCT(d)rr
ROCT(a)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(a)rr
ROCT(d)rr
ROCT(g)rr
ROCT(d)rr
ROCT(a)rr
ROCT(a-)rr>
RMD(g2.)
#Q3 RMD(g8)r8
}
#PART4_16={
TmpChangeR(70)TmpChangeR(100,!2)
TmpChangeR(150)TmpChangeR(180,!2.^2.^2.^2.)
TmpChangeR(185,!2.^2.)TmpChangeR(175,!2.)TmpChangeR(160,!2.)
TmpChangeR(170)TmpChangeR(190,!2.^2.^2.^2.)
TmpChangeR(200,!2.^2.)TmpChangeR(185,!2.)TmpChangeR(125,!2.)
TmpChangeR(150)TmpChangeR(200,!2.^2.^2.^2.)
TmpChangeR(210,!2.^2.)TmpChangeR(185,!2.)TmpChangeR(165,!2.)
TmpChangeR(210,!2.^2.^2.)TmpChangeR(150,!2.)
TmpChangeR(175,!2.^2.)TmpChangeR(170,!2.)TmpChangeR(200,!2.)
}
#PEDAL4={
Sub{
#PEDALON r4r4 #PEDALOFF
#PEDALON r2.r2.#PEDALOFF
#PEDALON r2.r2.#PEDALOFF
#PEDALON r2.r2.#PEDALOFF
#PEDALON r4 #PEDALOFF r2 #PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2 #PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2 #PEDALON r2. #PEDALOFF
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r4 #PEDALOFF]
}
}
#PART4_1={
o4 l4 #R #M #Q5 #PEDAL4
RMD(eg)
>RMD(d2.)
RMD(c2e)
<RMD(b2.)
RMD(a2.)
RMD(b2.)
RMD(a2e)
RMD(b1)
RMDCresc(7)RMD(de)
RMD(g1)
#M RMDCresc(3)RMD(de)
RMD(a1)
#M RMDCresc(2)RMD(de)
RMD(g2f2
g2)
#Q1 l2.ROCT(e)
#F l4ROCT(d)ROCT(e)ROCT(g)
>l2.ROCT(d)
l2ROCT(c)l4ROCT(e)<
l2.ROCT(b)
ROCT(a)
ROCT(b)
l2ROCT(a)l4ROCT(g)
l2.ROCT(a)
>l4RMD(dfg)
<ROCT(a)RCDV(2)ROCT(b)RCDV(2)>ROCT(c)RCDV(2)
ROCT(d)RCDV(2)ROCT(e)RCDV(2)ROCT(f)RCDV(2)
ROCT(g)RCDV(-1)ROCT(e)RCDV(-1)ROCT(c)RCDV(-1)
<ROCT(a)RCDV(-1)>ROCT(c)RCDV(-1)ROCT(e)RCDV(-1)
l2<ROCT(g)RCDV(-1)l4ROCT(f)RCDV(-1)
ROCT(e)l2RCDV(2)ROCT(d)
RCDV(2)l2.ROCT(c)
#MS #Q5 RMDCresc(10)l8o5RMD(cdefga)
}
#PART4_2={
o5 l4 #R #PP #Q0 #PEDAL4
r4r4
r[RCD(eg)]
rRCD(eg)r
r[RCD(eg)]
r[RCD(eg)]
r[RCD(eg)]
rRCD(eg)r
r[RCD(fg)]
r2.
r[RCD(<b>f)]
r2.
r[RCD(<b>f)]
r2.
rRCD(<b>f)r
rrRCD(<b>f)
r[RCDV(-2)RCD(<g>c)]
r2.
#PP r[RCD(eg)]
rRCD(eg)r
r[RCD(eg)]
r[RCD(eg)]
r[RCD(eg)]
rRCD(eg)r
r[RCDV(-2)RCD(cf)]
r2.
#PP o4 r#Q5 RCD(fa)#Q0 RCD(eg)
o4 r#Q5 RCD(gb)#Q0 RCD(a>c<)
o4 r#Q5 RCD(g>c<)#Q0 RMD(a)
rSub{RMD(f#2)}#Q5 RMD(a)#Q0 RMD(>c<)
ro5RCD(ce)r
rr<RCD(fb)
r[RCD(eg)]
r2.
}
#PART4_3={
o3 l4 #R #P #Q3 #PEDAL4
r4r4
ROCT(c)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr
ROCT(a)rr
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
RMD(d)rr
RMD(f)rr<
ROCT(g)rr
ROCT(f)rr
ROCT(e)rr
ROCT(f#)rr
ROCT(g)rROCT(a)
ROCT(f)ROCT(g)r
ROCT(c)rr
r2.
}
#PART5_16={
TmpChangeR(170)TmpChangeR(210,!2.^2.^2.)TmpChangeR(200,!2.)
TmpChangeR(180,!2.^2.^2.^2.)
TmpChangeR(180)TmpChangeR(210,!2.^2.^2.)TmpChangeR(200,!2.)
TmpChangeR(180,!2.^2.^2.)TmpChangeR(140,!2.)
TmpChangeR(175)TmpChangeR(200,!2.^2.^2.)TmpChangeR(190,!2.)
TmpChangeR(170,!2.^2.^2.^2.)
TmpChangeR(170)TmpChangeR(200,!2.^2.^2.)TmpChangeR(190,!2.)
TmpChangeR(170,!2.^2.^2.)TmpChangeR(60,!2.)
}
#PEDAL5={
Sub{
#PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2
#PEDALON r2. #PEDALOFF
#PEDALON r2. #PEDALOFF
[4 #PEDALON r2. #PEDALOFF]
#PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2
#PEDALON r2. #PEDALOFF
#PEDALON r2. #PEDALOFF
[3 #PEDALON r2. #PEDALOFF]
#PEDALON r4 #PEDALOFF r2
#PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2
#PEDALON r2. #PEDALOFF
#PEDALON r2. #PEDALOFF
[4 #PEDALON r2. #PEDALOFF]
#PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2
#PEDALON r2. #PEDALOFF
#PEDALON r2. #PEDALOFF
[3 #PEDALON r2. #PEDALOFF]
#PEDALON r2 #PEDALOFF
}
}
#PART5_1={
o5 l4 #R #FFSR #Q4 #PEDAL5
[
#Q4 l4^8.RCD(eb->!d<)RCDV(-5)l16RCD(eb->!d<)RCDV(-5)l4RCD(eb->!d<)RCDV(10)
r4 RMD(g4^8.e16)
l4^8.RCD(da>!c<)RCDV(-5)l16RCD(d-a>!c<)RCDV(-5)l4RCD(ca>!c<)RCDV(10)
r4 RMD(f4^8.d16)
RMDCresc(-20)RMD(b-2)RMDCresc(25)RMD(b-2)
RMDCresc(-20)RMD(b-4^8.)RMDCresc(25)RMD(b-16)
RMDCresc(-5)RMD(a4^8.g16f4^8.)
RMD(d16c8r8)RMDCresc(0) RMD(e8g8)
l4^8.RCD(eb->!d<)RCDV(-3)l16RCD(eb->!d<)RCDV(-3)l4RCD(eb->!d<)RCDV(6)
r4 RMD(g4^8.e16)
l4^8.RCD(da>!c<)RCDV(-3)l16RCD(d-a>!c<)RCDV(-3)l4RCD(ca>!c<)RCDV(6)
r4 RMD(f4^8.d16)
RMDCresc(4)l4RMD(b-ab-)
RMD(agb-)
RMDCresc(-7)RMD(a2g)
:
RMD(f8r8)#PS #Q5 RMD(e8f8g8a8)
]
RMD(f4^8.)#SF l16ROCT(f)#Q3 l4ROCT(f)
}
#PART5_2={
o4 l4 #R #M #Q4 #PEDAL5
[
r4l2RCD(b->c<)
r2.
r4l2RCD(a>c<)
r2.
r4l2RCD(>d-e<)
r4l2RCD(>ce<)
r4l2RCD(a>c<)
r2.
r4l2RCD(b->c<)
r2.
r4l2RCD(a>c<)
r2.
l4rRCD(>d-f<)r
r[RCD(>df<)]
rl2RCD(b->e<)
r2.
#PP
]
}
#PART5_3={
o3 l4 #R #F #Q4 #PEDAL5
[
o3l2.ROCT(g)
l4ROCT(c)rr
l2.ROCT(f)
l4ROCT(c)rr
>RMD(g-2.)
RMD(g2.)
RMD(f2.)
<l4ROCT(c)rr
l2.ROCT(g)
l4ROCT(c)rr
l2.ROCT(f)
l4ROCT(c)rr
>RMD(d-4)rr
RMD(c4)rr
RMD(c4)rr
:
<<l8ROCT(f)r8l4rr
#PS
]
<<l4^8.ROCT(f)#F l16ROCT(f)#Q3 l4ROCT(f)
}
#PART6_16={
TmpChangeR(170)TmpChangeR(220,!2.^2.)r2.r2.
TmpChangeR(220)TmpChangeR(200,!2.^2.)TmpChangeR(200)TmpChangeR(220,!2.^2.)
TmpChangeR(190)TmpChangeR(220,!2.^2.)r2.r2.
TmpChangeR(220)TmpChangeR(200,!2.^2.)TmpChangeR(190)TmpChangeR(220,!2.^2.)
TmpChangeR(190)TmpChangeR(220,!2.^2.)r2.r2.
TmpChangeR(220)TmpChangeR(200,!2.^2.)TmpChangeR(200)TmpChangeR(220,!2.^2.)
TmpChangeR(190)TmpChangeR(220,!2.^2.)r2.r2.
TmpChangeR(220)TmpChangeR(200,!2.^2.)TmpChangeR(190)TmpChangeR(210,!2.^2.)
}
#PEDAL6={
Sub{
[31 #PEDALON r2. #PEDALOFF]
#PEDALON r2 #PEDALOFF #PEDALON r4 #PEDALOFF
}
}
#PART6_1={
o4 l4 #R #MS #Q4 #PEDAL6
RMDCresc(2)RMD(f2g2
a2
b-2>c2
d2)
RMDCresc(-2)RMD(fe-d)
RMD(c<ga)
l2.^2ROCT(f)
r4
#MS RMDCresc(2)RMD(f2g2
a2
b-2>c2
d2)
RMDCresc(-2)RMD(b-2a4)
RMD(g2a4)
RMD(g2.)
RMD(f2)r4<
#MS RMDCresc(2)RMD(f2g2
a2
b-2>c2
d2)
RMDCresc(-2)RMD(f2e-4)
RMD(c4<g4a4)
l2.^2ROCT(f)
r4
#MS RMDCresc(3)RMD(f2g2
a2
b-2>c2
d2)
RMD(g2b-4)
RMD(a2)#F l4ROCT(d)<
l2.^2ROCT(b-)r4
}
#PART6_2={
o4 l4 #R #PP #Q1 #PEDAL6
rRCD(b->d<)r
rrRCD(b->d<)
rRCD(>df<)r
rrRCD(b->f<)
rRCD(a>e-<)r
r2.
r[RCD(a>e-<)]
r[RCD(a>e-<)]
rRCD(b->d<)r
rrRCD(b->d<)
rRCD(>df<)r
rrRCD(b->f<)
rRCD(b->e-g<)r
rRCD(b->e-<)r
r[RCD(b->e-<)]
r[RCD(a>e-<)]
rRCD(b->d<)r
rrRCD(b->d<)
rRCD(>df<)r
rrRCD(b->f<)
rRCD(a>e-<)r
r2.
r[RCD(a>e-<)]
r[RCD(a>e-<)]
rRCD(b->d<)r
rrRCD(b->d<)
rRCD(>df<)r
rrRCD(b->f<)
rRCD(b->c<)r
rRCD(a>e-<)r
r[RCD(>df<)]>
#MS #Q5 RMDCresc(10)l8o5RMD(cdefga)
}
#PART6_3={
o3 l4 #R #P #Q2 #PEDAL6
[4
o3RMD(b-2.)
RMD(f)rr
RMD(b-2.)
RMD(f)rr
:
RMD(>c2.<)
RMD(f)rr
l2.ROCT(c)<
l4ROCT(f)rr
]
o2l4ROCT(e-)rr
ROCT(f)rr
ROCT(b-)rr
#Q5 l2ROCT(b-)l4ROCT(a)
}
#PART7_16={
TmpChangeR(170)TmpChangeR(215,!2.^2.^2.)TmpChangeR(180,!2.)
TmpChangeR(160,!2.^2.^2.^2.)
TmpChangeR(170)TmpChangeR(205,!2.^2.^2.)TmpChangeR(180,!2.)
TmpChangeR(160,!2.^2.)TmpChangeR(80,!2.)TmpChangeR(70,!2.)
}
#PEDAL7={
Sub{
#PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2
#PEDALON r2. #PEDALOFF
#PEDALON r2. #PEDALOFF
[4 #PEDALON r2. #PEDALOFF]
#PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2
#PEDALON r2. #PEDALOFF
#PEDALON r2. #PEDALOFF
[3 #PEDALON r2. #PEDALOFF]
r4#PEDALON r2 #PEDALOFF
}
}
#PART7_1={
o5 l4 #R #FFSR #Q4 #PEDAL7
#Q4 l4^8.RCD(eb->!d<)RCDV(-5)l16RCD(eb->!d<)RCDV(-5)l4RCD(eb->!d<)RCDV(10)
r4 RMD(g4^8.e16)
l4^8.RCD(da>!c<)RCDV(-5)l16RCD(d-a>!c<)RCDV(-5)l4RCD(ca>!c<)RCDV(10)
r4 RMD(f4^8.d16)
RMDCresc(-20)RMD(b-2)RMDCresc(25)RMD(b-2)
RMDCresc(-20)RMD(b-4^8.)RMDCresc(25)RMD(b-16)
RMDCresc(-5)RMD(a4^8.g16f4^8.)
RMD(d16c8r8)RMDCresc(0) RMD(e8g8)
l4^8.RCD(eb->!d<)RCDV(-3)l16RCD(eb->!d<)RCDV(-3)l4RCD(eb->!d<)RCDV(6)
r4 RMD(g4^8.e16)
l4^8.RCD(da>!c<)RCDV(-3)l16RCD(d-a>!c<)RCDV(-3)l4RCD(ca>!c<)RCDV(6)
r4 RMD(f4^8.d16)
RMDCresc(4)l4RMD(b-ab-)
RMD(agb-)
RMDCresc(-7)RMD(a2g)
RMD(f4)<l4#M #Q5 ROCT(e)ROCT(g)
}
#PART7_2={
o4 l4 #R #M #Q4 #PEDAL7
r4l2RCD(b->c<)
r2.
r4l2RCD(a>c<)
r2.
r4l2RCD(>d-e<)
r4l2RCD(>ce<)
r4l2RCD(a>c<)
r2.
r4l2RCD(b->c<)
r2.
r4l2RCD(a>c<)
r2.
l4rRCD(>d-f<)r
r[RCD(>df<)]
rl2RCD(b->e<)
r2.
}
#PART7_3={
o3 l4 #R #F #Q4 #PEDAL7
o3l2.ROCT(g)
l4ROCT(c)rr
l2.ROCT(f)
l4ROCT(c)rr
>RMD(g-2.)
RMD(g2.)
RMD(f2.)
<l4ROCT(c)rr
l2.ROCT(g)
l4ROCT(c)rr
l2.ROCT(f)
l4ROCT(c)rr
>RMD(d-4)rr
RMD(c4)rr
RMD(c4)rr
<<l4ROCT(f)rr
}
#PART8_16={
TmpChangeR(80)TmpChangeR(120,!2)
TmpChangeR(150)TmpChangeR(180,!2.^2.^2.^2.)
TmpChangeR(185,!2.^2.)TmpChangeR(175,!2.)TmpChangeR(160,!2.)
TmpChangeR(170)TmpChangeR(190,!2.^2.^2.^2.)
TmpChangeR(200,!2.^2.)TmpChangeR(185,!2.)TmpChangeR(125,!2.)
TmpChangeR(150)TmpChangeR(200,!2.^2.^2.^2.)
TmpChangeR(210,!2.^2.)TmpChangeR(185,!2.)TmpChangeR(165,!2.)
TmpChangeR(210,!2.^2.^2.)TmpChangeR(150,!2.)
TmpChangeR(175,!2.^2.)TmpChangeR(150,!2.)TmpChangeR(110,!2.)
TmpChangeR(80,!2.^2.^2.)TmpChangeR(60,!2.)
}
#PEDAL8={
Sub{
#PEDALON r4r4 #PEDALOFF
#PEDALON r2.r2.#PEDALOFF
#PEDALON r2.r2.#PEDALOFF
#PEDALON r2.r2.#PEDALOFF
#PEDALON r4 #PEDALOFF r2 #PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2 #PEDALON r2. #PEDALOFF
#PEDALON r4 #PEDALOFF r2 #PEDALON r2. #PEDALOFF
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[#PEDALON r2.#PEDALOFF]
[3 #PEDALON r2.#PEDALOFF]
#PEDALON r1. #PEDALOFF
}
}
#PART8_1={
o4 l4 #R #M #Q5 #PEDAL8
ROCT(e)ROCT(g)
>l2.ROCT(d)
l2ROCT(c)l4ROCT(e)
<l2.ROCT(b)
ROCT(a)
ROCT(b)
l2ROCT(a)l4ROCT(e)
l1ROCT(b)
l4ROCT(d)RCDV(5)ROCT(e)RCDV(5)
l1ROCT(g)RCDV(5)
l4ROCT(d)RCDV(-5)ROCT(e)RCDV(-5)
l1ROCT(a)RCDV(-5)
l4ROCT(d)RCDV(5)ROCT(e)RCDV(5)
l2ROCT(g)RCDV(5)ROCT(f)RCDV(5)
ROCT(g)RCDV(5)
l2.ROCT(e)
#FF l4ROCT(d)ROCT(e)ROCT(g)
>l2.ROCT(d)
l2ROCT(c)l4ROCT(e)<
l2.ROCT(b)
ROCT(a)
ROCT(b)
l2ROCT(a)l4ROCT(g)
l2.ROCT(a)
>l4RMD(dfg)
<ROCT(a)RCDV(1)ROCT(b)RCDV(1)>ROCT(c)RCDV(1)
ROCT(d)RCDV(1)ROCT(e)RCDV(1)ROCT(f)RCDV(1)
ROCT(g)RCDV(-1)ROCT(e)RCDV(-1)ROCT(c)RCDV(-1)
<ROCT(a)RCDV(-1)>ROCT(c)RCDV(-1)ROCT(e)RCDV(-1)
l2<ROCT(g)l4RCDV(-7)ROCT(f)RCDV(-7)
ROCT(e)RCDV(-7)l2ROCT(d)RCDV(-7)
l1ROCT(c)RCDV(-7)
l4ROCT(d)ROCT(e)<
l2ROCT(b)RCDV(-5)l4ROCT(g)RCDV(-5)>
l2.ROCT(d)RCDV(-5)
ROCT(g)RCDV(-5)>
l1ROCT(c)r4r4
}
#PART8_2={
o5 l4 #R #PP #Q0 #PEDAL8
r4r4
r[RCD(eg)]
rRCD(eg)r
r[RCD(eg)]
r[RCD(eg)]
r[RCD(eg)]
rRCD(eg)r
r[RCD(fg)]
r2.
r[RCD(<b>f)]
r2.
r[RCD(<b>f)]
r2.
rRCD(<b>f)r
rrRCD(<b>f)
r[RCD(<g>c)]
r2.
#P
r[RCD(eg)]
rRCD(eg)r
r[RCD(eg)]
r[RCD(eg)]
r[RCD(eg)]
rRCD(eg)r
r[RCD(cf)]
r2.
o4 r#Q5 RCD(fa)#Q0 RCD(eg)
o4 r#Q5 RCD(gb)#Q0 RCD(a>c<)
o4 r#Q5 RCD(g>c<)#Q0 RMD(a)
rSub{RMD(f#2)}#Q5 RMD(a)#Q0 RMD(>c<)
ro5RCDV(-5)RCD(ce)r
rr<RCDV(-5)RCD(fb)
r[RCDV(-5)RCD(eg)]
r2.
#SP
rRCD(eg)r
r[RCD(a>c<)]
r[RCD(b>f<)]
rRCD(>eg<)#Q5 l2RCD(>eg<)
r4r4
}
#PART8_3={
o3 l4 #R #P #Q3 #PEDAL8
r4r4
ROCT(c)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(d)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr
#F
ROCT(a)rr
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
ROCT(c)rr<
ROCT(g)rr>
RMD(d)rr
RMD(f)rr<
ROCT(g)rr
ROCT(f)rr
ROCT(e)rr
ROCT(f#)rr
ROCT(g)RCDV(-10)rROCT(a)RCDV(-10)
ROCT(f)RCDV(-10)ROCT(g)rRCDV(-10)
ROCT(c)RCDV(-10)rr
ROCT(c)RCDV(-10)rr
#PP
ROCT(e)RCDV(-5)rr
ROCT(f)RCDV(-5)rr
ROCT(d)RCDV(-5)rr
Sub{ROCT(c)rrROCT(c)rr}#SP o4r4l1RCD(ceg)
}
TR(1)
#PART1_1
#tr1={
#PART2_1
#PART3_1
#PART4_1
#PART5_1
#PART6_1
#PART7_1
}
LoopPlay(#tr1)
#PART2_1
#PART3_1
#PART8_1
TR(2)
#PART1_2
#tr2={
#PART2_2
#PART3_2
#PART4_2
#PART5_2
#PART6_2
#PART7_2
}
LoopPlay(#tr2)
#PART2_2
#PART3_2
#PART8_2
TR(3)
#PART1_3
#tr3={
#PART2_3
#PART3_3
#PART4_3
#PART5_3
#PART6_3
#PART7_3
}
LoopPlay(#tr3)
#PART2_3
#PART3_3
#PART8_3
TR(16)
#PART1_16
#tr16={
#PART2_16
#PART3_16
#PART4_16
#PART5_16
#PART6_16
#PART7_16
}
LoopPlay(#tr16)
#PART2_16
#PART3_16
#PART8_16