// リスト パガニーニによる大練習曲3番 ラ・カンパネラ v1.1 ///////////////////////////////////////////////////////// // 作曲 Niccolo Paganini // 編曲 Franz Liszt Int DEBUG=0 // 1=メトロノーム 2=雑音付き Int KEY=0 // 移調 Int RTEMPO=7 // テンポをRTEMPO%範囲内でランダムにする 0で無効 Int TEMPORATIO=100 // テンポを％で変化させる 70%以下にしてはならない Int TINY=0 // MIDIを軽くする TWM2時必須 Int IGNORETEMPO=0 // テンポ変化を無効にする // Tempo 65 Int TEMPODIFF=0 // テンポ差分 -5以下にしてはならない Int LOOP=2 // ループ回数 26 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={M8m8m8 m8m8m8} IF(#METORONOMEMML="") { #METORONOMEMML={M4m4m4m4} } 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(fg) // RMDV(-5) // l8 RMD(ceg) // TR(2) // RCDINIT(53,513) // l4 RCD(ceg) // l8 RCD(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(fg) RMDV(-5) l8 RMD(ceg) TR(2) RCDINIT(53,513) l4 RCD(ceg) l8 RCD(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(192,768) RMDINIT(144,320,90,110) // RMDINIT(64,160,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 曲名={"パガニーニによる大練習曲3番 ラ・カンパネラ(打ち込み版)"} 作者={"ななこっち★ based by Niccolo Paganini / Franz Liszt"} 拍子 6,8 #PEDALON={Sub {y23,64 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 #PART1_16={ TmpChangeR(90,0)r2.TmpChangeR(100,!2.) TmpChangeR(60,!2.)TmpChangeR(30,!4)TmpChangeR(110,!8)TmpChangeR(90,!4.) } #PEDAL1={ Sub{ #PEDALON [3 r2.] r4 #PEDALOFF } } #PART1_1={ o7 #R #SP l8 #PEDAL1 rrrr[3 ROCT(d#)RCDV(1)] rrr[3 ROCT(d#)RCDV(-2)] [r[2 ROCT(d#)RCDV(-2)]] r #PSR o6RMD(d#>d#d#c#) } #PART1_2={ o7 #R #SP l16 #PEDAL1 [3 r2.] r4 #PPSR l16o7RMD(rd#>)[3 RMD(rd#)] } #PART1_3={ [4 r2.] } #PART1_4={ o5 #R #SP l8 #PEDAL1 r[3 ROCT(d#)RCDV(1)]rr r[3 ROCT(d#)RCDV(-2)]rr rROCT(d#)RCDV(-2)rrROCT(d#)r rr rrrr } #PART2_16={ TmpChangeR(105,0)TmpChangeR(100,!2.^4.)TmpChangeR(105,!4.) TmpChangeR(100,!2.^4.)TmpChangeR(105,!4.) TmpChangeR(105,0)TmpChangeR(100,!2.^4.)TmpChangeR(105,!4.) TmpChangeR(90,!4.)TmpChangeR(100,0)TmpChangeR(80,!4.) TmpChangeR(83,!4.)TmpChangeR(75,!4^16)TmpChangeR(45,!32)TmpChangeR(85,!32) TmpChangeR(75)TmpChangeR(88,!8)TmpChangeR(95,!4)TmpChangeR(107,!2.)TmpChangeR(110,!4.) TmpChangeR(105,!2.^4.)TmpChangeR(110,!4.) TmpChangeR(105,0)TmpChangeR(115,!2.)TmpChangeR(110,!4.)TmpChangeR(95)TmpChangeR(90,!4.) TmpChangeR(95,!4.)TmpChangeR(100,0)TmpChangeR(65,!4.) TmpChangeR(80,!4.)TmpChangeR(60,!4.) } #PEDAL2={ Sub{ [6 #PEDALON r8r8 #PEDALOFF r8] #PEDALON r8r8r8 #PEDALOFF r8r8r8 [3 r2.] #PEDALON r8r8r8 #PEDALOFF r4. [3 #PEDALON r8. #PEDALOFF r8.] r4. r2. r2. r2. r2. r2. #PEDALON r2^8 #PEDALOFF r8 } } #PART2_1={ o7 #R #PSR l8 Q(44,46) #PEDAL2 RMDCresc(2)o6RMD(bba#g#gg#) RMDCresc(-2)o6RMD(a#d#d# ed#c#) RMDCresc(2)o5RMD(bba#g#gg#) RMDCresc(-7)o5RMD(a#d#>)#MR RMDCresc(2)RMD(d#>d#d#c#) RMDCresc(-1)o6RMD(bba#g#gg#) RMDCresc(3)o6RMD(a#d#d#ed#)RCD(c#d#) RMDCresc(-2)o6RMD(d#)r>RMD(d#)RMD(d#) r4.o7l16RMD(rd#rd#rc#) l8#PSR Sub{r-64RMD(c#64)}#MR RMDCresc(3)o6RMD(bba#)#PSR Sub{r-64RMD(a#)}#MR RMDCresc(3)RMD(g#gg#) #PSR Sub{r-48RMD(g96g#96)}#MSR RMDCresc(-3)o6RMD(a#d#d#)Sub{#PSR r-64RMD(f#64)}#MR RMDCresc(-3)RMD(ed#c#) #PSR Sub{r-64RMD(c#)}#MR RMDCresc(2)o5RMD(bba#)#PSR Sub{r-64RMD(a#)}#MR RMDCresc(2)RMD(g#gg#) RMDCresc(-7)o5RMD(a#d#>)RMDCresc(5)RMD(d#>d#d#c#) #PSR Sub{r-64RMD(c#64)}#MR RMDCresc(-3)o6RMD(bba#)#PSR Sub{r-64RMD(a#64)}#MR RMDCresc(-3)RMD(g#gg#) #PSR Sub{r-48RMD(g96g#96)} #MR RMDCresc(3)o6RMD(a#d#d#)#PSR Sub{r-64RMD(f#64)}#MR RMDCresc(4)RMD(ed#c#) RMDCresc(-2)o6RMD(d#)r>RMD(d#)RMD(d#) #PSR RMDCresc(-2)l16o3RMD(g#>b>d#g#>d#g# b>d#g#) r8. } #PART2_2={ o8 #R #PPSR l16 Q(39,41) #PEDAL2 RMDCresc(5)[6 RMD(rd#)] [2 RMD(rd#)]<#PPR [4 RMD(rd#)] RMDCresc(4)[6 RMD(rd#)] RMDCresc(-6)RMD(rd#)RMD(rd#)>#PPR [3 RMD(rd#)] RMDCresc(6)[6 RMD(rd#)] [2 RMD(rd#)]<#PPR [4 RMD(rd#)] RMDCresc(3)o7 RMD(rd#)RMD(r>d#<)RMD(rd#)RMD(r>d#<) rrrr o6RMD(d#>d#)>[3 RMD(d#r)] #PPSR RMDCresc(5)[6 RMD(rd#)] [2 RMD(rd#)]<#PPR [4 RMD(rd#)] RMDCresc(4)[6 RMD(rd#)] RMDCresc(-6)RMD(rd#)RMD(rd#)>#PPSR [3 RMD(rd#)] RMDCresc(6)[6 RMD(rd#)] [2 RMD(rd#)]<#PPR [1 RMD(rd#)]#PR RMDCresc(-3)[3 RMD(rg#)] #PPR RMDCresc(3)o7 RMD(rd#)RMD(r>d#<)RMD(rd#)RMD(r>d#<) r2. } #PART2_3={ o4 #R #SP l8 Q(34,36) #PEDAL2 [8 r2.] rRCD(d#b)r rRCD(g#>d#<)r rRCD(a#>g<)r [RCD(>ga#<)]r RMD(>g#g#<)r [RCD(b>df<)]r r2. rRCD(d#b)r rRCD(g#>d#<)r rRCD(a#>g<)r Q(44,46)RCD(>c#g#a#<)RCD(>d#g#a#<)RCD(>eg#a#<) Q(64,66)RCD(>d#g#b<)rr rrr r2. } #PART2_4={ o4 #R2 #SP l8 Q(34,36) #PEDAL2 RCD(g#>d#b<)rrRCD(b>g#>d#<<)rr RCD(>d#a#>g<<)rrRCD(>ga#<)rr RMD(>g#<)rrRCD(b>df<)rr #PP #R RCD(>d#g<)rrrrr #R2 RCD(g#>d#b<)rrRCD(b>g#>d#<<)rr RCD(>d#a#>g<<)rrRCD(>ga#<)rr #R RCD(>g#b<)rrRCD(>d#g>c#<<)rr #PP o4RMD(g#16>d#16b16>g#16)r8r4. o3l8#P Q(44,46) RMD(g#)rr RMD(b)rr >RMD(d#)rr rrr rrr rrr o4RCD(d#>g<)rrrrr o3l8 RMD(g#)rr RMD(b)rr >RMD(d#)rr rrr rrr o4Q(74,76)RCD(d#>c#g)rr r2. } #PART3_16={ TmpChangeR(95)TmpChangeR(105,!2.) TmpChangeR(100,!2.^4.)TmpChangeR(107,!4.) TmpChangeR(102,!2.^4.)TmpChangeR(110,!4.) TmpChangeR(105,!4.)TmpChangeR(95,!4.) [3 TmpChangeR(100,!8)TmpChangeR(90)r8TmpChangeR(100)r8] TmpChangeR(100,!8)TmpChangeR(90)r8TmpChangeR(92)r8 TmpChangeR(90)TmpChangeR(100,!4.)TmpChangeR(105,!4.) TmpChangeR(110,!2.) TmpChangeR(100,!2.) TmpChangeR(110,!2.) TmpChangeR(100,!2.) TmpChangeR(105,!2.) TmpChangeR(100,!2.) TmpChangeR(105,!2.) TmpChangeR(115,!2.) TmpChangeR(120,!2.) TmpChangeR(130,!2.^2.) TmpChangeR(90,!2.) TmpChangeR(100,!2.) } #PEDAL3={ Sub{ [6 r2.] [4 r16r16 #PEDALON r16r16 r16 #PEDALOFF r16] [#PEDALON r4. #PEDALOFF] [2 #PEDALON r4. #PEDALOFF] #PEDALON r4 #PEDALOFF r8 #PEDALON r4. #PEDALOFF [2 #PEDALON r4. #PEDALOFF] #PEDALON r4 #PEDALOFF r8 r4. [7 r2.] r4.#PEDALON r4.r16 #PEDALOFF r-16 r8r8 #PEDALON r8 #PEDALOFFa #PEDALONa r4 #PEDALOFF #PEDALON r8 #PEDALOFF } } #PART3_1={ o5 #R #MR l16 Q(34,36) #PEDAL3 r2. #M Q(110,112)RMDCresc(-2)RMD(>c#32>f#<>f#<<) Q(110,112)RMDCresc(-2)RMD(>d#32c#32c32c#32<)#MR Q(44,46)RMD(f#>>f#f#<<) #M Q(110,112)RMDCresc(-2)RMD(>e32d#32d32d#32)#MR Q(44,46)RMD(>f#<<) r2 #MS RMDCresc(-2)o6Q(110,112)RMD(f32d#32d32d#32)#MSR Q(44,46)RMD(>a#a#<<) Q(110,112)RMDCresc(-2)RMD(>f#32f32e32f32<)#MSR Q(44,46)RMD(a#>>a#a#<<) #MS Q(110,112)RMDCresc(-2)RMD(>g#32f#32f32f#32)#MSR Q(44,46)RMD(d#>a#<<) r2 #F RMDCresc(-1)o6Q(110,112)RMD(g#32f#32f32f#32)#FR Q(44,46)RMD(c#>>c#<>c#<<) #F Q(110,112)RMDCresc(-1)RMD(>a#32g#32g32g#32<)#FR Q(44,46)RMD(c#>>c#<>c#<<) #FSR RMDCresc(-1)o6RMD(a#b>!c#8g#>g#g#) #R #FSR RMDCresc(-1) RMD(g#>!f#<>!e<> !d#<>!c#<>!d#<>) RMD(!e<>!c#<f#>f#f#) RMD(f#>!e<>!d#<> !c#<!b>!c#<>) RMD(!d#<b)rr #R3 #PR o5RMD(!d#>d#>d#d#) #R #MR RMD(d#d#d#<d#>d#d#) RMD(d#d#d#)RMD(ed#c#!d#!d#!d#!d#!d#!d#< >d#< >!d#<) RMD(>!d#!d#!d#)RMDCresc(2)RMD(!d#d#d#d#d#d#)]#PPR RMD(>d#d#d)RCDV(-2) rRCD(c#)RCDV(-2) rRCD(c)RCDV(-2) rRCD() r2. #P r4 o6 rRCD(df)RCDV(3) rRCD(c#e)RCDV(3) rRCD(cd#)RCDV(3) rRCD(d) r2. Q(99,100)o7l16rrr RCD(a#>c#<)RCDV(-1) rr rrr RCD(d#b)RCDV(-1) rr rrr RCD(c#a#)RCDV(-1) rr rrr RCD(g#) rr rRCD(f#)rrrr rrrrrr [4 r2.] #R3 #PPR r4. o6RMD(ea#c#ef) RMD(d#f#d#)rr rrrrrr r4. o7RMD(eac#ef) [6 r2.] } #PART3_3={ o5 #R #PP l16 Q(39,41) #PEDAL3 r8r8 RMDCresc(-3)[4 RMD(b)r] r2. r4 #PP RMDCresc(-2)o6[4 RMD(d#)r] r2. r4 #P RMDCresc(3)o6[4 RMD(f#)r] r2. RMDCresc(-1)o6RMD(f#g#r64!a#16..g#f# c#r64!d#16..c#r64!c#16..c) RMD(c#e)r rrr ro6RMD(c#d#)r rrr r2. [8 r2.] } #PART3_4={ o4 #R #PP l8 Q(34,36) #PEDAL3 r2. #PP rRCD(b>d#<)RCD(f#>d#f#<) RCDV(-2)rRCD(a#>e<)RCD(f#>ef#<) r8 RCD(b>d#<) r2 #PP rRCD(>d#f#<)RCD(a#>f#a#<) RCDV(-2)rRCD(>dg#<)RCD(a#>g#a#<) r8 RCD(>d#f#<) r2 #P rRCD(>f#a#<)RCD(>c#a#>c#<<) RCDV(3)rRCD(>fb<)RCD(>c#b>c#<<) o5l16 rrRMD(f#8)rr rrRMD()rr [rrRMD(c#8)rr] RMD(f#g<) #PP l8rRCD(eg#)RCD(d#g#) RCD(c#g#)rrRMD()rr RMD(c#)r RMD(!g16>g16<) rRCD(d#f#)RCD(c#f#) RCD(f#)rr RMD()rr RMD()r RMD(!d16>d16<) rRCD(d#)RCD(f) RCD(g)RCD(g)RCD(g#) RCD(c#a#)rRCD(df) RCD(d#g)r>RMD(!d16>d16<)< rRCD(g>d#<)RCD(g#>f<) RCD(a#>g<)RCD(a#>g<)RCD(b>g#<) RCD(>c#a)rRCD(df) RMDCresc(2)l16RCD(d#g)rRMD(d>dd#<)rrRMD(d#>d#e<) rrRMD(e>ef<)rrRMD(f#>f<)rr RMD(g>g<)rrRMD(g#>g#<) r4. r2. r2. #M r4l8o5#P RMDCresc(7)RMD(d#)>RMD(d#d#c#) } #PART4_16={ TmpChangeR(100)TmpChangeR(110,!2.) TmpChangeR(105,!2.) TmpChangeR(110,!2.) TmpChangeR(100,!2.) TmpChangeR(110,!2.) TmpChangeR(95,!2.) TmpChangeR(105,!4.)TmpChangeR(95,!4.) TmpChangeR(90,!2.) TmpChangeR(110,!2.) TmpChangeR(105,!2.) TmpChangeR(110,!2.) TmpChangeR(100,!2.) TmpChangeR(115,!2.) TmpChangeR(105,!2.) TmpChangeR(110,!2.) TmpChangeR(85,!2.) TmpChangeR(35,!2.) } #PEDAL4={ Sub{ [11 #PEDALON r4. #PEDALOFF] r4. [#PEDALON r4 #PEDALOFF r8] #PEDALON r4 #PEDALOFF r2 [7 #PEDALON r8 #PEDALOFF r4]r4. [3 #PEDALON r8 #PEDALOFF r4]r4. [3 #PEDALON r2. #PEDALOFF] } } #PART4_1={ o6 #R #PPSR l16 Q(44,46) #PEDAL4 [3 RMD(d#>d#>d#d# >d#d#>d#d#>d#d# >d#d#>d#d#>d#d# >d#d#>d#d#>d#d#)[3 rRMD(d#)] RMDCresc(3)rRMD(d#>d#<)rRMD(d#>d#<) r4 o6#PR l24 RMDCresc(1)RMD(!d#>d#d# !d#d#>d#< !d#d#>d#< !c#c#>c#<) #MR RMDCresc(2)b< !bb>b< !a#a#>a#< !g#g#>g#< !gg>g< !g#g#>g#<) RMDCresc(-2)RMD(!a#a#>a#< !d#d#>d#< !d#d#>d#< !ee>e< !d#d#>d#< !c#c#>c#<) RMDCresc(2)b< !bb>b< !a#a#>a#< !g#g#>g#< !gg>g< !g#g#>g#<) RMDCresc(-2)RMD(!a#a#>a#< !d#d#>d# d#d#d# >!d#d#>d#< !d#d#>d#< !c#c#>c#<) RMDCresc(2)b< !bb>b< !a#a#>a#< !g#g#>g#< !gg>g< !g#g#>g#<) RMDCresc(-2)RMD(!a#a#>a#< !d#d#>d#< !d#d#>d#< !ee>e< !d#d#>d#< !c#c#>c#<) RMDCresc(2)RMD(!d#d#>d#< !ee>d#< !ff>d#< !f#f#>d#< !gg>d#< !g#g#>d#<) RMDCresc(1)RMD(!aa>d#< !a#a#>d#< !bb>d#< >!ccd# !c#c#d# !ddd#) RMDCresc(-7)RMD(!d#d#>d#< !ee>d#< !ff>d#< !f#f#>d#< !gg>d#< !g#g#>d#<) } #PART4_2={ [8 r2.] [9 r2.] } #PART4_3={ o5 #R #M l8 Q(44,46) #PEDAL4 r48RMD(b)r-48RMD(ba#) r48RMD(g#)r-48RMD(gg#) r48RMD(a#)r-48RMD(d#d#) r48RMD(e)r-48RMD(d#c#)< r48RMD(b)r-48RMD(ba#) r48RMD(g#)r-48RMD(gg#) r48RMD(a#)r-48RMD(d#)r RMD(>d#48)>RMD(d#16.^96#d#c#)< RMDCresc(-1)r48RMD(b)r-48RMD(ba#) r48RMD(g#)r-48RMD(gg#) r48RMD(a#)r-48RMD(d#d# ed#c#) RMDCresc(-3)RMD(d#>)rRMD(d#< d#>)rRMD(d#<) r2. #PP Q(15,17)o4r[RCD(d#b)] r[RCD(g#>d#<)] r[RCD(a#>g<)] r[RCD(>d#a#<)] r[RCD(>d#g#<)] r[RCD(>df<)] rRCD(a#>g<)r rrr r[RCD(d#b)] r[RCD(g#>d#<)] #P Q(38,40)rRCDV(3)RCD(a#>g)RCDV(3)RCD(ga#)RCDV(3)RCD(g#b)RCDV(-4)RCD(f#a)RCDV(-5)RCD(eg#) Q(44,46)#R2 #P o5RCD(d#g#b)rr rrr #R #MS o4RCD(d#>c#g<)rr rrr #P RMDCresc(-2)o3RCD(g#>d#b>g#)rr rrr } #PART4_4={ o4 #R #PP l8 Q(40,42) #PEDAL4 RMD(g#rr brr) RMD(>grr grr)RCD(!c#g#a#)RCD(!d#g#a#)RCD(!eg#a#) RCD(!d#g#b)rrRCD(d#g>c#<)rr o4RMD(g#16b16>d#16g#16)r r4. o3 #P RMD(g#rr brr) RMD(>d#rr grr) RMD(g#rr brr) RMD(d#rrrrr)< RMD(g#rr brr) RMD(>d#rrrrr) [3 r2.] } #PART5_16={ TmpChangeR(50)r4TmpChangeR(110)TmpChangeR(75,!2) TmpChangeR(100,!2)TmpChangeR(75,!4) TmpChangeR(105,!2)TmpChangeR(80,!4) TmpChangeR(105,!2)TmpChangeR(80,!4) TmpChangeR(105,!2)TmpChangeR(80,!4) TmpChangeR(105,!2)TmpChangeR(40,!4) TmpChangeR(95)TmpChangeR(90,!2.) TmpChangeR(80,!2.) TmpChangeR(88,!2.) TmpChangeR(90,!2.) TmpChangeR(85,!2.) TmpChangeR(93,!2.) TmpChangeR(85,!2.) TmpChangeR(65)TmpChangeR(80,!4.)TmpChangeR(70,!4.) TmpChangeR(80)TmpChangeR(75,!2.) TmpChangeR(65)TmpChangeR(83,!4.)TmpChangeR(70,!4.) TmpChangeR(58)TmpChangeR(80,!4.)TmpChangeR(60,!4.) TmpChangeR(48)TmpChangeR(55,!4.)TmpChangeR(40)TmpChangeR(54,!4.) TmpChangeR(52)TmpChangeR(58,!4.)TmpChangeR(52,!4.) TmpChangeR(65)TmpChangeR(82,!4.)TmpChangeR(76,!4.) TmpChangeR(75)TmpChangeR(85,!4.)TmpChangeR(75,!4.) TmpChangeR(75)TmpChangeR(85,!4.)TmpChangeR(75,!4.) TmpChangeR(75)TmpChangeR(85,!4.)TmpChangeR(75,!4.) TmpChangeR(75)TmpChangeR(85,!4.)TmpChangeR(90,!4.) } #PEDAL5={ Sub{ r8r8#PEDALON r8 #PEDALOFF r8r8r8 r2. r8r8#PEDALON r8 #PEDALOFF r8r8r8 r2. r8r8#PEDALON r8 #PEDALOFF r8r8r8 r2. [4 #PEDALON r8. #PEDALOFF r8.] r8 [5 #PEDALON r8 #PEDALOFF] [#PEDALON r4. #PEDALOFF] r8 [5 #PEDALON r8 #PEDALOFF] [#PEDALON r4. #PEDALOFF] r8 [5 #PEDALON r8 #PEDALOFF] [2 #PEDALON r4. #PEDALOFF] [6 #PEDALON r8 #PEDALOFF] [2 #PEDALON r4. #PEDALOFF] [2 #PEDALON r4. #PEDALOFF] #PEDALON r4. #PEDALOFF #PEDALON r4. r2. r8 #PEDALOFF #PEDALON r8 r2 r2. r2. r2. r2.#PEDALOFF } } #PART5_1={ o5 #R #M l16 Q(30,32) #PEDAL5 r8r8rr RMDCresc(-3)RMD(bbbbbb) l32#PR RMDCresc(2)RMD(>c#) rRMD(f#f#f#)rRMD(bbb)>rRMDCresc(-2)RMD(c#c#c#)rRMD(f#f#f#)l24r[2RCD(f#>c#<)] r[2RCD(f#>d#<)]r8 l16#M RMDCresc(-3)o6RMD(d#8d#d#d#d#d#d#) l32#MR RMDCresc(2)RMD(fd#dd#) rRMD(a#a#a#)>rRMD(d#d#d#)rRMDCresc(-2)RMD(fff)rRMD(a#a#a#)l24r[2RCD(a#>f<)] r[2RCD(a#>f#<)]r8 l16#M RMDCresc(-3)o6RMD(f#8f#f#f#f#f#f#) l32#FR RMDCresc(2)RMD(g#f#ff#) >rRMD(c#c#c#)rRMD(f#f#f#)rRMD(g#g#g#)l24r[5RCD(g#>c#<)RCDV(4)] #R3 Q(56,64) #PR >[6 l32RMD(c#d#)][6 RMD(c#)] <[6 RMD(a#b)][4 RMD(g#a#)]RMD(g#d#ef) Sub{l40 RMD(f#g#f#g#f#) l32 rRMD(f#g#f#) rRMD(gg#g) rRMD(g#ag#)l40RMD(ag#ag#g)}r2. l32[12 RMD(g#a)] Sub{[RMD(g#a)]RMD(g#16)r16 rRMD(gag) rRMD(f#g#f#)l39RMD(g#f#g#f#f)}r2. l32[12 RMD(f#g#)] RMDCresc(2)[RMD(f#g#)]RMD(f#16)r16 rRMDCresc(-1)RMD(dd#d) rRMD(d#ed#ed#ed#ed#ed#) #MR o7l41Sub{RMDCresc(3)RMD(ed#dd#eff#gg#aa#b>cc#dd#)RMDCresc(-1)RMD(ef#ed#dc#ca#ba#<)>Sub{RMD(d8)}rRMD(>dd#d<)Sub{RMD(d#8)}rRMDCresc(1)RMD(>d#ed# ed#ed# ed#ed#)}r2. #MR o7l41Sub{RMDCresc(3)RMD(ed#dd#eff#gg#aa#b>cc#dd#)RMDCresc(-2)RMD(ef#ed#dc#ccc#dd#)RMDCresc(-2)RMD(ef#ed#dc#ccc#dd#)RMDCresc(-1)RMD(ef#ed# dd#dc# cc#ccc#cdc#)}r2. o6l32Sub{RMD(d#ded# fef#f gf#g#g ag#a#a ba#>cc#cdc#)}r2. o7l32Sub{RMD(d#ded# fef#f gf#g#g ag#a#a ba#>cc#cdc#)}r2. o8l32Sub{RMDCresc(3)[3 RMD(d#ded)]RMDCresc(5)[3 RMD(d#ded)]}r2. o8l32Sub{[2 RMDCresc(4)[3 RMD(d#ed#e)] ]}r2. } #PART5_2={ o5 #R #MR l16 Q(30,32) #PEDAL5 r8r8 RMDCresc(-3)RMD(b)RMD(a#ag#gf#fe) l8r #MSR RMD(f#b >c#f#>c#) RMD(d#d# fa#>f) RMD(f#d#16)r16 #FR l16RMDCresc(-3)o6RMD(f#)RMD(fed#dc#cc#f# g#>c#)r o7 #MSR l16 RMD(a#ag#gf#8)RMD(g#gf#fd#8) RMD(f#fd#dc#8)RMD(fd#dc#c#) RMD(d#)r16 #M o6RMD(dd#)rr [11 r2.] } #PART5_3={ o5 #R #PSR l16 #PEDAL5 r8r8 RMDCresc(-3)RMD(g#)Q(30,32)RMD(gf#fed#dc#) r2. r8r8 #MR l16RMDCresc(-3)o5RMD(b8a#ag#gf#f) r2. r8r8 #MSR l16RMDCresc(-3)o6RMD(d#dc#cc#<) r8l16RCD(g#)RCD(c#a#)l8RCD(d#b) r8l16RCD(f#)RCD(g#)l8RCD(c#a#) r8l16RCD(f)RCD(f#)l8RCD(g#) r2. o7 #MSR RMDCresc(-4)l8 rRMD(d#c#)rRMD(c) RMD(re16)r16 rrrr o7 #MSR RMDCresc(-4)l8 rRMD(c#d#16)r16 rrrr [11 r2.] } #PART5_4={ o4 #R #PPS l8 #PEDAL5 r2. rRCD(b>d#<)RCD(f#>d#f#<) rRCD(a#>e<)RCD(f#a#>f#<) RMD()RCD(f#>d#<)r rrr rRCD(>d#f#<)RCD(a#>f#a#<) rRCD(>dg#<)RCD(a#>da#<) RMD(d#)RCD(a#>f#<)r rrr rRCD(>f#a#<)RCD(>c#a#>c#<<) rRCD(>fb<)RCD(>c#f>c#<<) #M o5RMD(f#rrc#rrc#rr) RCD(f#>c#a#<)rrr #R2 #M RCD(e>g#<)RCD(d#>f#<) RCD(c#>e<)rrRCD(g#>>d#<<)rr #R #M RCD(>c#>c#<<)rrr #R2 #M o5RCD(d#>f#<)RCD(c#>e<) RCD(>d#<)rrRCD(f#>>c#<<)rr #R #M RCD(b>b<)rr ro5#R #M RCD(d#g>d#<)RCD(fg#>d<) #R4 o5 l8 RCD(ga#>c#<)rr RCD(g#b>e<)rr RCD(d#>g<)rr r RCD(d#g>d#<)RCD(fg#>d<) #R2 o5 l8 RCD(ga#>c#<)rr RCD(g#b>e<)rr RCD(d#a#>g<)rr RCD(b)rr RCD(g)rr RCD(<b>)rr r2. r RCD(<a#>c#)r rrr r2. r2. r2. r2. } #PART6_16={ TmpChangeR(90)TmpChangeR(80,!2.) TmpChangeR(90,!2.) TmpChangeR(85,!2.) TmpChangeR(95,!2.) TmpChangeR(80,!2.) TmpChangeR(95,!2.) TmpChangeR(85,!2.) TmpChangeR(80,!2.) TmpChangeR(40,!8)TmpChangeR(85)TmpChangeR(90,!8^2) TmpChangeR(95,!2.) TmpChangeR(90,!2.) TmpChangeR(95.!2.) TmpChangeR(90,!2.) TmpChangeR(85,!2.) TmpChangeR(95.!2.) TmpChangeR(90,!2.) TmpChangeR(80,!2.) TmpChangeR(45)TmpChangeR(60,!4.)TmpChangeR(35,!4.) TmpChangeR(60)TmpChangeR(5,!4.) } #PEDAL6={ Sub{ #PEDALON r2. #PEDALOFF [#PEDALON r4. #PEDALOFF] [#PEDALON r4. #PEDALOFF] [#PEDALON r4. #PEDALOFF] [#PEDALON r4. #PEDALOFF] [#PEDALON r4. #PEDALOFF] #PEDALON r4. #PEDALOFF r4. [#PEDALON r8 #PEDALOFF r8 #PEDALON r8 #PEDALOFF] #PEDALON r4 #PEDALOFF r2 [#PEDALON r8 #PEDALOFF r4] [#PEDALON r8 #PEDALOFF r4] [#PEDALON r8 #PEDALOFF r4] #PEDALON r8 #PEDALOFF r4 r8r8r8 [#PEDALON r8 #PEDALOFF r4] #PEDALON r2. #PEDALOFF [3 r128 #PEDALON r-128 r4. #PEDALOFF] } } #PART6_1={ o5 #R #M l16 Q(30,32) #PEDAL6 o8l32Sub{RMDCresc(-5w wefr5)[3 RMD(d#ed#e)]}r4. RMDCresc(-6)[6 RMD(d#e)]#PPR // o8l32Sub{#FSR RMD(d#ed#e) #FR RMD(d#ed#e) #MR RMD(d#ed#e)}r4. #PSR [2 RMD(d#e)]#PR [2 RMD(d#e)][2 RMD(d#e)] [6 RMD(d#ed#e)] [6 RMD(d#ed#e)] [6 RMD(d#ed#e)] [6 RMD(d#ed#e)] #PSR [o8RMD(!d#ed# !d#24e24d#24)] [o8RMD(!d#ed# !d#24e24d#24)] [o8RMD(!d#ed#d#ed#)RMD(r>d#ed#<)RMD(r>d#ed#<)RMD(r>c#d#c#<) [rRMD(b>c#c#rRMD(d#ed#)>[rRMD(d#ed#)]rRMD(c#d#c#) [rRMD(cc#c)]d#cc#dd#eff#gg#aa#b>cc#)RMDCresc(-3)RMD(dd#f#ec#d#g#b>d#g# b>d#g#b>d#b g#8) } #PART6_2={ o7 #R #PP l8 Q(25,27) #PEDAL6 r8r8r8 r8r8RMD(d#) [6 RMD(d#)] [6 RMD(d#)] [6 RMD(d#)] [6 RMD(d#)] [3 r2.] r8r8 #MS o6l8RMD(d#>d#d#c#<) RMD(bba#g#gg#) RMD(a#d#d#ed#c#<) RMD(bba#g#gg#) RMD(a#d#>d#>d#d#c#) RMD(ccd#d#c#)< #R2 #M RCD(b)RMD(ba#)RCD(g#)RMD(gg#) #R #M RCD(ga#)RMD(d#d#)#R2 #M RCD(e)RMD(d#c#)< #R #M RCD(g#b)RCD(g#b)RCD(f#a#)RCD(eg#)RMD(gg#) RCD(ga#)RMD(d#)r16RMD(d#16)>RMD(d#d#c#)< #R2 #M RCD(b)RMD(ba#)RCD(g#)RMD(gg#) #R #M RCD(ga#)RMD(d#d#) RCD(g#)RCD(cf#)RCD(c#e) o5 RMD(d#) >l16RCD(g#)RCD(d#b)l8RCD(g#>d#<) o5 RMD(d#) >l16RCD(g)RCD(c#a#)l8RCD(g>d#<) o4 Sub{RMD(g#8>d#32b32>g#16)}r2. o4 #R #PS l8 Q(25,27) [rRCD(d#b>d#<)RCD(g#b>d#<)] rRCD(g>d#g<)RCD(a#>d#g<) rRCD(>c#d#a#<)RCD(a#>d#a#<) rRCD(>d#g#<)RCD(b>d#<) rRCD(b>d<)RCD(a#>d<) rRCD(ga#)RCD(>ga#<) RCD(>>ga#<<)rr [rRCD(a>d#f#<)RCD(>cd#f#<)] >rRCD(ea)RCD(ca)RCD(c#a)RCD(f#a)RCD(ea) RCD(d#g#b)rr #FF RCD(c#g)rr r4. } #PART6_4={ o2 #R #PS l8 Q(40,42) #PEDAL6 [9 r2.] ROCT(g#)rr ROCT(b)rr >ROCT(d#)rr RMD(g)rr RMD(g#rr)RMD(err) RMD(d#rrrrr) RMD(g#rr)>RMD(crr) RMD(c#rrrrr) r2.r4. } #PART7_16={ TmpChangeR(90)TmpChangeR(110,!4.) TmpChangeR(100,!2.^4.)TmpChangeR(105,!4.) TmpChangeR(115,!2.^4.)TmpChangeR(120,!4.) TmpChangeR(110,!2.) TmpChangeR(125,!2.) TmpChangeR(95,!2.) TmpChangeR(120,!2.) TmpChangeR(95,!2.) TmpChangeR(125,!2.) TmpChangeR(105,!2.) TmpChangeR(120,!2.) TmpChangeR(100,!2.) TmpChangeR(125,!2.) TmpChangeR(105,!2.) TmpChangeR(120,!2.) TmpChangeR(105,!2.) TmpChangeR(97,!2)TmpChangeR(60,!4) TmpChangeR(40)r8TmpChangeR(60)TmpChangeR(125,!2^8) TmpChangeR(132,!2.) TmpChangeR(120,!2.) TmpChangeR(100,!2.) TmpChangeR(80,!2.) TmpChangeR(42)TmpChangeR(115,!2.) TmpChangeR(60,!2)TmpChangeR(80)TmpChangeR(60,!4) } #PEDAL7={ Sub{ r4. r4.[2 #PEDALON r4.#PEDALOFF]r4. r4.[2 #PEDALON r4.#PEDALOFF]r4. [2 #PEDALON r4.#PEDALOFF] [4 #PEDALON r4.#PEDALOFF] #PEDALON r8r8 #PEDALOFF r8 #PEDALON r8r8r8 r8 #PEDALOFF r8r8r8r8r8 #PEDALON r8r8 #PEDALOFF r8 #PEDALON r8r8r8 r8 #PEDALOFF r8r8r8r8r8 #PEDALON r8r8 #PEDALOFF r8 #PEDALON r8r8r8 r8 #PEDALOFF r8r8r8r8r8 #PEDALON r8r8 #PEDALOFF r8 #PEDALON r8r8r8 #PEDALOFF [6 #PEDALON r8 #PEDALOFF] [4 #PEDALON r8 #PEDALOFF]r4 [4 #PEDALON r8 #PEDALOFF]r4 [2 #PEDALON r8 #PEDALOFF]r2 l8r #PEDALON rrrrr rrrrrr rrrrrr #PEDALOFF #PEDALON rrrrrr rrrrrr rrrrrr rrrr #PEDALOFF #PEDALON rr #PEDALOFF l16 } } #PART7_1={ o5 #R #M l16 Q(35,37) #PEDAL7 #M r[5 RCD(b>b<)RCDV(2)] o6#FFR l8 RMD(bf#b>c#c#) RMD(d#)rr #M l16r[5 o6RCD(d#>d#<)RCDV(2)] o7#FFR l8RMD(d#d#f#f) RMD(f#)rr #M l16r[5 o6RCD(f#>f#<)RCDV(2)] o7#FFR l8RMD(f#c#f#g#c#g#) o7l16#FRR RCD(c#f#a#)RCD(c#g#b)RCD(c#a#>c#<)RCD(c#a#>c#<)RCD(c#g#b)RCD(c#f#a#) RCD(d#g#)RCD(c#d#a#)RCD(d#b)RCD(d#b)RCD(c#d#a#)RCD(d#g#) RCD(c#f#)RCD(c#g#)RCD(c#a#)RCD(c#a#)RCD(c#g#)RCD(c#f#) RCD(c#f)RCD(c#f#)RCD(c#g#)RCD(c#g#)RCD(c#d#)RCD(c#f) l8RCD(c#f#)rrrrr #R3 o7l16 RMD(g#8 >f#f#eed#d#c#c#d#d#) l8RMD(e8)rrrrr o7l16 RMD(f#8 >eed#d#c#c#c#c#) l8RMD(d#8)rrrrr o7l16 RMD(d#8 d#d#d#d#ed#c#d#d#d#d#ed#c#d) RMD(d#aa#>dd#a) RMD(a#>dd#dd#d) RMD(d#d#d#d#d#d#) RMD(d#d#d#d#d#d#) l16RMDCresc(-9)[RMD(d#d#d#d#d#d#)] RMDCresc(11)RMD(d#d#d#d#d#d# d#d#d#d#c#c#) } #PART7_2={ o5 #R #FR l16 Q(50,22) #PEDAL7 r4. o5RMD(rf#bf#)RMD(rf#)RMD(rf#>c#d#b>d#b)r4. o5RMD(ra#>d#ff#>d#f#>d#)r4. o6RMD(rc#f#c#)RMD(rc#)RMD(rc#g#c#)RMD(rc#) o5r8l16RMD(c#a#>f#a#<) r8RMD(g#>d#g#<) r8RMD(f#>c#f#<) o6r8RMD(ff#f#eed#d#c#c#d#d#) l8RMD(e8)rrrrr o6l16 RMD(f#8 >eed#d#c#c#c#c#) l8RMD(d#8)rrrrr o6l16 RMD(d#8 d#d#d#d#ed#c#d#d#d#d#ed#c#d) RMD(d#aa#>dd#a) RMD(a#>dd#dd#d) RMD(d#d#d#d#d#d#) RMD(d#d#d#d#d#d#) l16RMDCresc(-9)[RMD(d#d#d#d#d#d#)] RMDCresc(11)RMD(d#d#d#d#d#d# d#d#d#d#c#c#) } #PART7_3={ o5 #R #FR l16 Q(35,37) #PEDAL7 r4. o5rRMD(d#d#)rRMD(d#) rRMD(ee)rRMD(e) rRMD(d#d#)rRMD(d#) rRMD(g#dg#)rRMD(g#) rRMD(f#d#d#fff#f#ggff) RMD(d#d#d) RMD(d#aa#>dd#a) RMD(a#>dd#dd#d) RMD(c#d#)rr } #PART7_4={ o5 #R #M l16 Q(35,37) #PEDAL7 rRMD(g#)RCDV(2)RCD(ga#)RCDV(2)RCD(f#a)RCDV(2)RCD(fg#)RCDV(2)RCD(eg)RCDV(2) #F o3l8RMD(b>ba#d<)RCDV(2)RCD(a#>c#<)RCDV(2)RCD(a>c<)RCDV(2)RCD(g#b)RCDV(2) #F o4l8RMD(d#>d#>d<d)RCDV(2) #F o4l8RMD(f#>f#f) RMD(c#rr)>RMD(c#rr) l8RCD(f#a#) l16o3[ROCT(f#)][ROCT(g)][ROCT(g#)]>[ROCT(g#)]>[ROCT(g#)] l8o6rRMD(d#c#cc) RMD(c#) l16o3[ROCT(g#)][ROCT(g)][ROCT(f#)]>[ROCT(f#)]>[ROCT(f#)] l8o6rRMD(c#[ROCT(d#)]>[ROCT(d#)] o5l16 #R3 r8 RMD(d#d#fff#f#eedd) RMD(d#8)o2[ROCT(a#)]>[ROCT(d)][ROCT(d#)]>[ROCT(d#)]>[ROCT(d#)] o5l16 #R3 r8 RMD(ggg#g#aaa#a#>dd) RMD(a#a#g#g#f#f# ggeedd)< RMD(a#a#g#g#f#f# ggeedd)< RMD(a#a#g#g#f#f# ggggdd) RMD(d#8)l8r16o3#F RMDCresc(5)rrrrRMD(>d) RMD(d#aa#>dd#a) RMD(a#>dd#dd#d) RMD(c##FF RMDCresc(-6)RMD(d#d#)>#FF RMDCresc(-6)RMD(d#d#d#d#)#FF RMDCresc(-6)RMD(c#c#) #FF RMDCresc(-6)RMD(cccc)<#FF RMDCresc(-6)RMD(aa)#FF RMDCresc(-6)RMD(g#g#g#g#)#FF RMDCresc(-6)RMD(f#f#) #FF RMD(e8)cc#d) #SF RMD(d#)#FFS RMDCresc(5)RMD(eff#gg# aa#b>c#dd#) #SF o5 l8RCD(d#g#) #FF r8RCD(b>d#b<) l16RCD(a#>d#a#<)RCD(b>b<)l8RCD(>c#>c#<<)l16RCD(b>d#b<)RCD(a#>a#<) l16RCD(b>d#b<)RCD(>c#>c#<<)l8RCD(>d#>d#<<)l16RCD(>c#>c#<<)RCD(b>b<) l16RCD(a#>d#a#<)RCD(b>b<)l8RCD(>c#>c#<<)l16RCD(b>d#b<)RCD(a#>a#<) l16RCD(b>d#b<)RCD(a#>a#<)l8RCD(g#>g#<) >RCD(b>d#b<) l16RCD(a#>d#a#<)RCD(b>b<)l8RCD(>c#>c#<<)l16RCD(b>d#b<)RCD(a#>a#<) l16RCD(b>d#b<)RCD(>c#>c#<<)l8RCD(>d#>d#<<)l16RCD(>c#>c#<<)RCD(b>b<) l16RCD(a#>d#a#<)RCD(b>b<)l8RCD(>c#>c#<<)l16RCD(b>d#b<)RCD(a#>a#<) l16RCD(b>d#b<)RCD(a#>a#<)l8RCD(g#>g#<) < RCD(d#b>d#<) l16RCD(d#a#>d#<)RCD(d#b>d#<)l8RCD(d#>c#d#<)l16RCD(d#b>d#<)RCD(d#a#>d#<) l16RCD(d#b>d#<)RCD(d#a#>d#<)l8RCD(d#g#>d#<) >RCD(d#g#>d#<)< l16RCD(d#a#>d#<)RCD(d#b>d#<)l8RCD(d#>c#d#<)l16RCD(d#b>d#<)RCD(d#a#>d#<) l16RCD(d#b>d#<)RCD(d#a#>d#<)l8RCD(d#g#>d#<) >RCD(d#g#>d#<)< l16RCD(d#b>d#<)RCD(d#a#>d#<)l8RCD(d#g#>d#<) >RCD(g#>d#g#<)< l16RCD(d#b>d#<)RCD(d#a#>d#<)l8RCD(d#g#>d#<) >RCD(b>g#b<)< l16RCD(d#b>d#<)RCD(d#a#>d#<)l8RCD(d#g#>d#<) o7l8^8 RCD(d#g#>d#<)[6 l8 RCD(d#g#>d#<)] } #PART8_2={ o6 #R3 #FF l16 Q(35,37) #PEDAL8 #FF RMDCresc(-6)RMD(bbbb)#FF RMDCresc(-6)RMD(a#a#)#FF RMDCresc(-6)RMD(g#g#)#FF RMDCresc(-6)RMD(gg)#FF RMDCresc(-6)RMD(g#g#) #FF RMDCresc(-6)RMD(a#a#)#FF RMDCresc(-6)RMD(d#d#d#d#)#FF RMDCresc(-6)RMD(ee)#FF RMDCresc(-6)RMD(d#d#)#FF RMDCresc(-6)RMD(c#c#)< #FF RMDCresc(-6)RMD(bbbb)#FF RMDCresc(-6)RMD(a#a#)#FF RMDCresc(-6)RMD(g#g#)#FF RMDCresc(-6)RMD(gg)#FF RMDCresc(-6)RMD(g#g#) #FF RMDCresc(-6)RMD(a#a#)#FF RMDCresc(-6)RMD(d#d#)>#FF RMDCresc(-6)RMD(d#d#)>#FF RMDCresc(-6)RMD(d#d#d#d#)#FF RMDCresc(-6)RMD(c#c#) #FF RMDCresc(-6)RMD(cccc)<#FF RMDCresc(-6)RMD(aa)#FF RMDCresc(-6)RMD(g#g#g#g#)#FF RMDCresc(-6)RMD(f#f#) #FF RMD(e8)<[10 RCD(ea)] #FF RCD(d#g#b)#FS RMDCresc(5)RMD(eff#gg# aa#b>cc#d) #SF RCD(d#ga#)#FFS RMDCresc(5)RMD(eff#gg# aa#b>c#dd#) [7 r2.] r2. r2. r8 } #PART8_3={ o4 #R3 #F l16 Q(35,37) #PEDAL8 [r8[l16RCD(d#b>d#<)]l8RCD(g#b>d#<)] r8[l16RCD(g>d#g<)]l8RCD(a#>d#g<) r8[l16RCD(>c#d#a#<)]l8RCD(>c#d#a#<) r8[l16RCD(b>d#g#<)]l8RCD(b>d#<) r8[l16RCD(a#>d<)]l8RCD(a#>d<) r8[l16RCD(ga#)]l8RCD(ga#>d#<) >l8RCD(ga#>d#<)d#<)]l8RCD(f#a>d#<) r8[l16RCD(a>d#a<)]l8RCD(a>d#a<) r8l16[RCD(ea>c#<)][RCD(d#a>c#<)][RCD(c#a>c#<)][RCD(d#a>c#<)][RCD(ea>c#<)] RCD(dg#b)[11 r] r2. #FS[8 o3r8l16ROCT(d#)ROCT(g#)>l8ROCT(d#)] o3r8l16ROCT(d#)ROCT(g#)l8RCD(b>d#b)r4. r2. r2. r2. r2. } #PART8_4={ o2 #R3 #FF l16 Q(35,37) #PEDAL8 l8 ROCT(g#)rr ROCT(b)rr> ROCT(d#)rr ROCT(g)rr ROCT(g#)rr RMD(e)rr RMD(d#)rr rrr< ROCT(g#)rr >ROCT(c)rr ROCT(c#)rrrrr l16 r o4ROCT(d)ROCT(c#)ROCT(c)d#<)ROCT(d)ROCT(c#)ROCT(c)d#a#<)RCD(b>d#b<)l8RCD(>c#d#>c#<<)l16RCD(b>d#b<)RCD(a#>d#a#<) l16RCD(b>d#b<)RCD(a#>d#a#<)l8RCD(g#>d#g#<)d#g#<)> o3l16RCD(a#>d#a#<)RCD(b>d#b<)l8RCD(>c#d#>c#<<)l16RCD(b>d#b<)RCD(a#>d#a#<) l16RCD(b>d#b<)RCD(a#>d#a#<)l8RCD(g#>d#g#<)d#g#<)> l16RCD(b>d#b<)RCD(a#>d#a#<)l8RCD(g#>d#g#<)d#g#<)> l16RCD(b>d#b<)RCD(a#>d#a#<)l8RCD(g#>d#g#<)d#g#<)>l16RCD(b>d#b<)RCD(a#>d#a#<)l8RCD(g#>d#g#<) l8^8 RCD(g#>d#g#)l8RCD(g#>d#g#)RCD(g#>d#g#) RCD(g#>d#g#)<d#g#)<d#g#)<< } #PART9_16={ TmpChangeR(80)r8TmpChangeR(100,!4.)TmpChangeR(80,!4.) TmpChangeR(75,!2.) TmpChangeR(55) } #PEDAL9={ Sub{ r8 r2. r8 r8r8 r4. r2. #PEDALOFF } } #PART9_1={ o7 #R3 #SF l8 Q(35,37) #PEDAL9 r8r8 o5 RCD(d#g#)r8r8 l2.o6RCD(g#b>d#g#) } #PART9_4={ o2 #R3 #SF l8 Q(35,37) #PEDAL9 RCD(g#>d#g#)rr RCD(g#>d#g#) rr l2.o5RCD(d#g#b) } #PART8a_16={ TmpChangeR(110) TmpChangeR(90,!2.^4.^4.^2.) TmpChangeR(90)TmpChangeR(100,!4)TmpChangeR(110,!8)TmpChangeR(90,!4.) } #PEDAL8a={ Sub{ r4.#PEDALOFF #PEDALON r2. r2. #PEDALOFF } } #PART8a_1={ o7 #R #SF l8 #PEDAL8a RMDCresc(-7) o7RMD(d#)RMD(d#) RMD(d#d#d#) RMD(d#d#d#d#d#d#) #PSR RMD(d#d#d# d#d#c#) } #PART8a_2={ o7 #R #FF l16 #PEDAL8a RMDCresc(-7) o8RMD(rd#)RMD(rd#) RMD(rd#)RMD(rd#)RMD(rd#) RMD(rd#)RMD(rd#)RMD(rd#) RMD(rd#)RMD(rd#)RMD(rd#) #PPSR [6 RMD(rd#)] } #PART8a_3={ o5 #R #P l16 #PEDAL8a r8r8r8r8r8r8 l2.#F RMD(d#>)#P r } #PART8a_4={ o4 #R #P l16 #PEDAL8a r8r8r8r8r8r8 l2.#F RMD(d#)> #R2 #P RCD(d#a#>g) } TR(1) #PART1_1 #tr1={ #PART2_1 #PART3_1 #PART4_1 #PART5_1 #PART6_1 #PART7_1 #PART8_1 } LoopPlay(#tr1,#PART8a_1) #PART9_1 TR(2) #PART1_2 #tr2={ #PART2_2 #PART3_2 #PART4_2 #PART5_2 #PART6_2 #PART7_2 #PART8_2 } LoopPlay(#tr2,#PART8a_2) #PART9_2 TR(3) #PART1_3 #tr3={ #PART2_3 #PART3_3 #PART4_3 #PART5_3 #PART6_3 #PART7_3 #PART8_3 } LoopPlay(#tr3,#PART8a_3) #PART9_3 TR(4) #PART1_4 #tr4={ #PART2_4 #PART3_4 #PART4_4 #PART5_4 #PART6_4 #PART7_4 #PART8_4 } LoopPlay(#tr4,#PART8a_4) #PART9_4 TR(16) #PART1_16 #tr16={ #PART2_16 #PART3_16 #PART4_16 #PART5_16 #PART6_16 #PART7_16 #PART8_16 } LoopPlay(#tr16,#PART8a_16) #PART9_16