%
% Nocturne, Opus 9, no 1
%
% for piano
%
% by Frederic Chopin
%
% Arranged for RISC OS AMPLE
%
% by Robin Terry
%
% October 2000
%

% Define dynamics

"#ppp"[4=L]
"#pp" [8=L]
"#p"  [16=L]
"#mp" [24=L]
"#mf" [36=L]
"#f"  [48=L]
"#ff" [64=L]
"#fff"[80=L]

% Crescendo - specify the number of beats before the word

"#pp<p" [8  #12+L]
"#pp<mp"[16 #12+L]
"#pp<mf"[24 #12+L]
"#pp<f" [40 #12+L]
"#p<mp" [8  #12+L]
"#p<mf" [20 #12+L]
"#p<f"  [32 #12+L]
"#mp<mf"[8  #12+L]
"#mp<f" [24 #12+L]
"#mf<f" [12 #12+L]
"#mf<ff"[28 #12+L]
"#f<ff" [16 #12+L]

% Diminuendo - specify the number of beats before the word

"#ff>f" [16 #12-L]
"#ff>mf"[28 #12-L]
"#ff>mp"[40 #12-L]
"#ff>p" [48 #12-L]
"#ff>pp"[56 #12-L]
"#f>mp" [24 #12-L]
"#f>pp" [40 #12-L]
"#mf>pp"[24 #12-L]
"#mp>p" [8  #12-L]
"#mp>pp"[16 #12-L]
"#p>pp" [8  #12-L]

% Setup words

"KeySig"[K(-B-E-A-D-G)K]
"PocoRall"[5 1-T]
"ATempo"  [5 0+T]
"RH-Setup"[1MIDILINE 3VOICES MIDIV 1MIDICHANNEL 1MIDIPROGRAM 64MIDIC SCORE KeySig 6=. 15'L 48, 6BAR]
"LH-Setup"[1MIDILINE 2VOICES MIDIV 2MIDICHANNEL 1MIDIPROGRAM 64MIDIC SCORE KeySig 6=. 15'L 48, 6BAR]

% Damper pedal

"P+"[64 64=MIDIC]
"P-"[0  64=MIDIC]
"P"[-24DURATION P- 24DURATION P+]

% Right hand words

"RH-P1"[1* 1:48,^//24,#p P+BCD=aBg|48,Pfff Pf24,Gfec|48,D/b 11 3PROP PBCD=aB=a+g=ACbg|22 6PROP 
PfG=eFB=a-a=g-gf=e-e=d-dc-Dc=bCF=e-e|
48,Pd/b 3#p<f PBBB|Pa//#p 2;Pd24,bCD1;G(^)|48,Pf// Pe24,Fed--b|48,Pa/D PE24,FedE|48,PF//24,PBCD=a4,\C24,bg|
48,Pfff Pf24,Gfec|48,PD/b 11 3PROP PBCD=aB=a+g=ACbg|16,Pf!F P=e-edcbgf=e-edcb=agfc|48,PD/bBBB|
PB/=d 9 1PROP PEFeFeFeFe 24,=dE12,G//f|
48,Pf/=e4,\\FG48,7 3PROP 3#p<f Pf=eF=G=ABC|PD/16,bgb 48,PD/c|6,\b24, 12#f<ff P!'F//d16,bgb48,PD/c|
8,\b48,3:#fff P'D16,/bgdb!b48,P- -C/#p =a|PB//^//|P-]

"RH-P2"[2* 0:144,#pp PF(!F) P -F(!-F)|24,Pe(E)F(!F)48,e(E)c(C) Pb(B)a(A)/|PB(!B)C(!C)/PD(!D)E(!E)/|
24,PF(!F)G(!G)48,B(!B)a(A) Pf(F)//|
0:144,PF(!F) PocoRall P=e(=E)|K(+F+C)K 24,#ppp Pd(D)E(!E)48,d(D)a(A) PB(!B)//|
24,PD(!D)E(!E)48,d(D)a(A) KeySig ATempo 144,#f PB(!B)|2#f<ff PC(!C) PD(!D)|
#p PF(!F) P -F(!-F)|24,Pe(E)F(!F)48,e(E)c(C) Pb(B)a(A)/|PB(!B)C(!C)/PD(!D)E(!E)/|
24,PF(!F)G(!G)48,B(!B)a(A)8,\a(A)144,Pf(F)|
0:144,PF(!F) PocoRall P=e(=E)|K(+F+C)K 24,#pp Pd(D)E(!E)48,d(D)a(A) PB(!B)//|
24,PD(!D)E(!E)48,d(D)a(A) KeySig ATempo 144,#f PB(!B)|PC(!C) PD(!D)|
PE(!E) PF(!F)|24,PG(!G)/f(F)G(!G)A(!A)B(!B)48,PB(!B)e(E)A(!A)|P/24,B(!B)a(A)g(G)f(F) Pf(F)/G(!G)f(F)e(E)d(D)|
48,#ff PE(!E)//P//#p =E(!=E)|
0:144,PF(!F) PocoRall P=e(=E)|K()K 24,#pp Pd(D)E(!E)48,d(D)a(A) PB(!B)//|
24,PD(!D)E(!E)48,d(D)a(A) KeySig ATempo 144,#f PB(!B)|PC(!C) PD(!D)|
PE(!E) PF(!F)|24,PG(!G)/f(F)G(!G)A(!A)B(!B)48,PB(!B)e(E)A(!A)|P/24,B(!B)a(A)g(G)f(F) Pf(F)/G(!G)f(F)e(E)d(D)|
48,#ff PE(!E)//P//#p =E(!=E)|
0:144,PF(!F) PocoRall P=e(=E)|K()K 24,#pp Pd(D)E(!E)48,d(D)a(A) PB(!B)//|
24,PD(!D)E(!E)48,d(D)a(A) KeySig ATempo 144,#f PB(!B)|PC(!C) PD(!D)|]

"RH-P3"[3* 0:48,#ff PF(-CF)/3;24,EF 1;48,f(-CE)/3;D|1;24,P -c(A^)//D(B)-c(A)D(B)-c(A)//^;//|
0:48,PF(-CF)/3;24,EF 48,e 1;f(-C/)3;D|1;24,P -c(A^)D(B)-c(A)D(B)-c(A)D(B)144,P -c(A)|
24,2:PD(F)//-c(E)a(-C)f(A)48,P -c(F)/-c(EG)|144,P -c(GB)2;PF(A)|1;24,Pd(F^)//#pp P- -c(E)a(-C)f(A)48,P -c(F)/-c(EG)|
2;144,PG(B) Pf(A)|
288,^;|/|
4* 1:24,1;#ppp PD(F)///a(E)D(F)48,Pa(E)/f(D)|24,PF(A)//G(B)f(A)G(B) Pf(A)//^;//|24,Pd(F)///a(E)D(F)48,Pa(E)/f(D)|
24,PF(A)G(B)f(A)G(B)f(A)G(B)144,Pf(A)|24,2:PD(F)//a(E)f(D)f(A)48,Pd(F)/E(G)|144,PG(B) Pf(A)|288,#ff Pd(F)|/|/|]

"RH-P4"[5* 1:144,^24,#p 64 6-T PBCD=aBg|64 0+T 48,Pfff Pf24,Gfec|
48,PD/b 24,PBCD=a16,Cbg|PfG=eF!!F=e-edc 24,20 6PROP Pb=agf=e-edcb=agfG=eF=bCF-e-d|
48,Pd/bPBBB|PB/=d 7 3PROP PEFe=dE24,G//f|48,Pf/=e 24,7 2PROP PFGfGf=eF 4#p<f =G=ABC|
48,#f PD/16,bgb48,PD/c|6,\b24,12#f<ff P!'F//d16,bgb48,PD/c|8,\b48,3:'PD16,/bgdb!b48,P- -C/#p =a|
PB//P -C/=a|P B//12,P'-CEG-C24,E^/!=a|
48,PB/^#ff 9#ff>pp P!E(G)//|24,20 12+T/-c(E)=a(-C)g(=A)e(G)-c(E)=a(-C)g(=A)e(G)-c(E) 20 2-T=a(-C)g(=AE)|
48,#ppp 64 6-T Pf(B=D)//f(B=D)f(B=D)24,PG(B=D)f|0BAR 12,^;388,Pf(6,B=D)]

% Left hand words

"LH-P1"[-2:48,^/////|24, #p P+BFDbFf PbFE=aFf|PbFDbFf PdFDbFf|PbFDbFf PbFE=aFf|PbFDbFf 6#p<f PbFDbFf|
P!d #p !FDaFf PgDBgDd|P!dDAfDd PgD--BgDd|
P!dDAfDd PgD--BgE!c|PfF=AfE=a PbFDbFf|PbFDbFf PbFE=aFf|PbFDbFf PdFDbFf|PbFDbFf PbFE=aFf|PbFDbFf PbFDbFf|
PbF=DbAb PeGEbGe|1* P!c=G=EcBc 6#p<f PfC=AeC=a|12#f<ff P!bFDbe!G P!!fF2;BFe=a|P1;b(^)FDbe!G P!!fF2;BFe=a|
#fff P!1;g(^)DGB-Fg P-eG-CE #p =f/(E)|Pb(^)FDbFd bfdbfe|P-]

"LH-P2"[-2:24,#pp P+DADAda PdAD--Ada|PdACGca PdACGca|PdACGca PdACGca|PdAEAca PdADAda|PdADAda K(+F+C)K PcACGca|
#ppp PdADFda PdGDGdg|PdADFda #f PgCE-Bec|KeySig 12#f<ff PaEG--Ba!a PdADAda|
-2:#p PDADAda PdAD--Ada|PdACGca PdACGca|PdACGca PdACGca|PdAEAca PdADAda|PdADAda K(+F+C)K PcACGca|#pp PdADFda PdGDGdg|
PdADFda #f PgCE-Bec|KeySig PaEG--Ba!a PdADAdb|
-2:PAEACae Pa=DFBf=d|PgBEBeb PgCEAec|PfADAda PdADAda|#ff Pd #p BE=Geb Pd=AC-Gc-a|
-2:PDADAda K(+F+C)K PcACGca|#pp PdADFda PdGDGdg|PdADFda #f PgCE-Bec|KeySig PaEG--Ba!a PdADAdb|
-2:PAEACae Pa=DFBf=d|PgBEBeb PgCEAec|PfADAda PdADAda|#ff Pd #p BE=Geb Pd=AC-Gc-a|
-2:PDADAda K(+F+C)K PcACGca|#pp PdADFda PdGDGdg|PdADFda #f PgCE-Bec|KeySig PaEG--Ba!a PdADAda|]

"LH-P3"[24,#ff 3FOR(-2:PDADAda dADAda|)FOR -2:PDADAda PdADAda|PdADAda dADAda|PdADAda PdADAda| -2:PDAD #pp Ada PdADAda|
PdADAda PDADada| #ppp 8FOR(-1:PDADada PDADada|)FOR
-1:#p PDADadP=a D=AD=adP-a|DADadPg DGDgdPa|DADadP=a D=AD=adP=a|]

"LH-P4"[-1:24,D=AD=adP-b DFDbFf|PbFDbFf PbFE=aFf|PbFDbFf PbFDbFf|PbFDbFf PbFE=aFf|PbFDbFf PbFDbFf|PbF=DbAb PeGEbGe|
P!c=G=EcBc PfC 4#p<f =AeC=a|P!bFDbe!G P!!fF2;BFe=a|1#f<ff P1;b(^)FDbe!G P!!fF2;BFe=a|#ff P1;!g(^)DGB-Fg PeG-CE #p fE|
P!bFDbFf PbGE=aGg|PbFDbFf PbGE=aGg|PbFDbFf #ff PbG=A-CEG|48,=A^96,//|-3:48,#ppp PB(!B)//B(!B)B(!B) PB(!B)|
0BAR 400,PB(6,!=D) P-]

% Players

"RUN"[READY CLS DISPLAY
% Nocturne, Opus 9, no 1
%
% for piano
%
% by Frederic Chopin (1833)
%
% Arranged for RISC OS AMPLE
%
% by Robin Terry
%
% October 2000

48,116=T
1P(RH-Setup RH-P1 RH-P2 RH-P3 RH-P4^;)P
2P(LH-Setup LH-P1 LH-P2 LH-P3 LH-P4^;)P
GO]