Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

%!PS-Adobe-2.0
%%Creator: dvips(k) 5.95a Copyright 2005 Radical Eye Software
%%Title: jazzmesse-vli.dvi
%%Pages: 11
%%PageOrder: Ascend
%%BoundingBox: 0 0 595 842
%%DocumentFonts: CMBX12 CMR10 CMR17 CMR12 CMR8
%%DocumentPaperSizes: a4
%%EndComments
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: dvips -O -1in,-1in -o jazzmesse-vli.ps jazzmesse-vli
%DVIPSParameters: dpi=600
%DVIPSSource:  TeX output 2007.10.20:2317
%%BeginProcSet: tex.pro 0 0
%!
/TeXDict 300 dict def TeXDict begin/N{def}def/B{bind def}N/S{exch}N/X{S
N}B/A{dup}B/TR{translate}N/isls false N/vsize 11 72 mul N/hsize 8.5 72
mul N/landplus90{false}def/@rigin{isls{[0 landplus90{1 -1}{-1 1}ifelse 0
0 0]concat}if 72 Resolution div 72 VResolution div neg scale isls{
landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div hsize
mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul TR[
matrix currentmatrix{A A round sub abs 0.00001 lt{round}if}forall round
exch round exch]setmatrix}N/@landscape{/isls true N}B/@manualfeed{
statusdict/manualfeed true put}B/@copies{/#copies X}B/FMat[1 0 0 -1 0 0]
N/FBB[0 0 0 0]N/nn 0 N/IEn 0 N/ctr 0 N/df-tail{/nn 8 dict N nn begin
/FontType 3 N/FontMatrix fntrx N/FontBBox FBB N string/base X array
/BitMaps X/BuildChar{CharBuilder}N/Encoding IEn N end A{/foo setfont}2
array copy cvx N load 0 nn put/ctr 0 N[}B/sf 0 N/df{/sf 1 N/fntrx FMat N
df-tail}B/dfs{div/sf X/fntrx[sf 0 0 sf neg 0 0]N df-tail}B/E{pop nn A
definefont setfont}B/Cw{Cd A length 5 sub get}B/Ch{Cd A length 4 sub get
}B/Cx{128 Cd A length 3 sub get sub}B/Cy{Cd A length 2 sub get 127 sub}
B/Cdx{Cd A length 1 sub get}B/Ci{Cd A type/stringtype ne{ctr get/ctr ctr
1 add N}if}B/CharBuilder{save 3 1 roll S A/base get 2 index get S
/BitMaps get S get/Cd X pop/ctr 0 N Cdx 0 Cx Cy Ch sub Cx Cw add Cy
setcachedevice Cw Ch true[1 0 0 -1 -.1 Cx sub Cy .1 sub]{Ci}imagemask
restore}B/D{/cc X A type/stringtype ne{]}if nn/base get cc ctr put nn
/BitMaps get S ctr S sf 1 ne{A A length 1 sub A 2 index S get sf div put
}if put/ctr ctr 1 add N}B/I{cc 1 add D}B/bop{userdict/bop-hook known{
bop-hook}if/SI save N @rigin 0 0 moveto/V matrix currentmatrix A 1 get A
mul exch 0 get A mul add .99 lt{/QV}{/RV}ifelse load def pop pop}N/eop{
SI restore userdict/eop-hook known{eop-hook}if showpage}N/@start{
userdict/start-hook known{start-hook}if pop/VResolution X/Resolution X
1000 div/DVImag X/IEn 256 array N 2 string 0 1 255{IEn S A 360 add 36 4
index cvrs cvn put}for pop 65781.76 div/vsize X 65781.76 div/hsize X}N
/p{show}N/RMat[1 0 0 -1 0 0]N/BDot 260 string N/Rx 0 N/Ry 0 N/V{}B/RV/v{
/Ry X/Rx X V}B statusdict begin/product where{pop false[(Display)(NeXT)
(LaserWriter 16/600)]{A length product length le{A length product exch 0
exch getinterval eq{pop true exit}if}{pop}ifelse}forall}{false}ifelse
end{{gsave TR -.1 .1 TR 1 1 scale Rx Ry false RMat{BDot}imagemask
grestore}}{{gsave TR -.1 .1 TR Rx Ry scale 1 1 false RMat{BDot}
imagemask grestore}}ifelse B/QV{gsave newpath transform round exch round
exch itransform moveto Rx 0 rlineto 0 Ry neg rlineto Rx neg 0 rlineto
fill grestore}B/a{moveto}B/delta 0 N/tail{A/delta X 0 rmoveto}B/M{S p
delta add tail}B/b{S p tail}B/c{-4 M}B/d{-3 M}B/e{-2 M}B/f{-1 M}B/g{0 M}
B/h{1 M}B/i{2 M}B/j{3 M}B/k{4 M}B/w{0 rmoveto}B/l{p -4 w}B/m{p -3 w}B/n{
p -2 w}B/o{p -1 w}B/q{p 1 w}B/r{p 2 w}B/s{p 3 w}B/t{p 4 w}B/x{0 S
rmoveto}B/y{3 2 roll p a}B/bos{/SS save N}B/eos{SS restore}B end

%%EndProcSet
%%BeginProcSet: texps.pro 0 0
%!
TeXDict begin/rf{findfont dup length 1 add dict begin{1 index/FID ne 2
index/UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]FontType 0
ne{/Metrics exch def dict begin Encoding{exch dup type/integertype ne{
pop pop 1 sub dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get
div def}ifelse}forall Metrics/Metrics currentdict end def}{{1 index type
/nametype eq{exit}if exch pop}loop}ifelse[2 index currentdict end
definefont 3 -1 roll makefont/setfont cvx]cvx def}def/ObliqueSlant{dup
sin S cos div neg}B/SlantFont{4 index mul add}def/ExtendFont{3 -1 roll
mul exch}def/ReEncodeFont{CharStrings rcheck{/Encoding false def dup[
exch{dup CharStrings exch known not{pop/.notdef/Encoding true def}if}
forall Encoding{]exch pop}{cleartomark}ifelse}if/Encoding exch def}def
end

%%EndProcSet
%%BeginProcSet: special.pro 0 0
%!
TeXDict begin/SDict 200 dict N SDict begin/@SpecialDefaults{/hs 612 N
/vs 792 N/ho 0 N/vo 0 N/hsc 1 N/vsc 1 N/ang 0 N/CLIP 0 N/rwiSeen false N
/rhiSeen false N/letter{}N/note{}N/a4{}N/legal{}N}B/@scaleunit 100 N
/@hscale{@scaleunit div/hsc X}B/@vscale{@scaleunit div/vsc X}B/@hsize{
/hs X/CLIP 1 N}B/@vsize{/vs X/CLIP 1 N}B/@clip{/CLIP 2 N}B/@hoffset{/ho
X}B/@voffset{/vo X}B/@angle{/ang X}B/@rwi{10 div/rwi X/rwiSeen true N}B
/@rhi{10 div/rhi X/rhiSeen true N}B/@llx{/llx X}B/@lly{/lly X}B/@urx{
/urx X}B/@ury{/ury X}B/magscale true def end/@MacSetUp{userdict/md known
{userdict/md get type/dicttype eq{userdict begin md length 10 add md
maxlength ge{/md md dup length 20 add dict copy def}if end md begin
/letter{}N/note{}N/legal{}N/od{txpose 1 0 mtx defaultmatrix dtransform S
atan/pa X newpath clippath mark{transform{itransform moveto}}{transform{
itransform lineto}}{6 -2 roll transform 6 -2 roll transform 6 -2 roll
transform{itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll
curveto}}{{closepath}}pathforall newpath counttomark array astore/gc xdf
pop ct 39 0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}
if}N/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1
-1 scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3
get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip
yflip not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub
neg 0 TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{
noflips{TR pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop
90 rotate 1 -1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get
neg sub neg TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr
1 get neg sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr
2 get ppr 0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4
-1 roll add 2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S
TR}if}N/cp{pop pop showpage pm restore}N end}if}if}N/normalscale{
Resolution 72 div VResolution 72 div neg scale magscale{DVImag dup scale
}if 0 setgray}N/psfts{S 65781.76 div N}N/startTexFig{/psf$SavedState
save N userdict maxlength dict begin/magscale true def normalscale
currentpoint TR/psf$ury psfts/psf$urx psfts/psf$lly psfts/psf$llx psfts
/psf$y psfts/psf$x psfts currentpoint/psf$cy X/psf$cx X/psf$sx psf$x
psf$urx psf$llx sub div N/psf$sy psf$y psf$ury psf$lly sub div N psf$sx
psf$sy scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub
TR/showpage{}N/erasepage{}N/setpagedevice{pop}N/copypage{}N/p 3 def
@MacSetUp}N/doclip{psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll
newpath 4 copy 4 2 roll moveto 6 -1 roll S lineto S lineto S lineto
closepath clip newpath moveto}N/endTexFig{end psf$SavedState restore}N
/@beginspecial{SDict begin/SpecialSave save N gsave normalscale
currentpoint TR @SpecialDefaults count/ocount X/dcount countdictstack N}
N/@setspecial{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs
neg 0 rlineto closepath clip}if ho vo TR hsc vsc scale ang rotate
rwiSeen{rwi urx llx sub div rhiSeen{rhi ury lly sub div}{dup}ifelse
scale llx neg lly neg TR}{rhiSeen{rhi ury lly sub div dup scale llx neg
lly neg TR}if}ifelse CLIP 2 eq{newpath llx lly moveto urx lly lineto urx
ury lineto llx ury lineto closepath clip}if/showpage{}N/erasepage{}N
/setpagedevice{pop}N/copypage{}N newpath}N/@endspecial{count ocount sub{
pop}repeat countdictstack dcount sub{end}repeat grestore SpecialSave
restore end}N/@defspecial{SDict begin}N/@fedspecial{end}B/li{lineto}B
/rl{rlineto}B/rc{rcurveto}B/np{/SaveX currentpoint/SaveY X N 1
setlinecap newpath}N/st{stroke SaveX SaveY moveto}N/fil{fill SaveX SaveY
moveto}N/ellipse{/endangle X/startangle X/yrad X/xrad X/savematrix
matrix currentmatrix N TR xrad yrad scale 0 0 1 startangle endangle arc
savematrix setmatrix}N end

%%EndProcSet
%%BeginFont: CMR8
%!PS-AdobeFont-1.1: CMR8 1.0
%%CreationDate: 1991 Aug 20 16:39:40
% Copyright (C) 1997 American Mathematical Society. All Rights Reserved.
11 dict begin
/FontInfo 7 dict dup begin
/version (1.0) readonly def
/Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def
/FullName (CMR8) readonly def
/FamilyName (Computer Modern) readonly def
/Weight (Medium) readonly def
/ItalicAngle 0 def
/isFixedPitch false def
end readonly def
/FontName /CMR8 def
/PaintType 0 def
/FontType 1 def
/FontMatrix [0.001 0 0 0.001 0 0] readonly def
/Encoding 256 array
0 1 255 {1 index exch /.notdef put} for
dup 40 /parenleft put
dup 41 /parenright put
dup 46 /period put
dup 48 /zero put
dup 49 /one put
dup 52 /four put
dup 54 /six put
readonly def
/FontBBox{-36 -250 1070 750}readonly def
currentdict end
currentfile eexec
D9D66F633B846A97B686A97E45A3D0AA052A014267B7904EB3C0D3BD0B83D891
016CA6CA4B712ADEB258FAAB9A130EE605E61F77FC1B738ABC7C51CD46EF8171
9098D5FEE67660E69A7AB91B58F29A4D79E57022F783EB0FBBB6D4F4EC35014F
D2DECBA99459A4C59DF0C6EBA150284454E707DC2100C15B76B4C19B84363758
469A6C558785B226332152109871A9883487DD7710949204DDCF837E6A8708B8
2BDBF16FBC7512FAA308A093FE5CF4E9D2405B169CD5365D6ECED5D768D66D6C
68618B8C482B341F8CA38E9BB9BAFCFAAD9C2F3FD033B62690986ED43D9C9361
3645B82392D5CAE11A7CB49D7E2E82DCD485CBA1772CE422BB1D7283AD675B65
48A7EA0069A883EC1DAA3E1F9ECE7586D6CF0A128CD557C7E5D7AA3EA97EBAD3
9619D1BFCF4A6D64768741EDEA0A5B0EFBBF347CDCBE2E03D756967A16B613DB
0FC45FA2A3312E0C46A5FD0466AB097C58FFEEC40601B8395E52775D0AFCD7DB
8AB317333110531E5C44A4CB4B5ACD571A1A60960B15E450948A5EEA14DD330F
EA209265DB8E1A1FC80DCD3860323FD26C113B041A88C88A21655878680A4466
FA10403D24BB97152A49B842C180E4D258C9D48F21D057782D90623116830BA3
9902B3C5F2F2DD01433B0D7099C07DBDE268D0FFED5169BCD03D48B2F058AD62
D8678C626DC7A3F352152C99BA963EF95F8AD11DB8B0D351210A17E4C2C55AD8
9EB64172935D3C20A398F3EEEEC31551966A7438EF3FEE422C6D4E05337620D5
ACC7B52BED984BFAAD36EF9D20748B05D07BE4414A63975125D272FAD83F76E6
10FFF8363014BE526D580873C5A42B70FA911EC7B86905F13AFE55EB0273F582
83158793B8CC296B8DE1DCCF1250FD57CB0E035C7EDA3B0092ED940D37A05493
2EC54E09B984FCA4AB7D2EA182BCF1263AA244B07EC0EA901C077A059F709F30
4384CB5FA748F2054FAD9A7A43D4EA427918BD414F766531136B60C3477C6632
BEFE3897B58C19276A301926C2AEF2756B367319772C9B201C49B4D935A8267B
041D6F1783B6AEA4DAC4F5B3507D7032AA640AAB12E343A4E9BDCF419C04A721
3888B25AF4E293AACED9A6BDC78E61DA1C424C6503CC1885F762B36775D22D60
90EAD6264BD19520CAE15B9D10C9EAF67861330EE82CE275B8C8AF5B398B77E6
F6049C7779C0D106E65116356B8B0E5CF6FF8180DBFFDECA4F13894E17CEF1B0
6545D48A3E5CC6D9ACFB835E39171BFE398D6BE08EDE3CB26861A64AAEE03ED0
8B1777B44B79809C398B21727475EB01E20C0FAC29A2AE499CE6B23DA8D2D4AC
10C0C0552BE47F12B955E629431581B898946BAB974BB5EFE5F2D09E733C4F15
41858D8DF7A469AC391926DC96B6CA6A4B3098032D7EAB76B4BDB11CBEEA092A
7458003B4D5C7BEA235EB80D035B9084C1B69000F85F46D1C85678FBF9C90BB0
047515D9285502EABD3154F3F0B47FB772D6ABF3890183B1E3CB032AFE905675
D600BA24F112CC81B183E1129C600FDD9E42B750230D2047622FBED2AC24C041
DCE6B69CBB0E41495C3E6A6058C83AB94880B85EF3BAB7018CF4603DC90FC7B7
E8931F4F77A71B63D93DF08FA611E7174D08B4EDCDCB66992D52BD120A372615
9745F5B4DE7EA26DD2E31FF9059357D59EAAEF614FE43C3704378C20790F7159
E63157B1F687332998DAEBE20FE4E5642A144C28632465EBC983907F35EC406F
253D2EC2A7F86BEDD8CBD5E0CAA5296DA43E910F77C0946D56423B08F13BDA98
350862129A3BEACB9652BBA6B58DC2C5B8B902D8B8EF8AB80C78CE9D490BC29E
EB8FCB7BD6B009026197A3047E410B3DE0FF53CC26D7FD61E20A220340220C92
40A7E4347715B4C4BEA4D27695BDDFC0CD0A0DC0FCD725865E6DD29889F07E6B
C15A279D93F91A0E6E1B69BD3F83CC1F00E8C855BD87907D7EF7F87CEAD50692
DC8FFC70F2EC86E9DF4454EBF8286A2D35A85C403D585275CA6349F455F5C0B1
548F8057663FD74C64673E83BB8D6899EA7FC9F91052202FE35BE55CCFB0379F
963FAD11FD56C39D40831B750785CAEF5977F906255C3D446C83CFA128E46AF9
2FF2832759EDD0EDC71FE96B0A3E5348DFD8B717995B84165A92B602360D713E
4256F4203EA7CF0AEF5F2CD7CACB868F85E8E9166C45D5456BEE7575312F57BC
7F347A58DE6E5ED506AB2EF8769BC6D9F94A400A7122BC21C63227AB4E2435D5
5A12112567C1E1A575B8FB426121730AA6886B3D3033D119F59398662DCC9D59
FCD9136253A4BC3B7221219493AD8DC03625129691CA9557E5E1281390986CF5
E0E4F95CDD22C2D10221DD4CE47F531AE5191A9105B0E5487B0DAE81BB0C3D66
9F6E39391AFCC17B4D5E019B230DA0D1A378BF359790C04EB7B938C6CE3A4EA6
A67834B952AA1545E1D17E1079E1AAE0870160522AE031F19A4B4C513CF466E0
9367D31382B572CF6C059D60504F92900EFA1DB46BECF5CB7DF5E6C128A372A4
6C7E7BA5DF1AF9B993C3E81C4DCD6CEC68BDDA287CA6C4FC1F8BCF59A7D13F12
8484EE4C421508713BDB16615B6A0ACB11D1DE5D8C5C92120598C20A21A0D76D
D2C4E9C6B1249840865C1B5187574F72A283E2828B7A0BBE2BA4E4B00F47AD12
DBD341B6BA87AA21071E977F14D85029FBBB48
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark
%%EndFont 
%%BeginFont: CMR12
%!PS-AdobeFont-1.1: CMR12 1.0
%%CreationDate: 1991 Aug 20 16:38:05
% Copyright (C) 1997 American Mathematical Society. All Rights Reserved.
11 dict begin
/FontInfo 7 dict dup begin
/version (1.0) readonly def
/Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def
/FullName (CMR12) readonly def
/FamilyName (Computer Modern) readonly def
/Weight (Medium) readonly def
/ItalicAngle 0 def
/isFixedPitch false def
end readonly def
/FontName /CMR12 def
/PaintType 0 def
/FontType 1 def
/FontMatrix [0.001 0 0 0.001 0 0] readonly def
/Encoding 256 array
0 1 255 {1 index exch /.notdef put} for
dup 25 /germandbls put
dup 40 /parenleft put
dup 41 /parenright put
dup 44 /comma put
dup 46 /period put
dup 48 /zero put
dup 49 /one put
dup 50 /two put
dup 51 /three put
dup 58 /colon put
dup 65 /A put
dup 66 /B put
dup 67 /C put
dup 71 /G put
dup 72 /H put
dup 73 /I put
dup 74 /J put
dup 75 /K put
dup 77 /M put
dup 80 /P put
dup 83 /S put
dup 84 /T put
dup 86 /V put
dup 97 /a put
dup 98 /b put
dup 99 /c put
dup 100 /d put
dup 101 /e put
dup 102 /f put
dup 103 /g put
dup 104 /h put
dup 105 /i put
dup 107 /k put
dup 108 /l put
dup 109 /m put
dup 110 /n put
dup 111 /o put
dup 112 /p put
dup 114 /r put
dup 115 /s put
dup 116 /t put
dup 117 /u put
dup 120 /x put
dup 122 /z put
dup 127 /dieresis put
readonly def
/FontBBox{-34 -251 988 750}readonly def
currentdict end
currentfile eexec
D9D66F633B846A97B686A97E45A3D0AA052A014267B7904EB3C0D3BD0B83D891
016CA6CA4B712ADEB258FAAB9A130EE605E61F77FC1B738ABC7C51CD46EF8171
9098D5FEE67660E69A7AB91B58F29A4D79E57022F783EB0FBBB6D4F4EC35014F
D2DECBA99459A4C59DF0C6EBA150284454E707DC2100C15B76B4C19B84363758
469A6C558785B226332152109871A9883487DD7710949204DDCF837E6A8708B8
2BDBF16FBC7512FAA308A093FE5CF4E9D2405B169CD5365D6ECED5D768D66D6C
68618B8C482B341F8CA38E9BB9BAFCFAAD9C2F3FD033B62690986ED43D9C9361
3645B82392D5CAE11A7CB49D7E2E82DCD485CBA04C77322EB2E6A79D73DC194E
59C120A2DABB9BF72E2CF256DD6EB54EECBA588101ABD933B57CE8A3A0D16B28
51D7494F73096DF53BDC66BBF896B587DF9643317D5F610CD9088F9849126F23
DDE030F7B277DD99055C8B119CAE9C99158AC4E150CDFC2C66ED92EBB4CC092A
AA078CE16247A1335AD332DAA950D20395A7384C33FF72EAA31A5B89766E635F
45C4C068AD7EE867398F0381B07CB94D29FF097D59FF9961D195A948E3D87C31
821E9295A56D21875B41988F7A16A1587050C3C71B4E4355BB37F255D6B237CE
96F25467F70FA19E0F85785FF49068949CCC79F2F8AE57D5F79BB9C5CF5EED5D
9857B9967D9B96CDCF73D5D65FF75AFABB66734018BAE264597220C89FD17379
26764A9302D078B4EB0E29178C878FD61007EEA2DDB119AE88C57ECFEF4B71E4
140A34951DDC3568A84CC92371A789021A103A1A347050FDA6ECF7903F67D213
1D0C7C474A9053866E9C88E65E6932BA87A73686EAB0019389F84D159809C498
1E7A30ED942EB211B00DBFF5BCC720F4E276C3339B31B6EABBB078430E6A09BB
377D3061A20B1EB98796B8607EECBC699445EAA866C38E00420B0477533ADB13
FC3B396C065B09769DAF0871076FB7FD0DC228CF3EE115446C7159B03F19BC6B
8FDA91BAF28AD303E26F885EE238874B11FEE84C47AF37E871AB5A85B043190E
E860B6443C43E27EA122F1E49241CA0D3B9F12495B0944DAB562A85D084312AC
8A5FB7C4DADB70C8D6CB46D3A904810C8A2370F4DB0B95DE9F7CC2A3A3010A92
CEC7D33F2EBC1ECEDA19CBB9A1B6B585AD17F92473794BDBDEAF6039C28138E3
D86BFE8DA8607817AEE030753FCE8C7825450B44B1C8CFA47A5E80A785F88635
EA4C371C2F018CE0F3D4DD8543AD2AC9D702F04E38FE23D54802884877D0CE9D
DB7A339EA89B495387DA2488B83232056F58AEBF75FCAA2BBA5A73B4D96733F5
F9A3118B7FE49BB41B5DA727CA62671E7EE4D2655D05BEE1A063DE5B2DC657FE
47D82B8951BDD97133AE304E6BB428DA4B7A9FFF1EE96B6CCB4700E68973E7E1
73C7A5DF8F5E7476153660C55A43FCD1555BDCB6A5B6185B20757EE9845E576F
2002AD5F604B47FE20A17ED479B8D97A298F37728DFD6D3DB17E7AB1B4C22E3E
F307E63792AC509574FD2F17599459AB249E6E81A11755611AD2ACA1286BD852
9756A04B272462C3C0C0C8C2E73721959E0752665E1468A2463DF611551F9FF7
22EAFBC7E03536094FBEBF62D5419400E6CABDBDFA434711C217F38BBFB8414B
BA9F393AF7855B109E08D4D21179C3A95701278E74C6387E8BA3E14FAADA8EB5
0379A595A009AC482E36CD0D6EC42AAA9F67B7B230410858512B7BFC7CD61F6C
F5BCA6D229B7C525D41F4CF8B342E6BB92A9B31A574C5F421F35CBC30BF4647C
01D6CF09F3498C423821FF64E730DFDAB4D8A5D3858EB6CD747182851B13933E
411D67F7FD50DCF0889EEC69CC23F2CED889EDA9FD4DE948D282144609281371
D5E5B63053A09B75B574D08E4F96EFE76BBCAA7482D14913130BD581C4C3B1EC
A7FAE107BD9D7F836B673FF18C1A07C139E3249A1B1F7CCADD017B62260A48E9
B2A3DF5EC91CF9A04DC7F25B84E774915CC9606C18D283FA18350A5F2F7B28C0
DF0B03E8C2F615EC7468CA811A99F2518DD25FBC213AD7BD6B4463385A3539F2
EC0E0CF351165968A8F09A92C2EB236ED5C7425A76D2BD4F053FE3344A64CA90
B816AC7071A48833089C7E2F61EC74F62001F9C692802B1A9F758DAB9964BDFE
D23837D419131F3FA3439F3AD9B699EF17EECF85D8AE58DCA3A59939E6B7369B
81148AA443AFAB6F1177D52EAB913E86C7F8E24F9BD44C2976FC34FA0336DB3E
14D6262A1DCFD7E6B945B49DEC1A55B97C4EF3EF4743DE91B8AE046CB7C83CF4
1581495BAE258335F6DAA7192D16BD9DEF8D44F1DBB1672A0833C296CB6555DC
C447EA7B4B8BCC0D6AF6B967648659837E10234C94E43817DE044074E12FC46E
8A931315F26E10AE8B92F5B63B7E2522C733F5C2B279957929BB2ABBD1437B0A
89DCC7275A5EA50AE8C962FF21B52313B9B72846624C50E5D80F5795A97D773D
A106BC4D52E07C00BBF58C3BEBD652D2DED0B47ADB7894B0441CF22845E4C36B
3D512D4413BBDE93BBABBC8631A8B52B8E31A67F5B203C577065BD1450C0868A
D5EACBFE844027724AB357E201A9DCEB8C0844DBC101238A7303EBEE9CAA2F4E
58E5420A720D80C0C5AD6148BD59DC898B0C4F5E7D6448F6CDA3D3FDF41AAC34
090B14A434ADA1EDE0163A0EB33F33CF713330F21C32D1441EF0F9042C0A2B88
39D0EF27D2A30838B57F2099AF6A12706097ECFCF0089476B2F778CBEEA191DA
5A5C50F77A76110D4A06F4ABC5FE37F8EEC1D114C418C1E2893E4284131C1A06
1A6C6E12A891D6F398FB91E65AC321A59DD8A7479D9812FFFCAB1AC13FB4FB24
86865A86E8C1E36247815035E1E8BC7F1B8DC4F6F14439EE343200561AE1805B
0E12C3314831FAE7159872AF3235DAE093975FB962F54E10D12D9E8E7FE0AC8A
ECB0FDB0C2CFDE7F169C4F041C0224ED3D9CDF01E2867A39DB376CAF3C084F64
23E1D80D5F9BE83BE0702411A7F8F70004F842280C5F9AB1848EE50D5D4EC6CB
FE816C24F2D8045D5EEDB56A80561D557684258B5C940B2902103868F9382631
B52E14BF0776B95AD823ACB99139971F771FC7EB10992E516427C7B2F78C79C3
4B7D7F23A1C024F3E001DB00CDB8A592413C635E992873869FAD4C705976794C
9AB016B5CC89E1495008EEBC5464A060F6FFAA15FF0DE2E70BA514C021DDFEAC
D4C1C97428E81CC9F90A7A43FCCF2A5DE4F07E57EEE2D4F55492142C37EF9EC4
37E808F5EBFDDC9AEE5383362A6FBBC8B818DE194277E979F8A2A83D53FF8A27
0023C14E8A7CF9BF8BEE253CEB0C2366A5E4BAF0314C675F9CC53FE4031E92DF
50E3D08A0B7DDEBBFE5F6D1E34641EF71500411BB8317777107B9617962FC25B
372714610685804353810FC477B20272DDD3FBE4F1FBDC5706C792D91287E638
220E02F781B374C99C75D355B896D66B483E3BA4554FAEC11AED622FA24BF2E5
35CC5340E5D1E6665BE3FECA3EF6A57E95DD086B978030E66C1342FBAAF04362
3A797B0FD4AE7562D51DC5179675B7C0C7DACF9FCB23EE3103685E8F86CD60A1
D4052457104A26C5BD53783A161C88F9719F522F5A7B9A056A630F04A2D75DF0
295CA516E48F812EEFC5847E375B9D999EA0CE098FDECF2913AB89ECF1E29360
6E39603EF34479634441693AF07BBD731132985B144F804BD28D3BB387025BF1
7B6CC4D56432B00F5214E9FBA870C6F85A73FF3B905B70FB6ADDE7B222BE6C9C
38D992521E413ECF1403DF0C4806CD8CA7145A1A42BD8664B6485D0E56A43784
5BA3817B049D9E77F16335CFF6F353E22E3C4C100CC81BD812C32F2C05BB8BCF
1C678679814D92390F1A8A8DA2609D053768A2C929EBE43E5416272C7E4028F2
935E5BC9089981BE8B893042C5E99F559BEBF92662F86A3172283DE95D6E8B6C
73FB2F1A39F80370F0160D03329400FA0232D44917E548C45C3BBA44F7CE738C
BFE47CCA5406D2EB2E7F7A389336FA43A7B575A86D727DD764E088DB661288D8
348BAFC745D1CF4D77F3D189D9AEBB185366CD4C67E637427F59C56060E8353C
59F8F10C96A87A730F3BD15F7D0390C1B802C683EE382998A0CF68775A0AFDBC
E24D6BEC8EBB01834B9B6BCB014A9AFACDB451691C3E2415A3C689300A564214
1FEE8E5A682A73546C3C99278ED1D0DC2A7D9AB0C1A61F6E8321DACE6C30EC4F
2E7CCF642DC24E785E0C808D0BA873D17D356F1D8F79457D2A6FB49316F274FD
32AA5828125A5B60F1CD4A75CE46094DA5902C04D69D3C50F6B4B9C57E0747CC
E3F2A478AF1171E04BEA162B7007310307B34B9A4834DFD4F4802EF07910AF12
065281EB21349B4D66EE3735F6601220AEE6EA9876805E0FA4E7209123B7C116
D45654C1C8EB85715F2C35CEBD1114574521EA788892451939F4EC9DCCBA3F54
8167A90C7A23379780EBE0F9B594A582C58348B3F61109B9DF0FDAFD724E2F27
6554168B84A15741D9B4AB37F5EFC4FE227FD6E50DF36657EF7B08A641CE9455
525B73EB39323E1010FFAE9DF9FB3D5E53856356DDFF91BB92CCB28EABAAA3BA
8B636D1C8E413AFB3528BF1563E94BAB17754BECDA83944FABAD26B18AEFE7A6
A2F971FA25793ADABB55346CDE1D6CB05352DD2966B544D6FB757299418EAD02
41DB16C881C4C5E610AA0E89C46DC66A4C2D100F565C64811B14160A394DB9ED
040209D59F4F24B6B6CCFB00D7B105143A0E31AFD5DA6532E589C4C8A266F6CF
04C6E6A6BA8E7451B8750FC3EF1ED886B7B3E49E42C7D51724F0A6D03F5F4612
7AADD6E03941007049647EE30917E1AF7CB4E2CE34CC593985074B89D6C1E324
BCB6AD013178F752ED3FE38B31FE717ED8C0F87B431142500CECD37044DE31D5
6F51768ABE4F8884405C342E971F2433CAD1E8E3A8E10289F2A6359AE6D2CA5E
599CB75823AE67DCDCC81531F29583E44FF2F3577B0B0C8AC461F83645B67E91
3E640AF9BA2CAEF471E1F286E60B0366F342A71ECA91F5BF180E00135D60D6DF
09711147FED1307AB0AF68A70F289BFDD29491B354AF05B17C7AD21BFF68DBFB
73E5404640B58F5D7076564FB9D17B34D4C5F6123060F78906173E40E493099D
3DE3081E163A3E8FC47B91986D16378AFC366426031121C9F4654618F2A6ADA6
4CE4F68DCC5913D4249B65C08490B29B33710F9AAC149398224D143C16B27C71
F10D157247A9D8336CC71A32CBFFB2E43D9A5F621E764025B8C5FFB87961086B
24F182DD0DEF1892137B2DA34BACB9DB76CBD1F138BF199FD49835A016F9D708
018F008E819E547B886D91F7A6BF795EB257E1E6AB7FF7D2EE6828AAA2F397D3
2B9DE6505127C4DB9EBD2EFD337431C912C5051CEA37D09EA42CAE2BC7EB67F4
A7C98BEF6531E575E073B494B8ABFD554596841CE743FE28A7BB58B541F56AA1
961C0852306BBB0282DA7D744757FE267A8529F5F65D3DC604F2B910CA89E43D
41191EA0F51AABACCC9BCC9765BA7FACB004FB4FD6B4F256DD9A409D93B4AB7E
008E1F17AED844A144B26B88182A437459F1E4C04286F2E35D70C8C6325F740A
DBE7D5E1DDB95741CD70A61EBC5A51937930CDFB1F438E6F0EB4E9BDFBECB2FD
53897CC968A2526C931A2B8547854BD87B066DB36C2B36D8B3ED0B51DDDE1C80
E65745A4577C244EFE3E24625F2F4B149684010B942499A3BA86419EB31C858A
5E4456BB4E8BD9312E199B8F73E4509C09A85499A5A11064E377FC074000B1D3
90E64824A466282889889B59FCDF2E28758FE373218ACB86B8857E1639318D88
D79A1B798C6DF0088E54EEBB75F99C23D3AD1222916D479A1D6E01D53437B75E
EE0799898995DF2C6AF4BD3CA283E41C05E99C0B24DF2D92CB0BE3B4B72FCA5D
92C92D1959F54A622F6526E386A9CF416A490037968492D7670E738A97C8F84C
4CA485DABA0D21696224EC511291AD2B11BAE8C063C265491ABA049689E5F12F
C9C663A4E953EAAB14A7D28FDB9C1B0EF60012B2C282E09FE89D60C0D4A7E55C
437FA78BFE1941C61C01E3D682D187F2E2D9C6D8E5E1F6ED2D50C165DA4DD056
80D4CCD3614C4E7192BFB38BCC32995E3A111F6C654CE56886D131937C0D18DC
ECA858F2B3E439129B06124036499812C830D768ECE4E5C2025BA4800FB6EE39
7AC8D713F972BBA531AE1735A3127231B51A90465383D77AB2A21B779B8FF0FF
EF69B188399795632AA34A8927970EC9BDC14E53B8CA972D59C302B0856FDC48
736BEACDA13D9433BCE523A69F2EEE3C82347725183B3D45A3946D1A87035623
D9EE885A63C8C82732CB5ECF50AB3965C8C43112B8196562CA65825C1BD6126A
D9778D5957F9AB4D60C79991F17D7691E2B0F4182FDEF294C2D862A11E6E6907
68F896999A4D2E1483AA391DF8A90102C9E0D89527E0E130935B57ACAB81649F
2BD9EE3B57F5EB934635C7F60BA211947CB18FDDBAA3E449CC76F30D0B10C4EA
2E5FE368259793AE7194E22E4B23B46EDCA537D3FAAF7F16784AF3CEBF657BA6
461B8BCAB7E242083C6BB769274A1180C99E40228BA350E13BF4575BCF1FFFE9
56402C57DB4977324EE7FD420168151B13DA52E4C96245F97EE68ECBF0E7840F
41450B503D30A709C1B46A15F2D9E07F311271B5C3FC084A5DE29F35EFBE5982
96E18B8B2C2DF0E9B4F0A159DFF9DB401516417848F0E439DE6203E5386213DC
AA9E3B6F1B77EF6E1FA188CAB528DF4D84C032D66656C74ACA76EE851FFC122E
9767774D4713B2657F9009D9171889A556C1BD4777527263B97EF53C8B2081A8
96C6CD755D356F9F5253A6D059AF224984DD3F672D8BF0D2276C7A9F6CB9CB0E
2FC3B0BA18453B2D86D69511C74C783BAE1A3606660747293AB068AB3013F949
C7D781AEB2E3F8454BA8960EDF4F3C446E3AF4D7F9F0B36646D4A77226AFF7DE
943299556945F94FD44DE634907A7F046661038CB0A5BF169FD308099F4BC291
15485DFAD7DFAE0EC6E8C9D41C86AF6EADC1297E6B5DB15C800E7735C37D8CB8
B45EB3A414EE152E338987E9C4629913E65BD8B268F3B32D3DF75FC98944AEC0
85EADDE332B49AE1FEFADD6F59C6C2F59643CCAB7EFFDD50A74C928D57383305
DD5AC5943243D1604FFEC10546C39A315C154F45FBC222A5D4E2968D09F5B7CE
9CA5F964673AC226870DDEE8EDDB735CC0AF251045F294BC0437B29CB085D66B
F6CD0D74F81C75A1EDE339DE59A2D4D458D774A7117FC402D992B09E3223D4B3
E22AD07A02A03C4D9DF5A824E2D4E67A3115CCF05AA5E3F80ED73C473DB7F97C
CC6831A73233E7D2D6ECF3A094DCF8D61B6D651D1AFC27063DFEF340A2E1228B
95A11C4D482379EAC4203E991F44D776F45181DB86F367CCFEDD5C4C290F85DA
A2AC5331DB27984E7D9682BD5E324E2F307F98E5C61F2122A89EC5034AA8614D
75CA5C5446B77D43CA38B1CBB13AE96FE94791F52C74895F3A4B24954DDAD662
E47E84E9152CF454A6201FD5753C58EB0D0DA078A1DD3C7FF8E35A1201A8B288
F9FFC76DF00C5EF0C847A42C1C17E4B42D58BCEAF21443538E0C61FAEAF244A1
4731AC7A98F1C298A1E4B78AF55E6F07C55594B339BF494C8A10CB5B247BA0ED
5FB1CB21194FF4B0F1D1A32B3AD6B53CE899BD62A4E5DF83D11BCA38F5F25BFD
6F63DB3F0B5B86B44A1B5AE832E71CDACA6444D18B00ABB18D7498D393F8BA73
D49D5A83C252544C71389E07B00D4414711C75CFA74E3565213326C511A60812
BA849866DC95FB848DD57AB560EE310FD8FAABDBA5DBFE67513A0D1CEC6FE7D9
9E48F893D7B31AFAC5EF8D047433D4C7FEEF1F85B534367C476EF476442A3F82
08C725229EF37E66066E7FAD777D1B627F543B99169D37B70F3CEE2D6B6883F7
B4073CA14FB62DF1A0CB27054E69FFD19809620696EBDFBDD7EBB0B90CFE0A82
A9E4DE9F537BC3C9A1EAF6E48E79BFB01E1213C2376D6F10454A18C9607C706F
6F80CA41C469D8E4D0E6845B7CBA57F498D53CEBF046B32740A3945A49B9DE18
7726D7C3D8D017EB1AAC63EEDDB147976DE538C4F0F126358D48B7D448D546FD
CD3D891F705B0C0925CD080DB8BA716FF627DAA61E15CB049681BAD6E4D550BD
5C3E5F0C653B7A71894065D16A7253B0CD530F4E68C0FDDDCF5FAAE6712F64AF
595669E8AC3A180F3F42D030193CBDF0BA2F488E99A902443FE4E2D4D1C3BC08
FECD8CD61B6DC87BF44042682139F830B7D549B10804BCCBF1F29A08E9A6EBC5
9A9108651B5576CA00A65397CB0DCCAEB7E8EE4BEABD8F5E3C3AC5166211AF47
78B8F76B73642BCE5FB5EFBBCECE5D238FE258809D4F5E4E57E26C7A217AB1A7
9735E4F31A9AEA4236CBBDD2038F50C5B2F4AA5A249903D93011393BBFFD41E0
DB8CFB73F33D22F79ACD11077774E11C075668EC1F316E3D3FACD79C507B850A
06D3B451AC0001E38E132225A7B307D6294EDC8AA534C538912B06BFBFDABDB6
95A4F409C8939D1D59BC6F1DC4F3E59800C1C6B7390FE3B0B14FC82AD69BA24F
C1463C68DAD48EFF2C1A4E3B83F95205DB789776592A9D49CF51BD0F41927FFC
1432B8FCD5BE47DF1688800C59B9F75C78949E36580D638B6E387CBA05EBD62A
66C98258497E83F9E4B285CA14D98ABF81DCFAD51FF5FED6EF8B7BA9CA092C7B
049840F0FDA37CBCC7C527B67DA10CB91EB448EFDACBE3F671A854D460D03402
D3F4BF08E4BA2E3DBF0B6B9E90228DBFA70518F8BE847CB71E32434EFEFF8249
CA4A48617C759DA7483BA6F0CDD88849315077B4FB822A191AE21315C036A4AF
18165C7F5C8BD8006F9FC0D66308582DCDBA4AB40CD68918F75AF12A71C6ED3D
4DE09DF141AB90041977B61162FD0C3D245CE1F73281EE944060900940CB7381
9DD7A252D5F3CCE36E313CA81AF19DC746AD09D9CB5657AA82B8746DFA8E4D9A
DE71E7FC156594CDCF2F83CFDD55962A461C62FEDD2D1A902ABEC01F91178E1A
A014E94B05B145CF77E5AF78B0524AC30AF57E2D5B760AE247CD97269F1B6B7F
02BC075910724EBFEEA6AEE93C61E6F0B260E956820510D173DFA2D365EB6FD7
F3D5649D0F9EA4B82AC7188F93ECA509AFBB0EB5EC12351388447474A0D88A51
0DA2F40C9AB070D542DB6C94C909759B3F08931E56B07BA2BAF0A55D5CAB647E
43D515F38B471EEE70B796254E4BCB416F094C0B37EA5205FAFB8B1089067444
4F998104E5C2E8EEC19BEA611E206E7EB6CCED3E6FC459B8EFE466154745B7FB
66BA47753285506C13CAC79D4F3B047B081C6FFF42FB4B9CD209E10E47349676
2D74802A58B33B77E254B4A001093F0A7C870237A85FCD0405C0E3251D5466B8
FFFAE8FE8DEB02EF22AB78F3D91CF154FC4D08EACAAC44154451CDC6A53523BC
E7037EED627F8D35CE6F6FC36CC3AE1069383E893829A9C3A4EB9CF4105606E4
AA17B51C4BF498643FAE5D135EADE4A3D218DDCC5B47DCEF77B4397906A139F9
3F0B12EECD0ECA4876199D1D8FD79070E9ABEC050D61FC46DDEA705A3EE46F35
14139B9B6D4223FAC27B88936D54200BA63AF463B2D82604E6A822D2799FC3AA
4E0D36E57D8B49D891145D0AA493D0EE88630CB7A794778CAF6BC2AA1F7DB5A0
AD3CA7681D6D28DE7776CC5F61CC206FACBDC838761E170601580F71EC2FA396
6D6D4B8F7BEC012C8330284FA5DEF24867A4342DA9C406C0B70687801F62BEFD
62B26D7DC6E09C083DA8E33B5F7B8DAE16989466281BD39A66506B6DC16C1BE3
833E162D53E90538F89D382F293833ABE4641909AAF09F24BFBD3E3912BBCE66
B3470C767D07148CA3CD5FCF19625A5C5226F68B70585A3ECBCB55997ADA9CFA
1EA3732ADC6EBFED4EFF4C54DB0AA98CE7B4180CF1E0F5C3E27222068FF771CE
5D111FE0ECDB02F8CBBC81E2E0C32603CF51BEF32FE74719E48ABC701EDE8589
BF203FB609CB24B1AFE34196118A559412C39DC9571E6824A252D4244DBAD812
D8E1474610FBFF698076863244C5262505C094DB47743F35EAFF747CD48BB960
B20C7981F51911DA20003DA90EC01A2EAEEE13DF95FAE09C6CF2E57B06962FD7
89CA1095B90247BD2E0C069F7E8B08B0D6826B77E98682E208D4BE9BEEC6311B
0EAEB39A9BB07D2D207B54186D26D9A62B67C47BBB645D8C16FB147DBEA25ED8
B5612757C7BDAEE312ADBF4A05DAB9A234B61518813C38553B2B593A36C17008
49115B7F2F10C1BF1553312D6394A8E2B368E1BDE996D4B3A03702EBB5B743D4
8EA6875B2F4E7C8A202D575BD8DC07E19CBA5368470680CC64C89527F13784AD
7720A94301DCE08138C2CC6AD359D0E53E1EC20E81BC9FE6FB2C8665EF908B21
ACB49992DE8881E3B59870931C6914121F984B1707DEEFD3EF1040E70313EBED
6D8D0EF40D1A8BF6B24E185D420BBCBAEA647D0AF66DDB9295CB27B168858F93
93E29A170F02E8517A621980BE312EE6008C0BEB647D822949A44837B5417B31
19E8B59F64AFEABA2F357257698EA8FD67F78B4B9ECB9FF72C0FC4260DDDAE1A
18660594E735A8D46CE51F647D6A660E529D2FF10BBE416AF22A5F065C686AB9
FB820050BF3815AB4B5AAA4928842E80C895705FCD998FE5EF69ACE4553D5762
84646482B313CD330F6F4B212752C5796EAF8CE4FF6A05A5F13CD5DDB1BBD3EF
A4FCA31217FAFF8F1A8D36D0E4E4EBA08402809A0C156BF5D12BD0908B55D1B0
558C2BF14076B981696B9FDDDA45D922A8D11D8AA938BB4D549402DB6BBA5792
2A32FAAC8CFA947CBD57A39B0711009A800472AC57EA28F18287D6E736B36B33
09CF596819E12445540E5B48B28E5922F4C4CCAC1782AA5813CAA3632D07AA10
719649A127FCC24706135CE9454CFD8194E9DE896E19DF0CB71B5866ABC10371
A312122216E8D7B38EF6E1583909E48D826F63C58D52CF8530B2BFC1BF260B6C
1B264206ED1BC90E3EB43D98D94137E9370AE54BF5648F7C1E9133A91DF0C700
281662FC19E2AB377B1209F013CD1A5C46EE692E7886EE373F14F67DDFA00F26
67F99667EE204A8786838061AD30F91528193077CD64F18F62E1D03713C53883
E81BB41DC0680240AE81A691E5692DC0B32E91A060D50C34CABDB3B7F5F8BD15
C79735F6E7A675A33E7D9EC4B717AD653CD519F855DECE55746DF4B9A33ECC1F
2EE600732DF890EF8AACE3C6A4C754D2464B17EBEF1EA86A0FEE1822C9C3FCF4
19E18EA417C2E88758D5076615F8E68EDD8307869037E556DD8B17D82DEA3F43
2C06DB59F29103033723BA72CF5FEBC6E777AD976CBD2F1DF8C86AEF8CEEEA90
9C0283845353BFDC6D27A3EFFCD77D29D7631FBD73BA00684F72AE697E60E48C
78B8282BA3706E29FCC4038A9238FEBBA42C11947E7204EF0727A4762F38A994
E9EC0762B024D735B8043DA6DB401BE64841FABE124CB1FB312602C55445024B

0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark
%%EndFont 
%%BeginFont: CMBX12
%!PS-AdobeFont-1.1: CMBX12 1.0
%%CreationDate: 1991 Aug 20 16:34:54
% Copyright (C) 1997 American Mathematical Society. All Rights Reserved.
11 dict begin
/FontInfo 7 dict dup begin
/version (1.0) readonly def
/Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def
/FullName (CMBX12) readonly def
/FamilyName (Computer Modern) readonly def
/Weight (Bold) readonly def
/ItalicAngle 0 def
/isFixedPitch false def
end readonly def
/FontName /CMBX12 def
/PaintType 0 def
/FontType 1 def
/FontMatrix [0.001 0 0 0.001 0 0] readonly def
/Encoding 256 array
0 1 255 {1 index exch /.notdef put} for
dup 40 /parenleft put
dup 41 /parenright put
dup 44 /comma put
dup 45 /hyphen put
dup 46 /period put
dup 48 /zero put
dup 50 /two put
dup 51 /three put
dup 65 /A put
dup 67 /C put
dup 68 /D put
dup 71 /G put
dup 72 /H put
dup 73 /I put
dup 74 /J put
dup 75 /K put
dup 77 /M put
dup 80 /P put
dup 83 /S put
dup 86 /V put
dup 97 /a put
dup 98 /b put
dup 99 /c put
dup 100 /d put
dup 101 /e put
dup 102 /f put
dup 103 /g put
dup 104 /h put
dup 105 /i put
dup 107 /k put
dup 108 /l put
dup 109 /m put
dup 110 /n put
dup 111 /o put
dup 112 /p put
dup 114 /r put
dup 115 /s put
dup 116 /t put
dup 117 /u put
dup 120 /x put
dup 121 /y put
dup 122 /z put
dup 127 /dieresis put
readonly def
/FontBBox{-53 -251 1139 750}readonly def
currentdict end
currentfile eexec
D9D66F633B846A97B686A97E45A3D0AA052A014267B7904EB3C0D3BD0B83D891
016CA6CA4B712ADEB258FAAB9A130EE605E61F77FC1B738ABC7C51CD46EF8171
9098D5FEE67660E69A7AB91B58F29A4D79E57022F783EB0FBBB6D4F4EC35014F
D2DECBA99459A4C59DF0C6EBA150284454E707DC2100C15B76B4C19B84363758
469A6C558785B226332152109871A9883487DD7710949204DDCF837E6A8708B8
2BDBF16FBC7512FAA308A093FE5F0364CD5660F74BEE96790DE35AFA90CCF712
B1805DA88AE375A04D99598EADFC625BDC1F9C315B6CF28C9BD427F32C745C99
AEBE70DAAED49EA45AF94F081934AA47894A370D698ABABDA4215500B190AF26
7FCFB7DDA2BC68605A4EF61ECCA3D61C684B47FFB5887A3BEDE0B4D30E8EBABF
20980C23312618EB0EAF289B2924FF4A334B85D98FD68545FDADB47F991E7390
B10EE86A46A5AF8866C010225024D5E5862D49DEB5D8ECCB95D94283C50A363D
68A49071445610F03CE3600945118A6BC0B3AA4593104E727261C68C4A47F809
D77E4CF27B3681F6B6F3AC498E45361BF9E01FAF5527F5E3CC790D3084674B3E
26296F3E03321B5C555D2458578A89E72D3166A3C5D740B3ABB127CF420C316D
F957873DA04CF0DB25A73574A4DE2E4F2D5D4E8E0B430654CF7F341A1BDB3E26
77C194764EAD58C585F49EF10843FE020F9FDFD9008D660DE50B9BD7A2A87299
BC319E66D781101BB956E30643A19B93C8967E1AE4719F300BFE5866F0D6DA5E
C55E171A24D3B707EFA325D47F473764E99BC8B1108D815CF2ACADFA6C4663E8
30855D673CE98AB78F5F829F7FA226AB57F07B3E7D4E7CE30ED3B7EB0D3035C5
148DA8D9FA34483414FDA8E3DC9E6C479E3EEE9A11A0547FC9085FA4631AD19C
E936E0598E3197207FA7BB6E55CFD5EF72AEC12D9A9675241C7B00AD58FAF645
1297991B5D01701E82228D0313FC7C66B263BC79ACDDF9AAC48A3CBF42B96E38
583E1D059953076D68148DC8B6C9527B3A74CE7DEF788A11531F44120BDF0F61
0B2F3ED94EEBCDE4ACD23834C242AA4314B9EF98E4BE72DB76EBDD0A028CEA9D
B4C38C1F2D24B8FDE686832FE96204552C820E45B6BAF0C3308742AE2E014494
0A17B50A9C688EB2A49EA9BE6A81A7BC73FD067909949B2BCB0FDCEAA3DF529A
F8FE8837BA4C494B01FB27AA2D650C1DD3DF3D2F7F3B1D125D377693703AFEFA
9C7359187FEA90659B4B2B1FF75DFA208960F0225B0B4A468F0952D9EB2660B6
E5DB32DD63ED3B8245C7F50C83F26BFDDB4513E0968C3446CDBDC5E473EA45A3
4F3C9B5BE317848F6CC1E3FEDD0F9D9B49E981C6F1ABEF7EF360DFC25943C5CE
959BE0CBEB6ECCA82BD7AB326DFA619FA041C28674BBD75F6455C7DF579592D3
81AE021902580CA08EB41EA6B9DD548D0FD80272E9ADEDDECDE886F3ACF5E115
F1C5650B319899BA1892069D8B8609EEC2BC100C8801C030ACF9E6771407271F
B1413ED5D1789653C78E0147EBEEEBEE67CC517AD38E5713B01033DAEC99842B
E7448191C7CEAB406C3D82505DE5F1BCA2EAFBD449BF6E84F7E891A77AF38481
4B68F8CA79E9D162587C15070447D88F5E681116D0CA4B783C2183AA90E7921A
C0B48D09D30EA191234DF7F237D2818CE14AA8627FBBB11F4487EC132A0525D8
B2F1C8EDA1462185E0F7D8FBAF22AFF093C8C40DF82D86D0D898618FEF4A35A8
7916DD6CC6AC861A17DAB45140CA1656E68667266402953B276779774113834E
328B5A9EA37CC73BBBBEC9D84BACD18E04F17A7D9009DCF5E1BFE3A0D38623AB
C7DCD8504B4C37B65E56728002D15F77F609DDBBFDE77384ED1E49CBB7298912
0530767681C766555C52D106F1AA5E9AF25B8E0D6D79A062D04E41B66C625BA8
E846F109749A9EA7447A139AE7AE61A7FBE319C3D6F015C01C8812543145B954
7DCFDF686143B8A534EB597EC7C4F486B28427DF944B1E58B1EA483FA398F64A
1CC146A31D5941A2A2FA50C46223A2EB799C3108F5A018788ADE97F865FD29C3
9DB3199B2481AA528C2DFED29A5832BB7BA36CFE0F5F9936FDBF6D3C6B854C7E
319E02A43A0C014D53EAAD8F867F94F89CBE81C3974580789098FAD98C6DBE18
6C666DFE2E46DDDCA34240D0725565D4FE3161A1A5CFF54A7508A89B708E8771
E3D8136AB45FB4A22131BFA23A2753B51599BA3E2C9B59FEB80616EA0B0098DE
7D3E49EBD46A3E53F36285C36653A107D2247357ED4B05340E07D85EAB6A8599
41B0B28444B1D13FCF2B4263295C5427DA378E957DC2D262DC9027489F8932F6
11BC768A3CE28A2F7B38E344E9D66513CA7DD2861C48D5A9EE34D068D251B60E
C5F7DBD1DB6812BB728CE3D97294F7E78B1354CB25AECCC5CB6C0BAB8227907A
2982BEA1EA8C339680B94CCF4730F4921058E575D36E7A856B04E36254960835
29834E089BB05B8813A700AB55B1573CB5BD3332DF0118101F22D329FD51DDBA
6A5A7A86D0922DC391AE468543055299D32BAAB5816213A9DC09863A396166E8
C175870828E5C0865AC99D44AB0DFEF3741BB442C7FB1E5C643110FAE3D10F47
FC50F97901CB98D4C0F0C90E8AF6816894C74DCE7D9A80398F5F9EF0CB0A9129
A4DC585F32F1AFC12EF2B8F0C34F7E243BC423098C1667349F8B7C5EA5171396
BE4B997B0A0119F9E1B1CE3804CCA1CBA6D7E29D6BB9D11BD4600D6866F707C9
DFAE8CB5BEDC77F6817F42718DDAFD92B26EAF6ED716DDBEBBB3068D0E33477C
5D949AED96B7F5FC2C3727B92EDF46A51D3498013E9A7E65C5E5050A06A22E45
DFCB695B79F5F84742312F953FEEDCE2E6517A74A06AFAB41FD1F3B641AB5881
26E5144631A6CDD173521DBBBB0D7309904FA3071C66E4A2051E7FBACE12DD74
4210209B2FABC0CD4B08566C40B169CDBC948FD6EB9948AB97ABD8EA0D74FD58
0298879CD2C9CFDD4987B3FDC5762EFBAB6439F87B3746E8BF67F566635BA966
721E586C20D41E1F52B6BB03DDD7AB84C2B2EDE75D946BAAF82F0AF1ADE1D35C
5DF7F68E1AEC9433A19209ADAA380B4E875139A7390F8C4E51E0DC0D698D17DA
EFBA639582735B44A88156507B5CFD064E8E612EF44D2AE8CEFE244F84A6E6FF
8A7395B9E3DF8576AB467408864AF4FBAE8221B44904797460F6E41F5BB85FED
C316E9350B7AFA8395130A448D80E33B07C13C1958C208D663F3F663C6905C88
4F2CC026847FD7FF807BF83F4F34EF40903AA04C9090072B60A6EF59E6EB2121
7C6F2AA93CC34326455E71F26D3E9789D121A8CD73F664BE447DC7323C8709FC
35FC8F1E9BCBAEAF035590491F4E7626B748FC282F718D54E785CF8BD6D69916
28B142ABFEAFEABD1CC6C9F3CE055EAECA284B715FCC377D791DBF80C91EED3E
1F2CC91A7B413F4A562A30AC890C00FE17F66ED6031B82933ED228444C21D311
6783ABCBEDBFEC2B750B77F57034D8404ECE7B1B772329847540CFBA5A17353C
C2C656200B8F1F5872CEC7265B251CC36E2646F5C6AF476E8BD3722417FC388E
B6078E13B78A81D077B6CF8E18B100E24B7DE0CC16BBA88C45C9FA1461E90E57
EAD3825562DFE69D01D7745B988A18B1F629B472F8CC9DDD8FE230549B91A64D
B3107A8D00D8AF9B6A1BC5CD401C5C1D83F830E7F76AC054E2E5A34B40699F96
AA449C6C33E7C5E81E40BDB391E3976935DE5CBD3F1D2E142C02B65987653157
F055CACE7FABFC097CDE6E6123A6A4C82F4022BD99F3C1DCACFADFFABE8B635D
8BCC68C28EC727381D92FBD396AEB23CAE207CC94DED181391681A0456FACD43
578681B74A1413A748A5839A22F726727C20B94BE7CA384F45D302BA2002B7D5
30F56D529500E8848B4B135BFE741E6D8B7BEBF2CC852FA4C23874165A60164C
A4EEEAD21093CA2441528266DD85D3ACD640D477576EAB1B8DC3EF0179B4ACD1
E89FFA430E68230D4712897E2ED2C706ED47BBD9DA7E5F6AE4767431A4581383
67393228DD9666701AB6AF171807318FE113E2E1A01A6D58F48A47464B0ADA6A
67210C89DEB81CA3B277806662E2ACB5E968ADE5037371FBECCC3FD13EA11F12
76F1E6B3BBAD58E2A9466F3E9DAAE4F3AC1E5EF69A35EA76DD2B8FFE9DDA93D5
88B26FD3EA8C2CF706A35CFFB5EA8A47276ACA409E6944BAD830FEBC6B653406
84DBA92C0A34F77DFDB5BACA029FE4A64C7A47AB4745158BA26A6B83BAC682A7
2A4B80EDDD3301926F0F5FB65C445538B85101F46B2F33ED41E931A6CAB0E3D2
010CF2A9896E8022C8C841AEA95D7608FFD5D5D5170CBF324E016FAB87AA32CF
1A875DFF102D221EEE3A993C0B09D622F6ACB26C47EED1A35FF9F3594F41DFCB
260448085E593A5464BBD3F4FEA773A1D8A6C28CB24B1B9F42ABF4E4BB5B3D4B
2398D8B9432542E9194C2A7E654A31241A35CD394B4EC25F35827080FFD7CD71
DE174FABC124562F59B844B1533A494E98E392F564003D38CF63CFAF403BB529
75F7D76EC0942A37E3BE6451745C61A788669E6FFCE468EAA520AFFADC1B13CD
95B1C479F903FF42757B0907E535E311FD6F89BF118896CD7E22206AFFF9378C
6373FC3C121777DBE7ABDA2F78360D36B21541DECCD55E4887625868CE0CDFE2
C2389B7A96DD4D596BAC74DC2B5FC525C21616A89AF6692B04BD537E974F1A08
A934D676A15828D2853F24323AC9B1E0CAF206B20ADE8E9CE69ECEDF77CEB369
F4A0E06FFF2BD948B3CE0460001513AB38B1B2EFA832FD1E2E6A904825DCA816
66B8CD7E8FF38191FA017CED5CEB6B721C1A6B78305DD60102638A9B01FF6968
FD2DA2ED6EC00E1124ED71B77AA67C4BAB95C733C8D8ABD9F48F1124A2430A0C
55172589199EF2C0B5886C721D0BC192A87663C17D354FEE9AAA9E93601104CF
0840F032F91D02E5856926D2676BE22A8E2F0FC88BD8B18F35436882A1765FA0
54F4EC17BD1A375C08468D51C26D841E1B0D1F608253B73FE55C29485848D266
93D5BFA40B2B6D3F438F4017015E75B5FF67C820A5D7D0E1CFB9FA31EE74FD2B
A19F7B701057EA2B3A21DE1272E358A3C7571A3B890FDA78F6E0F287AFA7B7DB
780574C92095BDF3B2F7B0550E762E0259DF3C2B99B8896D0049789C6E08B157
50339E3D9E8E17A7E3C34655663A014E44CDA497464EC528C4B5414A4E99C9CD
E9DB4734C67C6E23F01273E66A437C92CA10A31A326CF0EE948495A741440F9F
298C4579C1E64A3F32A930CC8D441CD48219E62DE9FAAD02ACEE07543AECA308
C14B53972886DE2B2AE7FF0D3FA582DCD46F7F916535F82174CA12333FFDFF66
A9960DEE80517F57DD5FE9D776B4BB66329DAB77C021D8427FC0DA12A6B80A30
18C4089E56CF70D8B521585492246505497B1640B68CA335F117DE74F450CAD6
167AB771002B26830F285AD27BE1BD739D670B7562AE92C91ABFF2DB37E6C152
171BB40233BD332970A2DFC57FEA433E7E4F1E49AC5B8195BCED2B445BD5FB59
A4BD599631B40434523CF324FD42DAD870BBEE2B1ADF4FE45071D3A0BC8541E9
2A215ADFF43BB3844BEABD681F5EA73F210479322659CD82CDC88B52E8C0EE17
530ACA6054530F651FCE179A75DB19605EDEF8B4A33410ACF3EE36DFC56F817A
1F3C7200FEA8136987895FFCBF8D377E374D65B075F7DA9AA9DB8C373215F193
3D33A11E8E80D080D056036793C77A6983EB042CEDF0E8652FDF353BB3E8DD80
87139F708ED833CDD37579329073FAD20CC82D909C7A875E1D29D0A6A61C3292
271EA8F7F29733B2561BEF865FA6408A58AD985E5982FEC7AAD09EA22E1F47FE
10C0AA52CCD2DDD5C8685257B58B8FB6411F75ABF93D86C1E206BBBA687A7380
AC503D16DA3EA6174B6B342568071CC146A6FD0FCF6D6E9B58CFD23704449F3A
871AD1DA818C259EEECFECE1F9A29281E819944B966BE08BB23F1BA749742BA0
B26C7A2B534AB51AFB9E55AF4AB952F0C9D1544CBF40A3CD450E1DC528BF8E1C
6FA1ACFA8F1038205D059579C0C29A28FA614BF30B6D1418AC0DAF2BCCFA7944
CA57236313594454E09C93E0E972C7393067419A5B8CEC904696B6226063CB81
A7BDA873BABADFF2BA324C2236053CC4B3FB057571801F440CC56FB746B37A83
0F8463CF3AE551AB064CB1373E6AA8C7887FBA35A50B919197D892A0FB40DC27
15C713A01B41BFA14914061309E638000443BAE2B96E251B813A2C99BBB8B893
ED30AEE5FAEA4EF0CB14CE9BDDCCC58DE4408CD380D9197074449BF847F4F914
FD6F3B103683CF764E907CBD0034D6F4B6F8E99ADD6625F250885AA80A43A302
FFDE978304C9EA5ABDFA49B387A8DB16841D142B2F474FC69FBCC943B6C595A2
621E337FFDC1864F94D1717498EBB081B5DDC70742037C1F0B3C49784F7F3EBE
84051BE3116A8C851DB36AD72DC1B9B5F3F49D75255A49F656593C63C44CDD3C
1FA754C5AC4B5BA4249506387E771C5513A39F5798C83040D119EF8BCB4868BE
A8C5966314056B8CACA9DAFF1DE6A5AD56E845E723C7D02AA676DAC184370CBD
95AEFD4D4E80E8FAF80A9FF96A9FBEB10ED9DD4EAB21AD51E2B2D864B6718110
894B00B65781D71877920EE1ABF9E3299191C3EF3F94A84E95DAC44CAFA25500
F8C91133130FA34B4A1A5F391A86CB021A9649D870462C885E6A5DB5972576D3
48AB1AC7D40DD4B2AA4FEB8939B161F0D91EAB5A47773815E7B47747DB1BF610
E5447B3790E6E339AE350444951FB4432569E22460B7758DBF6D3325DBDB01EE
EE0BCB1D05470086C32BC9CB2AAA399E2526DF34BEB4F37FE30C4128E32FB3D7
133DFF115CCD0A6E805C9ECA5E0FDEDF5CEA9FE1202562C8F7994E55F0F09647
425546C709DCB8ED976AA990471461A1D0E474A9538DC3566DCBD8FCECBFC86D
7860905AB6C14A9CA4010DA4BCDF4C562DFCAC7F5763A0B547BF8DDB53456D12
B95C9B245E7079FC2C01523EAB61EE1EBF9FC0A47BF112D396E6A77D71502582
8FDC5B83257DBC47FD2B6C69584F6950FA7685FED99095ECA67D6EB35D0D888C
B979813A85A4C42FBBA9682657E3AF8F768CD7F6C33803B866956C2CD66A6415
D56013B20FEC152EC063D8641D53A623898F9064672DBE8F5D58024703AC0DA0
81C68E200926CF43C4FC913FA786078F466E38C350373AB7B0FC32ABC85E6A34
900D66ABFBF1DBD6A35979BBD8475BBA4C6620CE8AF7C6B1D89CECF2958DB04C
C30AD1AE7ED83E4D868CC8DC518ACCABBCB7681C78281FC490F5206B693EA020
05310382E5A75B407D2B1B4F34A72EA386D209C182FE849C68155A768DD235C4
D78E37917493D9F13A455036E895F189AB85DF5209EE0843BB43C94D72C2CC44
EFD082E84A1778B28A7884AF5F931F10E5E16C10A5224020563E2D0A39286A1E
C1DAE770678F9353C6C61AA4F6D9025CC8810A06CC14BCD0363B88B2DE06CE0F
3CF00424B4FF05B455F7BFB5C4285A1B7437A51CA9155D3CA2C7F2491C51E1D8
4A01AC426586C466E2BC5D53C8944739B1D350EF37DA04A3D95781406C46EC64
0A197ECE2D243BBAD068C06AEBF3F02CDF2E8F1A65CDCD0A74347833CDAC05FA
D0DAB0C3BAF6A5FC2C711A17F84DDC35C2EBD0F60983503974AAC6AD3EF421FD
DC68526F04DF3BBDDAEEEE1D72C298F8F0B6EDA46A3E85B046F153D8888895CE
55EABE06A32DB02A0366DA416C764611C3616CA7AF799D013A7D8AE9E1794533
AC1E22956D89BB01D07861635E0EB44AE336596F3EAAA3CE8DF8EAA97FEE10B4
4D2D16E9BFA820E1FC84A0A30D076D847692B56DFFF8D1FC8B8FEE06ABF389DD
C8949963D4C2D323C7F86DD727639D08ED2A40A92A49A54B490F2A11FD56EDB2
C2D76914FA370BBC9F72F61B98497325A89B1747DD89A74788843D45FA342B18
BCF04D38292733B04D341D4F5AE4C5D80E0BDD94B95E885D91F613176DAAC4DD
87049BE6A608F7415EF495C4EFD1B0A6F98E4F2AF0A5BB384EF0C81E34F705BB
EFB2E7DACA98589B7469EE47685F3E69F2942C03FA9347B0918D1F624D9E51BC
DDCA759602549971732BE61CD617DFDE8524EB7F43A5E800111182EC170D95DB
9279DC98F38E47E4565A5ED83575D3575C8B0E8591ED17CB7656C719B3F420F4
FA1C120D90AAECDEC13868C7EEE15E369B16C4A9492B11DDF3AD76BE939E9330
F67751272295710D7F91FE06F0A402543F45F586BFDC70C6CE914FAE4017A70E
1B0764422622B18613FB196661E78F583C2F62DA5801F6B18288F990BC07A687
8A565E112B7B8083CE10E75E99E02BBAB069F216010A726F816D141030D2CC57
6C862D4D91EE00708DDD1D6FB7645E3B7C427A40777715EB28C3F428A42387C7
ED08A4A2F27FA5430021F67FDE4591172528E8FD846A272BA0205B4063945012
15DC492A84055F65145BD28CC12858DAE43BC3535133FB28014620A256630A1A
E95426AC160E96BD5AD37332B88DF0AD1838976594385D72068BFAF9531B1B15
61D5B11D219E7D7C24BA5DDC65CFC7B4E4FBD1CC430C4C54EA99FE0ABDAFFEE4
17CFB19815A9773CB2C495DFE7F0AFCE98680823AC59A3275465A2307A41AC41
E909AEA8A77C346BAB0F0CB51B04684B189B9DC4FE6BCCDA81A704D719D37CE3
6B66D321E2F0A7A46BF3C2E591E109D55E8AB98A3073DC47BD41AB9E453B28F8
8145BCF2B01A54B09EC7AF947172C4FC695A6367F5ABD40AC305916B413E9D22
79972BBA6BAF93F30CDF11F19B2A8F75B07639CDA39BF6EE0A32339DA612C613
9BB1DA56CC580C4B09450C8AD2A0E93DA7F34436D3079288F37B1EDABF31B5EB
70D6392DC6D4DBD06E74D133D59D91983EA97E17A472C0C05903284DC475A090
8E8FF8F92BABB2591BCB77F3BC750F35ADCFD2D301EDD6EDD2721521599356AA
E2F9C28C7959ECCD4E8A36873963D9B0B4B5D49F3A8D5587F6B80F112E74CA51
2C68260B9563E31D2B0695C94FCB2A35D3B54221C8DAF734C3E9D4DDAFA180CC
94AEB2CFFD8C61307C46DD1812738868C3F9923DB091B9BFBE38C7D5D6E80021
3423DE241CE6090AE4A0CDE8EC4DC3DDC8898F8CA45F3F7C89709A429A63114F
1891557912EBF824FE529DE9D360FB9DC348FCD1F32D8BA422398FC47717607A
43D5DEB30447D61CD0DD8967569125EACD51812E8D509E3E137A3E3BEB4AEF3B
65BF5D257DFFEC811BFECE24A5262D344C38DA3120FDF40C56AE87361983C6B7
217B970B9E7C44BA0496F55A4D39BE0AD1096DA24F14E576926C2463A4F3DCFD
9FE103CB2C168BDA3914347D7F97245205C9562A89C785F978F8CD39CA8F9F53
AF1676307AC2FFFBAFD2D69FBDFDF09D19CDB32E12D681C69EA0B7342C07C48A
128DC82DEDF3CC05209624DB66D5D3F8AF48256C785694488DFC3BBAFBE59024
009C73D187A0F16ACA602DE0D606138C5F9CEC575A32DEBDB32050BD558A2060
D0576C4733C0503538323BB3F6DC7BAE1A64F17288A8E87CD7BD88E7CA680246
C17B701D231555E2F675B1FB07C135207F7B398B0892480966536ABDAB454AF8
D15CF5E6D19A19784D0AC3161F2A152E57536D3BB90F4647296F19C82F7ED611
8FA94B014227B7FC6B397E10BC566FA2CB09B09EA3D71B10CC6A01A7F57B1D22
CB86E514D10580B28132848C3D4E6665F1BD378FA1E7560F69E0833ECBBA71BC
E4B9967AF7C3276CE317762AB087DBDE6EDCADA47567ED8C23C64559099BB7BE
A63CBB08A74A537863AF9FD7505FF08C6326311DB08661398257AF32BE3889E1
FCAEC0C2F62952E55FD8329225A9B3345B12663EBFDAD1F2E4C60274F07261D8
456F702411B2F911C2803348BC8556D841C1962DCA0F0696D994E24B786B8132
C6B06007916B7476EA4B7BC1D5C0BD1907A8D42DE3FFF044BA76916ADB85C830
0013B203E93DB0B814CF8D7C1CB4D44818C964D5F6D4E19DC8ACBF21DC6B0258
55E78D5E2087780F93EBFF9F10000A49D5D201E2C6F5BDE50F53A8E7D15BFD3B
59EEB19A4F9C220DD76F5CD3CBB548D2485A50D89B9B61910470F45804D78F35
24E5BCFCCEFCDC5298A67FE1C1F348CB81AB4B0FD9FC5CDA6B86DE9ABE87B26A
16961B63D9C29D0F4F672D9316C19E5E44FC14452FCBB183E8D629DDCFBA637E
0B5AD4389D146E7973405CF732064DACE096
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark
%%EndFont 
%%BeginFont: CMR17
%!PS-AdobeFont-1.1: CMR17 1.0
%%CreationDate: 1991 Aug 20 16:38:24
% Copyright (C) 1997 American Mathematical Society. All Rights Reserved.
11 dict begin
/FontInfo 7 dict dup begin
/version (1.0) readonly def
/Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def
/FullName (CMR17) readonly def
/FamilyName (Computer Modern) readonly def
/Weight (Medium) readonly def
/ItalicAngle 0 def
/isFixedPitch false def
end readonly def
/FontName /CMR17 def
/PaintType 0 def
/FontType 1 def
/FontMatrix [0.001 0 0 0.001 0 0] readonly def
/Encoding 256 array
0 1 255 {1 index exch /.notdef put} for
dup 73 /I put
dup 86 /V put
dup 101 /e put
dup 105 /i put
dup 108 /l put
dup 110 /n put
dup 111 /o put
readonly def
/FontBBox{-33 -250 945 749}readonly def
currentdict end
currentfile eexec
D9D66F633B846A97B686A97E45A3D0AA052A014267B7904EB3C0D3BD0B83D891
016CA6CA4B712ADEB258FAAB9A130EE605E61F77FC1B738ABC7C51CD46EF8171
9098D5FEE67660E69A7AB91B58F29A4D79E57022F783EB0FBBB6D4F4EC35014F
D2DECBA99459A4C59DF0C6EBA150284454E707DC2100C15B76B4C19B84363758
469A6C558785B226332152109871A9883487DD7710949204DDCF837E6A8708B8
2BDBF16FBC7512FAA308A093FE5F075EA0A10A15B0ED05D5039DA41B32B16E95
A3CE9725A429B35BAD796912FC328E3A28F96FCADA20A598E247755E7E7FF801
BDB00E9B9B086BDBE6EDCF841A3EAFC6F5284FED3C634085BA4EE0FC6A026E96
96D55575481B007BF93CA452EE3F71D83FAAB3D9DEDD2A8F96C5840EAE5BE5DC
9322E81DFF5E250DEB386E12A49FC9FBF9B4C25C3283F3CEA74B8278A1B09DA7
E9AE4FBAAF23EDF5A3E07D39385D521547C3AAAB8EB70549756EBA8EF445AF4A
497CA924ACCC3DD5456F8E2C7E36946A5BF14E2E959895F7C94F49137256BE46
4A238684D52792234869EAE1A6D8ADF4E138B79472D2A90A6CA99E2394CC20CD
3841733046175B20CEBE372327BF13428EED6A3E2FDF84C2DBA4B0AD584EE9DF
B51828D3B8F385846158C29C9AC3496CB9692DD10219697B2ED4D425C3957FD8
C4600D76E045C561216EF05D38177243C314877A69A1C22E3BEC611A2EE5A216
9B7C264CF6D1839DBBD78A40610F2C0D7C2FE09FFA9822FF55035AD52546970F
83EED2D30EABB1F303091EBC11A5379B12BB3F405E371519A53EA9D66174ED25
A2E55463EC71A97BE4C04B39E68112956117C8252DB6FB14AB64534B4BCD568B
246DB833982B38CDE7268BBF74B6B0C18091E1B1F87D32D66F4DD023D1F10D2A
7736A960F72AC01F733A11023832CD68FB6288A5977743F781214D8FA9C0C3F7
80001321D4397771F728FD9EE57CFE7D9192B887EC883EB1505068261DC40089
7B7D2820F06515CD74513521F6397FEAB3AD3572D9A8269430E407E357422461
1785FC2782047F4C0339D79B16862D939F3A37F78E4E2174E4FBF132539CB760
207999FF86F6A3EBE48EB0A1CA635450FDEEF79EB16D853F3BF4BD4ED71E01CE
6154934509C48D150927A40C9B53983460B2617470387E89DB920ED604DF0F0F
DB64DC065F4D637D1A899F6E7DB4B309E0FE43875523E8DE286E94B13A8C0F75
58B9FE84A4B11CB368B1B42BF99EBB9AA684A14A7FD5D9A8AE40B005BB02FDEF
0B9ACAC689B7B8F333DDD0E641DBB3E2166B1CFC1F8421503D8246CE1B96803C
FAF710A6AC7D23083B854F8866D17AB3084B7541BCD9A6602DA776C8F696EF3E
AE078B25E762789747014DA0DEEA57678ABED1FC92FB0239AC2B65DDFC75EB38
DF6E9C5A74AC9D328ED5690CEE76A5700DE0A1642B9C6B56ABDB70558A52BFF7
E8D5C7CDABB4CD4CD04BABD5839C394137259C423089B0E662ACAB9273D4D65F
68D06FACF5B9492C0EF2797EBE9CF92D1D0512A675A3F26008712A70318BF746
6F3A82850F091AC0602EEF3AF74390EF05F727541D54D7EBAE54A7BF0E3824A2
28F1110862D8093EA6C4B3147D03F76E2BEDB9A5AD647D061667E101C4A7F9AB
0EFF338E467799B605F5F10A24C7F4B4FF71DE8BE5B079146C14C5D73696BFB4
B0A8981F7C4017D4BC694768E72195777DED5C8789FC819A59607E74E750342D
A374191CBD2BD62B7245FEE510334ABF8E1291245C4372CF0AABF0894E9FF6EC
FF7FBF257CE43F95FB5EA8C1C0A1C2ABD90FB5E2F9BF6449F51157D7BA28942C
0EB72AE639929CEDF03412558B1EDD81C2EBD2A1D066D45277B8E0AE17DE39F1
1D12CB4850A51F9B90E1D8C59D297CA73CEE735B5540476737E94B9157C9D3A8
9B2B5ED543298A2AF1D967DF1BF613965E6695B549B8068BEBBD74BDBAA56F89
7A3CC5200A603B4178A06F112E48EE2E8E98BE2BEA38EB81F02A9C1D9E4D1A38
18CFCF893B0D13E17E10E1EF2ECCA9A6FD3AF5047506C872A253E7E7B5A4634D
151F8409FD8DC8BF62138285A46344773C2405502440BD37FB068E2C5F295204
60763B21578940FC1389C3DEA945BC06BEFCF2322761FB088DBCC1A348BBAE4A
89FF6D4E0E0A228FE0F1650ED6112222AD2A07E2FE6B537F0020C258070BAD86
DB7BB0C59435EE09F37E2ED348BF571A901482DBB370B88D4DCFBBFBB71A89CC
1A2C046648380A32FC5A95BAFFD63BC529CC7CB5959ED1471C63DFA8B5CE9C5B
EEA54F7E2BE53D614618733E5EFD72C625ACCE37E4794B936A3FC10F76D3D085
7668016CA5231849FCB59328BCA90293733FF96220678291ED14A4C7E11D617C
4629CF790F91DF7677DE8072E4DE7FB4E5B712FE881690CAC82EC632D2CF4585
7ECAB93F0DD9D0F0A4ABA942FE0F1191C1952999F6DE637A2FAEE2C1CA116C81
FD82AED0ECE71F60562CB8AD156377F3730A2FF015969C12ED075662CC7362C4
2BF0CD9FEEB84D8F4023914D59E85EB9BA40CD97139F29D2525492DD4CDF5218
75745FB17BE1A461F5622F5281D82C43A7D795F51FD2736DB3ED64721ABD050A
9C419E
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark
%%EndFont 
%%BeginFont: CMR10
%!PS-AdobeFont-1.1: CMR10 1.00B
%%CreationDate: 1992 Feb 19 19:54:52
% Copyright (C) 1997 American Mathematical Society. All Rights Reserved.
11 dict begin
/FontInfo 7 dict dup begin
/version (1.00B) readonly def
/Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def
/FullName (CMR10) readonly def
/FamilyName (Computer Modern) readonly def
/Weight (Medium) readonly def
/ItalicAngle 0 def
/isFixedPitch false def
end readonly def
/FontName /CMR10 def
/PaintType 0 def
/FontType 1 def
/FontMatrix [0.001 0 0 0.001 0 0] readonly def
/Encoding 256 array
0 1 255 {1 index exch /.notdef put} for
dup 48 /zero put
dup 49 /one put
dup 50 /two put
dup 51 /three put
dup 52 /four put
dup 53 /five put
dup 54 /six put
dup 55 /seven put
dup 56 /eight put
dup 57 /nine put
readonly def
/FontBBox{-251 -250 1009 969}readonly def
currentdict end
currentfile eexec
D9D66F633B846A97B686A97E45A3D0AA052A014267B7904EB3C0D3BD0B83D891
016CA6CA4B712ADEB258FAAB9A130EE605E61F77FC1B738ABC7C51CD46EF8171
9098D5FEE67660E69A7AB91B58F29A4D79E57022F783EB0FBBB6D4F4EC35014F
D2DECBA99459A4C59DF0C6EBA150284454E707DC2100C15B76B4C19B84363758
469A6C558785B226332152109871A9883487DD7710949204DDCF837E6A8708B8
2BDBF16FBC7512FAA308A093FE5CF7158F1163BC1F3352E22A1452E73FECA8A4
87100FB1FFC4C8AF409B2067537220E605DA0852CA49839E1386AF9D7A1A455F
D1F017CE45884D76EF2CB9BC5821FD25365DDEA6E45F332B5F68A44AD8A530F0
92A36FAC8D27F9087AFEEA2096F839A2BC4B937F24E080EF7C0F9374A18D565C
295A05210DB96A23175AC59A9BD0147A310EF49C551A417E0A22703F94FF7B75
409A5D417DA6730A69E310FA6A4229FC7E4F620B0FC4C63C50E99E179EB51E4C
4BC45217722F1E8E40F1E1428E792EAFE05C5A50D38C52114DFCD24D54027CBF
2512DD116F0463DE4052A7AD53B641A27E81E481947884CE35661B49153FA19E
0A2A860C7B61558671303DE6AE06A80E4E450E17067676E6BBB42A9A24ACBC3E
B0CA7B7A3BFEA84FED39CCFB6D545BB2BCC49E5E16976407AB9D94556CD4F008
24EF579B6800B6DC3AAF840B3FC6822872368E3B4274DD06CA36AF8F6346C11B
43C772CC242F3B212C4BD7018D71A1A74C9A94ED0093A5FB6557F4E0751047AF
D72098ECA301B8AE68110F983796E581F106144951DF5B750432A230FDA3B575
5A38B5E7972AABC12306A01A99FCF8189D71B8DBF49550BAEA9CF1B97CBFC7CC
96498ECC938B1A1710B670657DE923A659DB8757147B140A48067328E7E3F9C3
7D1888B284904301450CE0BC15EEEA00E48CCD6388F3FC3A38ED682C65299D6C
67201AC4BEC92930ED59A43AFA43F24F6ACBEA592A03841835D631F03C2C1A78
D554F14F748CFE52EE1255995118829A77F388B119B21C90975F74DE5E4A6DA9
C531C14FDA14B4AA1EC720F6CE0342AD2CFE20771E4F80ECEB0ACA2CF89E2280
6BA7F408F14F24DEEFB988141457533E4822D51A43231D49BE8B184483530CDF
6B37AE44174A99A2367CDFA06D801B1588A55CD8FBC5B1A6903110F1BC42EC5F
FCCE6840E8ADC084E63A7C5C45FE6953D18AD1C2573314AF568A69608A9B3825
8DDD825D7E8041DCDA231DFB8E6ABD97BCDCA95500E72B2A64F2F989A6D7AD7C
875D0E0E051ACBD893E30EA56145D44F2DC60EA9D0F7D62021E05D2624B00B93
92171DBF9964BBEC03013F324BD4B1E3053CEED520CD0E02D3BD8695B3C1D422
9FD5F78A6F1810C4440110E7CF77EF9E89E7CFD5C7E6C184E7BB76320ACD3E59
118F1F7381C2FBB0DFC4B2D7805435133C2526B1EBFC75F605FC422B56D69EB9
6663FECF5BD529D9E7C7EBD598A6CF895F5681980B1264D64A0173A8D91A0958
F19E3F96E85F79A17E0A525316943C6E16ACD16D44AD1BCF595141C67473043E
E5A782156549D25984703065B038D3F16758917B734286F02E496E8B60B1F752
EC57DB7E62A728F1F49DCD6492C65DFAC1C4258BB7D28B339467FA0A7F097F61
751B91DCDA1170FE1A150A4A0011EE898D9D227BE62FCCAC5C2B86121EBDCD47
04D62B806F4782C8D608698A04F2159DD4E3DB0B0BF5C845F007E798AF54C3E4
3C5DFB1B9F19728C1E37B23009882F7C97EA25CE77D1BD54B63B43C0776FAE3D
0AEA2AC79738CA0ADAB61FDDF0720DD9FD0E522CC3DA6F0339007DECD3384C6D
DDD502A5728A0F021A33A33A139A26C119C36445F3348B730545AF5F8252741F
4E8DEE1FB137D055F525679B133B8A25D90E383342A6B99BD3DE3222F370D4B7
93550D41B8C14D0965A79ED5107B94775D8DECC3B21D0D4FDE3C4D83261924AA
1FD7DFF5374D413C99806770C540463A06E38D34A4067A00DC2D0EDE0EB80265
60A2919B9F5A9A979BFEC4158C80C372DC5756D7A1C403372708EE7146D3CF63
39EE552CA823719316FD4E9C61DA730C8AE1C564A302536336EB7D0AE03894AA
4621269FBBBE85A3AE95C3C64E00D4D6DABDD5BDAC2C8373A954100A0E44F4C6
225C80CBCFFACE9DE4E82948452E4DF2D44591CB3DE9E5D9359C9AD47030BDCA
E1C6CC19C48A7481C55A28B153CE0D9B38E0ECB746E6B56D879227D9FA503FE6
3261832A15ABFB1AC997CB6DDD298E6E73C47FB2339AB8F7824EC9F35B0DE682
DD4B686EB9CCF9F08DDF2426AB0E8A5EB9DB330E1660C563AEC5C3A344EDEAF6
7C1980D820AA1693BE344D769FE4058B0B830569910C75C322B4E59F26641070
832774E1E921E0334806C8F69802FCDC6580C722D31F783755FB4C34750CB491
7BA10AB8B5C63298F89FF3ABB4951740E4A7945517BC80B41F3612EDCF2FB798
B4167BB8CB83FFC5C653B61AD7067AB3A94F9C366A64CEFFF24F089E78D02782
D0656DB0791B46ED6E14F63F01E605CB806ACBEF22CAAC73B33A7A4FC865B315
B7A7B79CFDEDF57329AFADBC50AE4F30EB1AE10D417BE263004FE412D0879124
D95B08D88319B36602EDB73320A08050DC9C170E9E2C11178363BA75E0ED3553
8EF7DF2143629B8286E6F8F9B1336A724C0BA6E0873F51647310EC957725183B
3D42772EA93B256A07B31CEA645AA683FCD1CC6773E7AD395A399647CBB6F528
8B72D8C2E382D4945A682E67A55430D03AAED90224157671D1EA7863CCA02E29
DF748663B4AA9711D16F481CDB745F258494311CE9888257D03517BDCCE76A03
0564B570A01B26AC06CACEC26A590EC88FC4175D80599DEA6DDF3BB02B7D8DFC
3B3BBA52E777E20D0E006A12EF207F2DF507448AB5EA1975501E818E546B07E6
B3248940CB81CEBED653DF0450D9285BA58A30F86E7A2D3E5C8A4282BAC0FA99
02973564643B4FA5B9E1DC6ECADD9E7068FFE46E772C24CBCECEF9DF0AF4FFDC
982C82E43BEA6689C1DE0F4A091C3BEAD04A37EB43C861F8B51ECE846C481C04
FCA3C71620BC02AE5B60735361C2CCB3AE302AD4CDF252609BC1FA02B010172D
B67D6FC6CD7DF9987E17A4FA5DB3144A8DF6D0A594CEF3A644A65805F38724CD
259DF1A0D49F4B57A2E9DC1DC6B5A3F25514830B46BD1B9F92AB635E4A77ED28
26610EA49D1FDDEBE9C2FD2BB148C4351E63673763AE8C18D5833F9B9B1CA75A
47B9B77BF785CBCDB2A9A7BB2AA02C53273B889CBF45B85C26492EC98981ECC2
ADD76B78903B17158931C338366FE661480C19CBF60FE952482C7CBF0A91BBDD
BDAB078A5DA050873F8C49D867E72B5C8BAB232CC947FC65E34CE76A6DEA9937
F30689884D6AE9343A326ED063E526D64D62D5C09DE6CA61F3287610A27367F9
DA9231DCBDD7BC90E3375043F82B6EAC16B3681E2141CA1AE9B04EFACBE3D590
B319C2CD318A8A670E83D0531DB9C6B7D3F8D5B34C0698CB3F56ED2D597BFF0D
54D663525AD586828B9FE12A2D3C5D9B4B4FE6DB0AED5A1990772C680DE39995
B63AE27DE71B26E54DE0229DFC9E22192D69452D679F31712E1346BB7695304D
7945222880D30955C036AAE92791D8911E631F2EA75A0BCF813A935A19177BC6
9735C80CF12F954FCE8F6D7C4A9A7D5C04A0F4E5377A52D793CD13A5F0328198
C778AECBE85B9816DB19970EBA72572476717FAA7BEAF25BD5256C0B57D00656
FC7F6F7835B99F67D29D9805EE96B57C4CB711672FFFE022D8BBFC7CC8ED89CF
C6F1514619F148B87DFD1BE69BACAB215151BDB648ABD8E78159E727B76EA95F
99AA760D3BCECDFED6D5B4C6B35BCCFF69B35CC7FCB8AD22EC9B6F9015E13BC3
B61B870560FD249D1BBAB5B81AFC31784972C7A07DCF61B6FB755729948C1C5B
106B73B63821BFCACBFB2897D7447B35C08BB077D7B353F56FA2CCC43C425E80
9BDE51E707464B9A7BC1ECEB1970BD16D5FE3045AADB14CC41384518BE34A5BA
37CC61648C8D0F4FD5D6853FB27A43464964BAE700A3093CB0BD868F9CD9F38C
2A71F3230BC94B1A88EE1DD33A50467267DA79D1B5890E0882C55566DB00AFFD
CB1EDC4B3D78AAEECAB0424314E15F9BFBB5E0FCF5051D07DD6F9077699815CE
845CF2880B452877671B30557758D3009813A9B9B946B5544E1032BC70633C5D
A035C2D570C4F4CE2692576DE100E104113078571396937D56C0C48218F5ADAF
B33DB55F35AC8998EA798171E0EFA09AEAFE35DCBFD62B28F52B14D8ACE54352
B1E9E1E97171961E0873004EF1B2893197CC5D8F426CEC68E7E00FCF5E
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark
%%EndFont 
TeXDict begin 39139632 55387786 1000 600 600 (jazzmesse-vli.dvi)
@start /Fa 201[35 1[35 2[35 35 1[20 4[27 27 40[{}7 66.4176
/CMR8 rf /Fb 128[49 4[43 1[51 2[54 38 38 38 1[54 49 54
81 27 51 1[27 54 49 30 43 54 43 54 49 10[73 1[70 54 2[66
2[89 1[76 50 35 73 77 3[70 69 73 6[27 6[49 49 49 49 1[27
1[27 2[38 38 14[49 25[{}45 99.6264 /CMR12 rf /Fc 133[72
85 3[90 63 64 66 2[81 90 134 45 2[45 1[81 1[74 90 72
1[78 13[90 7[126 83 2[127 2[124 117 1[122 13[81 81 1[81
6[63 63 40[{}28 143.462 /CMBX12 rf /Fd 144[66 73 1[36
2[36 3[58 14[99 12[47 73[{}7 143.462 /CMR17 rf /Fe 198[42
42 42 42 42 42 42 42 42 42 48[{}10 83.022 /CMR10 rf /Ff
139[44 44 46 3[62 1[31 2[31 62 2[51 2[62 54 19[106 5[88
3[81 15[56 56 1[56 48[{}16 99.6264 /CMBX12 rf /Fg 133[103
6[92 5[194 7[106 3[113 22[120 74[{}6 206.559 /CMBX12
rf /Fh 128[67 6[71 2[75 52 53 55 1[75 67 75 1[37 71 1[37
75 1[41 61 75 60 75 65 10[102 2[75 2[92 2[128 3[50 105
106 3[97 1[102 18[37 45 37 2[52 52 40[{}33 119.552 /CMBX12
rf end
%%EndProlog
%%BeginSetup
%%Feature: *Resolution 600dpi
TeXDict begin
%%PaperSize: A4
 end
%%EndSetup
%%Page: 1 1
TeXDict begin 1 0 bop 1114 1383 a Fh(Christian)46 b(Martin)f(Gabriel)
1342 2124 y Fg(Jazzmesse)602 2578 y Fh(f)647 2584 y(\177)643
2578 y(ur)g(Soli,)h(Chor,)f(Streic)l(horc)l(hester)h(und)e(P)l(auk)l(e)
866 2770 y(\(Horn)i(o)t(der)e(Alt-Saxophon)h(ad)g(lib.\))p
1573 3402 569 4 v 1573 3535 4 133 v 1601 3510 a(Violine)h(I)p
2138 3535 V 1573 3538 569 4 v 1630 5216 a Ff(Mai)38 b(2003)1836
6215 y Fe(1)p eop end
%%Page: 2 2
TeXDict begin 2 1 bop 3408 -193 552 4 v 3408 -44 4 150
v 3436 -69 a Fd(Violine)44 b(I)p 3956 -44 V 3408 -41
552 4 v 1167 78 a Ff(Christian)38 b(Martin)g(Gabriel)1178
241 y Fc(Jazzmesse)53 b(\(2003\))1588 586 y(Kyrie)-387
1317 y @beginspecial 0 @llx 0 @lly 516 @urx 89 @ury 5160
@rwi @setspecial
%%BeginDocument: jazzmesse-vli-kyrie001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 89
%%Title: jazzmesse-vli-kyrie001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:36 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 88.6 T
0.75 dup scale
37.8 0 T


% --- 1 ((notitle)) ---
0 -25.34 T
3.2 29.4 -2.9 162.5   -36.4 bm
3.2 31.2 0.0 267.7   -40.7 bm
3.2 36.6 7.2 363.6   -37.7 bm
3.2 40.1 4.6 464.7   -43.8 bm
3.2 31.0 -3.0 616.0   -36.4 bm
114.0   -27.2 122.9   -25.4 hbr 143.8   -21.2 134.9   -23.0 hbr (3) 128.9   -28.2 bnum
(3) 177.2   -33.9 bnum
(3) 283.3   -36.7 bnum
569.2   -27.2 577.5   -25.4 hbr 597.9   -21.2 589.5   -22.9 hbr (3) 583.5   -28.2 bnum
(3) 631.5   -33.9 bnum
125.3   -67.9 93.5   -72.4  84.3   -68.4 0 -0.2 92.0   -71.4 126.8   -66.9 134.4   -61.6 84.3   -68.2 SL
179.8   -73.9  164.7   -71.1 160.2   -65.1 0 -0.2 164.0   -70.1 180.5   -72.9  184.3   -69.1 160.2   -64.9 SL
288.9   -73.8  271.2   -74.3  265.9   -69.6 0 -0.2 270.4   -73.3  289.7   -72.8  294.2   -68.7 265.9   -69.4 SL
389.6   -63.4 371.1   -69.9 365.5   -66.6 0 -0.2 370.2   -68.9 390.5   -62.4 395.2   -56.8 365.5   -66.4 SL
493.0   -74.3  470.9   -75.8  464.3   -71.2 0 -0.2 469.9   -74.8  494.1   -73.3  499.7   -68.9 464.3   -71.0 SL
579.4   -67.9 547.7   -72.5  538.6   -68.4 0 -0.2 546.2   -71.5 580.9   -66.9 588.5   -61.6 538.6   -68.2 SL
634.5   -73.7  618.5   -70.8 613.8   -65.1 0 -0.2 617.8   -69.8 635.2   -72.7  639.3   -69.1 613.8   -64.9 SL
14.0 F1  518.8   -30.6 M (5) showb
15.0 F2 58.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 56) show
0 -61.61 M 661.50 staff
12.0 -61.6  tclef
30.0 -37.6 sh0 
(3) (4) 51.0 -61.6 tsig
78.0 -58.6 hd 20.0 su
115.0 -58.6 hd 20.0 su
136.8 -52.6 hd 1 20.0 sfu
159.0 -55.6 hd 19.2 su
173.8 -64.6 hd 26.7 su
188.5 -61.6 hd 22.3 su
24.0 206.7 -61.6 bar
226.5 -58.6 Hd -9.0 nt 20.0 su
264.2 -61.6 hd -9.0 ft 21.0 su
280.0 -58.6 hd 18.0 su
295.4 -61.6 hd 21.0 su
24.0 312.7 -61.6 bar
326.5 -64.6 hd 8.0 0 dt 20.0 su
360.1 -61.6 hd 24.0 su
378.8 -55.6 hd 21.7 su
396.7 -49.6 hd 19.2 su
24.0 413.8 -61.6 bar
428.6 -43.6 hd 8.0 3 dt 20.0 sd
461.2 -64.6 hd 20.8 su
478.5 -61.6 hd 19.8 su
501.3 -58.6 hd -9.0 nt 19.4 su
24.0 518.8 -61.6 bar
532.3 -58.6 hd 20.0 su
570.2 -58.6 hd 20.0 su
590.9 -52.6 hd 1 20.0 sfu
612.5 -55.6 hd 19.2 su
629.2 -64.6 hd 26.6 su
643.5 -61.6 hd 22.2 su
24.0 661.5 -61.6 bar
105.3 -67.1 87.7 -67.1 82.5 -63.6 0 -0.2 86.9 -66.1 106.1 -66.1 110.5 -63.4 82.5 -63.4 SL
560.3 -67.1 542.2 -67.1 536.8 -63.6 0 -0.2 541.3 -66.1 561.1 -66.1 565.7 -63.4 536.8 -63.4 SL
(mf) 78.0 -92.81 pf
78.0 -35.61 dnb
0 -92.81 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 737 x @beginspecial 0 @llx 0 @lly 544 @urx
91 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-kyrie002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 91
%%Title: jazzmesse-vli-kyrie002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:36 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 91.2 T
0.75 dup scale


% --- 2 ((notitle)) ---
0 -25.34 T
3.2 69.9 -7.6 86.2   -17.1 bm
3.2 32.7 4.4 220.7   -27.5 bm
-3.2 16.3 2.2 275.6   -58.9 bm
3.2 33.7 4.4 338.1   -18.4 bm
3.2 27.1 -2.8 470.7   -32.1 bm
3.2 26.9 0.0 568.2   -36.3 bm
3.2 32.6 6.9 654.2   -33.0 bm
(3) 354.9   -12.2 bnum
423.3   -18.3 431.8   -18.3 hbr 452.3   -18.3 443.8   -18.3 hbr (3) 437.8   -22.3 bnum
(3) 484.3   -29.5 bnum
(3) 581.7   -32.3 bnum
135.0   -66.9 96.2   -58.8 85.5   -47.6 0 -0.2 94.4   -57.8 136.8   -65.9 145.8   -59.0 85.5   -47.4 SL
243.5   -55.1 226.6   -57.9 221.5   -53.8 0 -0.2 225.8   -56.9 244.3   -54.1 248.6   -49.4 221.5   -53.6 SL
305.1   -26.4 286.1   -26.4 280.4   -31.2 0 0.2 285.2   -27.4 306.0   -27.4 310.8   -31.4 280.4   -31.4 SL
361.4   -69.8  342.9   -71.2  337.4   -66.8 0 -0.2 342.1   -70.2  362.3   -68.8  366.9   -64.5 337.4   -66.6 SL
435.5    -9.7 412.3   -16.3 405.3   -22.7 0 0.2 411.2   -17.3 436.6   -10.7 442.5   -13.3 405.3   -22.9 SL
486.1   -69.6  472.4   -66.7 468.3   -60.8 0 -0.2 471.8   -65.7 486.8   -68.6  490.3   -64.8 468.3   -60.6 SL
586.0   -69.4  570.8   -69.8  566.3   -65.2 0 -0.2 570.1   -68.8  586.7   -68.4  590.6   -64.3 566.3   -65.0 SL
677.1   -58.9 660.8   -65.5 656.0   -62.2 0 -0.2 660.1   -64.5 677.9   -57.9 682.0   -52.4 656.0   -62.0 SL
14.0 F1  510.4   -26.3 M (10) showb
0 -57.29 M 699.30 staff
12.0 -57.3  tclef
30.0 -33.3 sh0 
56.6 -54.3 hd -9.0 nt 1 20.0 sfu
82.7 -36.3 hd -9.0 ft 19.2 su
104.1 -45.3 hd -9.0 ft 25.9 su
119.9 -51.3 hd 30.2 su
137.3 -54.3 hd 31.3 su
152.6 -51.3 hd 26.6 su
24.0 168.9 -57.3 bar
187.7 -57.3 hd 8.0 3 dt -9.0 nt 20.0 su
217.2 -48.3 hd 20.8 su
234.6 -45.3 hd 20.1 su
249.9 -42.3 hd 19.2 su
24.0 266.3 -57.3 bar
279.1 -39.3 hd 19.6 sd
295.3 -36.3 hd 20.4 sd
312.1 -39.3 hd 20.0 sd
334.6 -60.3 hd 41.9 su 334.6 -39.3 hd
349.6 -57.3 hd 40.8 su 349.6 -36.3 hd
368.3 -54.3 hd -9.0 nt 40.3 su 368.3 -33.3 hd -9.0 nt
24.0 383.9 -57.3 bar
403.6 -33.3 hd 41.0 sd 403.6 -54.3 hd
427.3 -33.3 hd 41.0 sd 427.3 -54.3 hd
445.3 -48.3 hd 1 20.0 sfu
467.2 -51.3 hd 19.2 su
480.7 -60.3 hd 26.8 su
494.3 -57.3 hd 22.4 su
24.0 510.4 -57.3 bar
530.7 -54.3 Hd -9.0 nt 20.0 su
564.7 -57.3 hd -9.0 ft 21.0 su
577.9 -54.3 hd 18.0 su
591.6 -57.3 hd 21.0 su
24.0 607.9 -57.3 bar
621.8 -60.3 hd 8.0 0 dt 20.0 su
650.7 -57.3 hd 24.3 su
667.0 -51.3 hd 21.7 su
683.3 -45.3 hd 19.2 su
24.0 699.3 -57.3 bar
419.2 -62.3 410.2 -62.3 407.5 -59.0 0 -0.2 409.8 -61.3 419.6 -61.3 421.9 -58.8 407.5 -58.8 SL
420.4 -25.3 410.5 -25.3 407.5 -28.6 0 0.2 410.0 -26.3 420.9 -26.3 423.4 -28.8 407.5 -28.8 SL
(p) 403.6 -96.29 pf
0 -96.29 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 637 x @beginspecial 0 @llx 0 @lly 544 @urx
79 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-kyrie003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 79
%%Title: jazzmesse-vli-kyrie003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:36 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 79.0 T
0.75 dup scale


% --- 3 ((notitle)) ---
0 -25.34 T
3.2 32.2 4.3 90.9   -29.0 bm
3.2 26.2 -2.7 205.0   -21.8 bm
3.2 26.9 0.0 294.3   -26.0 bm
3.2 32.6 4.4 481.6   -29.1 bm
3.2 29.6 0.0 580.3   -22.8 bm
3.2 20.7 2.3 643.4   -26.7 bm
(3) 107.0   -22.8 bnum
163.8   -12.3 170.0   -10.8 hbr 188.2    -6.3 182.0    -7.8 hbr (3) 176.0   -13.3 bnum
(3) 218.1   -19.1 bnum
(3) 307.8   -22.0 bnum
(3) 497.9   -22.9 bnum
63.7    -1.2 52.1    -1.2 48.6    -5.9 0 0.2 51.5    -2.2 64.2    -2.2 67.1    -6.1 48.6    -6.1 SL
113.0   -59.5  95.4   -60.9  90.2   -56.4 0 -0.2 94.6   -59.9  113.9   -58.5  118.3   -54.1 90.2   -56.2 SL
174.3   -51.8 156.2   -56.3 150.7   -52.6 0 -0.2 155.3   -55.3 175.2   -50.8 179.8   -45.8 150.7   -52.4 SL
219.7   -59.6  206.5   -56.7 202.6   -50.5 0 -0.2 205.9   -55.7 220.4   -58.6  223.7   -54.5 202.6   -50.3 SL
312.1   -59.1  296.9   -59.6  292.4   -54.9 0 -0.2 296.2   -58.6  312.8   -58.1  316.6   -54.0 292.4   -54.7 SL
455.3    -1.3 444.1    -1.3 440.8    -5.9 0 0.2 443.6    -2.3 455.8    -2.3 458.6    -6.1 440.8    -6.1 SL
504.1   -59.5  486.3   -60.9  480.9   -56.4 0 -0.2 485.4   -59.9  505.0   -58.5  509.4   -54.2 480.9   -56.2 SL
14.0 F1  331.4   -16.0 M (15) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -23.0 sh0 
47.8 -29.0 hd 20.0 sd
67.9 -29.0 hd 20.0 sd
87.4 -50.0 hd 21.0 su
99.9 -47.0 hd 19.7 su
119.6 -44.0 hd -9.0 nt 19.3 su
24.0 133.3 -47.0 bar
145.3 -44.0 hd 20.0 su
164.8 -44.0 hd 20.0 su
181.2 -38.0 hd 1 20.0 sfu
201.5 -41.0 hd 19.2 su
213.6 -50.0 hd 27.0 su
227.7 -47.0 hd 22.5 su
24.0 241.2 -47.0 bar
261.4 -44.0 Hd -9.0 nt 20.0 su
290.8 -47.0 hd -9.0 ft 21.0 su
303.9 -44.0 hd 18.0 su
317.7 -47.0 hd 21.0 su
24.0 331.4 -47.0 bar
344.3 -50.0 hd 8.0 0 dt 20.0 su
370.1 -47.0 hd 1 20.0 sfu
390.2 -41.0 hd 1 20.0 sfu
408.6 -35.0 hd 1 20.0 sfu
24.0 427.0 -47.0 bar
440.0 -29.0 hd 20.0 sd
459.4 -29.0 hd 20.0 sd
478.1 -50.0 hd 20.9 su
491.8 -47.0 hd 19.8 su
510.8 -44.0 hd -9.0 nt 19.3 su
24.0 524.2 -47.0 bar
544.4 -41.0 hd 8.0 3 dt 20.0 su
576.8 -44.0 hd -9.0 nt 21.2 su
592.4 -41.0 hd 18.2 su
606.4 -44.0 hd 21.2 su
24.0 620.8 -47.0 bar
639.9 -47.0 hd -9.0 ft 20.3 su
660.6 -44.0 hd -9.0 nt 19.7 su
677.3 -41.0 Hd 20.0 su
24.0 699.3 -47.0 bar
158.8 -51.9 151.3 -51.9 149.0 -48.6 0 -0.2 150.9 -50.9 159.1 -50.9 161.0 -48.4 149.0 -48.4 SL
47.8 -20.00 emb
47.8 -18.00 dnb
67.9 -20.00 emb
67.9 -18.00 dnb
440.0 -20.00 emb
440.0 -18.00 dnb
459.4 -20.00 emb
459.4 -18.00 dnb
-52.3 534.4 -80.00 cresc
(mf) 544.4 -80.00 pf
0 -80.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 621 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-kyrie004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vli-kyrie004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:36 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.8 T
0.75 dup scale


% --- 4 ((notitle)) ---
0 -25.34 T
3.2 29.6 0.0 84.8   -22.8 bm
3.2 19.5 2.3 149.5   -26.6 bm
3.2 30.4 0.0 266.9   -22.8 bm
-3.2 19.5 -2.3 316.2   -52.3 bm
-3.2 19.9 -2.3 410.3   -52.3 bm
104.9   -56.4 88.8   -57.8  84.0   -53.4 0 -0.2 88.1   -56.8 105.7   -55.4 109.7   -51.1 84.0   -53.2 SL
161.5   -58.8  150.6   -59.3  147.3   -54.8 0 -0.2 150.0   -58.3  162.0   -57.8  164.8   -53.9 147.3   -54.6 SL
287.3   -53.8 269.8   -53.8 264.6   -49.1 0 -0.2 269.0   -52.8 288.1   -52.8 292.5   -48.9 264.6   -48.9 SL
334.7   -19.7 323.8   -20.2 320.5   -24.9 0 0.2 323.2   -21.2 335.2   -20.7 338.0   -24.4 320.5   -25.1 SL
377.3   -51.8 361.9   -50.3 357.2   -45.3 0 -0.2 361.1   -49.3 378.0   -50.8 381.9   -47.2 357.2   -45.1 SL
429.1   -19.7 417.9   -20.1 414.6   -24.9 0 0.2 417.4   -21.1 429.6   -20.7 432.4   -24.4 414.6   -25.1 SL
470.8   -51.7 456.5   -50.3 452.2   -45.2 0 -0.2 455.8   -49.3 471.5   -50.7 475.1   -47.1 452.2   -45.0 SL
675.0   -11.1 660.9   -14.7 656.7   -20.2 0 0.2 660.2   -15.7 675.7   -12.1 679.3   -15.2 656.7   -20.4 SL
14.0 F1  125.9   -16.0 M (20) showb 560.1   -16.0 M (25) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -23.0 sh0 
47.9 -41.0 hd 8.0 3 dt 20.0 su
81.3 -44.0 hd -9.0 nt 21.2 su
96.4 -41.0 hd 18.2 su
110.9 -44.0 hd 21.2 su
24.0 125.9 -47.0 bar
146.0 -47.0 hd -9.0 ft 20.4 su
165.5 -44.0 hd -9.0 nt 19.6 su
182.8 -41.0 Hd 20.0 su
24.0 206.7 -47.0 fbar1 216.7 -47.0 rdots
234.6 -38.0 hd 8.0 0 dt 20.0 su
263.4 -41.0 hd 18.2 su
277.4 -44.0 hd 21.2 su
293.7 -41.0 hd 18.2 su
24.0 307.5 -47.0 bar
319.7 -32.0 hd 20.4 sd
339.3 -35.0 hd -9.0 ft 19.6 sd
356.1 -38.0 hd 8.0 0 dt 20.0 su
384.6 -41.0 hd 1 20.0 sfu
24.0 401.9 -47.0 bar
413.8 -32.0 hd 20.3 sd
433.7 -35.0 hd -9.0 ft 19.7 sd
451.2 -38.0 hd 8.0 0 dt 20.0 su
477.7 -41.0 hd 1 20.0 sfu
24.0 496.2 -47.0 bar
517.7 -29.0 hd 20.0 sd
538.2 -29.0 Hd 20.0 sd
24.0 560.1 -47.0 bar
572.4 -32.0 hd 20.0 sd
594.8 -32.0 Hd 20.0 sd
24.0 616.0 -47.0 bar
636.4 -35.0 hd -9.0 ft 20.0 sd
655.5 -35.0 hd 20.0 sd
681.2 -38.0 hd -9.0 ft 20.0 su
24.0 699.3 -47.0 bar
(mf) 234.6 -77.00 pf
-106.0 429.7 -77.00 cresc
(f) 517.7 -77.00 pf
135.0 542.2 -77.00 cresc
0 -77.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 729 x @beginspecial 0 @llx 0 @lly 544 @urx
90 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-kyrie005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 90
%%Title: jazzmesse-vli-kyrie005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:36 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 90.3 T
0.75 dup scale


% --- 5 ((notitle)) ---
0 -25.34 T
3.2 29.7 0.0 84.9   -31.8 bm
3.2 27.1 -2.5 141.9   -30.3 bm
3.2 25.3 0.0 311.7   -14.7 bm
3.2 26.3 0.0 404.0   -14.0 bm
-3.2 25.4 6.2 479.3   -73.1  bm
-3.2 30.7 0.0 651.0   -72.0  bm
269.9   -16.5 277.2   -15.7 hbr 296.5   -13.5 289.2   -14.4 hbr (3) 283.2   -19.0 bnum
(3) 324.4   -10.7 bnum
(3) 417.1   -10.0 bnum
(3) 492.0   -82.0  bnum
105.1   -65.4 88.9   -66.8  84.1   -62.4 0 -0.2 88.1   -65.8 105.8   -64.4 109.9   -60.1 84.1   -62.2 SL
157.2   -65.5 143.5   -62.6 139.4   -57.2 0 -0.2 142.9   -61.6 157.9   -64.5 161.3   -61.2 139.4   -57.0 SL
281.2    -5.6 262.0   -14.2 256.2   -21.5 0 0.2 261.0   -15.2 282.2    -6.6 287.0    -9.1 256.2   -21.7 SL
325.7   -68.4  313.0   -65.6 309.2   -59.5 0 -0.2 312.4   -64.6 326.3   -67.4  329.5   -63.5 309.2   -59.3 SL
421.3   -68.1  406.5   -68.5  402.1   -63.9 0 -0.2 405.8   -67.5  422.0   -67.1  425.7   -63.0 402.1   -63.7 SL
499.5   -15.0 487.4   -21.6 483.8   -27.8 0 0.2 486.9   -22.6 500.1   -16.0 503.2   -18.4 483.8   -28.0 SL
679.1   -19.4 662.7   -17.5 657.7   -21.8 0 0.2 661.9   -18.5 679.9   -20.4 684.0   -24.8 657.7   -22.0 SL
14.0 F1  348.5   -25.0 M (30) showb
0 -56.00 M 699.30 staff
12.0 -56.0  tclef
30.0 -32.0 sh0 
47.9 -50.0 hd 8.0 3 dt 20.0 su
81.4 -53.0 hd -9.0 nt 21.2 su
96.5 -50.0 hd 18.2 su
111.1 -53.0 hd 21.2 su
24.0 126.2 -56.0 bar
138.4 -50.0 hd 19.7 su
165.4 -53.0 hd -9.0 nt 20.3 su
182.1 -50.0 hd 8.0 3 dt 20.0 su
215.0 -53.0 hd -9.0 sh 1 20.0 sfu
24.0 233.8 -56.0 bar
254.7 -32.0 hd 41.0 sd 254.7 -53.0 hd
273.9 -32.0 hd 41.0 sd 273.9 -53.0 hd
292.5 -26.0 hd 1 41.0 sfd -26.0 hl 292.5 -47.0 hd
308.2 -50.0 hd 35.3 su 308.2 -29.0 hd
320.3 -59.0 hd 44.3 su 320.3 -38.0 hd
333.5 -56.0 hd 41.3 su 333.5 -35.0 hd
24.0 348.5 -56.0 bar
369.7 -32.0 Hd -10.0 nt 41.0 sd 369.7 -53.0 Hd -10.0 nt
400.5 -56.0 hd -9.0 ft 42.0 su 400.5 -35.0 hd -9.0 ft
413.0 -53.0 hd 39.0 su 413.0 -32.0 hd
426.8 -56.0 hd 42.0 su 426.8 -35.0 hd
24.0 441.2 -56.0 bar
454.4 -59.0 Hd 41.0 su 454.4 -38.0 Hd
482.8 -35.0 hd 38.1 sd 482.8 -56.0 hd
495.5 -29.0 hd 41.0 sd 495.5 -50.0 hd
508.2 -23.0 hd 43.9 sd -26.0 hl 508.2 -44.0 hd
24.0 522.9 -56.0 bar
537.9 -17.0 Hd 9.0 0 dt 41.0 sd -26.0 hl -20.0 hl 537.9 -38.0 Hd 9.0 3 dt
24.0 592.2 -56.0 bar
623.1 -29.0 hd 8.0 0 dt -9.0 ft 41.0 sd 623.1 -50.0 hd 8.0 3 dt -9.0 ft
654.5 -32.0 hd -9.0 ft 40.0 sd 654.5 -53.0 hd -9.0 ft
669.3 -29.0 hd 43.0 sd 669.3 -50.0 hd
685.3 -32.0 hd 40.0 sd 685.3 -53.0 hd
24.0 699.3 -56.0 bar
266.7 -60.8 260.3 -60.8 258.4 -57.6 0 -0.2 260.0 -59.8 267.1 -59.8 268.7 -57.4 258.4 -57.4 SL
268.0 -24.2 260.6 -24.2 258.4 -27.4 0 0.2 260.3 -25.2 268.3 -25.2 270.2 -27.6 258.4 -27.6 SL
(ritard.) 165.4 -95.00 crdc
(p) 254.7 -95.00 pf
574.9 -29.00 brth
(mf) 623.1 -95.00 pf
623.1 -21.00 dnb
-34.8 693.3 -95.00 cresc
0 -95.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 721 x @beginspecial 0 @llx 0 @lly 544 @urx
89 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-kyrie006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 89
%%Title: jazzmesse-vli-kyrie006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:36 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 88.8 T
0.75 dup scale


% --- 6 ((notitle)) ---
0 -25.34 T
-3.2 22.5 -2.4 53.0   -62.3 bm
-3.2 33.1 0.0 206.3   -64.0  bm
-3.2 17.6 -2.2 267.0   -56.4 bm
-3.2 18.0 -2.3 355.3   -56.4 bm
-3.2 42.4 4.7 638.6   -67.3  bm
74.5    -7.9 62.5    -6.4 58.9   -10.8 0 0.2 62.0    -7.4 75.1    -8.9 78.1   -13.0 58.9   -11.0 SL
122.0   -13.7 106.9   -12.2 102.4   -16.6 0 0.2 106.2   -13.2 122.7   -14.7 126.5   -18.9 102.4   -16.8 SL
235.9   -11.1 216.9   -11.1 211.1   -15.9 0 0.2 215.9   -12.1 236.8   -12.1 241.6   -16.1 211.1   -16.1 SL
284.6    -6.0 275.4    -4.6 272.7    -8.8 0 0.2 275.0    -5.6 285.1    -7.0 287.4   -11.2 272.7    -9.0 SL
324.6   -11.9 312.7   -10.4 309.2   -14.8 0 0.2 312.2   -11.4 325.1   -12.9 328.1   -17.1 309.2   -15.0 SL
373.3    -6.0 363.9    -4.6 361.1    -8.8 0 0.2 363.4    -5.6 373.8    -7.0 376.1   -11.1 361.1    -9.0 SL
420.2    -7.7 405.7    -6.3 401.4   -10.7 0 0.2 405.0    -7.3 420.9    -8.7 424.6   -13.0 401.4   -10.9 SL
482.4    -9.3 467.9   -10.7 463.6   -15.8 0 0.2 467.2   -11.7 483.1   -10.3 486.8   -13.9 463.6   -16.0 SL
672.3    -8.2 650.4   -13.4 643.8   -19.5 0 0.2 649.3   -14.4 673.3    -9.2 678.9   -12.0 643.8   -19.7 SL
14.0 F1  145.3   -23.0 M (35) showb 585.4    -8.0 M (40) showb
0 -54.00 M 699.30 staff
12.0 -54.0  tclef
30.0 -30.0 sh0 
56.5 -21.0 hd -9.0 ft 41.3 sd -24.0 hl 56.5 -42.0 hd -9.0 ft
79.0 -24.0 hd -9.0 ft 40.7 sd -24.0 hl 79.0 -45.0 hd -9.0 ft
99.8 -27.0 hd -9.0 ft 41.0 sd 99.8 -48.0 hd -9.0 ft
127.7 -30.0 hd -9.0 ft 41.0 sd 127.7 -51.0 hd -9.0 ft
24.0 145.3 -54.0 bar
180.0 -21.0 hd 8.0 0 dt -9.0 nt 41.0 sd -24.0 hl 180.0 -42.0 hd 8.0 3 dt -9.0 nt
209.8 -24.0 hd 40.0 sd -24.0 hl 209.8 -45.0 hd
226.9 -21.0 hd 43.0 sd -24.0 hl 226.9 -42.0 hd
242.9 -24.0 hd 40.0 sd -24.0 hl 242.9 -45.0 hd
24.0 258.4 -54.0 bar
270.5 -15.0 hd 41.4 sd -24.0 hl -18.0 hl 270.5 -36.0 hd
288.1 -18.0 hd 40.6 sd -24.0 hl -18.0 hl 288.1 -39.0 hd
306.8 -21.0 hd 41.0 sd -24.0 hl 306.8 -42.0 hd
329.0 -24.0 hd 41.0 sd -24.0 hl 329.0 -45.0 hd
24.0 347.1 -54.0 bar
358.8 -15.0 hd 41.4 sd -24.0 hl -18.0 hl 358.8 -36.0 hd
376.8 -18.0 hd 40.6 sd -24.0 hl -18.0 hl 376.8 -39.0 hd
398.8 -21.0 hd -9.0 ft 41.0 sd -24.0 hl 398.8 -42.0 hd -9.0 ft
425.7 -24.0 hd -9.0 ft 41.0 sd -24.0 hl 425.7 -45.0 hd -9.0 ft
24.0 443.2 -54.0 bar
462.5 -27.0 hd -9.0 ft 41.0 sd 462.5 -48.0 hd -9.0 ft
489.4 -24.0 hd -9.0 ft 41.0 sd -24.0 hl 489.4 -45.0 hd -9.0 ft
516.2 -21.0 hd -9.0 ft 41.0 sd -24.0 hl 516.2 -42.0 hd -9.0 ft
24.0 533.8 -54.0 bar
554.1 -21.0 Hd 9.0 0 dt -10.0 nt 41.0 sd -24.0 hl 554.1 -42.0 Hd 9.0 3 dt -10.0 nt
24.0 585.4 -54.0 bar
615.4 -21.0 hd 8.0 0 dt -9.0 ft 41.0 sd -24.0 hl 615.4 -42.0 hd 8.0 3 dt -9.0 ft
642.1 -27.0 hd 40.3 sd 642.1 -48.0 hd
662.8 -24.0 hd -9.0 ft 41.0 sd -24.0 hl 662.8 -45.0 hd -9.0 ft
684.6 -21.0 hd -9.0 ft 41.6 sd -24.0 hl 684.6 -42.0 hd -9.0 ft
24.0 699.3 -54.0 bar
-137.0 176.0 -93.00 cresc
83.6 466.5 -93.00 cresc
(mf) 615.4 -93.00 pf
615.4 -13.00 upb
0 -93.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 820 x @beginspecial 0 @llx 0 @lly 544 @urx
101 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-kyrie007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 101
%%Title: jazzmesse-vli-kyrie007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:36 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 101.1 T
0.75 dup scale


% --- 7 ((notitle)) ---
0 -25.34 T
-3.2 41.8 4.7 133.6   -86.8  bm
166.7   -27.6 145.2   -32.8 138.8   -38.9 0 0.2 144.2   -33.8 167.8   -28.6 173.2   -31.5 138.8   -39.1 SL
14.0 F3 246.2   -17.4 M (Fine) gcshow 
14.0 F1  284.6   -42.4 M (45) showb 641.2   -42.4 M (50) showb
15.0 F2 344.5 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
Hd 20 su grestore 15.40 0 rmoveto ( = 48) show
0 -73.40 M 699.30 staff
12.0 -73.4  tclef
30.0 -49.4 sh0 
57.2 -40.4 Hd 9.0 0 dt -10.0 nt 41.0 sd -43.4 hl 57.2 -61.4 Hd 9.0 3 dt -10.0 nt
24.0 86.3 -73.4 bar
106.4 -40.4 hd 8.0 0 dt -9.0 ft 41.0 sd -43.4 hl 106.4 -61.4 hd 8.0 3 dt -9.0 ft
137.1 -46.4 hd 40.4 sd 137.1 -67.4 hd
158.7 -43.4 hd -9.0 ft 40.9 sd -43.4 hl 158.7 -64.4 hd -9.0 ft
178.9 -40.4 hd -9.0 ft 41.7 sd -43.4 hl 178.9 -61.4 hd -9.0 ft
24.0 191.8 -73.4 bar
213.0 -40.4 Hd 9.0 0 dt -10.0 nt 41.0 sd -43.4 hl 213.0 -61.4 Hd 9.0 3 dt -10.0 nt
24.0 240.0 -73.4 bar
254.2 -40.4 Hd 9.0 0 dt 41.0 sd -43.4 hl 254.2 -61.4 Hd 9.0 3 dt
24.0 284.6 -73.4 dbar
294.8 -49.4 nt0 302.8 -61.4 ft0 307.8 -52.4 ft0 
(2) (2) 337.5 -73.4 tsig
354.5 -61.4 r2
385.8 -76.4 Hd 20.0 su
24.0 405.3 -73.4 bar
419.5 -67.4 Hd 9.0 3 dt 20.0 su
451.1 -61.4 r4
24.0 466.5 -73.4 bar
479.7 -61.4 r2
503.2 -76.4 Hd 20.0 su
24.0 523.3 -73.4 bar
537.4 -67.4 Hd 9.0 3 dt 20.0 su
568.7 -61.4 r4
24.0 584.5 -73.4 bar
598.0 -61.4 r2
621.3 -76.4 Hd 20.0 su
24.0 641.2 -73.4 bar
654.5 -67.4 Hd 20.0 su
680.1 -61.4 Hd 20.0 sd
24.0 699.3 -73.4 bar
242.3 -70.0 223.3 -70.0 217.7 -66.4 0 -0.2 222.4 -69.0 243.2 -69.0 248.0 -66.2 217.7 -66.2 SL
243.5 -31.8 223.6 -31.8 217.7 -35.4 0 0.2 222.7 -32.8 244.5 -32.8 249.5 -35.6 217.7 -35.6 SL
35.2 61.2 -109.40 cresc
106.4 -32.40 dnb
(p) 137.1 -109.40 pf
254.2 -33.40 hld
(p) 385.8 -109.40 pf
385.8 -47.40 upb
503.2 -47.40 upb
621.3 -47.40 upb
0 -109.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 579 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-kyrie008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-kyrie008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:36 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale


% --- 8 ((notitle)) ---
0 -25.34 T
75.6   -22.7 60.4   -21.2 55.8   -25.6 0 0.2 59.7   -22.2 76.3   -23.7 80.2   -27.9 55.8   -25.8 SL
577.4   -16.0 561.9   -16.0 557.2   -20.8 0 0.2 561.1   -17.0 578.1   -17.0 582.1   -21.0 557.2   -21.0 SL
641.4    -9.6 616.6   -14.1 609.2   -23.6 0 0.2 615.4   -15.1 642.6   -10.6 648.9   -17.2 609.2   -23.8 SL
14.0 F1  227.6   -16.0 M (55) showb 482.6   -16.0 M (60) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 
53.2 -32.0 Hd 9.0 0 dt 20.0 sd
81.3 -35.0 hd 20.0 sd
24.0 94.1 -47.0 bar
107.4 -38.0 HD
24.0 127.9 -47.0 bar
140.6 -35.0 r2
159.7 -50.0 Hd 20.0 su
24.0 175.1 -47.0 bar
188.3 -41.0 Hd 9.0 3 dt 20.0 su
214.8 -35.0 r4
24.0 227.6 -47.0 bar
239.5 -35.0 r2
259.1 -50.0 Hd 20.0 su
24.0 274.8 -47.0 bar
288.0 -41.0 Hd 9.0 3 dt 20.0 su
314.5 -35.0 r4
24.0 327.3 -47.0 bar
339.7 -35.0 r2
358.3 -35.0 Hd 20.0 sd
24.0 374.5 -47.0 bar
387.3 -35.0 r2
412.8 -32.0 Hd -9.0 sh 20.0 sd
24.0 428.6 -47.0 bar
441.4 -35.0 r2
466.6 -32.0 Hd -9.0 nt 20.0 sd
24.0 482.6 -47.0 bar
495.1 -35.0 r2
521.2 -35.0 Hd -9.0 nt 20.0 sd
24.0 536.7 -47.0 bar
556.1 -35.0 Hd 9.0 3 dt -9.0 ft 20.0 sd
583.1 -35.0 hd 20.0 sd
24.0 596.1 -47.0 bar
607.3 -35.0 hd 20.0 sd
621.9 -38.0 hd 20.0 su
637.5 -41.0 hd 20.0 su
651.8 -44.0 hd 20.0 su
24.0 665.5 -47.0 bar
679.1 -44.0 HD
24.0 699.3 -47.0 bar
159.7 -21.00 upb
259.1 -21.00 upb
358.3 -21.00 dnb
412.8 -21.00 upb
466.6 -21.00 dnb
556.1 -26.00 emb
583.1 -26.00 emb
679.1 -21.00 dnb
0 -70.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1765 6215 a Fe(2)p eop end
%%Page: 3 3
TeXDict begin 3 2 bop -317 294 a @beginspecial 0 @llx
0 @lly 544 @urx 84 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-kyrie009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 84
%%Title: jazzmesse-vli-kyrie009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:36 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 84.3 T
0.75 dup scale


% --- 9 ((notitle)) ---
0 -25.34 T
3.2 23.0 0.0 445.4   -32.8 bm
3.2 11.9 2.0 490.8   -36.5 bm
3.2 11.1 1.9 541.4   -36.5 bm
3.2 11.1 1.9 578.8   -36.5 bm
86.8   -61.1 71.5   -65.6 67.0   -61.9 0 -0.2 70.8   -64.6 87.5   -60.1 91.4   -55.1 67.0   -61.7 SL
189.7   -27.8 172.8   -28.7 167.7   -33.7 0 0.2 172.0   -29.7 190.5   -28.8 194.8   -32.5 167.7   -33.9 SL
363.2   -66.4 351.2   -63.5 347.5   -58.2 0 -0.2 350.6   -62.5 363.8   -65.4 366.9   -62.2 347.5   -58.0 SL
14.0 F1  105.6   -26.0 M (65) showb 325.6   -26.0 M (70) showb 661.9   -26.0 M (75) showb
15.0 F2 411.1 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 56) show
0 -57.00 M 699.30 staff
12.0 -57.0  tclef
30.0 -45.0 ft0 35.0 -36.0 ft0 
61.7 -54.0 Hd -9.0 sh 20.0 su
79.7 -51.0 hd 20.0 su
92.6 -48.0 hd 20.0 su
24.0 105.6 -57.0 bar
128.5 -45.0 HD -12.0 ft
24.0 146.4 -57.0 bar
166.5 -45.0 Hd -9.0 nt 20.0 sd
183.2 -42.0 hd 20.0 sd
197.0 -39.0 hd 20.0 sd
24.0 209.0 -57.0 bar
220.7 -33.0 Hd 20.0 sd
238.8 -36.0 Hd 20.0 sd
24.0 253.4 -57.0 bar
267.4 -45.0 r1
24.0 285.3 -57.0 bar
307.8 -51.0 HD
24.0 325.6 -57.0 bar
346.6 -51.0 Hd 20.0 su
370.8 -54.0 Hd -9.0 sh 20.0 su
24.0 389.0 -57.0 dbar
(3) (4) 404.1 -57.0 tsig
420.8 -51.0 hd 8.0 3 dt 20.0 su
441.9 -54.0 hd 21.2 su
453.8 -51.0 hd 18.2 su
465.0 -54.0 hd 21.2 su
24.0 476.2 -57.0 bar
487.3 -57.0 hd 20.5 su
499.2 -54.0 hd 19.5 su
511.7 -51.0 Hd 20.0 su
24.0 526.6 -57.0 bar
537.9 -57.0 hd 20.5 su
548.9 -54.0 hd 19.5 su
561.0 -51.0 hd 20.0 su
575.3 -57.0 hd 20.5 su
586.5 -54.0 hd 19.5 su
24.0 598.0 -57.0 bar
618.2 -51.0 hd 20.0 su
633.1 -54.0 hd 20.0 su
646.9 -57.0 hd 20.0 su
24.0 661.9 -57.0 dbar
672.0 -45.0 nt0 677.0 -36.0 nt0 685.0 -33.0 sh0 
-60.5 193.0 -87.00 cresc
20.0 224.7 -87.00 cresc
(p) 307.8 -87.00 pf
(ritard.) 346.6 -87.00 crdc
(ritard.) 618.2 -87.00 crdc
0 -87.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 956 x @beginspecial 0 @llx 0 @lly 544 @urx
98 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-kyrie010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 98
%%Title: jazzmesse-vli-kyrie010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:36 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 98.4 T
0.75 dup scale


% --- 10 ((notitle)) ---
0 -25.34 T
3.2 34.0 4.4 164.2   -27.9 bm
3.2 25.3 0.0 281.9   -25.5 bm
3.2 25.2 0.0 371.2   -24.8 bm
-3.2 27.6 6.4 443.7   -84.0  bm
3.2 31.2 4.3 556.7   -27.8 bm
3.2 25.5 0.0 663.8   -25.5 bm
243.5   -27.3 249.5   -26.6 hbr 267.6   -24.3 261.5   -25.1 hbr (3) 255.5   -29.8 bnum
(3) 294.5   -21.5 bnum
(3) 383.8   -20.8 bnum
(3) 572.3   -21.7 bnum
625.4   -27.3 631.6   -26.6 hbr 649.8   -24.3 643.6   -25.1 hbr (3) 637.6   -29.8 bnum
(3) 676.5   -21.5 bnum
252.9   -16.5 235.2   -25.1 229.9   -32.4 0 0.2 234.4   -26.1 253.7   -17.5 258.2   -20.0 229.9   -32.6 SL
295.9   -79.1  283.2   -76.2 279.4   -70.3 0 -0.2 282.6   -75.2 296.5   -78.1  299.7   -74.3 279.4   -70.1 SL
387.7   -78.8  373.5   -79.3  369.2   -74.7 0 -0.2 372.8   -78.3  388.3   -77.8  391.9   -73.8 369.2   -74.5 SL
465.7   -25.8 452.3   -32.4 448.3   -38.6 0 0.2 451.7   -33.4 466.3   -26.8 469.7   -29.2 448.3   -38.8 SL
531.4    -2.0 519.1    -2.0 515.4    -6.7 0 0.2 518.5    -3.0 532.0    -3.0 535.1    -6.9 515.4    -6.9 SL
578.1   -79.2  561.1   -80.7  556.0   -76.2 0 -0.2 560.3   -79.7  578.9   -78.2  583.2   -73.9 556.0   -76.0 SL
635.0   -16.4 617.1   -25.1 611.7   -32.4 0 0.2 616.2   -26.1 635.9   -17.4 640.4   -20.0 611.7   -32.6 SL
677.9   -79.2  665.1   -76.3 661.3   -70.3 0 -0.2 664.5   -75.3 678.6   -78.2  681.8   -74.3 661.3   -70.1 SL
14.0 F3 53.2   -17.4 M (a tempo) gcshow 59.7   -32.8 M ( ) gcshow 
14.0 F1 37.7   -36.8 M (75) showb 488.5   -35.8 M (80) showb
0 -66.80 M 699.30 staff
12.0 -66.8  tclef
30.0 -42.8 sh0 
61.2 -54.8 r4
87.4 -66.8 hd 20.0 su
105.6 -69.8 hd 20.0 su
24.0 121.6 -66.8 bar
134.1 -69.8 hd 8.0 0 dt 41.0 su 134.1 -48.8 hd 8.0 3 dt
160.7 -69.8 hd 41.9 su 160.7 -48.8 hd
174.7 -66.8 hd 40.7 su 174.7 -45.8 hd
194.6 -63.8 hd -9.0 nt 40.3 su 194.6 -42.8 hd -9.0 nt
24.0 208.3 -66.8 bar
228.5 -42.8 hd 41.0 sd 228.5 -63.8 hd
247.5 -42.8 hd 41.0 sd 247.5 -63.8 hd
263.6 -36.8 hd 1 41.0 sfd -36.8 hl 263.6 -57.8 hd
278.4 -60.8 hd 35.3 su 278.4 -39.8 hd
291.0 -69.8 hd 44.3 su 291.0 -48.8 hd
303.7 -66.8 hd 41.3 su 303.7 -45.8 hd
24.0 317.5 -66.8 bar
338.6 -42.8 Hd -10.0 nt 41.0 sd 338.6 -63.8 Hd -10.0 nt
367.7 -66.8 hd -9.0 ft 42.0 su 367.7 -45.8 hd -9.0 ft
380.3 -63.8 hd 39.0 su 380.3 -42.8 hd
392.9 -66.8 hd 42.0 su 392.9 -45.8 hd
24.0 406.4 -66.8 bar
419.2 -69.8 hd 8.0 0 dt 41.0 su 419.2 -48.8 hd 8.0 3 dt
447.2 -45.8 hd 38.2 sd 447.2 -66.8 hd
460.6 -39.8 hd 41.1 sd 460.6 -60.8 hd
474.8 -33.8 hd 43.8 sd -36.8 hl 474.8 -54.8 hd
24.0 488.5 -66.8 bar
514.6 -27.8 hd 41.0 sd -36.8 hl -30.8 hl 514.6 -48.8 hd
535.9 -27.8 hd 41.0 sd -36.8 hl -30.8 hl 535.9 -48.8 hd
553.2 -69.8 hd 42.0 su 553.2 -48.8 hd
566.1 -66.8 hd 40.7 su 566.1 -45.8 hd
584.4 -63.8 hd -9.0 nt 40.3 su 584.4 -42.8 hd -9.0 nt
24.0 598.4 -66.8 bar
610.3 -42.8 hd 41.0 sd 610.3 -63.8 hd
629.4 -42.8 hd 41.0 sd 629.4 -63.8 hd
645.8 -36.8 hd 1 41.0 sfd -36.8 hl 645.8 -57.8 hd
660.3 -60.8 hd 35.3 su 660.3 -39.8 hd
672.7 -69.8 hd 44.3 su 672.7 -48.8 hd
685.8 -66.8 hd 41.3 su 685.8 -45.8 hd
24.0 699.3 -66.8 bar
240.4 -71.6 234.2 -71.6 232.3 -68.4 0 -0.2 233.9 -70.6 240.7 -70.6 242.2 -68.2 232.3 -68.2 SL
241.6 -35.0 234.4 -35.0 232.3 -38.2 0 0.2 234.1 -36.0 241.9 -36.0 243.7 -38.4 232.3 -38.4 SL
622.2 -71.6 615.9 -71.6 614.1 -68.4 0 -0.2 615.6 -70.6 622.5 -70.6 624.1 -68.2 614.1 -68.2 SL
623.4 -35.0 616.2 -35.0 614.1 -38.2 0 0.2 615.9 -36.0 623.8 -36.0 625.6 -38.4 614.1 -38.4 SL
(mf) 87.4 -105.80 pf
-52.5 190.6 -105.80 cresc
(f) 228.5 -105.80 pf
514.6 -20.80 emb
514.6 -18.80 dnb
535.9 -20.80 emb
535.9 -18.80 dnb
0 -105.80 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 914 x @beginspecial 0 @llx 0 @lly 544 @urx
93 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-kyrie011.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 93
%%Title: jazzmesse-vli-kyrie011.abc (11)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:36 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 92.8 T
0.75 dup scale


% --- 11 ((notitle)) ---
0 -25.34 T
3.2 26.7 0.0 95.6   -23.4 bm
-3.2 30.8 6.7 174.5   -82.8  bm
3.2 32.8 4.4 285.0   -47.5 bm
3.2 31.6 0.0 387.9   -41.2 bm
3.2 21.7 2.4 454.3   -45.1 bm
3.2 30.7 0.0 565.3   -41.2 bm
3.2 20.6 2.3 631.1   -45.1 bm
(3) 109.0   -19.4 bnum
(3) 301.4   -41.3 bnum
113.2   -77.5  98.2   -78.0  93.7   -73.4 0 -0.2 97.5   -77.0  113.9   -76.5  117.7   -72.5 93.7   -73.2 SL
255.5    -0.6 241.9    -0.6 237.8    -5.3 0 0.2 241.2    -1.6 256.2    -1.6 259.6    -5.5 237.8    -5.5 SL
307.6   -77.9  289.7   -79.3  284.3   -74.9 0 -0.2 288.8   -78.3  308.5   -76.9  313.0   -72.6 284.3   -74.7 SL
586.3   -74.8 569.5   -76.3  564.5   -71.8 0 -0.2 568.7   -75.3 587.1   -73.8 591.3   -69.5 564.5   -71.6 SL
643.9   -77.3  632.3   -77.8  628.9   -73.2 0 -0.2 631.8   -76.8  644.4   -76.3  647.3   -72.3 628.9   -73.0 SL
14.0 F3 640.1   -23.4 M (al Fine) gcshow 
14.0 F1  329.7   -34.4 M (85) showb
0 -65.44 M 699.30 staff
12.0 -65.4  tclef
30.0 -41.4 sh0 
59.6 -41.4 Hd -10.0 nt 41.0 sd 59.6 -62.4 Hd -10.0 nt
92.1 -65.4 hd -9.0 ft 42.0 su 92.1 -44.4 hd -9.0 ft
105.5 -62.4 hd 39.0 su 105.5 -41.4 hd
118.8 -65.4 hd 42.0 su 118.8 -44.4 hd
24.0 134.1 -65.4 bar
147.9 -68.4 hd 8.0 0 dt 41.0 su 147.9 -47.4 hd 8.0 3 dt
178.0 -44.4 hd 38.4 sd 178.0 -65.4 hd
193.2 -38.4 hd 41.0 sd 193.2 -59.4 hd
208.8 -32.4 hd 43.6 sd -35.4 hl 208.8 -53.4 hd
24.0 224.2 -65.4 bar
236.8 -26.4 hd 41.0 sd -35.4 hl -29.4 hl 236.8 -47.4 hd
260.5 -26.4 hd 41.0 sd -35.4 hl -29.4 hl 260.5 -47.4 hd
281.5 -68.4 hd 20.9 su
295.2 -65.4 hd 19.8 su
314.3 -62.4 hd -9.0 nt 19.3 su
24.0 329.7 -65.4 bar
350.8 -59.4 hd 8.0 3 dt 20.0 su
384.4 -62.4 hd -9.0 nt 21.2 su
400.1 -59.4 hd 18.2 su
416.0 -62.4 hd 21.2 su
24.0 431.0 -65.4 bar
450.8 -65.4 hd -9.0 ft 20.3 su
472.5 -62.4 hd -9.0 nt 19.7 su
489.8 -59.4 Hd 20.0 su
24.0 514.0 -65.4 bar
527.2 -59.4 hd 8.0 3 dt 20.0 su
561.8 -62.4 hd -9.0 nt 21.2 su
577.7 -59.4 hd 18.2 su
592.5 -62.4 hd 21.2 su
24.0 608.0 -65.4 bar
627.6 -65.4 hd -9.0 ft 20.3 su
648.1 -62.4 hd -9.0 nt 19.7 su
666.4 -59.4 Hd 20.0 su
24.0 699.3 -65.4 fbar2 689.3 -65.4 rdots
236.8 -19.44 emb
236.8 -17.44 dnb
260.5 -19.44 emb
260.5 -17.44 dnb
(p) 350.8 -98.44 pf
55.3 285.5 -98.44 cresc
-92.4 623.6 -98.44 cresc
666.4 -37.44 upb
0 -98.44 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1836 6215 a Fe(3)p eop end
%%Page: 4 4
TeXDict begin 4 3 bop 1565 -306 a Fc(Gloria)-387 305
y @beginspecial 0 @llx 0 @lly 516 @urx 95 @ury 5160 @rwi
@setspecial
%%BeginDocument: jazzmesse-vli-gloria001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 95
%%Title: jazzmesse-vli-gloria001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 95.1 T
0.75 dup scale
37.8 0 T


% --- 1 ((notitle)) ---
0 -25.34 T
3.2 12.0 -2.0 168.2   -47.9 bm
3.2 12.0 -2.0 168.2   -52.9 bm
3.2 15.1 2.1 312.6   -60.0 bm
3.2 12.0 -2.0 550.7   -47.9 bm
3.2 12.0 -2.0 550.7   -52.9 bm
172.9   -81.6 166.9   -80.2 165.1   -75.3 0 -0.2 166.6   -79.2 173.2   -80.6 174.7   -77.2 165.1   -75.1 SL
555.4   -81.6 549.4   -80.2 547.6   -75.3 0 -0.2 549.1   -79.2 555.7   -80.6 557.2   -77.2 547.6   -75.1 SL
14.0 F3 73.8   -38.4 M (legato) gcshow 
14.0 F1  439.7   -46.4 M (5) showb
15.0 F2 44.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 144) show
0 -77.40 M 661.50 staff
12.0 -77.4  tclef
30.0 -53.4 sh0 35.0 -62.4 sh0 
56.0 -77.4 csig
81.8 -59.4 hd 20.0 sd
101.5 -68.4 hd 1 20.0 sfu
120.1 -65.4 hd 1 20.0 sfu
139.5 -65.4 hd 8.0 3 dt 20.0 su
164.7 -68.4 hd 20.5 su
176.7 -71.4 hd 21.5 su
24.0 188.5 -77.4 bar
201.1 -68.4 hd 20.0 su
219.0 -80.4 hd 1 20.0 sfu
237.8 -71.4 hd 1 20.0 sfu
257.4 -71.4 Hd 20.0 su
24.0 278.6 -77.4 bar
290.8 -74.4 hd 20.0 su
309.1 -80.4 hd 20.4 su
324.1 -77.4 hd 19.6 su
339.3 -77.4 hd 20.0 su
358.6 -77.4 hd 20.0 su
24.0 374.2 -77.4 bar
389.4 -80.4 HD
24.0 439.7 -77.4 bar
465.1 -59.4 hd 20.0 sd
483.9 -68.4 hd 1 20.0 sfu
503.0 -65.4 hd 1 20.0 sfu
521.7 -65.4 hd 8.0 3 dt 20.0 su
547.2 -68.4 hd 20.5 su
559.2 -71.4 hd 21.5 su
24.0 571.4 -77.4 bar
583.2 -68.4 hd 20.0 su
601.7 -74.4 hd 1 20.0 sfu
620.3 -80.4 hd 1 20.0 sfu
640.5 -80.4 Hd 20.0 su
24.0 661.5 -77.4 bar
133.5 -73.3 126.1 -73.3 123.9 -70.0 0 -0.2 125.7 -72.3 133.9 -72.3 135.8 -69.8 123.9 -69.8 SL
251.4 -79.3 243.9 -79.3 241.6 -76.0 0 -0.2 243.5 -78.3 251.7 -78.3 253.6 -75.8 241.6 -75.8 SL
334.2 -85.1 329.2 -85.1 327.7 -81.9 0 -0.2 329.0 -84.1 334.4 -84.1 335.7 -81.7 327.7 -81.7 SL
515.9 -73.2 508.8 -73.2 506.7 -70.0 0 -0.2 508.5 -72.2 516.2 -72.2 518.0 -69.8 506.7 -69.8 SL
634.3 -88.3 626.4 -88.3 624.1 -85.0 0 -0.2 626.1 -87.3 634.7 -87.3 636.7 -84.8 624.1 -84.8 SL
(p) 81.8 -101.40 pf
81.8 -51.40 dnb
201.1 -46.40 dnb
219.0 -51.40 dnb
422.8 -50.40 brth
465.1 -51.40 dnb
583.2 -46.40 dnb
601.7 -51.40 dnb
0 -101.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 484 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vli-gloria002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 74.5 T
0.75 dup scale


% --- 2 ((notitle)) ---
0 -25.34 T
3.2 12.3 3.7 221.0   -19.5 bm
3.2 18.6 -2.3 269.7   -17.4 bm
3.2 18.6 -2.3 269.7   -22.4 bm
3.2 12.8 2.0 529.4   -20.5 bm
3.2 11.1 -1.9 579.1   -20.5 bm
3.2 11.1 -1.9 579.1   -25.5 bm
3.2 11.8 -2.0 629.4   -15.5 bm
69.4   -56.4 57.2   -53.5 53.5   -48.2 0 -0.2 56.6   -52.5 69.9   -55.4 73.0   -52.2 53.5   -48.0 SL
278.4   -53.2 269.5   -50.3 266.9   -45.1 0 -0.2 269.1   -49.3 278.8   -52.2 281.0   -49.1 266.9   -44.9 SL
410.5   -59.1  403.4   -56.2 401.2   -51.0 0 -0.2 403.0   -55.2 410.8   -58.1  412.6   -55.0 401.2   -50.8 SL
583.2   -54.2 577.7   -52.8 576.1   -47.9 0 -0.2 577.5   -51.8 583.4   -53.2 584.8   -49.8 576.1   -47.7 SL
14.0 F1  295.6   -16.0 M (10) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -23.0 sh0 35.0 -32.0 sh0 
52.6 -41.0 hd 20.0 su
77.0 -44.0 hd -9.0 nt 20.0 su
92.8 -47.0 hd 20.0 su
108.8 -47.0 hd 20.0 su
24.0 122.7 -47.0 bar
136.7 -50.0 HD
24.0 181.0 -47.0 bar
201.4 -29.0 hd 20.0 sd
217.5 -44.0 hd 24.5 su
229.8 -35.0 hd 19.2 su
243.6 -35.0 hd 8.0 3 dt 20.0 su
266.2 -38.0 hd 20.6 su
284.7 -41.0 hd -9.0 sh 21.4 su
24.0 295.6 -47.0 bar
319.4 -38.0 hd 20.0 su
336.0 -47.0 hd 1 20.0 sfu
353.2 -41.0 hd 1 20.0 sfu
372.3 -41.0 Hd 20.0 su
24.0 388.8 -47.0 bar
400.6 -44.0 hd 20.0 su
416.2 -50.0 hd 20.0 su
432.8 -50.0 hd 20.0 su
448.9 -44.0 hd 20.0 su
24.0 462.8 -47.0 bar
476.7 -47.0 HD
24.0 498.9 -47.0 bar
510.0 -29.0 hd 26.0 sd 510.0 -35.0 hd
525.9 -41.0 hd 20.5 su
538.7 -38.0 hd 19.5 su
552.7 -38.0 hd 8.0 0 dt 20.0 su
575.6 -41.0 hd 20.5 su
586.8 -44.0 hd 21.5 su
24.0 597.9 -47.0 bar
609.9 -29.0 hd 26.0 sd 609.9 -35.0 hd
625.9 -35.0 hd 19.5 su
637.8 -38.0 hd 20.5 su
652.2 -38.0 hd 8.0 0 dt 20.0 su
683.4 -50.0 hd 1 20.0 sfu
24.0 699.3 -47.0 bar
238.8 -42.6 234.6 -42.6 233.4 -39.5 0 -0.2 234.4 -41.6 239.0 -41.6 240.1 -39.3 233.4 -39.3 SL
366.4 -48.8 359.1 -48.8 357.0 -45.6 0 -0.2 358.8 -47.8 366.7 -47.8 368.6 -45.4 357.0 -45.4 SL
547.9 -45.7 543.6 -45.7 542.3 -42.5 0 -0.2 543.4 -44.7 548.1 -44.7 549.2 -42.3 542.3 -42.3 SL
647.2 -45.7 642.7 -45.7 641.3 -42.5 0 -0.2 642.5 -44.7 647.4 -44.7 648.6 -42.3 641.3 -42.3 SL
92.8 -21.00 upb
108.8 -21.00 upb
164.9 -20.00 brth
(mf) 201.4 -74.00 pf
201.4 -21.00 dnb
319.4 -16.00 dnb
336.0 -21.00 dnb
432.8 -21.00 upb
448.9 -21.00 upb
510.0 -21.00 dnb
(p) 683.4 -74.00 pf
0 -74.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 460 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-gloria003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 72.3 T
0.75 dup scale


% --- 3 ((notitle)) ---
0 -25.34 T
3.2 11.3 -2.0 270.7   -17.5 bm
3.2 11.3 -2.0 270.7   -22.5 bm
3.2 13.0 2.1 400.5   -29.5 bm
3.2 11.6 -2.0 600.2   -17.5 bm
3.2 11.6 -2.0 600.2   -22.5 bm
275.0   -51.2 269.4   -49.8 267.7   -44.9 0 -0.2 269.1   -48.8 275.2   -50.2 276.6   -46.8 267.7   -44.7 SL
604.6   -51.2 598.9   -49.8 597.2   -44.9 0 -0.2 598.6   -48.8 604.9   -50.2 606.3   -46.8 597.2   -44.7 SL
14.0 F1 40.4   -17.0 M (15) showb 453.4   -16.0 M (20) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -23.0 sh0 35.0 -32.0 sh0 
52.9 -41.0 hd 20.0 su
69.9 -44.0 hd 20.0 su
85.5 -47.0 hd 20.0 su
101.4 -47.0 hd 20.0 su
24.0 115.2 -47.0 bar
129.1 -50.0 HD
24.0 173.0 -47.0 bar
193.5 -29.0 hd 20.0 sd
209.5 -38.0 hd 1 20.0 sfu
226.6 -35.0 hd 1 20.0 sfu
244.6 -35.0 hd 8.0 3 dt 20.0 su
267.2 -38.0 hd 20.5 su
278.6 -41.0 hd 21.5 su
24.0 289.4 -47.0 bar
300.9 -38.0 hd 20.0 su
317.4 -50.0 hd 1 20.0 sfu
334.5 -41.0 hd 1 20.0 sfu
353.6 -41.0 Hd 20.0 su
24.0 369.9 -47.0 bar
381.6 -44.0 hd 20.0 su
397.0 -50.0 hd 20.5 su
410.0 -47.0 hd 19.5 su
423.7 -47.0 hd 20.0 su
439.1 -47.0 hd 20.0 su
24.0 453.4 -47.0 bar
466.9 -50.0 HD
24.0 511.2 -47.0 bar
522.5 -29.0 hd 20.0 sd
538.1 -38.0 hd 1 20.0 sfu
555.8 -35.0 hd 1 20.0 sfu
573.5 -35.0 hd 8.0 3 dt 20.0 su
596.7 -38.0 hd 20.5 su
608.3 -41.0 hd 21.5 su
24.0 618.8 -47.0 bar
631.0 -38.0 hd 20.0 su
645.7 -44.0 hd 1 20.0 sfu
663.9 -50.0 hd 1 20.0 sfu
682.8 -50.0 Hd 20.0 su
24.0 699.3 -47.0 bar
238.9 -42.8 232.3 -42.8 230.3 -39.6 0 -0.2 232.0 -41.8 239.2 -41.8 240.9 -39.4 230.3 -39.4 SL
347.6 -48.8 340.4 -48.8 338.3 -45.6 0 -0.2 340.1 -47.8 348.0 -47.8 349.8 -45.4 338.3 -45.4 SL
418.9 -54.6 414.8 -54.6 413.5 -51.5 0 -0.2 414.6 -53.6 419.1 -53.6 420.1 -51.3 413.5 -51.3 SL
567.9 -42.8 561.4 -42.8 559.5 -39.6 0 -0.2 561.1 -41.8 568.2 -41.8 569.8 -39.4 559.5 -39.4 SL
676.9 -57.8 669.8 -57.8 667.6 -54.6 0 -0.2 669.4 -56.8 677.2 -56.8 679.0 -54.4 667.6 -54.4 SL
157.1 -20.00 brth
(f) 193.5 -71.00 pf
193.5 -21.00 dnb
300.9 -16.00 dnb
317.4 -21.00 dnb
495.2 -20.00 brth
522.5 -21.00 dnb
631.0 -16.00 dnb
645.7 -21.00 dnb
0 -71.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 543 x @beginspecial 0 @llx 0 @lly 544 @urx
82 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 82
%%Title: jazzmesse-vli-gloria004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 81.6 T
0.75 dup scale


% --- 4 ((notitle)) ---
0 -25.34 T
3.2 38.7 0.0 206.8   -33.2 bm
3.2 26.1 0.0 258.8   -33.2 bm
3.2 38.3 0.0 341.8   -27.2 bm
3.2 38.1 0.0 394.1   -27.2 bm
3.2 38.8 0.0 474.2   -21.2 bm
3.2 26.7 0.0 526.7   -21.2 bm
3.2 38.5 0.0 594.6   -21.2 bm
3.2 13.5 0.0 646.8   -21.2 bm
69.5   -60.8 57.2   -57.9 53.5   -52.6 0 -0.2 56.6   -56.9 70.1   -59.8 73.2   -56.6 53.5   -52.4 SL
14.0 F3 330.3   -17.4 M (simile) gcshow 
14.0 F1  182.9   -20.4 M (25) showb
0 -51.40 M 699.30 staff
12.0 -51.4  tclef
30.0 -27.4 sh0 35.0 -36.4 sh0 
52.6 -45.4 hd 20.0 su
77.2 -48.4 hd -9.0 nt 20.0 su
93.3 -51.4 hd 20.0 su
109.6 -51.4 hd 20.0 su
24.0 123.9 -51.4 bar
137.9 -54.4 HD
24.0 182.9 -51.4 bar
203.3 -54.4 hd 21.2 su
216.6 -54.4 hd 21.2 su
229.2 -54.4 hd 21.2 su
242.1 -54.4 hd 21.2 su
255.3 -54.4 hd 21.2 su
268.7 -54.4 hd 21.2 su
281.4 -54.4 hd 21.2 su
302.8 -48.4 hd -9.0 nt 1 20.0 sfu
24.0 318.6 -51.4 bar
338.3 -48.4 hd -9.0 nt 21.2 su
351.6 -48.4 hd 21.2 su
364.0 -48.4 hd 21.2 su
376.6 -48.4 hd 21.2 su
390.6 -48.4 hd 21.2 su
403.7 -48.4 hd 21.2 su
416.1 -48.4 hd 21.2 su
428.7 -48.4 hd 21.2 su
24.0 441.7 -51.4 bar
470.7 -48.4 hd -9.0 nt 27.2 su 470.7 -42.4 hd
483.7 -48.4 hd 27.2 su 483.7 -42.4 hd
496.8 -48.4 hd 27.2 su 496.8 -42.4 hd
509.5 -48.4 hd 27.2 su 509.5 -42.4 hd
523.2 -48.4 hd 27.2 su 523.2 -42.4 hd
536.8 -48.4 hd 27.2 su 536.8 -42.4 hd
550.0 -48.4 hd 27.2 su 550.0 -42.4 hd
562.6 -51.4 hd 1 29.0 sfu 562.6 -42.4 hd
24.0 579.5 -51.4 bar
591.1 -51.4 hd 30.2 su 591.1 -42.4 hd
604.2 -51.4 hd 30.2 su 604.2 -42.4 hd
616.5 -51.4 hd 30.2 su 616.5 -42.4 hd
629.6 -51.4 hd 30.2 su 629.6 -42.4 hd
643.3 -51.4 hd 30.2 su 643.3 -42.4 hd
656.8 -51.4 hd 30.2 su 656.8 -42.4 hd
669.4 -39.4 r8
683.3 -45.4 hd 1 26.0 sfu 683.3 -39.4 hd
24.0 699.3 -51.4 bar
93.3 -25.40 upb
109.6 -25.40 upb
30.6 103.3 -83.40 cresc
166.8 -24.40 brth
(p) 203.3 -83.40 pf
203.3 -61.40 emb
203.3 -25.40 dnb
216.6 -61.40 emb
229.2 -61.40 emb
242.1 -61.40 emb
255.3 -61.40 emb
268.7 -61.40 emb
281.4 -61.40 emb
302.8 -55.40 emb
(cresc.) 470.7 -83.40 crdc
683.3 -17.40 upb
0 -83.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 501 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vli-gloria005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.8 T
0.75 dup scale


% --- 5 ((notitle)) ---
0 -25.34 T
3.2 39.8 0.0 57.4   -15.0 bm
3.2 25.6 0.0 111.7   -15.0 bm
3.2 39.9 0.0 180.4   -15.0 bm
3.2 40.6 0.0 233.6   -15.0 bm
-3.2 40.2 0.0 299.9   -55.0 bm
-3.2 27.4 0.0 354.3   -55.0 bm
-3.2 39.0 0.0 434.7   -55.0 bm
14.0 F1  165.2   -13.0 M (30) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -23.0 sh0 35.0 -32.0 sh0 
53.9 -41.0 hd 26.0 su 53.9 -35.0 hd
67.0 -41.0 hd 26.0 su 67.0 -35.0 hd
80.5 -41.0 hd 26.0 su 80.5 -35.0 hd
93.7 -41.0 hd 26.0 su 93.7 -35.0 hd
108.2 -41.0 hd 26.0 su 108.2 -35.0 hd
120.6 -41.0 hd 26.0 su 120.6 -35.0 hd
133.8 -41.0 hd 26.0 su 133.8 -35.0 hd
147.9 -41.0 hd 1 26.0 sfu 147.9 -35.0 hd
24.0 165.2 -47.0 bar
176.9 -41.0 hd 26.0 su 176.9 -35.0 hd
189.9 -41.0 hd 26.0 su 189.9 -35.0 hd
203.9 -41.0 hd 26.0 su 203.9 -35.0 hd
216.9 -41.0 hd 26.0 su 216.9 -35.0 hd
230.1 -41.0 hd 26.0 su 230.1 -35.0 hd
244.4 -41.0 hd 26.0 su 244.4 -35.0 hd
256.9 -41.0 hd 26.0 su 256.9 -35.0 hd
270.7 -41.0 hd 26.0 su 270.7 -35.0 hd
24.0 283.5 -47.0 bar
303.4 -29.0 hd 26.0 sd 303.4 -35.0 hd
317.3 -29.0 hd 26.0 sd 317.3 -35.0 hd
331.1 -29.0 hd 26.0 sd 331.1 -35.0 hd
343.6 -29.0 hd 26.0 sd 343.6 -35.0 hd
357.8 -29.0 hd 26.0 sd 357.8 -35.0 hd
370.9 -29.0 hd 26.0 sd 370.9 -35.0 hd
385.2 -29.0 hd 26.0 sd 385.2 -35.0 hd
405.0 -29.0 hd 1 26.0 sfd 405.0 -35.0 hd -9.0 ft
24.0 418.2 -47.0 bar
438.2 -29.0 hd 26.0 sd 438.2 -35.0 hd -9.0 ft
450.8 -29.0 hd 26.0 sd 450.8 -35.0 hd
465.0 -29.0 hd 26.0 sd 465.0 -35.0 hd
477.2 -29.0 hd 26.0 sd 477.2 -35.0 hd
491.3 -29.0 hd 1 26.0 sfd 491.3 -35.0 hd
505.6 -35.0 r8
518.9 -35.0 r4
24.0 534.5 -47.0 bar
548.0 -35.0 r2
567.1 -35.0 r8
589.5 -20.0 hd 20.0 sd
605.9 -23.0 hd 1 20.0 sfd
24.0 618.6 -47.0 bar
631.4 -35.0 r2
650.6 -35.0 r8
666.0 -41.0 hd 20.0 su
682.6 -44.0 hd 1 20.0 sfu
24.0 699.3 -47.0 bar
693.9 -51.8 688.0 -51.8 686.3 -48.5 0 -0.2 687.7 -50.8 694.2 -50.8 695.6 -48.3 686.3 -48.3 SL
(cresc.) 303.4 -77.00 crdc
(ff) 589.5 -77.00 pf
589.5 -16.00 dnb
666.0 -19.00 dnb
0 -77.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 460 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-gloria006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale


% --- 6 ((notitle)) ---
0 -25.34 T
3.2 12.0 3.6 445.2   -19.4 bm
3.2 19.0 -2.3 492.1   -17.4 bm
3.2 19.0 -2.3 492.1   -22.4 bm
336.1    -7.6 324.0    -8.1 320.3   -12.9 0 0.2 323.4    -9.1 336.7    -8.6 339.7   -12.4 320.3   -13.1 SL
501.1   -53.2 492.1   -50.3 489.4   -45.1 0 -0.2 491.7   -49.3 501.6   -52.2 503.9   -49.1 489.4   -44.9 SL
615.9   -59.1  609.7   -56.2 607.9   -51.0 0 -0.2 609.5   -55.2 616.2   -58.1  617.7   -55.0 607.9   -50.8 SL
14.0 F1 41.5   -17.0 M (35) showb 373.5   -16.0 M (40) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -23.0 sh0 35.0 -32.0 sh0 
54.0 -44.0 hd 20.0 su
68.7 -35.0 r4
83.9 -35.0 r4
98.8 -47.0 hd 20.0 su
24.0 111.9 -47.0 bar
124.0 -50.0 hd 20.0 su
138.1 -35.0 r4
153.7 -35.0 r2
24.0 170.3 -47.0 bar
182.3 -35.0 r2
200.1 -35.0 r8
212.7 -20.0 hd 20.0 sd
228.1 -23.0 hd 1 20.0 sfd
24.0 239.2 -47.0 bar
250.6 -23.0 hd 1 20.0 sfd
262.8 -23.0 hd 20.0 sd
278.5 -23.0 hd 1 20.0 sfd
291.5 -23.0 Hd 20.0 sd
24.0 307.9 -47.0 bar
319.5 -20.0 hd 20.0 sd
341.1 -23.0 hd -9.0 nt 20.0 sd
357.4 -26.0 Hd 20.0 sd
24.0 373.5 -47.0 bar
396.2 -29.0 HD
24.0 415.6 -47.0 bar
426.8 -29.0 hd 20.0 sd
441.7 -44.0 hd 24.6 su
453.6 -35.0 hd 19.2 su
467.7 -35.0 hd 8.0 3 dt 20.0 su
488.6 -38.0 hd 20.6 su
507.6 -41.0 hd -9.0 sh 21.4 su
24.0 517.8 -47.0 bar
529.1 -38.0 hd 20.0 su
544.8 -47.0 hd 1 20.0 sfu
560.5 -41.0 hd 1 20.0 sfu
578.7 -41.0 Hd 20.0 su
24.0 595.4 -47.0 bar
607.4 -44.0 hd 20.0 su
621.3 -50.0 hd 20.0 su
637.6 -50.0 hd 20.0 su
651.9 -44.0 hd 20.0 su
24.0 665.3 -47.0 bar
679.6 -47.0 HD
24.0 699.3 -47.0 bar
47.9 -51.9 40.1 -51.9 37.8 -48.6 0 -0.2 39.7 -50.9 48.2 -50.9 50.2 -48.4 37.8 -48.4 SL
244.0 -15.0 234.7 -15.0 232.0 -18.3 0 0.2 234.3 -16.0 244.4 -16.0 246.7 -18.5 232.0 -18.5 SL
286.8 -15.4 283.1 -15.4 282.0 -18.5 0 0.2 283.0 -16.4 287.0 -16.4 288.0 -18.7 282.0 -18.7 SL
462.8 -42.7 458.5 -42.7 457.2 -39.5 0 -0.2 458.3 -41.7 463.0 -41.7 464.1 -39.3 457.2 -39.3 SL
573.0 -48.8 566.2 -48.8 564.2 -45.6 0 -0.2 565.9 -47.8 573.3 -47.8 575.0 -45.4 564.2 -45.4 SL
98.8 -21.00 upb
212.7 -16.00 dnb
62.7 323.5 -69.00 cresc
(p) 396.2 -69.00 pf
426.8 -21.00 dnb
529.1 -16.00 dnb
544.8 -21.00 dnb
637.6 -21.00 upb
651.9 -21.00 upb
0 -70.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 543 x @beginspecial 0 @llx 0 @lly 544 @urx
82 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 82
%%Title: jazzmesse-vli-gloria007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 81.6 T
0.75 dup scale


% --- 7 ((notitle)) ---
0 -25.34 T
3.2 13.0 2.1 84.4   -29.9 bm
3.2 10.3 -1.9 134.6   -30.0 bm
3.2 10.3 -1.9 134.6   -35.0 bm
3.2 13.6 -2.1 183.2   -24.9 bm
137.9   -63.6 133.0   -62.1 131.5   -57.3 0 -0.2 132.7   -61.1 138.2   -62.6 139.4   -59.2 131.5   -57.1 SL
14.0 F3 385.7   -17.4 M (ad libitum) gcshow 
14.0 F1 42.3   -26.4 M (45) showb 460.7   -25.4 M (50) showb
0 -56.40 M 699.30 staff
12.0 -56.4  tclef
30.0 -32.4 sh0 35.0 -41.4 sh0 
65.2 -38.4 hd 26.0 sd 65.2 -44.4 hd
80.9 -50.4 hd 20.5 su
93.9 -47.4 hd 19.5 su
107.7 -47.4 hd 8.0 0 dt 20.0 su
131.1 -50.4 hd 20.4 su
141.3 -53.4 hd 21.6 su
24.0 152.5 -56.4 bar
163.9 -38.4 hd 26.0 sd 163.9 -44.4 hd
179.7 -44.4 hd 19.5 su
193.3 -47.4 hd 20.5 su
206.8 -47.4 hd 8.0 0 dt 20.0 su
230.8 -59.4 hd 1 20.0 sfu
24.0 246.6 -56.4 bar
258.5 -50.4 hd 20.0 su
273.7 -53.4 hd 20.0 su
306.0 -56.4 Hd -9.0 sh 20.0 su
24.0 322.9 -56.4 bar
336.7 -56.4 HD
24.0 362.3 -56.4 dbar
393.7 -53.4 Hd -9.0 nt 20.0 su
413.1 -53.4 hd 8.0 0 dt 20.0 su
444.2 -53.4 hd -9.0 nt 1 20.0 sfu
24.0 460.7 -56.4 bar
475.5 -53.4 HD
24.0 497.0 -56.4 bar
509.3 -59.4 Hd 29.0 su 509.3 -50.4 Hd
529.5 -59.4 hd 8.0 0 dt 29.0 su 529.5 -50.4 hd 8.0 3 dt
559.5 -62.4 hd 1 29.0 sfu -62.4 hl 559.5 -53.4 hd -9.0 nt
24.0 576.6 -56.4 bar
591.4 -62.4 HD -62.4 hl1 591.4 -53.4 HD
24.0 612.9 -56.4 bar
631.7 -53.4 Hd -9.0 nt 20.0 su
653.2 -53.4 hd 8.0 0 dt 20.0 su
682.5 -53.4 hd -9.0 nt 1 20.0 sfu
24.0 699.3 -56.4 bar
102.9 -55.0 98.7 -55.0 97.4 -51.9 0 -0.2 98.5 -54.0 103.1 -54.0 104.1 -51.7 97.4 -51.7 SL
202.0 -55.0 198.0 -55.0 196.8 -51.9 0 -0.2 197.8 -54.0 202.2 -54.0 203.2 -51.7 196.8 -51.7 SL
328.3 -64.7 314.4 -64.7 310.2 -61.2 0 -0.2 313.7 -63.7 329.0 -63.7 332.5 -61.0 310.2 -61.0 SL
407.1 -61.3 399.7 -61.3 397.5 -58.0 0 -0.2 399.4 -60.3 407.5 -60.3 409.3 -57.8 397.5 -57.8 SL
467.0 -61.7 452.7 -61.7 448.4 -58.2 0 -0.2 452.0 -60.7 467.6 -60.7 471.2 -58.0 448.4 -58.0 SL
523.3 -67.3 515.5 -67.3 513.1 -64.0 0 -0.2 515.1 -66.3 523.7 -66.3 525.7 -63.8 513.1 -63.8 SL
523.6 -42.5 516.7 -42.5 514.6 -45.8 0 0.2 516.4 -43.5 523.9 -43.5 525.7 -46.0 514.6 -46.0 SL
582.7 -70.7 568.2 -70.7 563.8 -67.2 0 -0.2 567.5 -69.7 583.4 -69.7 587.1 -67.0 563.8 -67.0 SL
583.0 -45.1 569.4 -45.1 565.3 -48.6 0 0.2 568.7 -46.1 583.7 -46.1 587.1 -48.8 565.3 -48.8 SL
646.8 -61.3 638.2 -61.3 635.6 -58.0 0 -0.2 637.7 -60.3 647.2 -60.3 649.4 -57.8 635.6 -57.8 SL
693.9 -61.2 687.9 -61.2 686.2 -57.9 0 -0.2 687.7 -60.2 694.1 -60.2 695.6 -57.7 686.2 -57.7 SL
65.2 -30.40 dnb
(ritard.) 306.0 -83.40 crdc
(p) 393.7 -83.40 pf
393.7 -30.40 dnb
631.7 -30.40 dnb
0 -83.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 726 x @beginspecial 0 @llx 0 @lly 544 @urx
104 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 104
%%Title: jazzmesse-vli-gloria008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 104.0 T
0.75 dup scale


% --- 8 ((notitle)) ---
0 -25.34 T
3.2 43.0 0.0 307.5   -53.4 bm
3.2 27.1 0.0 366.4   -53.4 bm
3.2 43.0 0.0 437.9   -53.4 bm
-3.2 28.3 -4.2 514.2   -83.2 bm
3.2 41.9 0.0 584.6   -53.4 bm
3.2 27.2 0.0 642.5   -53.4 bm
14.0 F3 296.0   -38.4 M (a tempo) gcshow 
426.4   -38.4 M (simile) gcshow 
14.0 F1  82.1   -49.4 M (55) showb
15.0 F2 285.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 88) show
0 -80.35 M 699.30 staff
12.0 -80.4  tclef
30.0 -56.4 sh0 35.0 -65.4 sh0 
56.4 -77.4 HD
24.0 82.1 -80.4 bar
95.6 -83.4 Hd 29.0 su 95.6 -74.4 Hd
120.1 -83.4 hd 8.0 0 dt 29.0 su 120.1 -74.4 hd 8.0 3 dt
151.8 -86.4 hd 1 29.0 sfu -86.4 hl 151.8 -77.4 hd -9.0 nt
24.0 168.9 -80.4 bar
183.4 -86.4 Hd 9.0 3 dt 29.0 su -86.4 hl 183.4 -77.4 Hd 9.0 0 dt
221.7 -86.4 hd 29.0 su -86.4 hl 221.7 -77.4 hd
24.0 239.5 -80.4 fbar1 249.5 -80.4 rdots
256.0 -56.4 nt0 261.0 -65.4 nt0 269.0 -68.4 ft0 274.0 -59.4 ft0 279.0 -71.4 ft0 
304.0 -80.4 hd 27.0 su 304.0 -74.4 hd
318.2 -80.4 hd 27.0 su 318.2 -74.4 hd
333.3 -80.4 hd 27.0 su 333.3 -74.4 hd
347.1 -80.4 hd 27.0 su 347.1 -74.4 hd
362.9 -80.4 hd 27.0 su 362.9 -74.4 hd
376.7 -80.4 hd 27.0 su 376.7 -74.4 hd
389.9 -80.4 hd 27.0 su 389.9 -74.4 hd
406.1 -80.4 hd 1 26.0 sfu 406.1 -74.4 hd
24.0 423.1 -80.4 bar
434.4 -80.4 hd 27.0 su 434.4 -74.4 hd
449.0 -80.4 hd 27.0 su 449.0 -74.4 hd
462.6 -80.4 hd 27.0 su 462.6 -74.4 hd
477.4 -80.4 hd 27.0 su 477.4 -74.4 hd
493.0 -80.4 hd 1 26.0 sfu 493.0 -74.4 hd
517.7 -53.4 hd 29.9 sd 517.7 -62.4 hd
532.0 -56.4 hd 29.0 sd 532.0 -65.4 hd
546.0 -59.4 hd 28.1 sd 546.0 -68.4 hd
24.0 560.1 -80.4 bar
581.1 -80.4 hd 27.0 su 581.1 -74.4 hd
594.4 -80.4 hd 27.0 su 594.4 -74.4 hd
609.5 -80.4 hd 27.0 su 609.5 -74.4 hd
623.0 -80.4 hd 27.0 su 623.0 -74.4 hd
639.0 -80.4 hd 27.0 su 639.0 -74.4 hd
652.0 -80.4 hd 27.0 su 652.0 -74.4 hd
666.2 -80.4 hd 27.0 su 666.2 -74.4 hd
682.4 -80.4 hd 1 26.0 sfu 682.4 -74.4 hd
24.0 699.3 -80.4 bar
113.1 -91.4 102.7 -91.4 99.6 -88.0 0 -0.2 102.2 -90.4 113.5 -90.4 116.2 -87.8 99.6 -87.8 SL
113.3 -66.3 103.9 -66.3 101.1 -69.7 0 0.2 103.4 -67.3 113.8 -67.3 116.2 -69.9 101.1 -69.9 SL
174.8 -94.6 160.4 -94.6 156.1 -91.2 0 -0.2 159.7 -93.6 175.5 -93.6 179.1 -91.0 156.1 -91.0 SL
175.1 -69.1 161.6 -69.1 157.6 -72.5 0 0.2 161.0 -70.1 175.8 -70.1 179.1 -72.7 157.6 -72.7 SL
211.7 -94.9 193.4 -94.9 187.9 -91.3 0 -0.2 192.5 -93.9 212.6 -93.9 217.2 -91.1 187.9 -91.1 SL
212.0 -68.8 194.6 -68.8 189.4 -72.4 0 0.2 193.8 -69.8 212.8 -69.8 217.2 -72.6 189.4 -72.6 SL
-55.9 211.7 -113.35 cresc
(f) 221.7 -113.35 pf
(mp) 304.0 -113.35 pf
304.0 -87.35 emb
304.0 -51.40 dnb
318.2 -87.35 emb
333.3 -87.35 emb
347.1 -87.35 emb
362.9 -87.35 emb
376.7 -87.35 emb
389.9 -87.35 emb
406.1 -87.35 emb
(f) 517.7 -113.35 pf
(mp) 581.1 -113.35 pf
0 -113.35 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 460 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-gloria009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale


% --- 9 ((notitle)) ---
0 -25.34 T
3.2 42.0 0.0 62.3   -20.0 bm
3.2 43.1 0.0 120.0   -20.0 bm
3.2 43.0 0.0 188.8   -20.0 bm
3.2 27.7 0.0 247.1   -20.0 bm
3.2 43.1 0.0 320.3   -20.0 bm
3.2 42.6 0.0 377.8   -20.0 bm
-3.2 42.8 0.0 438.9   -55.0 bm
-3.2 29.1 0.0 497.8   -55.0 bm
-3.2 42.0 0.0 581.4   -58.0  bm
-3.2 42.5 0.0 639.5   -58.0  bm
14.0 F1 46.3   -17.0 M (60) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 40.0 -38.0 ft0 
58.8 -47.0 hd 27.0 su 58.8 -41.0 hd
72.6 -47.0 hd 27.0 su 72.6 -41.0 hd
87.2 -47.0 hd 27.0 su 87.2 -41.0 hd
100.8 -47.0 hd 27.0 su 100.8 -41.0 hd
116.5 -47.0 hd 27.0 su 116.5 -41.0 hd
130.8 -47.0 hd 27.0 su 130.8 -41.0 hd
145.4 -47.0 hd 27.0 su 145.4 -41.0 hd
159.6 -47.0 hd 27.0 su 159.6 -41.0 hd
24.0 173.4 -47.0 bar
185.3 -47.0 hd 27.0 su 185.3 -41.0 hd
199.7 -47.0 hd 27.0 su 199.7 -41.0 hd
213.8 -47.0 hd 27.0 su 213.8 -41.0 hd
228.3 -47.0 hd 27.0 su 228.3 -41.0 hd
243.6 -47.0 hd 27.0 su 243.6 -41.0 hd
257.2 -47.0 hd 27.0 su 257.2 -41.0 hd
271.3 -47.0 hd 27.0 su 271.3 -41.0 hd
286.5 -47.0 hd 1 26.0 sfu 286.5 -41.0 hd
24.0 304.7 -47.0 bar
316.8 -47.0 hd 27.0 su 316.8 -41.0 hd
331.1 -47.0 hd 27.0 su 331.1 -41.0 hd
344.9 -47.0 hd 27.0 su 344.9 -41.0 hd
359.9 -47.0 hd 27.0 su 359.9 -41.0 hd
374.3 -47.0 hd 27.0 su 374.3 -41.0 hd
388.2 -47.0 hd 27.0 su 388.2 -41.0 hd
403.2 -47.0 hd 27.0 su 403.2 -41.0 hd
416.8 -47.0 hd 27.0 su 416.8 -41.0 hd
24.0 431.3 -47.0 bar
442.4 -29.0 hd 26.0 sd 442.4 -35.0 hd
457.5 -29.0 hd 26.0 sd 457.5 -35.0 hd
471.2 -29.0 hd 26.0 sd 471.2 -35.0 hd
485.2 -29.0 hd 26.0 sd 485.2 -35.0 hd
501.3 -29.0 hd 26.0 sd 501.3 -35.0 hd
515.6 -29.0 hd 26.0 sd 515.6 -35.0 hd
530.4 -29.0 hd 26.0 sd 530.4 -35.0 hd
550.9 -29.0 hd 1 29.0 sfd 550.9 -38.0 hd -9.0 nt
24.0 564.9 -47.0 bar
584.9 -29.0 hd 29.0 sd 584.9 -38.0 hd -9.0 nt
598.6 -29.0 hd 29.0 sd 598.6 -38.0 hd
612.8 -29.0 hd 29.0 sd 612.8 -38.0 hd
626.9 -29.0 hd 29.0 sd 626.9 -38.0 hd
643.0 -29.0 hd 29.0 sd 643.0 -38.0 hd
657.5 -29.0 hd 29.0 sd 657.5 -38.0 hd
671.4 -29.0 hd 29.0 sd 671.4 -38.0 hd
685.4 -29.0 hd 29.0 sd 685.4 -38.0 hd
24.0 699.3 -47.0 bar
0 -70.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 635 x @beginspecial 0 @llx 0 @lly 544 @urx
93 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 93
%%Title: jazzmesse-vli-gloria010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 92.5 T
0.75 dup scale


% --- 10 ((notitle)) ---
0 -25.34 T
-3.2 36.9 0.0 66.2   -78.0 bm
-3.2 25.4 0.0 116.7   -78.0 bm
-3.2 39.1 0.0 199.8   -69.2 bm
-3.2 50.8 0.0 259.3   -75.2 bm
(1) 33.6 602.9   -25.0 end1
(2) 52.8 646.5   -25.0 end2
14.0 F1 47.2   -45.0 M (65) showb 509.7   -44.0 M (70) showb
15.0 F2 666.6 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 8.0 0 dt 20 su grestore 18.20 0 rmoveto ( = 56) show
0 -75.00 M 699.30 staff
12.0 -75.0  tclef
30.0 -63.0 ft0 35.0 -54.0 ft0 40.0 -66.0 ft0 
69.7 -48.0 hd 30.0 sd 69.7 -57.0 hd
81.8 -48.0 hd 30.0 sd 81.8 -57.0 hd
94.7 -48.0 hd 30.0 sd 94.7 -57.0 hd
106.6 -48.0 hd 30.0 sd 106.6 -57.0 hd
120.2 -48.0 hd 30.0 sd 120.2 -57.0 hd
132.7 -48.0 hd 30.0 sd 132.7 -57.0 hd
145.6 -48.0 hd 30.0 sd 145.6 -57.0 hd
158.6 -48.0 hd 1 29.0 sfd 158.6 -57.0 hd
24.0 170.7 -75.0 bar
182.2 -48.0 hd 1 29.0 sfd 182.2 -57.0 hd
203.3 -48.0 hd 21.2 sd
222.6 -51.0 hd -9.0 sh 18.2 sd
242.5 -51.0 hd -9.0 nt 18.2 sd
262.8 -54.0 hd -9.0 nt 21.2 sd
281.7 -54.0 hd -9.0 sh 21.2 sd
294.0 -57.0 hd 18.2 sd
313.7 -57.0 hd -9.0 ft 18.2 sd
24.0 326.2 -75.0 bar
339.3 -60.0 Hd 20.0 sd
358.9 -60.0 hd 8.0 0 dt 20.0 sd
381.1 -60.0 hd 1 20.0 sfd
24.0 393.2 -75.0 bar
406.3 -60.0 Hd 20.0 sd
425.5 -63.0 Hd 20.0 sd
24.0 442.7 -75.0 bar
454.7 -60.0 Hd 20.0 sd
474.8 -60.0 hd 8.0 0 dt 20.0 sd
497.1 -60.0 hd 1 20.0 sfd
24.0 509.7 -75.0 bar
521.7 -60.0 Hd 20.0 sd
542.6 -60.0 Hd 20.0 sd
24.0 559.2 -75.0 bar
581.1 -63.0 HD -12.0 ft
24.0 602.9 -75.0 bar
616.4 -63.0 r1
24.0 646.5 -75.0 fbar2 636.5 -75.0 rdots
(6) (8) 659.6 -75.0 tsig
678.1 -63.0 r1
24.0 699.3 -75.0 bar
174.1 -65.0 165.2 -65.0 162.5 -61.7 0 -0.2 164.8 -64.0 174.5 -64.0 176.7 -61.5 162.5 -61.5 SL
175.3 -40.0 165.5 -40.0 162.5 -43.3 0 0.2 165.0 -41.0 175.7 -41.0 178.2 -43.5 162.5 -43.5 SL
399.1 -51.9 388.4 -51.9 385.1 -55.3 0 0.2 387.9 -52.9 399.6 -52.9 402.3 -55.5 385.1 -55.5 SL
514.6 -52.0 504.2 -52.0 501.1 -55.3 0 0.2 503.7 -53.0 515.1 -53.0 517.7 -55.5 501.1 -55.5 SL
158.6 -41.00 upb
(f) 203.3 -97.00 pf
203.3 -44.00 upb
339.3 -49.00 accent
339.3 -41.00 dnb
358.9 -49.00 accent
381.1 -49.00 accent
425.5 -49.00 accent
454.7 -49.00 accent
454.7 -41.00 dnb
474.8 -49.00 accent
497.1 -49.00 accent
542.6 -49.00 accent
0 -98.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 543 x @beginspecial 0 @llx 0 @lly 544 @urx
82 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria011.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 82
%%Title: jazzmesse-vli-gloria011.abc (11)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 82.0 T
0.75 dup scale


% --- 11 ((notitle)) ---
0 -25.34 T
3.2 26.3 4.1 232.7   -26.9 bm
3.2 26.0 4.1 624.6   -26.9 bm
234.5   -65.3  152.8   -70.2  134.9   -58.6 0 -0.3 149.3   -69.2  238.1   -64.3  252.5   -51.7 134.9   -58.3 SL
625.0   -67.8  532.8   -72.9  513.6   -60.6 0 -0.3 528.9   -71.9  628.9   -66.8  644.1   -53.6 513.6   -60.2 SL
14.0 F1  114.6   -16.0 M (75) showb 346.9   -23.0 M (80) showb 572.7   -23.0 M (85) showb
0 -54.00 M 699.30 staff
12.0 -54.0  tclef
30.0 -42.0 ft0 35.0 -33.0 ft0 40.0 -45.0 ft0 
69.0 -42.0 hd 8.0 3 dt 20.0 sd
92.4 -45.0 hd 8.0 0 dt 20.0 su
24.0 114.6 -54.0 bar
127.9 -48.0 Hd 9.0 3 dt 20.0 su
24.0 154.0 -54.0 bar
166.6 -48.0 Hd 9.0 3 dt 20.0 su
24.0 193.3 -54.0 bar
205.3 -48.0 hd 8.0 3 dt 20.0 su
229.2 -48.0 hd 21.1 su
242.6 -45.0 hd 20.2 su
255.5 -42.0 hd 19.2 su
24.0 268.2 -54.0 bar
281.6 -39.0 Hd 9.0 0 dt 20.0 sd
24.0 307.5 -54.0 bar
321.0 -45.0 Hd 9.0 0 dt 20.0 su
24.0 346.9 -54.0 bar
360.2 -48.0 Hd 9.0 3 dt 20.0 su
24.0 386.2 -54.0 bar
399.7 -48.0 Hd 9.0 3 dt 20.0 su
24.0 425.6 -54.0 bar
437.3 -48.0 hd 1 20.0 sfu
454.8 -42.0 r4
471.4 -42.0 r4 8.0 3 dt
24.0 494.0 -54.0 bar
506.6 -48.0 Hd 9.0 3 dt 20.0 su
24.0 533.3 -54.0 bar
547.1 -48.0 Hd 9.0 3 dt 20.0 su
24.0 572.7 -54.0 bar
597.6 -48.0 hd 8.0 3 dt 20.0 su
621.1 -48.0 hd 21.1 su
634.8 -45.0 hd 20.3 su
647.1 -42.0 hd 19.2 su
24.0 659.9 -54.0 bar
672.6 -39.0 Hd 9.0 0 dt 20.0 sd
24.0 699.3 -54.0 bar
156.5 -56.6 138.0 -56.6 132.4 -53.0 0 -0.2 137.1 -55.6 157.4 -55.6 162.1 -52.8 132.4 -52.8 SL
195.2 -56.6 176.7 -56.6 171.2 -53.0 0 -0.2 175.8 -55.6 196.1 -55.6 200.7 -52.8 171.2 -52.8 SL
222.2 -56.0 212.2 -56.0 209.2 -52.7 0 -0.2 211.8 -55.0 222.7 -55.0 225.2 -52.5 209.2 -52.5 SL
427.4 -56.5 409.6 -56.5 404.2 -53.0 0 -0.2 408.7 -55.5 428.3 -55.5 432.8 -52.8 404.2 -52.8 SL
536.6 -56.6 517.1 -56.6 511.3 -53.0 0 -0.2 516.2 -55.6 537.6 -55.6 542.5 -52.8 511.3 -52.8 SL
585.0 -57.0 559.7 -57.0 552.1 -53.2 0 -0.2 558.5 -56.0 586.2 -56.0 592.6 -53.0 552.1 -53.0 SL
614.2 -56.0 604.5 -56.0 601.5 -52.7 0 -0.2 604.0 -55.0 614.7 -55.0 617.1 -52.5 601.5 -52.5 SL
(p) 69.0 -84.00 pf
69.0 -28.00 upb
69.0 -18.00 hld
92.4 -23.00 dnb
92.4 -14.00 hld
127.9 -26.00 upb
205.3 -26.00 dnb
506.6 -26.00 upb
597.6 -26.00 dnb
672.6 -28.00 upb
0 -84.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 501 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria012.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vli-gloria012.abc (12)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.8 T
0.75 dup scale


% --- 12 ((notitle)) ---
0 -25.34 T
-3.2 15.7 2.2 323.7   -54.6 bm
-3.2 15.5 2.2 487.9   -51.6 bm
-3.2 20.4 -2.3 561.0   -52.3 bm
-3.2 22.6 2.4 652.8   -54.7 bm
176.4   -56.8 157.8   -53.9 152.2   -48.4 0 -0.2 156.9   -52.9 177.3   -55.8 182.0   -52.4 152.2   -48.2 SL
331.0   -12.9 297.9    -6.2 288.5   -13.8 0 0.2 296.4    -7.2 332.5   -13.9 340.4   -23.6 288.5   -14.0 SL
401.7   -11.0 385.2   -14.6 380.2   -20.1 0 0.2 384.4   -15.6 402.5   -12.0 406.7   -15.1 380.2   -20.3 SL
502.4   -18.6 494.4   -20.1 492.0   -25.0 0 0.2 494.0   -21.1 502.8   -19.6 504.8   -23.1 492.0   -25.2 SL
668.1   -19.2 638.1   -19.2 629.4   -24.3 0 0.2 636.7   -20.2 669.5   -20.2 676.8   -24.5 629.4   -24.5 SL
14.0 F1  210.6   -16.0 M (90) showb 606.9   -16.0 M (95) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 40.0 -38.0 ft0 
60.3 -32.0 Hd 9.0 0 dt 20.0 sd
24.0 91.4 -47.0 bar
105.5 -35.0 Hd 9.0 3 dt 20.0 sd
24.0 137.6 -47.0 bar
150.7 -41.0 hd 8.0 3 dt 20.0 su
186.4 -44.0 hd 8.0 0 dt -9.0 sh 20.0 su
24.0 210.6 -47.0 bar
224.5 -41.0 Hd 9.0 3 dt 20.0 su
24.0 256.9 -47.0 bar
278.0 -38.0 hd 8.0 0 dt 20.0 su
305.2 -38.0 hd 1 20.0 sfu
327.2 -35.0 hd 19.6 sd
342.9 -32.0 hd 20.4 sd
24.0 357.9 -47.0 bar
378.9 -35.0 hd 8.0 3 dt 20.0 sd
408.7 -38.0 hd 8.0 0 dt 20.0 su
24.0 432.8 -47.0 bar
446.5 -35.0 hd 8.0 3 dt 20.0 sd
474.4 -35.0 hd 1 20.0 sfd
491.4 -32.0 hd 19.6 sd
506.9 -29.0 hd 20.4 sd
24.0 521.8 -47.0 bar
535.1 -32.0 hd 8.0 0 dt 20.0 sd
564.5 -32.0 hd 8.0 0 dt 20.3 sd
584.8 -35.0 hd 8.0 3 dt 19.7 sd
24.0 606.9 -47.0 bar
627.4 -32.0 hd 8.0 0 dt 20.0 sd
656.3 -35.0 hd 8.0 3 dt 19.7 sd
678.8 -32.0 hd 8.0 0 dt 20.3 sd
24.0 699.3 -47.0 bar
297.5 -46.1 285.7 -46.1 282.1 -42.7 0 -0.2 285.1 -45.1 298.1 -45.1 301.1 -42.5 282.1 -42.5 SL
466.6 -26.8 454.3 -26.8 450.7 -30.2 0 0.2 453.8 -27.8 467.2 -27.8 470.3 -30.4 450.7 -30.4 SL
556.3 -23.8 543.2 -23.8 539.2 -27.2 0 0.2 542.6 -24.8 557.0 -24.8 560.3 -27.4 539.2 -27.4 SL
(p) 278.0 -77.00 pf
(cresc.) 378.9 -77.00 crdc
(cresc.) 627.4 -77.00 crdc
0 -77.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1765 6215 a Fe(4)p eop end
%%Page: 5 5
TeXDict begin 5 4 bop -317 219 a @beginspecial 0 @llx
0 @lly 544 @urx 75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria013.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vli-gloria013.abc (13)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 74.5 T
0.75 dup scale


% --- 13 ((notitle)) ---
0 -25.34 T
-3.2 21.5 2.3 95.4   -54.7 bm
-3.2 22.6 2.4 187.7   -51.7 bm
-3.2 20.3 2.3 531.5   -48.7 bm
109.8   -18.8 80.7   -16.9 72.2   -21.5 0 0.2 79.3   -17.9 111.2   -19.8 118.3   -24.5 72.2   -21.6 SL
203.0   -15.8 173.6   -13.8 165.0   -18.4 0 0.2 172.2   -14.8 204.4   -16.8 211.6   -21.4 165.0   -18.6 SL
283.9   -18.9 270.9   -13.7 267.0   -17.2 0 0.2 270.3   -14.7 284.5   -19.9 287.8   -25.0 267.0   -17.4 SL
543.2    -4.4 509.2    -1.4 499.5    -9.9 0 0.2 507.6    -2.4 544.8    -5.4 552.9   -14.3 499.5   -10.1 SL
602.2   -19.1 590.4   -14.6 586.9   -18.2 0 0.2 589.9   -15.6 602.7   -20.1 605.7   -25.0 586.9   -18.4 SL
669.0   -19.2 650.4   -19.7 644.8   -24.6 0 0.2 649.5   -20.7 669.9   -20.2 674.5   -24.1 644.8   -24.8 SL
14.0 F1  354.5   -16.0 M (100) showb 630.9   -16.0 M (105) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 40.0 -38.0 ft0 
68.1 -32.0 hd 8.0 0 dt -9.0 sh 20.0 sd
98.9 -35.0 hd 8.0 3 dt -9.0 nt 19.7 sd
120.4 -32.0 hd 8.0 0 dt 20.3 sd
24.0 140.6 -47.0 bar
160.9 -29.0 hd 8.0 3 dt -9.0 sh 20.0 sd
191.2 -32.0 hd 8.0 0 dt -9.0 sh 19.7 sd
213.7 -29.0 hd 8.0 3 dt 20.3 sd
24.0 233.1 -47.0 bar
261.9 -26.0 hd 8.0 0 dt -9.0 nt 20.0 sd
288.9 -32.0 hd 8.0 0 dt 20.0 sd
24.0 312.2 -47.0 bar
326.1 -32.0 Hd 9.0 0 dt 20.0 sd
24.0 354.5 -47.0 bar
368.7 -32.0 Hd 9.0 0 dt 20.0 sd
24.0 396.8 -47.0 bar
411.3 -32.0 Hd 9.0 0 dt 20.0 sd
24.0 439.1 -47.0 bar
453.6 -32.0 Hd 9.0 0 dt 20.0 sd
24.0 481.4 -47.0 bar
494.0 -32.0 hd 8.0 0 dt 20.0 sd
520.0 -32.0 hd 1 20.0 sfd
535.0 -29.0 hd 19.7 sd
555.3 -26.0 hd -9.0 nt 20.3 sd
24.0 568.8 -47.0 bar
581.9 -23.0 hd 8.0 3 dt 20.0 sd
606.7 -32.0 hd 8.0 0 dt 20.0 sd
24.0 630.9 -47.0 bar
643.5 -32.0 hd 8.0 0 dt 20.0 sd
676.4 -35.0 hd 8.0 3 dt -9.0 nt 20.0 sd
24.0 699.3 -47.0 bar
357.7 -23.3 337.0 -23.3 330.8 -26.9 0 0.2 336.0 -24.3 358.7 -24.3 364.0 -27.1 330.8 -27.1 SL
400.4 -23.3 379.6 -23.3 373.4 -26.9 0 0.2 378.6 -24.3 401.4 -24.3 406.6 -27.1 373.4 -27.1 SL
442.7 -23.3 422.2 -23.3 416.0 -27.0 0 0.2 421.2 -24.3 443.7 -24.3 448.9 -27.2 416.0 -27.2 SL
483.6 -23.4 464.0 -23.4 458.2 -27.0 0 0.2 463.1 -24.4 484.5 -24.4 489.4 -27.2 458.2 -27.2 SL
512.6 -23.9 501.4 -23.9 498.1 -27.3 0 0.2 500.9 -24.9 513.2 -24.9 516.0 -27.5 498.1 -27.5 SL
(mf) 261.9 -74.00 pf
326.1 -21.00 dnb
411.3 -21.00 upb
494.0 -21.00 dnb
-73.9 577.9 -74.00 cresc
0 -74.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 558 x @beginspecial 0 @llx 0 @lly 544 @urx
81 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria014.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 81
%%Title: jazzmesse-vli-gloria014.abc (14)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 80.6 T
0.75 dup scale


% --- 14 ((notitle)) ---
0 -25.34 T
3.2 25.2 4.1 587.0   -19.9 bm
587.8   -58.2  506.5   -63.2  488.7   -51.6 0 -0.3 503.0   -62.2  591.3   -57.2  605.7   -44.7 488.7   -51.3 SL
14.0 F1  210.2   -13.0 M (110) showb 449.0   -16.0 M (115) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 40.0 -38.0 ft0 
66.4 -35.0 Hd 9.0 3 dt -9.0 ft 20.0 sd
24.0 93.3 -47.0 bar
106.8 -32.0 Hd 9.0 0 dt 26.0 sd 106.8 -38.0 Hd 9.0 0 dt
24.0 132.2 -47.0 bar
145.3 -32.0 Hd 9.0 0 dt 26.0 sd 145.3 -38.0 Hd 9.0 0 dt
24.0 171.2 -47.0 bar
184.7 -41.0 Hd 9.0 3 dt 26.0 su 184.7 -35.0 Hd 9.0 3 dt
24.0 210.2 -47.0 bar
223.5 -41.0 Hd 9.0 3 dt 26.0 su 223.5 -35.0 Hd 9.0 3 dt
24.0 249.2 -47.0 bar
262.7 -44.0 Hd 9.0 0 dt 26.0 su 262.7 -38.0 Hd 9.0 0 dt
24.0 288.1 -47.0 bar
301.8 -47.0 Hd 9.0 3 dt 26.0 su 301.8 -41.0 Hd 9.0 3 dt
24.0 327.1 -47.0 bar
347.2 -44.0 Hd 16.8 0 dt 23.0 su 355.0 -41.0 Hd 9.0 3 dt
24.0 379.8 -47.0 bar
390.9 -44.0 hd 1 23.0 sfu 397.9 -41.0 hd
411.4 -35.0 r4
427.4 -35.0 r4 8.0 3 dt
24.0 449.0 -47.0 bar
481.7 -41.0 Hd 9.0 3 dt 20.0 su
24.0 508.3 -47.0 bar
521.6 -41.0 Hd 9.0 3 dt 20.0 su
24.0 547.3 -47.0 bar
559.5 -41.0 hd 8.0 3 dt 20.0 su
583.5 -41.0 hd 21.1 su
596.2 -38.0 hd 20.2 su
608.7 -35.0 hd 19.2 su
24.0 621.4 -47.0 bar
634.2 -32.0 Hd 9.0 0 dt 20.0 sd
24.0 660.3 -47.0 bar
674.0 -38.0 Hd 9.0 0 dt 20.0 su
24.0 699.3 -47.0 bar
134.0 -46.5 116.6 -46.5 111.4 -43.0 0 -0.2 115.7 -45.5 134.9 -45.5 139.2 -42.8 111.4 -42.8 SL
135.2 -23.5 116.9 -23.5 111.4 -27.0 0 0.2 116.0 -24.5 136.1 -24.5 140.7 -27.2 111.4 -27.2 SL
213.4 -49.6 194.8 -49.6 189.2 -46.0 0 -0.2 193.9 -48.6 214.3 -48.6 219.0 -45.8 189.2 -45.8 SL
213.7 -26.5 196.0 -26.5 190.7 -30.0 0 0.2 195.2 -27.5 214.5 -27.5 219.0 -30.2 190.7 -30.2 SL
336.0 -32.2 314.5 -32.2 308.1 -35.9 0 0.2 313.5 -33.2 337.0 -33.2 342.4 -36.1 308.1 -36.1 SL
379.8 -52.7 358.4 -52.7 352.0 -49.1 0 -0.2 357.4 -51.7 380.8 -51.7 386.2 -48.9 352.0 -48.9 SL
381.7 -32.6 365.8 -32.6 361.0 -36.1 0 0.2 365.0 -33.6 382.5 -33.6 386.5 -36.3 361.0 -36.3 SL
511.2 -49.6 492.0 -49.6 486.3 -46.0 0 -0.2 491.1 -48.6 512.2 -48.6 517.0 -45.8 486.3 -45.8 SL
549.6 -49.5 531.5 -49.5 526.1 -46.0 0 -0.2 530.7 -48.5 550.4 -48.5 555.0 -45.8 526.1 -45.8 SL
576.5 -49.0 566.5 -49.0 563.5 -45.7 0 -0.2 566.0 -48.0 577.0 -48.0 579.5 -45.5 563.5 -45.5 SL
262.7 -16.00 dnb
20.0 272.7 -82.13 cresc
301.8 -19.00 upb
(p) 347.2 -82.13 pf
347.2 -19.00 dnb
(mf) 481.7 -82.13 pf
481.7 -19.00 upb
559.5 -19.00 dnb
0 -82.13 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 482 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria015.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-gloria015.abc (15)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale


% --- 15 ((notitle)) ---
0 -25.34 T
3.2 25.9 4.1 307.4   -19.9 bm
-3.2 12.1 2.0 613.5   -54.5 bm
309.1   -58.1  229.3   -63.1  211.6   -51.6 0 -0.3 225.9   -62.1  312.5   -57.1  326.8   -44.7 211.6   -51.3 SL
492.7   -56.6 476.9   -53.7 472.2   -48.3 0 -0.2 476.2   -52.7 493.5   -55.6 497.5   -52.3 472.2   -48.1 SL
618.9   -13.4 591.4    -6.8 583.3   -13.9 0 0.2 590.1    -7.8 620.2   -14.4 627.0   -23.7 583.3   -14.1 SL
671.9   -11.2 658.8   -14.8 654.9   -20.3 0 0.2 658.2   -15.8 672.6   -12.2 675.9   -15.2 654.9   -20.5 SL
14.0 F1 45.4   -17.0 M (120) showb 268.6   -16.0 M (125) showb 522.7   -16.0 M (130) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 40.0 -38.0 ft0 
58.4 -41.0 Hd 9.0 3 dt 20.0 su
24.0 85.0 -47.0 bar
98.5 -41.0 Hd 9.0 3 dt 20.0 su
24.0 123.7 -47.0 bar
135.0 -41.0 hd 1 20.0 sfu
153.5 -35.0 r4
169.8 -35.0 r4 8.0 3 dt
24.0 191.1 -47.0 bar
204.6 -41.0 Hd 9.0 3 dt 20.0 su
24.0 229.8 -47.0 bar
243.4 -41.0 Hd 9.0 3 dt 20.0 su
24.0 268.6 -47.0 bar
280.2 -41.0 hd 8.0 3 dt 20.0 su
303.9 -41.0 hd 21.1 su
317.5 -38.0 hd 20.3 su
329.8 -35.0 hd 19.2 su
24.0 342.2 -47.0 bar
354.8 -32.0 Hd 9.0 0 dt 20.0 sd
24.0 381.0 -47.0 bar
394.2 -32.0 Hd 9.0 0 dt 20.0 sd
24.0 419.7 -47.0 bar
433.0 -35.0 Hd 9.0 3 dt 20.0 sd
24.0 458.4 -47.0 bar
470.9 -41.0 hd 8.0 3 dt 20.0 su
501.7 -44.0 hd 8.0 0 dt -9.0 sh 20.0 su
24.0 522.7 -47.0 bar
535.6 -41.0 Hd 9.0 3 dt 20.0 su
24.0 561.5 -47.0 bar
573.2 -38.0 hd 8.0 0 dt 20.0 su
597.6 -38.0 hd 1 20.0 sfu
617.0 -35.0 hd 19.5 sd
629.1 -32.0 hd 20.5 sd
24.0 641.9 -47.0 bar
653.8 -35.0 hd 8.0 3 dt 20.0 sd
677.7 -38.0 hd 8.0 0 dt 20.0 su
24.0 699.3 -47.0 bar
125.3 -49.5 108.1 -49.5 103.0 -45.9 0 -0.2 107.3 -48.5 126.2 -48.5 130.5 -45.7 103.0 -45.7 SL
233.3 -49.6 214.8 -49.6 209.2 -46.0 0 -0.2 213.9 -48.6 234.2 -48.6 238.9 -45.8 209.2 -45.8 SL
270.5 -49.5 253.1 -49.5 247.9 -45.9 0 -0.2 252.3 -48.5 271.3 -48.5 275.7 -45.7 247.9 -45.7 SL
296.9 -49.0 287.1 -49.0 284.1 -45.7 0 -0.2 286.6 -48.0 297.4 -48.0 299.9 -45.5 284.1 -45.5 SL
590.6 -46.0 580.3 -46.0 577.2 -42.7 0 -0.2 579.8 -45.0 591.1 -45.0 593.7 -42.5 577.2 -42.5 SL
204.6 -19.00 dnb
0 -70.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 591 x @beginspecial 0 @llx 0 @lly 544 @urx
85 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria016.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 85
%%Title: jazzmesse-vli-gloria016.abc (16)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 85.4 T
0.75 dup scale


% --- 16 ((notitle)) ---
0 -25.34 T
3.2 16.1 2.2 110.4   -36.1 bm
3.2 22.2 -2.4 183.6   -36.8 bm
3.2 14.9 2.1 327.4   -39.1 bm
-3.2 23.8 -1.7 557.7   -53.6 bm
-3.2 16.0 -2.2 664.6   -55.9 bm
110.2   -71.9 74.2   -76.5  64.1   -68.2 0 -0.2 72.5   -75.5 111.9   -70.9 120.4   -61.4 64.1   -68.0 SL
191.6   -72.2 161.8   -72.2 153.1   -67.2 0 -0.2 160.3   -71.2 193.0   -71.2 200.3   -67.0 153.1   -67.0 SL
326.1   -74.8 290.4   -79.4  280.3   -71.2 0 -0.2 288.7   -78.4  327.8   -73.8 336.2   -64.4 280.3   -71.0 SL
388.9   -73.3 372.6   -71.9 367.7   -66.8 0 -0.2 371.8   -70.9 389.7   -72.3 393.8   -68.7 367.7   -66.6 SL
580.7   -18.9 569.5    -7.5 566.2   -11.7 0 0.2 569.0    -8.5 581.3   -19.9 584.1   -28.5 566.2   -11.9 SL
671.7   -20.2 636.8   -15.6 626.9   -23.7 0 0.2 635.1   -16.6 673.3   -21.2 681.5   -30.5 626.9   -23.9 SL
14.0 F1  225.9   -34.5 M (135) showb 606.7   -15.7 M (140) showb
0 -65.48 M 699.30 staff
12.0 -65.5  tclef
30.0 -53.5 ft0 35.0 -44.5 ft0 40.0 -56.5 ft0 
57.5 -59.5 hd 8.0 3 dt 20.0 su
87.5 -59.5 hd 1 20.0 sfu
106.9 -56.5 hd 20.4 su
123.0 -53.5 hd 19.6 su
24.0 137.7 -65.5 bar
151.0 -56.5 hd 8.0 0 dt 20.0 su
180.1 -56.5 hd 8.0 0 dt 19.7 su
202.3 -59.5 hd 8.0 3 dt 20.3 su
24.0 225.9 -65.5 dbar
236.3 -53.5 nt0 241.3 -44.5 nt0 246.3 -56.5 nt0 254.3 -41.5 sh0 259.3 -50.5 sh0 
273.7 -62.5 hd 8.0 0 dt 20.0 su
302.9 -62.5 hd 1 20.0 sfu
323.9 -59.5 hd 20.4 su
338.8 -56.5 hd 19.6 su
24.0 354.0 -65.5 bar
366.6 -59.5 hd 8.0 3 dt 20.0 su
396.5 -62.5 hd 8.0 0 dt 26.0 su 396.5 -56.5 hd 8.0 0 dt
24.0 421.5 -65.5 bar
436.4 -65.5 Hd 9.0 3 dt 32.0 su 436.4 -53.5 Hd 9.0 3 dt
24.0 467.8 -65.5 bar
483.0 -65.5 Hd 9.0 3 dt 29.0 su 483.0 -56.5 Hd 9.0 0 dt
24.0 514.1 -65.5 bar
527.5 -47.5 hd 8.0 3 dt 20.0 sd
561.2 -26.5 hd 8.0 0 dt 27.1 sd -35.5 hl -29.5 hl
585.0 -35.5 hd 8.0 3 dt 19.9 sd -35.5 hl
24.0 606.7 -65.5 bar
620.3 -32.5 hd 8.0 0 dt 21.0 sd -35.5 hl
650.5 -32.5 hd 1 21.0 sfd -35.5 hl
668.1 -35.5 hd 20.4 sd -35.5 hl
684.1 -38.5 hd 19.6 sd
24.0 699.3 -65.5 bar
79.3 -67.7 65.7 -67.7 61.7 -64.3 0 -0.2 65.1 -66.7 79.9 -66.7 83.3 -64.1 61.7 -64.1 SL
172.1 -64.7 159.1 -64.7 155.2 -61.3 0 -0.2 158.5 -63.7 172.7 -63.7 176.0 -61.1 155.2 -61.1 SL
294.8 -70.7 281.8 -70.7 277.9 -67.3 0 -0.2 281.2 -69.7 295.4 -69.7 298.7 -67.1 277.9 -67.1 SL
642.3 -24.2 628.6 -24.2 624.5 -27.7 0 0.2 628.0 -25.2 642.9 -25.2 646.3 -27.9 624.5 -27.9 SL
527.5 -39.48 dnb
(mf) 561.2 -87.48 pf
561.2 -22.48 upb
0 -88.48 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 591 x @beginspecial 0 @llx 0 @lly 544 @urx
85 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria017.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 85
%%Title: jazzmesse-vli-gloria017.abc (17)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 84.8 T
0.75 dup scale


% --- 17 ((notitle)) ---
0 -25.34 T
-3.2 31.0 0.0 202.5   -53.0 bm
-3.2 19.7 3.7 286.2   -59.9 bm
-3.2 30.7 -3.8 536.6   -53.2 bm
76.6   -18.0 62.1    -6.7 57.8   -10.8 0 0.2 61.5    -7.7 77.3   -19.0 80.9   -27.6 57.8   -11.0 SL
138.2   -34.1 124.8   -31.3 120.8   -35.3 0 0.2 124.2   -32.3 138.8   -35.1 142.2   -39.7 120.8   -35.5 SL
225.5   -11.2 193.4    -7.8 184.1   -15.9 0 0.2 191.8    -8.8 227.0   -12.2 234.7   -21.0 184.1   -16.1 SL
302.8   -25.5 293.3   -28.4 290.5   -33.6 0 0.2 292.8   -29.4 303.2   -26.5 305.6   -29.6 290.5   -33.8 SL
559.5   -19.8 528.5   -15.2 519.5   -23.1 0 0.2 527.0   -16.2 560.9   -20.8 568.5   -29.9 519.5   -23.3 SL
14.0 F1  329.4   -33.7 M (145) showb 644.9   -33.7 M (150) showb
0 -64.72 M 699.30 staff
12.0 -64.7  tclef
30.0 -40.7 sh0 35.0 -49.7 sh0 
52.6 -25.7 hd 8.0 0 dt 27.0 sd -34.7 hl -28.7 hl
82.1 -34.7 hd 8.0 3 dt 20.0 sd -34.7 hl
24.0 104.4 -64.7 bar
116.7 -40.7 hd 8.0 3 dt 20.0 sd
143.2 -46.7 hd 8.0 3 dt 20.0 sd
24.0 165.6 -64.7 bar
178.2 -34.7 hd 8.0 3 dt 20.0 sd -34.7 hl
206.0 -34.7 hd 18.2 sd -34.7 hl
222.1 -31.7 hd 21.2 sd -34.7 hl
237.1 -28.7 hd 24.2 sd -34.7 hl -28.7 hl
24.0 251.0 -64.7 bar
263.2 -25.7 hd 8.0 0 dt 27.0 sd -34.7 hl -28.7 hl
289.7 -40.7 hd 8.0 3 dt 19.2 sd
309.4 -34.7 hd 8.0 3 dt 21.5 sd -34.7 hl
24.0 329.4 -64.7 bar
367.1 -31.7 Hd 9.0 0 dt 21.0 sd -34.7 hl
24.0 395.5 -64.7 bar
409.4 -34.7 Hd 9.0 3 dt 20.0 sd -34.7 hl
24.0 437.2 -64.7 bar
449.8 -25.7 hd 8.0 0 dt 27.0 sd -34.7 hl -28.7 hl
478.4 -34.7 hd 8.0 3 dt 20.0 sd -34.7 hl
24.0 500.5 -64.7 bar
513.2 -31.7 hd 8.0 0 dt 21.0 sd -34.7 hl
540.1 -31.7 hd 21.4 sd -34.7 hl
556.1 -34.7 hd 20.4 sd -34.7 hl
570.8 -37.7 hd 19.2 sd
24.0 583.7 -64.7 bar
596.5 -34.7 hd 8.0 3 dt 20.0 sd -34.7 hl
621.2 -46.7 hd 8.0 3 dt 20.0 sd
24.0 644.9 -64.7 bar
671.3 -37.7 Hd 9.0 0 dt 20.0 sd
24.0 699.3 -64.7 bar
198.3 -26.6 186.0 -26.6 182.4 -30.0 0 0.2 185.4 -27.6 198.9 -27.6 201.9 -30.2 182.4 -30.2 SL
532.5 -23.6 520.8 -23.6 517.3 -27.0 0 0.2 520.2 -24.6 533.0 -24.6 536.0 -27.2 517.3 -27.2 SL
52.6 -21.72 upb
178.2 -27.72 upb
449.8 -21.72 dnb
478.4 -30.72 upb
596.5 -30.72 upb
0 -87.72 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 607 x @beginspecial 0 @llx 0 @lly 544 @urx
87 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria018.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 87
%%Title: jazzmesse-vli-gloria018.abc (18)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 86.8 T
0.75 dup scale


% --- 18 ((notitle)) ---
0 -25.34 T
3.2 16.8 -4.6 509.8   -20.2 bm
14.0 F3 388.5   -17.4 M (2.Vl.) gcshow 
14.0 F1  313.4   -36.4 M (155) showb
15.0 F2 216.2 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 144) show
0 -67.40 M 699.30 staff
12.0 -67.4  tclef
30.0 -43.4 sh0 35.0 -52.4 sh0 
55.0 -43.4 hd 8.0 3 dt 20.0 sd
86.6 -49.4 hd 8.0 3 dt 20.0 sd
24.0 113.6 -67.4 bar
129.5 -46.4 Hd 9.0 0 dt 20.0 sd
24.0 193.9 -67.4 dbar
209.2 -67.4 csig
(2) 265.0 -67.4 mrest
24.0 313.4 -67.4 bar
339.4 -55.4 r1
24.0 365.3 -67.4 bar
377.6 -55.4 r8
396.5 -43.4 shd 20.0 su
419.9 -46.4 shd 1 20.0 sfu
442.6 -46.4 sHdd 20.0 su
24.0 469.1 -67.4 bar
483.0 -55.4 r4
506.3 -37.4 shd 17.2 su -37.4 hl
523.2 -49.4 shd 24.6 su
542.2 -40.4 shd 8.0 0 dt 18.0 su
572.9 -43.4 shd 1 20.0 sfu
24.0 592.1 -67.4 bar
605.1 -43.4 shd 1 20.0 sfu
626.7 -49.4 shd 20.0 su
650.1 -46.4 shd 1 20.0 sfu
672.9 -46.4 sHdd 20.0 su
24.0 699.3 -67.4 bar
436.2 -38.5 427.8 -38.5 425.3 -41.7 0 0.2 427.4 -39.5 436.6 -39.5 438.7 -41.9 425.3 -41.9 SL
596.7 -35.1 582.9 -35.1 578.7 -38.6 0 0.2 582.2 -36.1 597.4 -36.1 600.9 -38.8 578.7 -38.8 SL
666.4 -38.5 658.0 -38.5 655.5 -41.7 0 0.2 657.6 -39.5 666.8 -39.5 669.0 -41.9 655.5 -41.9 SL
377.6 -79.4 r1 -73.4 hl
483.0 -79.4 r1 -73.4 hl
605.1 -61.4 r1
55.0 -39.40 dnb
129.5 -41.40 hld
172.3 -40.40 brth
0 -90.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 766 x @beginspecial 0 @llx 0 @lly 544 @urx
106 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria019.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 106
%%Title: jazzmesse-vli-gloria019.abc (19)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 106.3 T
0.75 dup scale


% --- 19 ((notitle)) ---
0 -25.34 T
-3.2 15.1 -1.6 78.8   -61.6 bm
14.0 F3 48.4   -17.4 M (1.Vl.) gcshow 
14.0 F1  159.8   -42.4 M (160) showb 615.3   -42.4 M (165) showb
0 -73.40 M 699.30 staff
12.0 -73.4  tclef
30.0 -49.4 sh0 35.0 -58.4 sh0 
56.4 -61.4 r4
82.3 -34.4 hd 27.2 sd -43.4 hl -37.4 hl
97.4 -43.4 hd 19.8 sd -43.4 hl
114.3 -40.4 hd 8.0 0 dt 26.0 sd -43.4 hl 114.3 -46.4 hd 8.0 0 dt
146.9 -43.4 hd 1 26.0 sfd -43.4 hl 146.9 -49.4 hd -9.0 nt
24.0 159.8 -73.4 bar
184.7 -43.4 hd 1 26.0 sfd -43.4 hl 184.7 -49.4 hd
205.0 -49.4 hd -9.0 nt 20.0 sd
230.0 -46.4 hd -9.0 sh 1 26.0 sfd 230.0 -52.4 hd
245.3 -46.4 hd 8.0 0 dt 26.0 sd 245.3 -52.4 hd 8.0 0 dt
282.1 -46.4 hd -9.0 nt 1 26.0 sfd 282.1 -52.4 hd -16.0 ft
24.0 295.0 -73.4 bar
306.6 -46.4 hd 1 26.0 sfd 306.6 -52.4 hd
327.2 -52.4 hd -9.0 ft 20.0 sd
351.6 -49.4 hd -9.0 sh 1 26.0 sfd 351.6 -55.4 hd
367.9 -49.4 Hd 26.0 sd 367.9 -55.4 Hd
24.0 387.4 -73.4 bar
410.3 -49.4 HD -12.0 nt 410.3 -58.4 HD
24.0 435.2 -73.4 bar
446.9 -49.4 hd 1 29.0 sfd 446.9 -58.4 hd
461.1 -61.4 r8
475.2 -61.4 r4
494.4 -61.4 r2
24.0 514.1 -73.4 bar
534.1 -34.4 hd 60.0 sd -43.4 hl -37.4 hl 534.1 -76.4 hd 534.1 -64.4 hd 534.1 -49.4 hd
552.8 -61.4 r4
569.9 -61.4 r8
584.7 -46.4 hd 20.0 sd
602.3 -49.4 hd 1 20.0 sfd
24.0 615.3 -73.4 bar
629.1 -61.4 r2
649.7 -61.4 r8
664.0 -67.4 hd 20.0 su
682.3 -70.4 hd 1 20.0 sfu
24.0 699.3 -73.4 bar
173.5 -57.9 156.5 -57.9 151.4 -54.4 0 -0.2 155.7 -56.9 174.3 -56.9 178.6 -54.2 151.4 -54.2 SL
174.7 -34.9 156.8 -34.9 151.4 -38.4 0 0.2 155.9 -35.9 175.6 -35.9 180.1 -38.6 151.4 -38.6 SL
238.9 -60.1 234.8 -60.1 233.6 -56.9 0 -0.2 234.6 -59.1 239.1 -59.1 240.2 -56.7 233.6 -56.7 SL
240.2 -38.7 235.1 -38.7 233.6 -41.9 0 0.2 234.9 -39.7 240.4 -39.7 241.7 -42.1 233.6 -42.1 SL
298.3 -60.4 288.9 -60.4 286.1 -57.1 0 -0.2 288.4 -59.4 298.7 -59.4 301.1 -56.9 286.1 -56.9 SL
299.5 -38.4 289.2 -38.4 286.1 -41.7 0 0.2 288.7 -39.4 300.0 -39.4 302.6 -41.9 286.1 -41.9 SL
361.4 -63.1 356.6 -63.1 355.2 -59.9 0 -0.2 356.4 -62.1 361.6 -62.1 362.8 -59.7 355.2 -59.7 SL
362.6 -41.7 356.9 -41.7 355.2 -44.9 0 0.2 356.7 -42.7 362.9 -42.7 364.3 -45.1 355.2 -45.1 SL
436.0 -66.9 419.7 -66.9 414.8 -63.3 0 -0.2 418.9 -65.9 436.8 -65.9 440.9 -63.1 414.8 -63.1 SL
437.2 -40.9 420.0 -40.9 414.8 -44.5 0 0.2 419.1 -41.9 438.1 -41.9 442.4 -44.7 414.8 -44.7 SL
693.8 -78.2 687.8 -78.2 686.0 -74.9 0 -0.2 687.5 -77.2 694.1 -77.2 695.6 -74.7 686.0 -74.7 SL
(f) 82.3 -116.40 pf
82.3 -30.40 dnb
97.4 -39.40 upb
306.6 -39.40 dnb
327.2 -44.40 dnb
(ff) 534.1 -116.40 pf
534.1 -30.40 dnb
42.0 524.1 -87.40 arp
584.7 -42.40 accent
584.7 -34.40 dnb
602.3 -45.40 accent
664.0 -45.40 dnb
0 -116.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 583 x @beginspecial 0 @llx 0 @lly 544 @urx
84 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria020.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 84
%%Title: jazzmesse-vli-gloria020.abc (20)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 83.5 T
0.75 dup scale


% --- 20 ((notitle)) ---
0 -25.34 T
3.2 37.3 0.0 465.3   -35.8 bm
3.2 24.4 0.0 515.2   -35.8 bm
3.2 36.0 0.0 605.1   -29.8 bm
3.2 35.6 0.0 655.0   -29.8 bm
14.0 F3 593.6   -20.0 M (simile) gcshow 
14.0 F1  319.5   -23.0 M (170) showb
0 -54.00 M 699.30 staff
12.0 -54.0  tclef
30.0 -30.0 sh0 35.0 -39.0 sh0 
53.1 -51.0 hd 20.0 su
69.0 -42.0 r4
83.3 -42.0 r4
98.1 -54.0 hd 20.0 su
24.0 112.0 -54.0 bar
123.9 -57.0 hd 20.0 su
138.6 -42.0 r4
153.7 -42.0 r2
24.0 170.5 -54.0 bar
182.0 -15.0 hd 35.0 sd -24.0 hl -18.0 hl 182.0 -30.0 hd
197.1 -42.0 r4
211.5 -42.0 r8
224.2 -27.0 hd 20.0 sd
238.6 -30.0 hd 1 20.0 sfd
24.0 250.7 -54.0 bar
261.6 -30.0 hd 1 20.0 sfd
275.0 -30.0 hd 20.0 sd
289.9 -30.0 hd 1 20.0 sfd
303.6 -30.0 Hd 20.0 sd
24.0 319.5 -54.0 bar
351.5 -30.0 Hd -9.0 nt 20.0 sd
369.5 -33.0 Hd 20.0 sd
24.0 386.0 -54.0 bar
399.8 -36.0 HD
24.0 441.6 -54.0 bar
461.8 -57.0 hd 21.2 su
474.4 -57.0 hd 21.2 su
487.0 -57.0 hd 21.2 su
499.1 -57.0 hd 21.2 su
511.7 -57.0 hd 21.2 su
524.3 -57.0 hd 21.2 su
536.2 -57.0 hd 21.2 su
555.4 -51.0 hd -9.0 nt 1 20.0 sfu
24.0 572.0 -54.0 bar
601.6 -51.0 hd -9.0 nt 21.2 su
614.0 -51.0 hd 21.2 su
625.7 -51.0 hd 21.2 su
637.6 -51.0 hd 21.2 su
651.5 -51.0 hd 21.2 su
662.7 -51.0 hd 21.2 su
675.2 -51.0 hd 21.2 su
687.1 -51.0 hd 21.2 su
24.0 699.3 -54.0 bar
47.0 -58.9 39.3 -58.9 36.9 -55.6 0 -0.2 38.9 -57.9 47.4 -57.9 49.3 -55.4 36.9 -55.4 SL
254.8 -22.0 245.4 -22.0 242.5 -25.3 0 0.2 244.9 -23.0 255.3 -23.0 257.7 -25.5 242.5 -25.5 SL
298.8 -22.4 294.7 -22.4 293.5 -25.5 0 0.2 294.5 -23.4 299.0 -23.4 300.1 -25.7 293.5 -25.7 SL
98.1 -28.00 upb
182.0 -11.00 dnb
224.2 -23.00 dnb
425.9 -27.00 brth
(mf) 461.8 -86.00 pf
461.8 -64.00 emb
461.8 -28.00 dnb
474.4 -64.00 emb
487.0 -64.00 emb
499.1 -64.00 emb
511.7 -64.00 emb
524.3 -64.00 emb
536.2 -64.00 emb
555.4 -58.00 emb
(cresc.) 601.6 -86.00 crdc
0 -86.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 524 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria021.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vli-gloria021.abc (21)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.8 T
0.75 dup scale


% --- 21 ((notitle)) ---
0 -25.34 T
3.2 41.7 0.0 65.7   -16.8 bm
3.2 27.0 0.0 123.1   -16.8 bm
3.2 41.4 0.0 194.3   -16.8 bm
3.2 14.4 0.0 250.7   -16.8 bm
3.2 41.1 0.0 323.1   -15.0 bm
3.2 28.2 0.0 379.5   -15.0 bm
3.2 41.5 0.0 451.6   -15.0 bm
3.2 42.3 0.0 508.0   -15.0 bm
-3.2 43.0 0.0 576.0   -55.0 bm
-3.2 27.2 0.0 633.9   -55.0 bm
14.0 F1  179.2   -14.8 M (175) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -23.0 sh0 35.0 -32.0 sh0 
62.2 -44.0 hd -9.0 nt 27.2 su 62.2 -38.0 hd
76.9 -44.0 hd 27.2 su 76.9 -38.0 hd
90.2 -44.0 hd 27.2 su 90.2 -38.0 hd
103.8 -44.0 hd 27.2 su 103.8 -38.0 hd
119.6 -44.0 hd 27.2 su 119.6 -38.0 hd
133.2 -44.0 hd 27.2 su 133.2 -38.0 hd
146.6 -44.0 hd 27.2 su 146.6 -38.0 hd
162.0 -47.0 hd 1 29.0 sfu 162.0 -38.0 hd
24.0 179.2 -47.0 bar
190.8 -47.0 hd 30.2 su 190.8 -38.0 hd
205.2 -47.0 hd 30.2 su 205.2 -38.0 hd
218.8 -47.0 hd 30.2 su 218.8 -38.0 hd
232.3 -47.0 hd 30.2 su 232.3 -38.0 hd
247.2 -47.0 hd 30.2 su 247.2 -38.0 hd
261.7 -47.0 hd 30.2 su 261.7 -38.0 hd
275.8 -35.0 r8
290.5 -41.0 hd 1 26.0 sfu 290.5 -35.0 hd
24.0 307.6 -47.0 bar
319.6 -41.0 hd 26.0 su 319.6 -35.0 hd
332.8 -41.0 hd 26.0 su 332.8 -35.0 hd
347.1 -41.0 hd 26.0 su 347.1 -35.0 hd
360.7 -41.0 hd 26.0 su 360.7 -35.0 hd
376.0 -41.0 hd 26.0 su 376.0 -35.0 hd
390.4 -41.0 hd 26.0 su 390.4 -35.0 hd
404.2 -41.0 hd 26.0 su 404.2 -35.0 hd
419.0 -41.0 hd 1 26.0 sfu 419.0 -35.0 hd
24.0 435.9 -47.0 bar
448.1 -41.0 hd 26.0 su 448.1 -35.0 hd
461.7 -41.0 hd 26.0 su 461.7 -35.0 hd
475.1 -41.0 hd 26.0 su 475.1 -35.0 hd
489.6 -41.0 hd 26.0 su 489.6 -35.0 hd
504.5 -41.0 hd 26.0 su 504.5 -35.0 hd
518.0 -41.0 hd 26.0 su 518.0 -35.0 hd
531.6 -41.0 hd 26.0 su 531.6 -35.0 hd
546.8 -41.0 hd 26.0 su 546.8 -35.0 hd
24.0 559.6 -47.0 bar
579.5 -29.0 hd 26.0 sd 579.5 -35.0 hd
593.9 -29.0 hd 26.0 sd 593.9 -35.0 hd
607.4 -29.0 hd 26.0 sd 607.4 -35.0 hd
622.5 -29.0 hd 26.0 sd 622.5 -35.0 hd
637.4 -29.0 hd 26.0 sd 637.4 -35.0 hd
650.3 -29.0 hd 26.0 sd 650.3 -35.0 hd
664.5 -29.0 hd 26.0 sd 664.5 -35.0 hd
685.7 -29.0 hd 1 26.0 sfd 685.7 -35.0 hd -9.0 ft
24.0 699.3 -47.0 bar
290.5 -13.00 upb
(cresc.) 579.5 -77.00 crdc
0 -77.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 649 x @beginspecial 0 @llx 0 @lly 544 @urx
92 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria022.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 92
%%Title: jazzmesse-vli-gloria022.abc (22)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 91.8 T
0.75 dup scale


% --- 22 ((notitle)) ---
0 -25.34 T
-3.2 37.3 0.0 59.3   -62.0 bm
14.0 F1  153.3   -23.0 M (180) showb 560.3   -23.0 M (185) showb
0 -54.00 M 699.30 staff
12.0 -54.0  tclef
30.0 -30.0 sh0 35.0 -39.0 sh0 
62.8 -36.0 hd 26.0 sd 62.8 -42.0 hd -9.0 ft
75.6 -36.0 hd 26.0 sd 75.6 -42.0 hd
87.1 -36.0 hd 26.0 sd 87.1 -42.0 hd
100.1 -36.0 hd 26.0 sd 100.1 -42.0 hd
113.3 -36.0 hd 1 26.0 sfd 113.3 -42.0 hd
125.4 -42.0 r8
139.2 -42.0 r4
24.0 153.3 -54.0 bar
196.3 -15.0 hd 60.0 sd -24.0 hl -18.0 hl 196.3 -57.0 hd 196.3 -45.0 hd 196.3 -30.0 hd
212.1 -42.0 r4
227.2 -42.0 r8
241.1 -27.0 hd 20.0 sd
256.1 -30.0 hd 1 20.0 sfd
24.0 268.2 -54.0 bar
280.3 -42.0 r2
299.1 -42.0 r8
311.5 -48.0 hd 20.0 su
327.8 -51.0 hd 1 20.0 sfu
24.0 343.9 -54.0 bar
355.3 -51.0 hd 20.0 su
370.8 -42.0 r4
387.0 -42.0 r4
402.7 -54.0 hd 20.0 su
24.0 416.7 -54.0 bar
428.2 -57.0 hd 20.0 su
444.6 -42.0 r4
459.9 -42.0 r2
24.0 477.4 -54.0 bar
488.8 -15.0 hd 35.0 sd -24.0 hl -18.0 hl 488.8 -30.0 hd
504.1 -42.0 r4
519.2 -42.0 r8
533.3 -27.0 hd 20.0 sd
548.3 -30.0 hd 1 20.0 sfd
24.0 560.3 -54.0 bar
571.7 -30.0 hd 1 20.0 sfd
585.3 -30.0 hd 20.0 sd
600.3 -30.0 hd 1 20.0 sfd
614.5 -30.0 Hd 20.0 sd
24.0 631.6 -54.0 bar
643.4 -27.0 hd 20.0 sd
665.8 -30.0 hd -9.0 nt 20.0 sd
682.8 -33.0 Hd 20.0 sd
24.0 699.3 -54.0 bar
347.5 -59.1 335.5 -59.1 331.9 -55.7 0 -0.2 334.9 -58.1 348.1 -58.1 351.2 -55.5 331.9 -55.5 SL
564.9 -22.0 555.2 -22.0 552.3 -25.3 0 0.2 554.7 -23.0 565.3 -23.0 567.8 -25.5 552.3 -25.5 SL
609.6 -22.3 605.2 -22.3 603.8 -25.5 0 0.2 604.9 -23.3 609.8 -23.3 610.9 -25.7 603.8 -25.7 SL
(ff) 196.3 -97.00 pf
196.3 -11.00 dnb
42.0 186.3 -68.00 arp
241.1 -23.00 accent
241.1 -15.00 dnb
256.1 -26.00 accent
311.5 -26.00 dnb
402.7 -28.00 upb
488.8 -11.00 dnb
533.3 -23.00 dnb
0 -97.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 591 x @beginspecial 0 @llx 0 @lly 544 @urx
85 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria023.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 85
%%Title: jazzmesse-vli-gloria023.abc (23)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 85.3 T
0.75 dup scale


% --- 23 ((notitle)) ---
0 -25.34 T
-3.2 13.2 3.1 490.0   -72.6 bm
14.0 F3 104.2   -17.4 M (stringendo) gcshow 
14.0 F1  224.6   -34.4 M (190) showb 589.1   -34.4 M (195) showb
15.0 F2 611.3 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
Hd 20 su grestore 15.40 0 rmoveto ( = 84) show
0 -65.40 M 699.30 staff
12.0 -65.4  tclef
30.0 -41.4 sh0 35.0 -50.4 sh0 
56.0 -47.4 HD
24.0 98.6 -65.4 bar
112.2 -47.4 Hd 9.0 3 dt 12.5 3 dt 26.0 sd 112.2 -53.4 Hd 9.0 3 dt 12.5 3 dt
141.4 -47.4 hd 1 29.0 sfd 141.4 -56.4 hd
24.0 154.0 -65.4 bar
165.2 -47.4 hd 1 29.0 sfd 165.2 -56.4 hd
177.7 -53.4 r8
190.7 -53.4 r4
207.5 -53.4 r2
24.0 224.6 -65.4 bar
248.9 -47.4 Hd 9.0 3 dt 12.5 3 dt 26.0 sd 248.9 -53.4 Hd 9.0 3 dt 12.5 3 dt
279.3 -47.4 hd 1 26.0 sfd 279.3 -53.4 hd
24.0 291.7 -65.4 bar
303.0 -47.4 hd 1 26.0 sfd 303.0 -53.4 hd
316.0 -53.4 r8
328.9 -53.4 r4
345.0 -53.4 r2
24.0 362.3 -65.4 bar
375.7 -47.4 Hd 9.0 3 dt 12.5 3 dt 29.0 sd 375.7 -56.4 Hd 9.0 0 dt 12.5 0 dt
405.1 -41.4 hd 1 29.0 sfd 405.1 -50.4 hd
24.0 417.7 -65.4 bar
429.1 -41.4 hd 1 29.0 sfd 429.1 -50.4 hd
441.1 -53.4 r8
453.7 -53.4 r8
467.2 -47.4 hd 1 20.0 sfd
480.4 -47.4 hd 1 20.0 sfd
493.5 -53.4 hd 19.2 sd
506.7 -47.4 hd 22.1 sd
518.8 -35.4 hd 1 26.0 sfd -35.4 hl 518.8 -41.4 hd
24.0 531.3 -65.4 bar
544.0 -35.4 Hd 9.0 3 dt 26.0 sd -35.4 hl 544.0 -41.4 Hd 9.0 3 dt
571.4 -53.4 r4
24.0 589.1 -65.4 dbar
(2) (2) 604.3 -65.4 tsig
(5) 655.7 -65.4 mrest
24.0 699.3 -65.4 bar
157.0 -64.4 148.1 -64.4 145.4 -61.1 0 -0.2 147.6 -63.4 157.5 -63.4 159.7 -60.9 145.4 -60.9 SL
158.3 -39.4 148.3 -39.4 145.4 -42.7 0 0.2 147.9 -40.4 158.7 -40.4 161.2 -42.9 145.4 -42.9 SL
294.8 -61.4 285.9 -61.4 283.2 -58.1 0 -0.2 285.5 -60.4 295.3 -60.4 297.5 -57.9 283.2 -57.9 SL
296.1 -39.4 286.2 -39.4 283.2 -42.7 0 0.2 285.7 -40.4 296.5 -40.4 299.0 -42.9 283.2 -42.9 SL
420.9 -58.4 411.7 -58.4 409.0 -55.1 0 -0.2 411.3 -57.4 421.3 -57.4 423.6 -54.9 409.0 -54.9 SL
422.1 -33.4 412.0 -33.4 409.0 -36.7 0 0.2 411.5 -34.4 422.6 -34.4 425.1 -36.9 409.0 -36.9 SL
475.7 -39.8 471.9 -39.8 470.7 -42.9 0 0.2 471.7 -40.8 475.9 -40.8 476.8 -43.1 470.7 -43.1 SL
535.6 -49.4 525.8 -49.4 522.8 -46.1 0 -0.2 525.3 -48.4 536.0 -48.4 538.5 -45.9 522.8 -45.9 SL
536.8 -27.3 526.0 -27.3 522.8 -30.7 0 0.2 525.5 -28.3 537.3 -28.3 540.0 -30.9 522.8 -30.9 SL
82.7 -38.40 brth
112.2 -39.40 accent
112.2 -31.40 dnb
141.4 -39.40 accent
141.4 -31.40 upb
248.9 -39.40 accent
279.3 -39.40 accent
375.7 -39.40 accent
405.1 -34.40 accent
467.2 -39.40 accent
467.2 -31.40 dnb
493.5 -39.40 dnb
506.7 -39.40 upb
518.8 -28.40 accent
518.8 -20.40 dnb
0 -88.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1836 6215 a Fe(5)p eop end
%%Page: 6 6
TeXDict begin 6 5 bop -387 402 a @beginspecial 0 @llx
0 @lly 544 @urx 97 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria024.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 97
%%Title: jazzmesse-vli-gloria024.abc (24)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 96.7 T
0.75 dup scale


% --- 24 ((notitle)) ---
0 -25.34 T
14.0 F3 118.6   -17.4 M ( Coro: T,B:) gcshow 
522.0   -17.4 M (1.Vl.) gcshow 
14.0 F1 42.5   -31.4 M (200) showb
0 -61.40 M 699.30 staff
12.0 -61.4  tclef
30.0 -37.4 sh0 35.0 -46.4 sh0 
56.5 -49.4 r1
24.0 105.4 -61.4 bar
145.8 -61.4 sbclef
165.5 -64.4 shd 41.0 su 165.5 -43.4 shd
199.7 -64.4 shd 1 41.0 sfu 199.7 -43.4 shd
224.7 -64.4 shd 1 41.0 sfu 224.7 -43.4 shd
250.1 -61.4 shd 1 41.0 sfu 250.1 -40.4 shd
276.7 -61.4 shd 41.0 su 276.7 -40.4 shd
312.2 -61.4 shd -9.0 sh 1 41.0 sfu 312.2 -40.4 shd -9.0 sh
24.0 335.1 -61.4 bar
348.7 -61.4 shd 1 41.0 sfu 348.7 -40.4 shd
376.7 -61.4 shd -9.0 sh 41.0 su 376.7 -40.4 shd -9.0 sh
411.2 -58.4 shd 1 41.0 sfu 411.2 -37.4 shd
436.9 -58.4 shd 1 41.0 sfu 436.9 -37.4 shd
463.8 -58.4 shd 8.0 0 dt 41.0 su 463.8 -37.4 shd 8.0 3 dt
487.8 -61.4 stclef
24.0 503.2 -61.4 fbar1 513.2 -61.4 rdots
530.0 -49.4 r4
563.8 -43.4 hd 1 20.0 sfd
585.1 -49.4 r8
606.4 -49.4 r8
629.8 -43.4 hd 1 20.0 sfd
651.2 -49.4 r8
678.6 -43.4 hd 1 23.0 sfd 671.6 -46.4 hd -9.0 nt
24.0 699.3 -61.4 bar
339.4 -52.9 323.0 -52.9 318.1 -56.5 0 0.2 322.2 -53.9 340.1 -53.9 344.3 -56.7 318.1 -56.7 SL
339.4 -31.9 323.0 -31.9 318.1 -35.5 0 0.2 322.2 -32.9 340.1 -32.9 344.3 -35.7 318.1 -35.7 SL
429.8 -50.3 419.7 -50.3 416.7 -53.7 0 0.2 419.3 -51.3 430.3 -51.3 432.9 -53.9 416.7 -53.9 SL
429.8 -29.3 419.7 -29.3 416.7 -32.7 0 0.2 419.3 -30.3 430.3 -30.3 432.9 -32.9 416.7 -32.9 SL
690.3 -54.5 679.1 -54.5 675.7 -51.2 0 -0.2 678.6 -53.5 690.9 -53.5 693.7 -51.0 675.7 -51.0 SL
693.0 -35.5 684.9 -35.5 682.5 -38.8 0 0.2 684.5 -36.5 693.4 -36.5 695.5 -39.0 682.5 -39.0 SL
13.0 F2 (glo) 155.8 -98.4 wd 182.4 -98.4 whf (ri) 193.6 -98.4 wd 209.8 -98.4 whf (a) 219.5 -98.4 wd (in) 243.1 -98.4 wd (ex) 268.8 -98.4 wd 291.4 -98.4 whf (cel) 303.1 -98.4 wd 331.5 -98.4 whf 350.8 -98.4 whf (sis) 368.2 -98.4 wd (De) 402.1 -98.4 wd 425.1 -98.4 whf 442.0 -98.4 whf (o,) 457.0 -98.4 wd 
165.5 -79.4 r1 -73.4 hl
348.7 -73.4 r1 -67.4 hl
(f) 563.8 -85.40 pf
563.8 -34.40 emb
563.8 -32.40 dnb
629.8 -34.40 emb
629.8 -32.40 upb
678.6 -35.40 dnb
0 -103.60 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 454 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria025.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-gloria025.abc (25)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 72.3 T
0.75 dup scale


% --- 25 ((notitle)) ---
0 -25.34 T
14.0 F1  198.8   -16.0 M (205) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -23.0 sh0 35.0 -32.0 sh0 
60.4 -29.0 hd 1 23.0 sfd 53.4 -32.0 hd
89.3 -29.0 hd 23.0 sd 82.3 -32.0 hd -9.0 nt
115.1 -29.0 hd 1 20.0 sfd
134.7 -29.0 hd 1 20.0 sfd
154.5 -29.0 hd 1 20.0 sfd
175.2 -35.0 r4
24.0 198.8 -47.0 bar
212.2 -35.0 r4
239.1 -29.0 hd 1 20.0 sfd
257.1 -35.0 r8
276.1 -35.0 r8
295.1 -29.0 hd 1 20.0 sfd
314.4 -35.0 r8
341.1 -29.0 hd 1 23.0 sfd 334.1 -32.0 hd -9.0 nt
24.0 359.3 -47.0 bar
377.8 -29.0 hd 1 23.0 sfd 370.8 -32.0 hd
404.9 -29.0 hd 23.0 sd 397.9 -32.0 hd -9.0 nt
431.1 -29.0 hd 1 20.0 sfd
451.0 -29.0 hd 1 20.0 sfd
471.0 -29.0 hd 1 20.0 sfd
492.9 -35.0 r4
24.0 522.6 -47.0 fbar1 24.0 524.6 -47.0 fbar2 532.6 -47.0 rdots 514.6 -47.0 rdots
547.4 -35.0 r4
579.6 -29.0 hd 1 20.0 sfd
596.5 -35.0 r8
615.7 -35.0 r8
635.8 -29.0 hd 1 20.0 sfd
655.0 -35.0 r8
682.0 -29.0 hd 1 23.0 sfd 675.0 -32.0 hd -9.0 nt
24.0 699.3 -47.0 bar
53.1 -39.8 46.3 -39.8 44.2 -36.6 0 -0.2 45.9 -38.8 53.4 -38.8 55.1 -36.4 44.2 -36.4 SL
54.3 -21.1 46.5 -21.1 44.2 -24.4 0 0.2 46.2 -22.1 54.7 -22.1 56.6 -24.6 44.2 -24.6 SL
128.7 -21.1 121.1 -21.1 118.8 -24.4 0 0.2 120.7 -22.1 129.0 -22.1 130.9 -24.6 118.8 -24.6 SL
365.4 -40.7 345.0 -40.7 338.9 -37.1 0 -0.2 344.0 -39.7 366.4 -39.7 371.5 -36.9 338.9 -36.9 SL
368.1 -20.5 350.8 -20.5 345.6 -24.1 0 0.2 350.0 -21.5 369.0 -21.5 373.3 -24.3 345.6 -24.3 SL
444.9 -21.1 437.2 -21.1 434.9 -24.4 0 0.2 436.8 -22.1 445.3 -22.1 447.2 -24.6 434.9 -24.6 SL
691.0 -40.0 681.7 -40.0 678.9 -36.7 0 -0.2 681.3 -39.0 691.5 -39.0 693.8 -36.5 678.9 -36.5 SL
693.7 -21.2 687.5 -21.2 685.7 -24.5 0 0.2 687.2 -22.2 694.0 -22.2 695.6 -24.7 685.7 -24.7 SL
89.3 -21.00 upb
115.1 -21.00 dnb
154.5 -20.00 emb
154.5 -18.00 upb
239.1 -20.00 emb
295.1 -20.00 emb
471.0 -20.00 emb
(ff) 579.6 -71.00 pf
579.6 -20.00 emb
635.8 -20.00 emb
0 -71.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 511 x @beginspecial 0 @llx 0 @lly 544 @urx
79 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria026.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 79
%%Title: jazzmesse-vli-gloria026.abc (26)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 79.0 T
0.75 dup scale


% --- 26 ((notitle)) ---
0 -25.34 T
14.0 F1  305.7   -26.0 M (210) showb
0 -57.00 M 699.30 staff
12.0 -57.0  tclef
30.0 -33.0 sh0 35.0 -42.0 sh0 
60.4 -39.0 hd 1 23.0 sfd 53.4 -42.0 hd
88.0 -33.0 hd -9.0 nt 29.0 sd 88.0 -42.0 hd -16.0 nt
107.3 -36.0 hd 1 29.0 sfd 107.3 -45.0 hd
122.8 -36.0 hd 1 29.0 sfd 122.8 -45.0 hd
138.3 -39.0 hd 1 29.0 sfd 138.3 -48.0 hd
154.5 -45.0 r4
24.0 172.5 -57.0 bar
184.8 -45.0 r4
205.0 -39.0 hd 1 20.0 sfd
219.4 -45.0 r8
234.6 -45.0 r8
249.6 -39.0 hd 1 20.0 sfd
265.1 -45.0 r8
291.2 -39.0 hd 1 23.0 sfd 284.2 -42.0 hd -9.0 nt
24.0 305.7 -57.0 bar
324.2 -39.0 hd 1 23.0 sfd 317.2 -42.0 hd
350.2 -33.0 hd -9.0 nt 29.0 sd 350.2 -42.0 hd -16.0 nt
369.8 -36.0 hd 1 29.0 sfd 369.8 -45.0 hd
385.5 -36.0 hd 1 29.0 sfd 385.5 -45.0 hd
401.2 -39.0 hd 1 29.0 sfd 401.2 -48.0 hd
418.3 -45.0 r4
24.0 443.5 -57.0 fbar2 433.5 -57.0 rdots
455.5 -33.0 hd 20.0 sd
477.0 -45.0 r4
495.6 -45.0 r4 8.0 3 dt
523.4 -33.0 hd 1 20.0 sfd
24.0 537.7 -57.0 bar
550.1 -33.0 hd 20.0 sd
570.9 -45.0 r4
591.0 -39.0 hd 20.0 sd
609.7 -33.0 hd 20.0 sd
24.0 627.6 -57.0 bar
642.5 -27.0 HD -27.0 hl1
24.0 699.3 -57.0 dbar
53.1 -49.8 46.3 -49.8 44.2 -46.6 0 -0.2 46.0 -48.8 53.4 -48.8 55.1 -46.4 44.2 -46.4 SL
54.3 -31.1 46.6 -31.1 44.2 -34.4 0 0.2 46.2 -32.1 54.7 -32.1 56.6 -34.6 44.2 -34.6 SL
116.4 -52.7 112.2 -52.7 110.9 -49.5 0 -0.2 112.0 -51.7 116.6 -51.7 117.7 -49.3 110.9 -49.3 SL
117.6 -28.3 112.5 -28.3 110.9 -31.5 0 0.2 112.2 -29.3 117.9 -29.3 119.2 -31.7 110.9 -31.7 SL
312.6 -50.6 294.3 -50.6 288.8 -47.0 0 -0.2 293.4 -49.6 313.4 -49.6 318.1 -46.8 288.8 -46.8 SL
315.3 -30.7 300.0 -30.7 295.5 -34.1 0 0.2 299.3 -31.7 316.0 -31.7 319.8 -34.3 295.5 -34.3 SL
379.0 -52.7 374.7 -52.7 373.4 -49.5 0 -0.2 374.5 -51.7 379.2 -51.7 380.3 -49.3 373.4 -49.3 SL
380.3 -28.3 375.0 -28.3 373.4 -31.5 0 0.2 374.7 -29.3 380.5 -29.3 381.8 -31.7 373.4 -31.7 SL
542.5 -24.9 530.9 -24.9 527.4 -28.3 0 0.2 530.4 -25.9 543.1 -25.9 546.0 -28.5 527.4 -28.5 SL
138.3 -30.00 emb
205.0 -30.00 emb
249.6 -30.00 emb
401.2 -30.00 emb
455.5 -29.00 dnb
523.4 -26.00 dnb
591.0 -31.00 dnb
642.5 -23.00 hld
642.5 -11.00 dnb
679.0 -30.00 brth
0 -80.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 687 x @beginspecial 0 @llx 0 @lly 544 @urx
100 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-gloria027.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 100
%%Title: jazzmesse-vli-gloria027.abc (27)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:18 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 100.3 T
0.75 dup scale


% --- 27 ((notitle)) ---
0 -25.34 T
14.0 F3 74.0   -38.4 M (swing) gcshow 
14.0 F1  153.7   -54.4 M (215) showb 570.1   -54.4 M (220) showb
15.0 F2 63.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 80) show
0 -85.40 M 699.30 staff
12.0 -85.4  tclef
30.0 -61.4 sh0 35.0 -70.4 sh0 
56.0 -85.4 csig
82.0 -46.4 hd 32.0 sd -55.4 hl -49.4 hl 82.0 -58.4 hd
102.3 -46.4 hd 35.0 sd -55.4 hl -49.4 hl 102.3 -61.4 hd
120.0 -46.4 hd 38.0 sd -55.4 hl -49.4 hl 120.0 -64.4 hd
139.0 -46.4 hd 38.0 sd -55.4 hl -49.4 hl 139.0 -64.4 hd
24.0 153.7 -85.4 bar
164.7 -73.4 r8
189.0 -46.4 hd 32.0 sd -55.4 hl -49.4 hl 189.0 -58.4 hd
207.2 -46.4 hd 1 35.0 sfd -55.4 hl -49.4 hl 207.2 -61.4 hd
224.3 -46.4 hd 38.0 sd -55.4 hl -49.4 hl 224.3 -64.4 hd
243.6 -46.4 hd 38.0 sd -55.4 hl -49.4 hl 243.6 -64.4 hd
24.0 257.5 -85.4 bar
269.0 -73.4 r8
283.2 -46.4 hd 32.0 sd -55.4 hl -49.4 hl 283.2 -58.4 hd
301.4 -46.4 hd 1 35.0 sfd -55.4 hl -49.4 hl 301.4 -61.4 hd
318.0 -46.4 hd 38.0 sd -55.4 hl -49.4 hl 318.0 -64.4 hd
336.1 -46.4 hd 38.0 sd -55.4 hl -49.4 hl 336.1 -64.4 hd
24.0 350.9 -85.4 bar
365.3 -46.4 HD -55.4 hl1 -49.4 hl1 365.3 -67.4 HD
24.0 399.3 -85.4 bar
411.7 -46.4 hd 8.0 0 dt 41.0 sd -55.4 hl -49.4 hl 411.7 -67.4 hd 8.0 3 dt
437.5 -46.4 hd 1 41.0 sfd -55.4 hl -49.4 hl 437.5 -67.4 hd
452.9 -46.4 hd 41.0 sd -55.4 hl -49.4 hl 452.9 -67.4 hd
472.0 -46.4 hd 41.0 sd -55.4 hl -49.4 hl 472.0 -67.4 hd
24.0 487.1 -85.4 bar
499.5 -46.4 hd 41.0 sd -55.4 hl -49.4 hl 499.5 -67.4 hd
518.6 -46.4 hd 41.0 sd -55.4 hl -49.4 hl 518.6 -67.4 hd
537.0 -46.4 hd 41.0 sd -55.4 hl -49.4 hl 537.0 -67.4 hd
556.1 -46.4 hd 41.0 sd -55.4 hl -49.4 hl 556.1 -67.4 hd
24.0 570.1 -85.4 bar
607.9 -46.4 HD -55.4 hl1 -49.4 hl1 607.9 -67.4 HD
24.0 630.5 -85.4 bar
641.7 -46.4 hd 41.0 sd -55.4 hl -49.4 hl 641.7 -67.4 hd
659.3 -73.4 r4
676.6 -73.4 r2
24.0 699.3 -85.4 fbar2
(ff) 82.0 -107.40 pf
393.6 -58.40 brth
411.7 -42.40 dnb
607.9 -42.40 dnb
641.7 -42.40 hld
0 -108.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1573 2489 a Fc(Credo)-387 3383 y @beginspecial
0 @llx 0 @lly 516 @urx 106 @ury 5160 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 106
%%Title: jazzmesse-vli-credo001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 106.3 T
0.75 dup scale
37.8 0 T


% --- 1 ((notitle)) ---
0 -25.34 T
3.2 18.3 0.0 212.4   -61.2 bm
3.2 -6.0 -0.0 218.4   -66.2 bm
3.2 27.8 0.0 380.2   -55.2 bm
3.2 17.6 0.0 380.2   -60.2 bm
3.2 6.0 0.0 391.8   -65.2 bm
3.2 35.5 0.0 448.9   -51.2 bm
3.2 -6.0 -0.0 454.9   -56.2 bm
3.2 6.0 0.0 478.4   -56.2 bm
3.2 27.8 0.0 624.5   -55.2 bm
3.2 17.6 0.0 624.5   -60.2 bm
3.2 6.0 0.0 636.1   -65.2 bm
-3.2 35.5 0.0 441.9  -105.7  bm
-3.2 -6.0 -0.0 447.9  -100.7 bm
-3.2 6.0 0.0 471.4  -100.7 bm
14.0 F3 105.1   -38.4 M (senza vibrato) gcshow 
310.7   -38.4 M (Solo) gcshow 
14.0 F1  294.3   -60.4 M (5) showb
15.0 F2 49.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 60) show
0 -91.40 M 661.50 staff
12.0 -91.4  tclef
30.0 -79.4 ft0 35.0 -70.4 ft0 40.0 -82.4 ft0 
61.0 -91.4 csig
(3) 113.1 -91.4 mrest
24.0 157.6 -91.4 bar
169.7 -79.4 r8
191.1 -82.4 hd 1 20.0 sfu
208.9 -82.4 hd 21.2 su
227.2 -82.4 hd 8.0 0 dt -9.0 nt 21.2 su
248.0 -79.4 hd 1 20.0 sfu
265.3 -79.4 r8
279.5 -79.4 r4
24.0 294.3 -91.4 bar
318.7 -73.4 hd 20.0 su
336.7 -79.4 hd 20.0 su
353.5 -85.4 hd 20.0 su
376.7 -82.4 hd 8.0 0 dt -9.0 nt 27.2 su
394.3 -79.4 hd 24.2 su
404.5 -82.4 hd 27.2 su
24.0 417.2 -91.4 bar
429.0 -73.4 hd 20.0 su
445.4 -73.4 hd 22.2 su
467.9 -70.4 hd -13.5 nt 19.2 su
480.9 -73.4 hd 22.2 su
503.8 -73.4 hd 1 20.0 sfu
521.1 -67.4 r8
535.3 -67.4 r4
24.0 550.1 -91.4 bar
563.1 -73.4 hd 20.0 su
581.0 -79.4 hd 20.0 su
597.9 -85.4 hd 20.0 su
621.0 -82.4 hd 8.0 0 dt -9.0 nt 27.2 su
638.6 -79.4 hd 24.2 su
648.9 -82.4 hd 27.2 su
24.0 661.5 -91.4 bar
203.3 -90.2 196.8 -90.2 194.8 -87.0 0 -0.2 196.5 -89.2 203.6 -89.2 205.2 -86.8 194.8 -86.8 SL
440.3 -65.7 435.6 -65.7 434.2 -68.9 0 0.2 435.4 -66.7 440.6 -66.7 441.8 -69.1 434.2 -69.1 SL
497.3 -65.4 488.9 -65.4 486.3 -68.7 0 0.2 488.5 -66.4 497.7 -66.4 499.9 -68.9 486.3 -68.9 SL
318.7 -97.4 r1
429.0 -85.4 hd 20.0 sd
445.4 -85.4 hd 20.3 sd
467.9 -82.4 hd -9.0 nt 23.3 sd
480.9 -85.4 hd 20.3 sd
503.8 -85.4 hd 1 20.0 sfd
521.1 -91.4 r8
535.3 -91.4 r4
563.1 -85.4 HD
438.8 -93.1 434.1 -93.1 432.7 -89.9 0 -0.2 433.9 -92.1 439.1 -92.1 440.3 -89.7 432.7 -89.7 SL
495.8 -93.4 487.4 -93.4 484.8 -90.1 0 -0.2 487.0 -92.4 496.2 -92.4 498.4 -89.9 484.8 -89.9 SL
(mf) 191.1 -113.40 pf
248.0 -88.40 emb
318.7 -51.40 dnb
376.7 -53.15 upb
394.3 -52.40 dnb
404.5 -53.15 upb
429.0 -51.40 dnb
429.0 -116.40 dnb
563.1 -51.40 dnb
621.0 -53.15 upb
638.6 -52.40 dnb
648.9 -53.15 upb
0 -116.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 501 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-credo002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale


% --- 2 ((notitle)) ---
0 -25.34 T
3.2 28.9 5.1 62.6   -19.6 bm
3.2 6.0 1.1 85.5   -20.5 bm
3.2 6.0 1.1 85.5   -25.5 bm
-3.2 19.2 0.0 98.0   -59.9  bm
-3.2 19.2 0.0 98.0   -54.9 bm
-3.2 6.0 0.0 111.2   -50.0 bm
-3.2 18.0 2.2 129.8   -50.6 bm
-3.2 18.0 2.2 129.8   -45.6 bm
-3.2 6.0 0.8 141.8   -39.1 bm
-3.2 33.3 0.0 267.3   -54.9 bm
-3.2 -6.0 -0.0 273.3   -50.0 bm
-3.2 6.0 0.0 294.6   -50.0 bm
3.2 35.7 0.0 405.9   -15.0 bm
3.2 -6.0 -0.0 411.9   -20.0 bm
3.2 6.0 0.0 435.6   -20.0 bm
3.2 34.5 0.0 536.1   -15.0 bm
3.2 -6.0 -0.0 542.1   -20.0 bm
3.2 6.0 0.0 564.6   -20.0 bm
-3.2 55.0 0.0 628.4   -47.9 bm
-3.2 55.0 0.0 628.4   -42.9 bm
-3.2 6.0 0.0 640.7   -37.9 bm
-3.2 6.0 0.0 677.4   -37.9 bm
14.0 F1  352.4   -16.0 M (10) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 40.0 -38.0 ft0 
59.1 -41.0 hd 8.0 3 dt 11.5 3 dt 21.4 su
88.0 -38.0 hd -9.0 nt 23.6 su
101.5 -35.0 hd 8.0 3 dt 24.9 sd
120.7 -32.0 hd 27.9 sd
133.3 -29.0 hd 8.0 3 dt 21.6 sd
151.3 -23.0 hd 25.4 sd
179.4 -23.0 hd 20.0 sd
207.0 -26.0 hd 20.0 sd
24.0 230.4 -47.0 bar
244.1 -29.0 hd 20.0 sd
270.8 -32.0 hd 23.0 sd
284.7 -35.0 hd 20.0 sd
304.1 -32.0 hd 23.0 sd
321.6 -32.0 Hd 20.0 sd
24.0 352.4 -47.0 bar
372.1 -32.0 hd -9.0 sh 20.0 sd
402.4 -35.0 hd -9.0 nt 20.0 su
420.3 -38.0 hd -9.0 nt 23.0 su
438.1 -35.0 hd 20.0 su
456.8 -35.0 Hd 20.0 su
24.0 487.4 -47.0 bar
507.1 -32.0 hd -9.0 nt 20.0 sd
532.6 -35.0 hd 20.0 su
548.0 -38.0 hd 23.0 su
567.1 -35.0 hd 20.0 su
582.3 -35.0 hd 13.0 3 dt 16.5 3 dt 1 20.0 sfu
612.3 -32.0 hd 3 25.0 sfd
631.9 -29.0 hd 8.0 3 dt -9.0 ft 18.9 sd
650.2 -26.0 hd 21.9 sd
667.8 -26.0 hd 8.0 0 dt -9.0 nt 21.9 sd
686.9 -23.0 hd 24.9 sd
24.0 699.3 -47.0 bar
171.5 -14.8 159.1 -14.8 155.4 -18.2 0 0.2 158.6 -15.8 172.1 -15.8 175.2 -18.4 155.4 -18.4 SL
316.0 -24.2 309.7 -24.2 307.8 -27.4 0 0.2 309.4 -25.2 316.3 -25.2 317.9 -27.6 307.8 -27.6 SL
451.0 -42.8 444.0 -42.8 441.9 -39.6 0 -0.2 443.7 -41.8 451.3 -41.8 453.1 -39.4 441.9 -39.4 SL
577.1 -42.7 572.2 -42.7 570.7 -39.5 0 -0.2 571.9 -41.7 577.4 -41.7 578.6 -39.3 570.7 -39.3 SL
694.8 -15.4 691.4 -15.4 690.4 -18.6 0 0.2 691.3 -16.4 695.0 -16.4 695.8 -18.8 690.4 -18.8 SL
207.0 -21.00 dnb
244.1 -21.00 dnb
612.3 -21.00 dnb
631.9 -21.00 upb
0 -70.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 534 x @beginspecial 0 @llx 0 @lly 544 @urx
76 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 76
%%Title: jazzmesse-vli-credo003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.5 T
0.75 dup scale


% --- 3 ((notitle)) ---
0 -25.34 T
3.2 53.4 4.0 114.2   -22.4 bm
3.2 53.4 4.0 114.2   -27.4 bm
3.2 6.0 0.4 125.7   -31.6 bm
3.2 6.0 0.4 161.6   -28.9 bm
3.2 19.5 0.0 215.1   -23.4 bm
3.2 18.2 0.0 432.6   -23.4 bm
3.2 -6.0 -0.0 438.6   -28.4 bm
14.0 F3 402.5   -17.4 M (Tutti) gcshow 
14.0 F1  344.4   -22.7 M (15) showb 607.8   -19.7 M (20) showb
0 -53.65 M 699.30 staff
12.0 -53.7  tclef
30.0 -41.7 ft0 35.0 -32.7 ft0 40.0 -44.7 ft0 
59.9 -29.7 hd 8.0 3 dt 11.5 3 dt 1 20.0 sfd
88.7 -35.7 hd -9.0 ft 3 25.0 sfd
110.7 -47.7 hd 8.0 3 dt 25.2 su
128.2 -44.7 hd 23.5 su
146.0 -44.7 hd 8.0 0 dt -9.0 nt 24.8 su
164.1 -41.7 hd 23.2 su
186.3 -41.7 hd 20.0 sd
211.6 -44.7 hd -9.0 nt 21.2 su
231.1 -44.7 hd -9.0 ft 21.2 su
24.0 244.0 -53.7 bar
257.7 -47.7 Hd 9.0 3 dt 20.0 su
288.3 -41.7 r4
24.0 304.5 -53.7 bar
318.7 -41.7 r1
24.0 344.4 -53.7 bar
358.7 -41.7 r1
24.0 384.3 -53.7 bar
395.2 -41.7 r8
410.5 -44.7 hd 1 20.0 sfu
429.1 -44.7 hd 21.2 su
447.4 -44.7 hd 8.0 0 dt -9.0 nt 21.2 su
468.1 -41.7 hd 1 20.0 sfu
485.3 -41.7 r8
500.7 -41.7 r4
24.0 516.2 -53.7 bar
(3) 563.0 -53.7 mrest
24.0 607.8 -53.7 bar
(2) 654.6 -53.7 mrest
24.0 699.3 -53.7 bar
53.8 -21.8 46.0 -21.8 43.7 -25.1 0 0.2 45.7 -22.8 54.2 -22.8 56.1 -25.3 43.7 -25.3 SL
180.0 -33.7 171.9 -33.7 169.5 -37.0 0 0.2 171.5 -34.7 180.4 -34.7 182.4 -37.2 169.5 -37.2 SL
423.3 -52.5 416.3 -52.5 414.3 -49.2 0 -0.2 416.0 -51.5 423.6 -51.5 425.4 -49.0 414.3 -49.0 SL
88.7 -27.65 upb
468.1 -50.65 emb
0 -76.65 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 709 x @beginspecial 0 @llx 0 @lly 544 @urx
97 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 97
%%Title: jazzmesse-vli-credo004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 97.5 T
0.75 dup scale


% --- 4 ((notitle)) ---
0 -25.34 T
-3.2 24.0 -3.5 293.8   -76.1 bm
-3.2 6.0 -0.9 311.8   -73.8 bm
3.2 18.7 0.0 427.9   -40.2 bm
3.2 -6.0 -0.0 433.9   -45.2 bm
3.2 30.9 0.0 653.8   -34.2 bm
3.2 19.0 0.0 653.8   -39.2 bm
3.2 6.0 0.0 666.8   -44.2 bm
14.0 F3 54.0   -17.4 M ( Coro: T,B:) gcshow 
557.5   -17.4 M (Solo) gcshow 
14.0 F1  534.6   -39.4 M (25) showb
0 -70.40 M 699.30 staff
12.0 -70.4  tclef
30.0 -58.4 ft0 35.0 -49.4 ft0 40.0 -61.4 ft0 
62.0 -58.4 r4
86.5 -52.4 r16
103.5 -70.4 sbclef
134.0 -55.4 shd 8.0 0 dt -16.0 nt 1 29.0 sfu 134.0 -46.4 shd 8.0 3 dt -9.0 nt
165.7 -55.4 shd -9.0 ft 1 32.0 sfu 165.7 -43.4 shd
186.7 -58.4 r8
207.7 -58.4 r4
235.2 -70.4 stclef
24.0 249.5 -70.4 bar
270.4 -55.4 hd -9.0 ft 20.0 sd
297.3 -55.4 hd 8.0 0 dt 20.7 sd
321.3 -58.4 hd 21.3 sd
339.1 -58.4 r2
24.0 369.4 -70.4 bar
381.9 -58.4 r8
402.2 -61.4 hd 1 20.0 sfu
424.4 -61.4 hd 21.2 su
443.1 -61.4 hd 8.0 0 dt -9.0 nt 21.2 su
469.5 -58.4 hd 1 20.0 sfu
490.5 -58.4 r8
511.5 -58.4 r4
24.0 534.6 -70.4 bar
565.5 -52.4 hd 20.0 su
593.3 -58.4 hd 20.0 su
620.4 -64.4 hd 20.0 su
650.3 -61.4 hd 8.0 0 dt -9.0 nt 27.2 su
669.3 -58.4 hd 24.2 su
681.2 -61.4 hd 27.2 su
24.0 699.3 -70.4 bar
417.8 -69.4 408.8 -69.4 406.1 -66.0 0 -0.2 408.4 -68.4 418.2 -68.4 420.5 -65.8 406.1 -65.8 SL
13.0 F2 (Cre) 123.3 -99.4 wd 147.9 -99.4 whf (do..) 154.8 -99.4 wd 
62.0 -82.4 r1 -76.4 hl
565.5 -76.4 r1
469.5 -67.40 emb
565.5 -30.40 dnb
650.3 -32.15 upb
669.3 -31.40 dnb
681.2 -32.15 upb
0 -104.60 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 534 x @beginspecial 0 @llx 0 @lly 544 @urx
76 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 76
%%Title: jazzmesse-vli-credo005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.0 T
0.75 dup scale


% --- 5 ((notitle)) ---
0 -25.34 T
3.2 37.4 0.0 82.0   -10.8 bm
3.2 -6.0 -0.0 88.0   -15.8 bm
3.2 6.0 0.0 113.4   -15.8 bm
3.2 29.0 0.0 279.5   -14.8 bm
3.2 18.1 0.0 279.5   -19.8 bm
3.2 6.0 0.0 291.6   -24.8 bm
3.2 29.0 5.2 336.3   -23.6 bm
3.2 6.0 1.1 359.3   -24.5 bm
3.2 6.0 1.1 359.3   -29.5 bm
-3.2 18.1 0.0 371.1   -63.9  bm
-3.2 18.1 0.0 371.1   -58.9 bm
-3.2 6.0 0.0 383.2   -54.0 bm
-3.2 18.1 2.3 400.5   -54.6 bm
-3.2 18.1 2.3 400.5   -49.6 bm
-3.2 6.0 0.7 412.6   -43.1 bm
-3.2 27.6 0.0 514.8   -58.9 bm
-3.2 -6.0 -0.0 520.8   -54.0 bm
-3.2 6.0 0.0 536.4   -54.0 bm
3.2 33.2 0.0 632.0   -19.0 bm
3.2 -6.0 -0.0 638.0   -24.0 bm
3.2 6.0 0.0 659.2   -24.0 bm
-3.2 37.4 0.0 75.0   -65.3  bm
-3.2 -6.0 -0.0 81.0   -60.3 bm
-3.2 6.0 0.0 106.4   -60.3 bm
14.0 F1  583.5   -20.0 M (30) showb
0 -51.00 M 699.30 staff
12.0 -51.0  tclef
30.0 -39.0 ft0 35.0 -30.0 ft0 40.0 -42.0 ft0 
58.5 -33.0 hd 20.0 su
78.5 -33.0 hd 22.2 su
101.0 -30.0 hd -13.5 nt 19.2 su
115.9 -33.0 hd 22.2 su
141.2 -33.0 hd 1 20.0 sfu
159.9 -27.0 r8
176.7 -27.0 r4
24.0 194.5 -51.0 bar
208.0 -33.0 hd 20.0 su
229.6 -39.0 hd 20.0 su
250.3 -45.0 hd 20.0 su
276.0 -42.0 hd 8.0 0 dt -9.0 nt 27.2 su
294.1 -39.0 hd 24.2 su
305.0 -42.0 hd 27.2 su
24.0 319.6 -51.0 bar
332.8 -45.0 hd 8.0 3 dt 11.5 3 dt 21.4 su
361.8 -42.0 hd -9.0 nt 23.6 su
374.6 -39.0 hd 8.0 3 dt 24.9 sd
392.7 -36.0 hd 27.9 sd
404.0 -33.0 hd 8.0 3 dt 21.6 sd
422.1 -27.0 hd 25.4 sd
446.2 -27.0 hd 20.0 sd
466.9 -30.0 hd 20.0 sd
24.0 484.8 -51.0 bar
498.3 -33.0 hd 20.0 sd
518.3 -36.0 hd 23.0 sd
530.9 -39.0 hd 20.0 sd
545.9 -36.0 hd 23.0 sd
560.7 -36.0 Hd 20.0 sd
24.0 583.5 -51.0 bar
603.0 -36.0 hd -9.0 sh 20.0 sd
628.5 -39.0 hd -9.0 nt 20.0 su
646.8 -42.0 hd -9.0 nt 23.0 su
661.7 -39.0 hd 20.0 su
676.6 -39.0 Hd 20.0 su
24.0 699.3 -51.0 bar
72.7 -25.2 65.8 -25.2 63.8 -28.4 0 0.2 65.5 -26.2 73.0 -26.2 74.7 -28.6 63.8 -28.6 SL
134.3 -25.0 124.4 -25.0 121.5 -28.3 0 0.2 123.9 -26.0 134.7 -26.0 137.2 -28.5 121.5 -28.5 SL
439.2 -19.0 429.1 -19.0 426.0 -22.3 0 0.2 428.6 -20.0 439.7 -20.0 442.2 -22.5 426.0 -22.5 SL
555.7 -28.3 550.9 -28.3 549.5 -31.5 0 0.2 550.7 -29.3 555.9 -29.3 557.1 -31.7 549.5 -31.7 SL
671.6 -46.7 666.7 -46.7 665.3 -43.5 0 -0.2 666.5 -45.7 671.8 -45.7 673.0 -43.3 665.3 -43.3 SL
58.5 -45.0 hd 20.0 sd
78.5 -45.0 hd 20.3 sd
101.0 -42.0 hd -9.0 nt 23.3 sd
115.9 -45.0 hd 20.3 sd
141.2 -45.0 hd 1 20.0 sfd
159.9 -51.0 r8
176.7 -51.0 r4
208.0 -45.0 HD
71.2 -52.8 64.3 -52.8 62.3 -49.6 0 -0.2 64.0 -51.8 71.5 -51.8 73.2 -49.4 62.3 -49.4 SL
132.8 -53.0 122.9 -53.0 120.0 -49.7 0 -0.2 122.4 -52.0 133.2 -52.0 135.7 -49.5 120.0 -49.5 SL
58.5 -11.00 dnb
58.5 -76.00 dnb
208.0 -11.00 dnb
276.0 -12.75 upb
294.1 -12.00 dnb
305.0 -12.75 upb
466.9 -25.00 dnb
498.3 -25.00 dnb
0 -76.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 500 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-credo006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale


% --- 6 ((notitle)) ---
0 -25.34 T
3.2 25.2 0.0 86.9   -15.0 bm
3.2 -6.0 -0.0 92.9   -20.0 bm
3.2 6.0 0.0 106.2   -20.0 bm
-3.2 53.2 0.0 163.4   -47.9 bm
-3.2 53.2 0.0 163.4   -42.9 bm
-3.2 6.0 0.0 174.5   -37.9 bm
-3.2 6.0 0.0 210.6   -37.9 bm
3.2 53.2 4.0 296.5   -15.8 bm
3.2 53.2 4.0 296.5   -20.8 bm
3.2 6.0 0.5 308.1   -24.9 bm
3.2 6.0 0.5 343.7   -22.2 bm
3.2 19.4 0.0 395.4   -16.8 bm
14.0 F1  518.7   -13.0 M (35) showb 609.0   -13.0 M (40) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 40.0 -38.0 ft0 
68.0 -32.0 hd -9.0 nt 20.0 sd
83.4 -35.0 hd 20.0 su
94.7 -38.0 hd 23.0 su
108.7 -35.0 hd 20.0 su
120.3 -35.0 hd 13.0 3 dt 16.5 3 dt 1 20.0 sfu
149.4 -32.0 hd 3 25.0 sfd
166.9 -29.0 hd 8.0 3 dt -9.0 ft 18.9 sd
184.0 -26.0 hd 21.9 sd
203.0 -26.0 hd 8.0 0 dt -9.0 nt 21.9 sd
220.1 -23.0 hd 24.9 sd
24.0 230.0 -47.0 bar
241.3 -23.0 hd 8.0 3 dt 11.5 3 dt 1 20.0 sfd
271.5 -29.0 hd -9.0 ft 3 25.0 sfd
293.0 -41.0 hd 8.0 3 dt 25.2 su
310.6 -38.0 hd 23.5 su
328.0 -38.0 hd 8.0 0 dt -9.0 nt 24.8 su
346.2 -35.0 hd 23.2 su
367.9 -35.0 hd 20.0 sd
391.9 -38.0 hd -9.0 nt 21.2 su
411.3 -38.0 hd -9.0 ft 21.2 su
24.0 423.8 -47.0 bar
437.3 -41.0 Hd 9.0 3 dt 20.0 su
465.9 -35.0 r4
24.0 481.2 -47.0 bar
496.1 -35.0 r1
24.0 518.7 -47.0 bar
(5) 564.9 -47.0 mrest
24.0 609.0 -47.0 bar
(3) 655.2 -47.0 mrest
24.0 699.3 -47.0 bar
115.9 -42.6 113.0 -42.6 112.1 -39.4 0 -0.2 112.9 -41.6 116.1 -41.6 116.8 -39.2 112.1 -39.2 SL
234.9 -15.1 226.5 -15.1 223.9 -18.4 0 0.2 226.0 -16.1 235.3 -16.1 237.5 -18.6 223.9 -18.6 SL
361.7 -27.1 353.9 -27.1 351.6 -30.4 0 0.2 353.5 -28.1 362.0 -28.1 364.0 -30.6 351.6 -30.6 SL
149.4 -21.00 dnb
166.9 -21.00 upb
0 -70.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1765 6215 a Fe(6)p eop end
%%Page: 7 7
TeXDict begin 7 6 bop -317 461 a @beginspecial 0 @llx
0 @lly 544 @urx 104 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 104
%%Title: jazzmesse-vli-credo007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 104.2 T
0.75 dup scale


% --- 7 ((notitle)) ---
0 -25.34 T
3.2 28.7 0.0 515.2   -34.2 bm
3.2 18.0 0.0 515.2   -39.2 bm
3.2 6.0 0.0 527.2   -44.2 bm
3.2 37.0 0.0 589.5   -30.2 bm
3.2 -6.0 -0.0 595.5   -35.2 bm
3.2 6.0 0.0 620.5   -35.2 bm
-3.2 37.0 0.0 582.5   -84.7  bm
-3.2 -6.0 -0.0 588.5   -79.7 bm
-3.2 6.0 0.0 613.5   -79.7 bm
14.0 F3 54.2   -17.4 M (Tenore:) gcshow 
402.0   -17.4 M (1.Vl.) gcshow 
438.2   -17.4 M (Solo) gcshow 
14.0 F1  419.9   -39.4 M (45) showb
0 -70.40 M 699.30 staff
12.0 -70.4  tclef
30.0 -58.4 ft0 35.0 -49.4 ft0 40.0 -61.4 ft0 
62.2 -58.4 shd 1 20.0 sfu
85.6 -58.4 shd 1 20.0 sfu
108.7 -58.4 shd 13.0 3 dt 2 21.0 sfu
137.0 -58.4 shd 3 25.0 sfu
161.7 -58.4 shd 13.0 3 dt 2 21.0 sfu
185.4 -58.4 shd 3 25.0 sfu
205.1 -58.4 shd 13.0 3 dt 2 21.0 sfu
229.1 -58.4 shd 3 25.0 sfu
244.7 -58.4 shd 1 20.0 sfu
269.8 -61.4 shd -9.0 nt 1 20.0 sfu
298.0 -61.4 shd -9.0 ft 1 20.0 sfu
24.0 316.9 -70.4 bar
331.0 -64.4 shd 1 20.0 sfu
349.3 -58.4 r8
365.4 -58.4 r4
386.2 -58.4 r2
24.0 419.9 -70.4 bar
446.2 -52.4 hd 20.0 su
466.9 -58.4 hd 20.0 su
486.6 -64.4 hd 20.0 su
511.7 -61.4 hd 8.0 0 dt -9.0 nt 27.2 su
529.7 -58.4 hd 24.2 su
540.4 -61.4 hd 27.2 su
24.0 554.6 -70.4 bar
566.9 -52.4 hd 20.0 su
586.0 -52.4 hd 22.2 su
608.5 -49.4 hd -13.5 nt 19.2 su
623.0 -52.4 hd 22.2 su
647.7 -52.4 hd 1 20.0 sfu
666.0 -46.4 r8
682.2 -46.4 r4
24.0 699.3 -70.4 bar
580.4 -44.6 574.1 -44.6 572.2 -47.8 0 0.2 573.8 -45.6 580.7 -45.6 582.3 -48.0 572.2 -48.0 SL
640.9 -44.4 631.4 -44.4 628.5 -47.7 0 0.2 630.9 -45.4 641.3 -45.4 643.7 -47.9 628.5 -47.9 SL
13.0 F2 (Pa) 54.0 -108.4 wd 71.4 -108.4 whf (tre) 77.1 -108.4 wd (na) 100.9 -108.4 wd 118.7 -108.4 whf (tum) 125.7 -108.4 wd (an) 153.8 -108.4 wd 171.7 -108.4 whf (te) 178.7 -108.4 wd (om) 195.4 -108.4 wd 216.4 -108.4 whf (ni) 222.1 -108.4 wd 235.1 -108.4 whf (a) 239.5 -108.4 wd (sae) 260.1 -108.4 wd 282.8 -108.4 whf (cu) 290.1 -108.4 wd 312.0 -108.4 whf (la.) 322.9 -108.4 wd 
62.2 -76.4 r1
331.0 -76.4 r1
446.2 -76.4 r1
566.9 -64.4 hd 20.0 sd
586.0 -64.4 hd 20.3 sd
608.5 -61.4 hd -9.0 nt 23.3 sd
623.0 -64.4 hd 20.3 sd
647.7 -64.4 hd 1 20.0 sfd
666.0 -70.4 r8
682.2 -70.4 r4
578.9 -72.2 572.6 -72.2 570.7 -69.0 0 -0.2 572.3 -71.2 579.2 -71.2 580.8 -68.8 570.7 -68.8 SL
639.4 -72.4 629.9 -72.4 627.0 -69.1 0 -0.2 629.4 -71.4 639.8 -71.4 642.2 -68.9 627.0 -68.9 SL
446.2 -30.40 dnb
511.7 -32.15 upb
529.7 -31.40 dnb
540.4 -32.15 upb
566.9 -30.40 dnb
566.9 -95.40 dnb
0 -113.60 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 567 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vli-credo008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 74.5 T
0.75 dup scale


% --- 8 ((notitle)) ---
0 -25.34 T
3.2 28.1 0.0 123.9   -14.8 bm
3.2 17.7 0.0 123.9   -19.8 bm
3.2 6.0 0.0 135.6   -24.8 bm
3.2 29.0 5.2 178.0   -23.6 bm
3.2 6.0 1.1 201.0   -24.5 bm
3.2 6.0 1.1 201.0   -29.5 bm
-3.2 17.7 0.0 212.6   -63.9  bm
-3.2 17.7 0.0 212.6   -58.9 bm
-3.2 6.0 0.0 224.3   -54.0 bm
-3.2 17.7 2.2 241.0   -54.6 bm
-3.2 17.7 2.2 241.0   -49.6 bm
-3.2 6.0 0.8 252.7   -43.1 bm
-3.2 25.2 0.0 345.0   -58.9 bm
-3.2 -6.0 -0.0 351.0   -54.0 bm
-3.2 6.0 0.0 364.3   -54.0 bm
3.2 31.7 0.0 453.3   -19.0 bm
3.2 -6.0 -0.0 459.3   -24.0 bm
3.2 6.0 0.0 479.0   -24.0 bm
3.2 25.2 0.0 554.6   -19.0 bm
3.2 -6.0 -0.0 560.6   -24.0 bm
3.2 6.0 0.0 573.9   -24.0 bm
-3.2 53.4 0.0 632.2   -51.9 bm
-3.2 53.4 0.0 632.2   -46.9 bm
-3.2 6.0 0.0 643.9   -41.9 bm
-3.2 6.0 0.0 679.6   -41.9 bm
14.0 F1  406.6   -20.0 M (50) showb
0 -51.00 M 699.30 staff
12.0 -51.0  tclef
30.0 -39.0 ft0 35.0 -30.0 ft0 40.0 -42.0 ft0 
60.0 -33.0 hd 20.0 su
78.9 -39.0 hd 20.0 su
96.6 -45.0 hd 20.0 su
120.4 -42.0 hd 8.0 0 dt -9.0 nt 27.2 su
138.1 -39.0 hd 24.2 su
148.5 -42.0 hd 27.2 su
24.0 161.7 -51.0 bar
174.5 -45.0 hd 8.0 3 dt 11.5 3 dt 21.4 su
203.5 -42.0 hd -9.0 nt 23.6 su
216.1 -39.0 hd 8.0 3 dt 24.9 sd
233.8 -36.0 hd 27.9 sd
244.5 -33.0 hd 8.0 3 dt 21.6 sd
262.2 -27.0 hd 25.4 sd
284.8 -27.0 hd 20.0 sd
302.6 -30.0 hd 20.0 sd
24.0 318.2 -51.0 bar
331.3 -33.0 hd 20.0 sd
348.5 -36.0 hd 23.0 sd
360.3 -39.0 hd 20.0 sd
373.8 -36.0 hd 23.0 sd
387.3 -36.0 Hd 20.0 sd
24.0 406.6 -51.0 bar
426.1 -36.0 hd -9.0 sh 20.0 sd
449.8 -39.0 hd -9.0 nt 20.0 su
468.0 -42.0 hd -9.0 nt 23.0 su
481.5 -39.0 hd 20.0 su
495.0 -39.0 Hd 20.0 su
24.0 514.4 -51.0 bar
533.9 -36.0 hd -9.0 nt 20.0 sd
551.1 -39.0 hd 20.0 su
562.9 -42.0 hd 23.0 su
576.4 -39.0 hd 20.0 su
588.9 -39.0 hd 13.0 3 dt 16.5 3 dt 1 20.0 sfu
617.7 -36.0 hd 3 25.0 sfd
635.7 -33.0 hd 8.0 3 dt -9.0 ft 18.9 sd
653.4 -30.0 hd 21.9 sd
671.4 -30.0 hd 8.0 0 dt -9.0 nt 21.9 sd
689.1 -27.0 hd 24.9 sd
24.0 699.3 -51.0 bar
278.1 -19.0 268.9 -19.0 266.1 -22.3 0 0.2 268.4 -20.0 278.6 -20.0 280.9 -22.5 266.1 -22.5 SL
382.6 -28.4 378.5 -28.4 377.3 -31.5 0 0.2 378.3 -29.4 382.8 -29.4 383.8 -31.7 377.3 -31.7 SL
490.3 -46.6 486.3 -46.6 485.0 -43.5 0 -0.2 486.1 -45.6 490.5 -45.6 491.5 -43.3 485.0 -43.3 SL
584.4 -46.6 580.9 -46.6 579.9 -43.5 0 -0.2 580.7 -45.6 584.5 -45.6 585.4 -43.3 579.9 -43.3 SL
695.2 -19.5 693.1 -19.5 692.5 -22.6 0 0.2 693.0 -20.5 695.4 -20.5 695.9 -22.8 692.5 -22.8 SL
60.0 -45.0 HD
60.0 -11.00 dnb
120.4 -12.75 upb
138.1 -12.00 dnb
148.5 -12.75 upb
302.6 -25.00 dnb
331.3 -25.00 dnb
617.7 -25.00 dnb
635.7 -25.00 upb
0 -74.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 543 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-credo009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale


% --- 9 ((notitle)) ---
0 -25.34 T
3.2 57.3 4.1 124.6   -15.9 bm
3.2 57.3 4.1 124.6   -20.9 bm
3.2 6.0 0.4 137.7   -25.0 bm
3.2 6.0 0.4 176.0   -22.2 bm
3.2 25.1 0.0 250.7   -16.8 bm
14.0 F1  477.9   -13.0 M (55) showb 588.6   -13.0 M (60) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 40.0 -38.0 ft0 
57.6 -23.0 hd 8.0 3 dt 11.5 3 dt 1 20.0 sfd
89.7 -29.0 hd -9.0 ft 3 25.0 sfd
121.1 -41.0 hd 8.0 3 dt 25.1 su
140.2 -38.0 hd 23.5 su
158.3 -38.0 hd 8.0 0 dt -9.0 nt 24.8 su
178.5 -35.0 hd 23.2 su
211.1 -35.0 hd 20.0 sd
247.2 -38.0 hd -9.0 nt 21.2 su
272.3 -38.0 hd -9.0 ft 21.2 su
24.0 294.2 -47.0 bar
313.0 -41.0 Hd 9.0 3 dt 20.0 su
370.8 -35.0 r4
24.0 402.1 -47.0 bar
423.1 -35.0 r1
24.0 477.9 -47.0 bar
(5) 534.3 -47.0 mrest
24.0 588.6 -47.0 bar
(6) 645.0 -47.0 mrest
24.0 699.3 -47.0 bar
51.4 -15.1 43.7 -15.1 41.4 -18.4 0 0.2 43.3 -16.1 51.8 -16.1 53.8 -18.6 41.4 -18.6 SL
202.6 -26.7 188.5 -26.7 184.3 -30.1 0 0.2 187.8 -27.7 203.2 -27.7 206.8 -30.3 184.3 -30.3 SL
0 -70.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 809 x @beginspecial 0 @llx 0 @lly 544 @urx
104 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 104
%%Title: jazzmesse-vli-credo010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 104.2 T
0.75 dup scale


% --- 10 ((notitle)) ---
0 -25.34 T
3.2 30.0 0.0 355.0   -34.2 bm
3.2 18.6 0.0 355.0   -39.2 bm
3.2 6.0 0.0 367.6   -44.2 bm
3.2 39.3 0.0 438.2   -30.2 bm
3.2 -6.0 -0.0 444.2   -35.2 bm
3.2 6.0 0.0 471.5   -35.2 bm
3.2 30.0 0.0 656.2   -34.2 bm
3.2 18.6 0.0 656.2   -39.2 bm
3.2 6.0 0.0 668.8   -44.2 bm
-3.2 39.3 0.0 431.2   -84.7  bm
-3.2 -6.0 -0.0 437.2   -79.7 bm
-3.2 6.0 0.0 464.5   -79.7 bm
14.0 F3 54.0   -17.4 M (Mezzosoprano:) gcshow 
226.6   -17.4 M (1.Vl.) gcshow 
266.1   -17.4 M (Solo) gcshow 
0 -70.40 M 699.30 staff
12.0 -70.4  tclef
30.0 -58.4 ft0 35.0 -49.4 ft0 40.0 -61.4 ft0 
62.0 -58.4 r4
84.9 -58.4 r8 8.0 3 dt
113.9 -76.4 shd -9.0 sh 2 21.0 sfu -76.4 hl
133.4 -76.4 shd 1 20.0 sfu -76.4 hl
158.5 -76.4 shd 1 20.0 sfu -76.4 hl
184.6 -76.4 shd 1 20.0 sfu -76.4 hl
210.4 -76.4 shd 1 20.0 sfu -76.4 hl
24.0 245.0 -70.4 bar
274.1 -52.4 hd 20.0 su
299.2 -58.4 hd 20.0 su
323.4 -64.4 hd 20.0 su
351.5 -61.4 hd 8.0 0 dt -9.0 nt 27.2 su
370.1 -58.4 hd 24.2 su
381.5 -61.4 hd 27.2 su
24.0 398.1 -70.4 bar
411.3 -52.4 hd 20.0 su
434.7 -52.4 hd 22.2 su
457.2 -49.4 hd -13.5 nt 19.2 su
474.0 -52.4 hd 22.2 su
501.5 -52.4 hd 1 20.0 sfu
521.5 -46.4 r8
540.6 -46.4 r4
24.0 561.4 -70.4 bar
575.3 -52.4 hd 20.0 su
600.3 -58.4 hd 20.0 su
624.6 -64.4 hd 20.0 su
652.7 -61.4 hd 8.0 0 dt -9.0 nt 27.2 su
671.3 -58.4 hd 24.2 su
682.7 -61.4 hd 27.2 su
24.0 699.3 -70.4 bar
428.1 -44.4 419.4 -44.4 416.7 -47.7 0 0.2 419.0 -45.4 428.6 -45.4 430.8 -47.9 416.7 -47.9 SL
494.1 -44.3 482.9 -44.3 479.6 -47.6 0 0.2 482.4 -45.3 494.6 -45.3 497.4 -47.8 479.6 -47.8 SL
13.0 F2 (et) 107.2 -108.4 wd (ho) 125.2 -108.4 wd 142.8 -108.4 whf (mo) 148.8 -108.4 wd (fac) 175.2 -108.4 wd 195.6 -108.4 whf (tus) 201.3 -108.4 wd 
62.0 -88.4 r1 -82.4 hl
274.1 -76.4 r1
411.3 -64.4 hd 20.0 sd
434.7 -64.4 hd 20.3 sd
457.2 -61.4 hd -9.0 nt 23.3 sd
474.0 -64.4 hd 20.3 sd
501.5 -64.4 hd 1 20.0 sfd
521.5 -70.4 r8
540.6 -70.4 r4
575.3 -64.4 HD
426.6 -72.4 417.9 -72.4 415.2 -69.1 0 -0.2 417.5 -71.4 427.1 -71.4 429.3 -68.9 415.2 -68.9 SL
492.6 -72.5 481.4 -72.5 478.1 -69.2 0 -0.2 480.9 -71.5 493.1 -71.5 495.9 -69.0 478.1 -69.0 SL
274.1 -30.40 dnb
351.5 -32.15 upb
370.1 -31.40 dnb
381.5 -32.15 upb
411.3 -30.40 dnb
411.3 -95.40 dnb
575.3 -30.40 dnb
652.7 -32.15 upb
671.3 -31.40 dnb
682.7 -32.15 upb
0 -113.60 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 543 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo011.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-credo011.abc (11)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale


% --- 11 ((notitle)) ---
0 -25.34 T
3.2 29.6 5.2 61.2   -19.6 bm
3.2 6.0 1.1 84.8   -20.5 bm
3.2 6.0 1.1 84.8   -25.5 bm
-3.2 18.7 0.0 98.3   -59.9  bm
-3.2 18.7 0.0 98.3   -54.9 bm
-3.2 6.0 0.0 110.9   -50.0 bm
-3.2 18.6 2.3 129.3   -50.6 bm
-3.2 18.6 2.3 129.3   -45.6 bm
-3.2 6.0 0.7 141.9   -39.1 bm
-3.2 33.4 0.0 267.2   -54.9 bm
-3.2 -6.0 -0.0 273.2   -50.0 bm
-3.2 6.0 0.0 294.5   -50.0 bm
3.2 37.8 0.0 405.1   -15.0 bm
3.2 -6.0 -0.0 411.1   -20.0 bm
3.2 6.0 0.0 436.9   -20.0 bm
3.2 33.6 0.0 536.2   -15.0 bm
3.2 -6.0 -0.0 542.2   -20.0 bm
3.2 6.0 0.0 563.8   -20.0 bm
-3.2 55.0 0.0 628.1   -47.9 bm
-3.2 55.0 0.0 628.1   -42.9 bm
-3.2 6.0 0.0 640.2   -37.9 bm
-3.2 6.0 0.0 677.2   -37.9 bm
14.0 F1 45.2   -17.0 M (70) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 40.0 -38.0 ft0 
57.7 -41.0 hd 8.0 3 dt 11.5 3 dt 21.4 su
87.3 -38.0 hd -9.0 nt 23.6 su
101.8 -35.0 hd 8.0 3 dt 24.9 sd
120.4 -32.0 hd 27.9 sd
132.8 -29.0 hd 8.0 3 dt 21.6 sd
151.4 -23.0 hd 25.4 sd
179.0 -23.0 hd 20.0 sd
206.4 -26.0 hd 20.0 sd
24.0 230.4 -47.0 bar
244.7 -29.0 hd 20.0 sd
270.7 -32.0 hd 23.0 sd
285.6 -35.0 hd 20.0 sd
304.0 -32.0 hd 23.0 sd
321.7 -32.0 Hd 20.0 sd
24.0 352.4 -47.0 bar
372.1 -32.0 hd -9.0 sh 20.0 sd
401.6 -35.0 hd -9.0 nt 20.0 su
421.0 -38.0 hd -9.0 nt 23.0 su
439.4 -35.0 hd 20.0 su
456.9 -35.0 Hd 20.0 su
24.0 487.4 -47.0 bar
506.8 -32.0 hd -9.0 nt 20.0 sd
532.7 -35.0 hd 20.0 su
548.2 -38.0 hd 23.0 su
566.3 -35.0 hd 20.0 su
582.2 -35.0 hd 13.0 3 dt 16.5 3 dt 1 20.0 sfu
612.8 -32.0 hd 3 25.0 sfd
631.6 -29.0 hd 8.0 3 dt -9.0 ft 18.9 sd
649.7 -26.0 hd 21.9 sd
668.6 -26.0 hd 8.0 0 dt -9.0 nt 21.9 sd
686.7 -23.0 hd 24.9 sd
24.0 699.3 -47.0 bar
171.3 -14.8 159.1 -14.8 155.5 -18.2 0 0.2 158.6 -15.8 171.9 -15.8 174.9 -18.4 155.5 -18.4 SL
316.1 -24.2 309.7 -24.2 307.8 -27.4 0 0.2 309.4 -25.2 316.4 -25.2 318.0 -27.6 307.8 -27.6 SL
451.4 -42.8 445.0 -42.8 443.1 -39.6 0 -0.2 444.7 -41.8 451.7 -41.8 453.2 -39.4 443.1 -39.4 SL
576.9 -42.7 571.5 -42.7 569.9 -39.5 0 -0.2 571.3 -41.7 577.2 -41.7 578.5 -39.3 569.9 -39.3 SL
694.7 -15.4 691.2 -15.4 690.2 -18.5 0 0.2 691.1 -16.4 694.9 -16.4 695.8 -18.7 690.2 -18.7 SL
206.4 -21.00 dnb
244.7 -21.00 dnb
612.8 -21.00 dnb
631.6 -21.00 upb
0 -70.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 576 x @beginspecial 0 @llx 0 @lly 544 @urx
76 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo012.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 76
%%Title: jazzmesse-vli-credo012.abc (12)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.5 T
0.75 dup scale


% --- 12 ((notitle)) ---
0 -25.34 T
3.2 53.4 4.0 116.3   -22.4 bm
3.2 53.4 4.0 116.3   -27.4 bm
3.2 6.0 0.4 128.3   -31.5 bm
3.2 6.0 0.4 163.7   -28.9 bm
3.2 22.1 0.0 219.8   -23.4 bm
3.2 18.0 0.0 466.9   -23.4 bm
3.2 -6.0 -0.0 472.9   -28.4 bm
14.0 F3 435.7   -17.4 M (Tutti) gcshow 
14.0 F1  252.5   -22.7 M (75) showb 604.5   -19.7 M (80) showb
0 -53.65 M 699.30 staff
12.0 -53.7  tclef
30.0 -41.7 ft0 35.0 -32.7 ft0 40.0 -44.7 ft0 
57.7 -29.7 hd 8.0 3 dt 11.5 3 dt 1 20.0 sfd
88.5 -35.7 hd -9.0 ft 3 25.0 sfd
112.8 -47.7 hd 8.0 3 dt 25.2 su
130.8 -44.7 hd 23.6 su
148.5 -44.7 hd 8.0 0 dt -9.0 nt 24.9 su
166.2 -41.7 hd 23.2 su
190.4 -41.7 hd 20.0 sd
216.3 -44.7 hd -9.0 nt 21.2 su
238.4 -44.7 hd -9.0 ft 21.2 su
24.0 252.5 -53.7 bar
267.2 -47.7 Hd 9.0 3 dt 20.0 su
303.4 -41.7 r4
24.0 321.1 -53.7 bar
(2) 369.5 -53.7 mrest
24.0 415.9 -53.7 bar
427.5 -41.7 r8
443.7 -44.7 hd 1 20.0 sfu
463.4 -44.7 hd 21.2 su
481.4 -44.7 hd 8.0 0 dt -9.0 nt 21.2 su
505.5 -41.7 hd 1 20.0 sfu
524.2 -41.7 r8
540.7 -41.7 r4
24.0 558.5 -53.7 bar
574.3 -41.7 r1
24.0 604.5 -53.7 bar
(4) 652.9 -53.7 mrest
24.0 699.3 -53.7 bar
51.6 -21.8 43.8 -21.8 41.5 -25.1 0 0.2 43.5 -22.8 52.0 -22.8 53.9 -25.3 41.5 -25.3 SL
183.6 -33.7 174.4 -33.7 171.7 -37.0 0 0.2 174.0 -34.7 184.1 -34.7 186.4 -37.2 171.7 -37.2 SL
457.3 -52.5 449.8 -52.5 447.5 -49.2 0 -0.2 449.4 -51.5 457.7 -51.5 459.6 -49.0 447.5 -49.0 SL
505.5 -50.65 emb
0 -76.65 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 734 x @beginspecial 0 @llx 0 @lly 544 @urx
95 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo013.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 95
%%Title: jazzmesse-vli-credo013.abc (13)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 95.2 T
0.75 dup scale


% --- 13 ((notitle)) ---
0 -25.34 T
-3.2 22.5 -3.5 282.8   -73.2 bm
-3.2 6.0 -0.9 299.2   -70.7 bm
3.2 18.6 0.0 405.4   -37.2 bm
3.2 -6.0 -0.0 411.4   -42.2 bm
14.0 F3 54.0   -17.4 M ( Coro: T,B:) gcshow 
14.0 F1  242.4   -36.4 M (85) showb 601.2   -33.4 M (90) showb
0 -67.40 M 699.30 staff
12.0 -67.4  tclef
30.0 -55.4 ft0 35.0 -46.4 ft0 40.0 -58.4 ft0 
62.0 -55.4 r4
83.6 -49.4 r16
100.6 -67.4 sbclef
131.1 -52.4 shd 8.0 0 dt -16.0 nt 1 29.0 sfu 131.1 -43.4 shd 8.0 3 dt -9.0 nt
162.4 -52.4 shd -9.0 ft 1 32.0 sfu 162.4 -40.4 shd
182.1 -55.4 r8
200.7 -55.4 r4
228.2 -67.4 stclef
24.0 242.4 -67.4 bar
263.0 -52.4 hd -9.0 ft 20.0 sd
286.3 -52.4 hd 8.0 0 dt 20.8 sd
308.7 -55.4 hd 21.2 sd
324.9 -55.4 r2
24.0 350.9 -67.4 bar
363.2 -55.4 r8
381.3 -58.4 hd 1 20.0 sfu
401.9 -58.4 hd 21.2 su
420.4 -58.4 hd 8.0 0 dt -9.0 nt 21.2 su
444.8 -55.4 hd 1 20.0 sfu
464.5 -55.4 r8
483.1 -55.4 r4
24.0 503.2 -67.4 bar
(3) 553.0 -67.4 mrest
24.0 601.2 -67.4 bar
(5) 651.0 -67.4 mrest
24.0 699.3 -67.4 bar
395.6 -66.3 387.5 -66.3 385.1 -63.0 0 -0.2 387.1 -65.3 396.0 -65.3 398.0 -62.8 385.1 -62.8 SL
13.0 F2 (Cre) 120.5 -96.4 wd 144.9 -96.4 whf (do..) 151.5 -96.4 wd 
62.0 -79.4 r1 -73.4 hl
444.8 -64.40 emb
0 -101.60 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 809 x @beginspecial 0 @llx 0 @lly 544 @urx
104 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo014.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 104
%%Title: jazzmesse-vli-credo014.abc (14)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 104.2 T
0.75 dup scale


% --- 14 ((notitle)) ---
0 -25.34 T
3.2 29.2 0.0 383.7   -34.2 bm
3.2 18.2 0.0 383.7   -39.2 bm
3.2 6.0 0.0 395.9   -44.2 bm
3.2 37.9 0.0 461.5   -30.2 bm
3.2 -6.0 -0.0 467.5   -35.2 bm
3.2 6.0 0.0 493.4   -35.2 bm
3.2 29.2 0.0 658.5   -34.2 bm
3.2 18.2 0.0 658.5   -39.2 bm
3.2 6.0 0.0 670.7   -44.2 bm
-3.2 37.9 0.0 454.5   -84.7  bm
-3.2 -6.0 -0.0 460.5   -79.7 bm
-3.2 6.0 0.0 486.4   -79.7 bm
14.0 F3 65.3   -17.4 M (Mezzosoprano:) gcshow 
264.5   -17.4 M (1.Vl.) gcshow 
302.0   -17.4 M (Solo) gcshow 
14.0 F1 48.2   -40.4 M (95) showb
0 -70.40 M 699.30 staff
12.0 -70.4  tclef
30.0 -58.4 ft0 35.0 -49.4 ft0 40.0 -61.4 ft0 
73.3 -58.4 shd 1 20.0 sfu
96.9 -58.4 shd 2 21.0 sfu
120.2 -58.4 shd 1 20.0 sfu
144.2 -58.4 shd 2 21.0 sfu
160.4 -58.4 r8
175.8 -52.4 r16
193.7 -58.4 shd 13.0 3 dt 1 20.0 sfu
225.3 -61.4 shd -9.0 nt 1 20.0 sfu
250.8 -61.4 shd -9.0 ft 1 20.0 sfu
24.0 282.6 -70.4 bar
310.0 -52.4 hd 20.0 su
332.4 -58.4 hd 20.0 su
353.9 -64.4 hd 20.0 su
380.2 -61.4 hd 8.0 0 dt -9.0 nt 27.2 su
398.4 -58.4 hd 24.2 su
409.4 -61.4 hd 27.2 su
24.0 424.5 -70.4 bar
437.2 -52.4 hd 20.0 su
458.0 -52.4 hd 22.2 su
480.5 -49.4 hd -13.5 nt 19.2 su
495.9 -52.4 hd 22.2 su
521.7 -52.4 hd 1 20.0 sfu
540.7 -46.4 r8
558.0 -46.4 r4
24.0 576.5 -70.4 bar
590.1 -52.4 hd 20.0 su
612.5 -58.4 hd 20.0 su
634.0 -64.4 hd 20.0 su
655.0 -61.4 hd 8.0 0 dt 27.2 su
673.2 -58.4 hd 24.2 su
684.2 -61.4 hd 27.2 su
24.0 699.3 -70.4 bar
452.0 -44.5 444.7 -44.5 442.6 -47.8 0 0.2 444.4 -45.5 452.4 -45.5 454.2 -48.0 442.6 -48.0 SL
514.6 -44.3 504.5 -44.3 501.4 -47.7 0 0.2 504.0 -45.3 515.1 -45.3 517.7 -47.9 501.4 -47.9 SL
13.0 F2 (cu) 65.4 -108.4 wd 82.0 -108.4 whf (ius) 87.8 -108.4 wd (reg) 110.5 -108.4 wd 131.6 -108.4 whf (ni) 137.2 -108.4 wd (non) 182.7 -108.4 wd (e) 220.2 -108.4 wd 233.7 -108.4 whf (rit) 243.2 -108.4 wd 
73.3 -76.4 r1
310.0 -76.4 r1
437.2 -64.4 hd 20.0 sd
458.0 -64.4 hd 20.3 sd
480.5 -61.4 hd -9.0 nt 23.3 sd
495.9 -64.4 hd 20.3 sd
521.7 -64.4 hd 1 20.0 sfd
540.7 -70.4 r8
558.0 -70.4 r4
590.1 -64.4 HD
450.5 -72.3 443.2 -72.3 441.1 -69.0 0 -0.2 442.9 -71.3 450.9 -71.3 452.7 -68.8 441.1 -68.8 SL
513.1 -72.5 503.0 -72.5 499.9 -69.1 0 -0.2 502.5 -71.5 513.6 -71.5 516.2 -68.9 499.9 -68.9 SL
310.0 -30.40 dnb
380.2 -32.15 upb
398.4 -31.40 dnb
409.4 -32.15 upb
437.2 -30.40 dnb
437.2 -95.40 dnb
590.1 -30.40 dnb
655.0 -32.15 upb
673.2 -31.40 dnb
684.2 -32.15 upb
0 -113.60 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 543 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo015.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-credo015.abc (15)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale


% --- 15 ((notitle)) ---
0 -25.34 T
3.2 28.4 5.1 62.9   -19.6 bm
3.2 6.0 1.1 85.3   -20.5 bm
3.2 6.0 1.1 85.3   -25.5 bm
-3.2 19.4 0.0 96.8   -59.9  bm
-3.2 19.4 0.0 96.8   -54.9 bm
-3.2 6.0 0.0 110.2   -50.0 bm
-3.2 19.1 2.3 128.0   -50.6 bm
-3.2 19.1 2.3 128.0   -45.6 bm
-3.2 6.0 0.7 141.1   -39.1 bm
-3.2 31.6 0.0 286.8   -54.9 bm
-3.2 -6.0 -0.0 292.8   -50.0 bm
-3.2 6.0 0.0 312.5   -50.0 bm
3.2 34.7 0.0 418.4   -15.0 bm
3.2 -6.0 -0.0 424.4   -20.0 bm
3.2 6.0 0.0 447.1   -20.0 bm
3.2 30.5 0.0 541.6   -15.0 bm
3.2 -6.0 -0.0 547.6   -20.0 bm
3.2 6.0 0.0 566.2   -20.0 bm
-3.2 55.2 0.0 629.3   -47.9 bm
-3.2 55.2 0.0 629.3   -42.9 bm
-3.2 6.0 0.0 641.5   -37.9 bm
-3.2 6.0 0.0 678.5   -37.9 bm
14.0 F1  223.1   -16.0 M (100) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 40.0 -38.0 ft0 
59.4 -41.0 hd 8.0 3 dt 11.5 3 dt 21.4 su
87.8 -38.0 hd -9.0 nt 23.6 su
100.3 -35.0 hd 8.0 3 dt 24.9 sd
119.7 -32.0 hd 27.9 sd
131.5 -29.0 hd 8.0 3 dt 21.6 sd
150.6 -23.0 hd 25.4 sd
176.4 -23.0 hd 20.0 sd
202.8 -26.0 hd 20.0 sd
24.0 223.1 -47.0 bar
266.1 -29.0 hd 20.0 sd
290.3 -32.0 hd 23.0 sd
304.2 -35.0 hd 20.0 sd
322.0 -32.0 hd 23.0 sd
339.1 -32.0 Hd 20.0 sd
24.0 366.3 -47.0 bar
386.0 -32.0 hd -9.0 sh 20.0 sd
414.9 -35.0 hd -9.0 nt 20.0 su
431.7 -38.0 hd -9.0 nt 23.0 su
449.6 -35.0 hd 20.0 su
466.3 -35.0 Hd 20.0 su
24.0 494.3 -47.0 bar
514.2 -32.0 hd -9.0 nt 20.0 sd
538.1 -35.0 hd 20.0 su
551.3 -38.0 hd 23.0 su
568.7 -35.0 hd 20.0 su
584.5 -35.0 hd 13.0 3 dt 16.5 3 dt 1 20.0 sfu
613.9 -32.0 hd 3 25.0 sfd
632.8 -29.0 hd 8.0 3 dt -9.0 ft 18.9 sd
651.0 -26.0 hd 21.9 sd
669.8 -26.0 hd 8.0 0 dt -9.0 nt 21.9 sd
688.0 -23.0 hd 24.9 sd
24.0 699.3 -47.0 bar
169.0 -14.9 157.9 -14.9 154.6 -18.3 0 0.2 157.4 -15.9 169.5 -15.9 172.3 -18.5 154.6 -18.5 SL
333.6 -24.2 327.5 -24.2 325.7 -27.5 0 0.2 327.2 -25.2 333.9 -25.2 335.4 -27.7 325.7 -27.7 SL
460.8 -42.8 455.0 -42.8 453.3 -39.5 0 -0.2 454.7 -41.8 461.1 -41.8 462.6 -39.3 453.3 -39.3 SL
579.3 -42.7 573.9 -42.7 572.3 -39.5 0 -0.2 573.7 -41.7 579.5 -41.7 580.9 -39.3 572.3 -39.3 SL
695.0 -15.4 692.3 -15.4 691.4 -18.6 0 0.2 692.1 -16.4 695.2 -16.4 695.8 -18.8 691.4 -18.8 SL
202.8 -21.00 dnb
266.1 -21.00 dnb
613.9 -21.00 dnb
632.8 -21.00 upb
0 -70.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 576 x @beginspecial 0 @llx 0 @lly 544 @urx
76 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo016.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 76
%%Title: jazzmesse-vli-credo016.abc (16)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.5 T
0.75 dup scale


% --- 16 ((notitle)) ---
0 -25.34 T
3.2 53.8 4.0 113.1   -22.5 bm
3.2 53.8 4.0 113.1   -27.5 bm
3.2 6.0 0.4 125.4   -31.6 bm
3.2 6.0 0.4 160.9   -28.9 bm
3.2 18.7 0.0 213.1   -23.4 bm
3.2 18.9 0.0 436.4   -23.4 bm
3.2 -6.0 -0.0 442.4   -28.4 bm
14.0 F3 407.3   -17.4 M (Tutti) gcshow 
14.0 F1  299.3   -19.7 M (105) showb 608.8   -19.7 M (110) showb
0 -53.65 M 699.30 staff
12.0 -53.7  tclef
30.0 -41.7 ft0 35.0 -32.7 ft0 40.0 -44.7 ft0 
59.4 -29.7 hd 8.0 3 dt 11.5 3 dt 1 20.0 sfd
88.6 -35.7 hd -9.0 ft 3 25.0 sfd
109.6 -47.7 hd 8.0 3 dt 25.2 su
127.9 -44.7 hd 23.5 su
145.4 -44.7 hd 8.0 0 dt -9.0 nt 24.9 su
163.4 -41.7 hd 23.2 su
185.0 -41.7 hd 20.0 sd
209.6 -44.7 hd -9.0 nt 21.2 su
228.3 -44.7 hd -9.0 ft 21.2 su
24.0 241.3 -53.7 bar
254.5 -47.7 Hd 9.0 3 dt 20.0 su
284.1 -41.7 r4
24.0 299.3 -53.7 bar
(2) 345.6 -53.7 mrest
24.0 389.8 -53.7 bar
401.1 -41.7 r8
415.3 -44.7 hd 1 20.0 sfu
432.9 -44.7 hd 21.2 su
451.7 -44.7 hd 8.0 0 dt -9.0 nt 21.2 su
471.0 -41.7 hd 1 20.0 sfu
489.1 -41.7 r8
503.2 -41.7 r4
24.0 518.3 -53.7 bar
(2) 564.6 -53.7 mrest
24.0 608.8 -53.7 bar
(3) 655.1 -53.7 mrest
24.0 699.3 -53.7 bar
53.3 -21.8 45.5 -21.8 43.2 -25.1 0 0.2 45.2 -22.8 53.6 -22.8 55.6 -25.3 43.2 -25.3 SL
178.8 -33.7 171.1 -33.7 168.7 -37.0 0 0.2 170.7 -34.7 179.2 -34.7 181.1 -37.2 168.7 -37.2 SL
427.3 -52.4 420.9 -52.4 419.0 -49.2 0 -0.2 420.6 -51.4 427.6 -51.4 429.2 -49.0 419.0 -49.0 SL
471.0 -50.65 emb
0 -76.65 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1836 6215 a Fe(7)p eop end
%%Page: 8 8
TeXDict begin 8 7 bop -387 386 a @beginspecial 0 @llx
0 @lly 544 @urx 95 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo017.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 95
%%Title: jazzmesse-vli-credo017.abc (17)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 95.2 T
0.75 dup scale


% --- 17 ((notitle)) ---
0 -25.34 T
-3.2 20.5 -3.4 268.5   -73.2 bm
-3.2 6.0 -1.0 283.0   -70.6 bm
3.2 18.4 0.0 376.2   -37.2 bm
3.2 -6.0 -0.0 382.2   -42.2 bm
14.0 F3 54.0   -17.4 M ( Coro: T,B:) gcshow 
481.9   -17.4 M (divisi) gcshow 
14.0 F1  326.8   -36.4 M (115) showb
0 -67.40 M 699.30 staff
12.0 -67.4  tclef
30.0 -55.4 ft0 35.0 -46.4 ft0 40.0 -58.4 ft0 
62.0 -55.4 r4
80.0 -49.4 r16
97.0 -67.4 sbclef
127.5 -52.4 shd 8.0 0 dt -16.0 nt 1 29.0 sfu 127.5 -43.4 shd 8.0 3 dt -9.0 nt
158.1 -52.4 shd -9.0 ft 1 32.0 sfu 158.1 -40.4 shd
176.1 -55.4 r8
191.5 -55.4 r4
219.0 -67.4 stclef
24.0 233.2 -67.4 bar
253.4 -52.4 hd -9.0 ft 20.0 sd
272.0 -52.4 hd 8.0 0 dt 20.8 sd
292.5 -55.4 hd 21.2 sd
306.5 -55.4 r2
24.0 326.8 -67.4 bar
339.1 -55.4 r8
354.2 -58.4 hd 1 20.0 sfu
372.7 -58.4 hd 21.2 su
391.1 -58.4 hd 8.0 0 dt -9.0 nt 21.2 su
412.9 -55.4 hd 1 20.0 sfu
430.9 -55.4 r8
446.3 -55.4 r4
24.0 462.6 -67.4 bar
474.8 -55.4 r8
489.9 -40.4 hd 1 35.0 sfd 489.9 -55.4 hd 489.9 -49.4 hd
505.4 -55.4 r4
524.1 -55.4 r4
541.3 -55.4 r8
567.3 -43.4 hd -9.0 sh 1 35.0 sfd 567.3 -58.4 hd 567.3 -52.4 hd -16.0 sh
24.0 581.0 -67.4 bar
593.2 -55.4 r8
608.3 -40.4 hd 1 35.0 sfd 608.3 -55.4 hd 608.3 -49.4 hd
623.7 -55.4 r4
642.5 -55.4 r4
659.6 -55.4 r8
685.7 -43.4 hd -9.0 sh 1 35.0 sfd 685.7 -58.4 hd 685.7 -52.4 hd -16.0 sh
24.0 699.3 -67.4 bar
366.9 -66.2 360.0 -66.2 357.9 -63.0 0 -0.2 359.6 -65.2 367.2 -65.2 369.0 -62.8 357.9 -62.8 SL
13.0 F2 (Cre) 116.8 -96.4 wd 140.9 -96.4 whf (do..) 147.2 -96.4 wd 
62.0 -79.4 r1 -73.4 hl
412.9 -64.40 emb
489.9 -36.40 dnb
567.3 -35.40 upb
608.3 -36.40 dnb
685.7 -35.40 upb
0 -101.60 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1028 x @beginspecial 0 @llx 0 @lly 544 @urx
122 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo018.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 122
%%Title: jazzmesse-vli-credo018.abc (18)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 122.1 T
0.75 dup scale


% --- 18 ((notitle)) ---
0 -25.34 T
3.2 27.3 0.0 539.6   -20.2 bm
3.2 17.3 0.0 539.6   -25.2 bm
3.2 6.0 0.0 551.0   -30.2 bm
14.0 F3 465.1   -17.4 M (Solo) gcshow 
14.0 F1  254.5   -25.4 M (120) showb
0 -114.40 M 699.30 staff
0 -56.40 M 699.30 staff
82.0 0.0 -114.4 bar
82.0 0.0 -32.4 brace
12.0 -56.4  tclef
30.0 -44.4 ft0 35.0 -35.4 ft0 40.0 -47.4 ft0 
58.5 -44.4 r8
71.3 -29.4 hd 1 35.0 sfd 71.3 -44.4 hd 71.3 -38.4 hd
84.4 -44.4 r4
99.5 -44.4 r4
113.7 -44.4 r8
139.3 -32.4 hd -9.0 sh 1 35.0 sfd 139.3 -47.4 hd 139.3 -41.4 hd -16.0 sh
82.0 151.0 -114.4 bar
162.0 -44.4 r8
174.8 -29.4 hd 1 35.0 sfd 174.8 -44.4 hd 174.8 -38.4 hd
187.9 -44.4 r4
203.0 -44.4 r4
217.2 -44.4 r8
242.8 -32.4 hd -9.0 sh 1 35.0 sfd 242.8 -47.4 hd 242.8 -41.4 hd -16.0 sh
82.0 254.5 -114.4 bar
265.5 -44.4 r8
278.3 -29.4 hd 1 35.0 sfd 278.3 -44.4 hd 278.3 -38.4 hd
291.4 -44.4 r4
306.5 -44.4 r4
320.6 -44.4 r8
346.3 -32.4 hd -9.0 sh 1 35.0 sfd 346.3 -47.4 hd 346.3 -41.4 hd -16.0 sh
82.0 358.0 -114.4 bar
369.0 -44.4 r8
381.8 -29.4 hd 1 35.0 sfd 381.8 -44.4 hd 381.8 -38.4 hd
394.9 -44.4 r4
410.0 -44.4 r4
424.1 -44.4 r8
449.8 -32.4 hd -9.0 sh 1 35.0 sfd 449.8 -47.4 hd 449.8 -41.4 hd -16.0 sh
82.0 461.5 -114.4 bar
473.1 -38.4 hd 20.0 sd
499.0 -44.4 hd 20.0 sd
514.1 -50.4 hd 20.0 su
536.1 -47.4 hd 8.0 0 dt -9.0 nt 27.2 su
553.5 -44.4 hd 24.2 su
563.5 -47.4 hd 27.2 su
82.0 575.2 -114.4 bar
587.6 -50.4 Hd 20.0 su
632.2 -50.4 hd 1 20.0 sfu
648.9 -44.4 r8
661.9 -44.4 r4
82.0 699.3 -114.4 bar
620.8 -59.2 599.0 -59.2 592.4 -55.5 0 -0.2 597.9 -58.2 621.9 -58.2 627.4 -55.3 592.4 -55.3 SL
12.0 -114.4  tclef
30.0 -102.4 ft0 35.0 -93.4 ft0 40.0 -105.4 ft0 
58.5 -102.4 r8
71.3 -87.4 hd 1 35.0 sfd 71.3 -102.4 hd 71.3 -96.4 hd
84.4 -102.4 r4
99.5 -102.4 r4
113.7 -102.4 r8
139.3 -90.4 hd -9.0 sh 1 35.0 sfd 139.3 -105.4 hd 139.3 -99.4 hd -16.0 sh
162.0 -102.4 r8
174.8 -87.4 hd 1 35.0 sfd 174.8 -102.4 hd 174.8 -96.4 hd
187.9 -102.4 r4
203.0 -102.4 r4
217.2 -102.4 r8
242.8 -90.4 hd -9.0 sh 1 35.0 sfd 242.8 -105.4 hd 242.8 -99.4 hd -16.0 sh
265.5 -102.4 r8
278.3 -87.4 hd 1 35.0 sfd 278.3 -102.4 hd 278.3 -96.4 hd
291.4 -102.4 r4
306.5 -102.4 r4
320.6 -102.4 r8
346.3 -90.4 hd -9.0 sh 1 35.0 sfd 346.3 -105.4 hd 346.3 -99.4 hd -16.0 sh
369.0 -102.4 r8
381.8 -87.4 hd 1 35.0 sfd 381.8 -102.4 hd 381.8 -96.4 hd
394.9 -102.4 r4
410.0 -102.4 r4
424.1 -102.4 r8
449.8 -90.4 hd -9.0 sh 1 35.0 sfd 449.8 -105.4 hd 449.8 -99.4 hd -16.0 sh
473.1 -102.4 r8
485.9 -87.4 hd 1 35.0 sfd 485.9 -102.4 hd 485.9 -96.4 hd
499.0 -102.4 r4
514.1 -102.4 r4
536.1 -102.4 r8
563.5 -90.4 hd -9.0 sh 1 35.0 sfd 563.5 -105.4 hd 563.5 -99.4 hd -16.0 sh
587.6 -102.4 r8
600.5 -87.4 hd 1 35.0 sfd 600.5 -102.4 hd 600.5 -96.4 hd
613.5 -102.4 r4
632.2 -102.4 r4
661.9 -102.4 r8
687.6 -90.4 hd -9.0 sh 1 35.0 sfd 687.6 -105.4 hd 687.6 -99.4 hd -16.0 sh
473.1 -30.40 dnb
536.1 -18.15 upb
553.5 -17.40 dnb
563.5 -18.15 upb
0 -137.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 637 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-credo019.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vli-credo019.abc (19)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:41 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 74.8 T
0.75 dup scale


% --- 19 ((notitle)) ---
0 -25.34 T
-3.2 27.2 -3.7 232.3   -57.1 bm
-3.2 6.0 -0.8 253.5   -54.9 bm
3.2 18.8 0.0 385.9   -21.2 bm
3.2 -6.0 -0.0 391.9   -26.2 bm
14.0 F3 194.5   -17.4 M (Tutti) gcshow 
14.0 F1  112.6   -20.4 M (125) showb
0 -51.40 M 699.30 staff
12.0 -51.4  tclef
30.0 -39.4 ft0 35.0 -30.4 ft0 40.0 -42.4 ft0 
61.2 -39.4 r1
24.0 112.6 -51.4 bar
132.2 -39.4 r1
24.0 183.5 -51.4 bar
202.5 -36.4 hd -9.0 ft 20.0 sd
235.8 -36.4 hd 8.0 0 dt 20.7 sd
263.0 -39.4 hd 21.3 sd
283.2 -39.4 r2
24.0 320.9 -51.4 bar
333.6 -39.4 r8
358.2 -42.4 hd 1 20.0 sfu
382.4 -42.4 hd 21.2 su
401.2 -42.4 hd 8.0 0 dt -9.0 nt 21.2 su
430.1 -39.4 hd 13.0 3 dt 1 20.0 sfu
463.7 -39.4 hd 13.0 3 dt -9.0 nt 1 20.0 sfu
495.5 -36.4 hd 1 20.0 sfd
24.0 517.2 -51.4 bar
537.8 -33.4 Hd 9.0 3 dt -9.0 ft 20.0 sd
591.6 -39.4 r4
24.0 620.3 -51.4 bar
643.1 -33.4 HD -12.0 nt 643.1 -39.4 HD
24.0 699.3 -51.4 fbar2
375.4 -50.4 365.2 -50.4 362.2 -47.1 0 -0.2 364.8 -49.4 375.9 -49.4 378.4 -46.9 362.2 -46.9 SL
643.1 -25.40 dnb
0 -74.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1513 2723 a Fc(Sanctus)-387 3495 y @beginspecial
0 @llx 0 @lly 516 @urx 86 @ury 5160 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 86
%%Title: jazzmesse-vli-sanctus001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 86.0 T
0.75 dup scale
37.8 0 T


% --- 1 ((notitle)) ---
0 -25.34 T
-3.2 20.3 3.8 301.1   -65.2 bm
3.2 39.1 -7.6 390.0   -23.8 bm
117.6   -33.8 104.8   -32.4 101.0   -36.7 0 0.2 104.2   -33.4 118.2   -34.8 121.5   -39.0 101.0   -36.9 SL
187.6   -33.8 174.4   -32.4 170.5   -36.7 0 0.2 173.8   -33.4 188.2   -34.8 191.6   -39.0 170.5   -36.9 SL
253.9   -32.8 229.7   -29.9 222.4   -34.2 0 0.2 228.5   -30.9 255.1   -33.8 261.2   -38.6 222.4   -34.4 SL
321.3   -23.3 312.2   -18.7 309.4   -22.3 0 0.2 311.7   -19.7 321.7   -24.3 324.1   -29.1 309.4   -22.5 SL
358.5   -25.0 347.1   -15.7 343.6   -19.2 0 0.2 346.5   -16.7 359.0   -26.0 361.9   -33.0 343.6   -19.4 SL
414.1   -74.1  394.1   -61.3 388.1   -50.5 0 -0.2 393.1   -60.3 415.0   -73.1  420.1   -68.9  388.1   -50.3 SL
453.0   -61.0 444.0   -62.4 441.3   -58.2 0 -0.2 443.6   -61.4 453.4   -60.0 455.7   -55.8 441.3   -57.9 SL
528.1   -72.6  516.1   -71.1  512.5   -66.1 0 -0.2 515.5   -70.1  528.7   -71.6  531.7   -68.1  512.5   -65.9 SL
14.0 F1  375.3   -21.0 M (5) showb
15.0 F2 39.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 72) show
0 -58.00 M 661.50 staff
12.0 -58.0  tclef
30.0 -46.0 ft0 
51.0 -58.0 csig
78.8 -43.0 Hd 20.0 sd
98.5 -43.0 hd 8.0 0 dt 20.0 sd
122.4 -46.0 hd 1 20.0 sfd
24.0 135.2 -58.0 bar
147.6 -43.0 Hd 20.0 sd
168.0 -43.0 hd 8.0 0 dt 20.0 sd
192.5 -46.0 hd 1 20.0 sfd
24.0 205.1 -58.0 bar
217.6 -43.0 Hd 20.0 sd
239.8 -43.0 hd 8.0 0 dt 20.0 sd
263.0 -46.0 hd 1 20.0 sfd
24.0 275.1 -58.0 bar
287.2 -55.0 hd 20.0 su
304.6 -46.0 hd 19.2 sd
324.9 -40.0 hd -9.0 ft 21.4 sd
338.7 -34.0 hd 8.0 3 dt 20.0 sd
362.9 -40.0 hd 1 20.0 sfd
24.0 375.3 -58.0 bar
386.5 -43.0 hd 19.2 su
399.9 -49.0 hd 22.6 su
413.3 -55.0 hd 26.0 su
425.6 -64.0 hd 32.6 su -64.0 hl
439.1 -52.0 hd 20.0 su
456.4 -49.0 hd 20.0 su
24.0 470.9 -58.0 bar
483.8 -55.0 Hd 20.0 su
511.6 -58.0 hd -9.0 ft 20.0 su
534.1 -61.0 hd -9.0 ft 20.0 su
24.0 549.2 -58.0 bar
570.4 -64.0 Hd 20.0 su -64.0 hl
591.5 -52.0 Hd 20.0 su
24.0 609.4 -58.0 bar
621.8 -55.0 Hd 20.0 su
642.8 -64.0 Hd 20.0 su -64.0 hl
24.0 661.5 -58.0 bar
233.2 -35.0 224.2 -35.0 221.5 -38.4 0 0.2 223.7 -36.0 233.6 -36.0 235.9 -38.6 221.5 -38.6 SL
(p) 78.8 -89.28 pf
78.8 -32.00 dnb
-37.4 259.0 -89.28 cresc
287.2 -32.00 upb
304.6 -32.00 dnb
338.7 -30.00 upb
42.3 487.8 -89.28 cresc
(p) 570.4 -89.28 pf
570.4 -32.00 dnb
0 -89.28 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 677 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vli-sanctus002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.6 T
0.75 dup scale


% --- 2 ((notitle)) ---
0 -25.34 T
3.2 46.3 0.0 396.4   -15.8 bm
3.2 38.2 0.0 618.9   -26.0 bm
235.3   -57.6  222.0   -56.2 218.0   -51.2 0 -0.2 221.3   -55.2 235.9   -56.6 239.3   -53.1 218.0   -51.0 SL
310.8   -50.2 298.3   -51.6 294.6   -47.3 0 -0.2 297.7   -50.6 311.4   -49.2 314.6   -45.0 294.6   -47.1 SL
367.9   -10.9 350.7   -14.5 345.5   -20.1 0 0.2 349.9   -15.5 368.8   -11.9 373.1   -15.1 345.5   -20.3 SL
429.7   -54.4 404.0   -55.8 396.3   -47.7 0 -0.2 402.8   -54.8 431.0   -53.4 437.4   -45.4 396.3   -47.5 SL
508.4   -18.0 484.5    -6.6 477.3   -10.8 0 0.2 483.3    -7.6 509.5   -19.0 515.6   -27.6 477.3   -11.0 SL
577.6   -53.6 551.6   -53.6 543.9   -48.6 0 -0.2 550.4   -52.6 578.8   -52.6 585.3   -48.4 543.9   -48.4 SL
645.5   -62.7  623.6   -62.7  617.0   -54.6 0 -0.2 622.5   -61.7  646.6   -61.7  652.1   -54.4 617.0   -54.4 SL
681.7   -50.0 673.1   -51.4 670.4   -47.1 0 -0.2 672.6   -50.4 682.2   -49.0 684.4   -44.8 670.4   -46.9 SL
14.0 F1  94.9   -16.0 M (10) showb 451.4    -8.1 M (15) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 
49.8 -53.0 Hd 20.0 su -53.0 hl
77.6 -53.0 Hd -9.0 sh 20.0 su -53.0 hl
24.0 94.9 -47.0 bar
107.1 -53.0 Hd 20.0 su -53.0 hl
129.6 -59.0 Hd 24.0 su -53.0 hl -59.0 hl
24.0 147.1 -47.0 bar
161.8 -35.0 r1
24.0 184.3 -47.0 bar
196.6 -35.0 r2
217.0 -44.0 hd 8.0 0 dt 20.0 su
241.8 -47.0 hd 1 20.0 sfu
24.0 258.4 -47.0 bar
270.9 -50.0 Hd 20.0 su
292.1 -41.0 hd 8.0 3 dt 20.0 su
315.5 -38.0 hd 1 20.0 sfu
24.0 332.4 -47.0 bar
344.1 -35.0 hd 8.0 3 dt 20.0 sd
375.2 -38.0 hd -9.0 ft 1 20.0 sfu
392.9 -41.0 hd 25.2 su
405.5 -38.0 hd 22.2 su
419.3 -35.0 hd 19.2 su
439.3 -35.0 hd -9.0 nt 19.2 su
24.0 451.4 -47.0 bar
471.5 -32.0 Hd 20.0 sd
493.7 -32.0 hd 8.0 0 dt 20.0 sd
517.4 -35.0 hd 1 20.0 sfd
24.0 529.5 -47.0 bar
542.1 -38.0 Hd 20.0 su
563.4 -38.0 hd 8.0 0 dt 20.0 su
587.1 -41.0 hd 1 20.0 sfu
24.0 603.6 -47.0 bar
615.4 -44.0 hd 18.0 su
628.5 -50.0 hd 24.0 su
641.1 -53.0 hd 27.0 su -53.0 hl
653.7 -44.0 hd 18.0 su
668.3 -41.0 hd 20.0 su
685.0 -38.0 hd 20.0 su
24.0 699.3 -47.0 bar
487.1 -24.0 478.1 -24.0 475.3 -27.4 0 0.2 477.6 -25.0 487.5 -25.0 489.8 -27.6 475.3 -27.6 SL
557.0 -45.9 548.5 -45.9 545.9 -42.6 0 -0.2 548.1 -44.9 557.4 -44.9 559.5 -42.4 545.9 -42.4 SL
217.0 -21.00 upb
-39.9 266.9 -76.80 cresc
82.2 379.2 -76.80 cresc
471.5 -21.00 dnb
(mf) 471.5 -76.80 pf
0 -76.80 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 635 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-sanctus003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 72.3 T
0.75 dup scale


% --- 3 ((notitle)) ---
0 -25.34 T
3.2 28.5 6.5 87.4   -19.3 bm
107.1   -45.5 93.2   -52.1 89.1   -48.9 0 -0.2 92.6   -51.1 107.8   -44.5 111.3   -39.1 89.1   -48.7 SL
14.0 F1  245.8   -16.0 M (20) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 
49.8 -44.0 Hd 20.0 su
70.4 -35.0 r8
83.9 -44.0 hd 24.7 su
98.7 -38.0 hd 22.1 su
112.4 -32.0 hd 19.2 su
24.0 125.3 -47.0 bar
145.2 -29.0 hd 1 20.0 sfd
159.9 -38.0 hd 20.0 su
178.4 -38.0 hd 1 20.0 sfu
195.6 -35.0 r8
211.0 -38.0 hd 20.0 su
228.4 -38.0 hd 1 20.0 sfu
24.0 245.8 -47.0 bar
256.6 -35.0 r8
272.0 -44.0 hd 20.0 su
289.5 -41.0 hd 1 20.0 sfu
306.7 -35.0 r8
322.5 -38.0 hd 20.0 su
340.4 -38.0 hd 1 20.0 sfu
24.0 357.0 -47.0 bar
367.6 -35.0 r8
383.4 -44.0 hd 20.0 su
401.3 -44.0 hd 1 20.0 sfu
418.1 -35.0 r8
433.5 -47.0 hd 20.0 su
451.1 -38.0 hd 1 20.0 sfu
24.0 468.1 -47.0 bar
479.6 -35.0 r8
494.3 -38.0 hd 1 20.0 sfu
511.5 -35.0 r8
532.0 -41.0 hd -9.0 sh 1 20.0 sfu
550.4 -35.0 r8
565.7 -38.0 hd 8.0 0 dt 20.0 su
24.0 588.1 -47.0 bar
599.2 -35.0 r8
613.6 -41.0 hd 20.0 su
631.9 -41.0 hd 1 20.0 sfu
649.3 -35.0 r8
664.0 -41.0 hd 20.0 su
681.8 -41.0 hd 1 20.0 sfu
24.0 699.3 -47.0 bar
83.9 -17.31 dnb
(mf) 145.2 -71.00 pf
145.2 -21.00 upb
159.9 -44.00 emb
159.9 -16.00 dnb
178.4 -44.00 emb
211.0 -44.00 emb
211.0 -16.00 dnb
228.4 -44.00 emb
272.0 -51.00 emb
289.5 -50.00 emb
322.5 -44.00 emb
340.4 -44.00 emb
383.4 -51.00 emb
401.3 -51.00 emb
433.5 -54.00 emb
451.1 -44.00 emb
494.3 -44.00 emb
494.3 -16.00 dnb
532.0 -50.00 emb
532.0 -19.00 upb
565.7 -16.00 dnb
613.6 -50.00 emb
631.9 -50.00 emb
664.0 -50.00 emb
681.8 -50.00 emb
0 -71.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 669 x @beginspecial 0 @llx 0 @lly 544 @urx
76 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 76
%%Title: jazzmesse-vli-sanctus004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 75.7 T
0.75 dup scale


% --- 4 ((notitle)) ---
0 -25.34 T
-3.2 20.9 3.8 622.2   -55.8 bm
429.7   -24.3 415.7   -22.9 411.4   -27.3 0 0.2 415.0   -23.9 430.4   -25.3 433.9   -29.6 411.4   -27.5 SL
503.3   -24.4 489.7   -22.9 485.6   -27.3 0 0.2 489.0   -23.9 504.0   -25.4 507.4   -29.6 485.6   -27.5 SL
572.9   -23.3 547.2   -20.4 539.6   -24.7 0 0.2 546.0   -21.4 574.1   -24.3 580.5   -29.1 539.6   -24.9 SL
642.9   -13.8 633.4    -9.3 630.6   -12.9 0 0.2 632.9   -10.3 643.4   -14.8 645.8   -19.7 630.6   -13.1 SL
681.7   -15.6 670.1    -6.3 666.7    -9.8 0 0.2 669.6    -7.3 682.3   -16.6 685.2   -23.6 666.7   -10.0 SL
14.0 F1  135.9   -17.6 M (25) showb 595.1   -12.6 M (30) showb
0 -48.59 M 699.30 staff
12.0 -48.6  tclef
30.0 -36.6 ft0 
49.0 -36.6 r8
63.7 -45.6 hd 20.0 su
79.9 -45.6 hd 1 20.0 sfu
98.7 -36.6 r8
113.7 -51.6 hd 8.0 0 dt 20.0 su
24.0 135.9 -48.6 bar
146.6 -36.6 r8
167.4 -48.6 hd -9.0 ft 20.0 su
185.7 -42.6 hd 1 20.0 sfu
202.8 -36.6 r8
224.6 -39.6 hd -9.0 ft 20.0 su
248.1 -42.6 hd -9.0 ft 1 20.0 sfu
24.0 265.5 -48.6 bar
276.2 -36.6 r8
291.5 -42.6 hd 26.0 su 291.5 -36.6 hd
308.8 -42.6 hd 1 26.0 sfu 308.8 -36.6 hd
326.9 -36.6 r4
351.1 -33.6 hd 23.0 sd 344.1 -36.6 hd
24.0 366.3 -48.6 bar
387.9 -33.6 Hd 20.0 sd
408.9 -33.6 hd 8.0 0 dt 20.0 sd
435.0 -36.6 hd 1 20.0 sfd
24.0 447.8 -48.6 bar
461.3 -33.6 Hd 20.0 sd
483.1 -33.6 hd 8.0 0 dt 20.0 sd
508.4 -36.6 hd 1 20.0 sfd
24.0 521.5 -48.6 bar
534.7 -33.6 Hd 20.0 sd
557.9 -33.6 hd 8.0 0 dt 20.0 sd
582.4 -36.6 hd 1 20.0 sfd
24.0 595.1 -48.6 bar
607.2 -45.6 hd 20.0 su
625.7 -36.6 hd 19.2 sd
646.6 -30.6 hd -9.0 ft 21.4 sd
661.7 -24.6 hd 8.0 3 dt 20.0 sd
686.2 -30.6 hd 1 20.0 sfd
24.0 699.3 -48.6 bar
551.1 -25.6 541.5 -25.6 538.6 -28.9 0 0.2 541.0 -26.6 551.6 -26.6 554.0 -29.1 538.6 -29.1 SL
63.7 -52.59 emb
79.9 -52.59 emb
113.7 -22.59 dnb
167.4 -55.59 emb
185.7 -51.59 emb
224.6 -45.59 emb
248.1 -51.59 emb
291.5 -51.59 emb
308.8 -51.59 emb
39.6 301.5 -75.59 cresc
351.1 -27.59 emb
351.1 -22.59 upb
(p) 387.9 -75.59 pf
-39.8 578.4 -75.59 cresc
607.2 -22.59 upb
625.7 -22.59 dnb
661.7 -20.59 upb
0 -75.59 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 685 x @beginspecial 0 @llx 0 @lly 544 @urx
78 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 78
%%Title: jazzmesse-vli-sanctus005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 77.7 T
0.75 dup scale


% --- 5 ((notitle)) ---
0 -25.34 T
3.2 36.4 -7.4 52.0   -12.8 bm
3.2 44.2 0.0 646.3   -15.8 bm
73.9   -62.9  55.5   -50.2 50.0   -39.4 0 -0.2 54.6   -49.2 74.8   -61.9  79.5   -57.8  50.0   -39.2 SL
110.3   -49.9 102.4   -51.3 100.0   -47.1 0 -0.2 102.0   -50.3 110.7   -48.9 112.6   -44.8 100.0   -46.9 SL
182.1   -61.6  169.5   -60.2  165.7   -55.2 0 -0.2 168.9   -59.2  182.8   -60.6  185.9   -57.1  165.7   -55.0 SL
491.6   -57.6  479.5   -56.1 475.9   -51.2 0 -0.2 478.9   -55.1 492.2   -56.6 495.3   -53.1 475.9   -51.0 SL
563.7   -50.1 551.8   -51.6 548.3   -47.2 0 -0.2 551.3   -50.6 564.3   -49.1 567.3   -45.0 548.3   -47.1 SL
618.8   -11.0 602.2   -14.5 597.2   -20.1 0 0.2 601.4   -15.5 619.6   -12.0 623.8   -15.1 597.2   -20.3 SL
678.0   -54.2 653.5   -55.7 646.1   -47.7 0 -0.2 652.3   -54.7 679.1   -53.2 685.3   -45.4 646.1   -47.5 SL
14.0 F1  306.6   -16.0 M (35) showb 584.5   -16.0 M (40) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 
48.5 -32.0 hd 19.2 su
60.6 -38.0 hd 22.7 su
73.1 -44.0 hd 26.2 su
84.9 -53.0 hd 32.8 su -53.0 hl
97.9 -41.0 hd 20.0 su
113.3 -38.0 hd 20.0 su
24.0 127.3 -47.0 bar
139.7 -44.0 Hd 20.0 su
164.7 -47.0 hd -9.0 ft 20.0 su
188.4 -50.0 hd -9.0 ft 20.0 su
24.0 201.6 -47.0 bar
223.3 -53.0 Hd 20.0 su -53.0 hl
242.1 -41.0 Hd 20.0 su
24.0 258.3 -47.0 bar
271.3 -44.0 Hd 20.0 su
289.9 -53.0 Hd 20.0 su -53.0 hl
24.0 306.6 -47.0 bar
319.1 -53.0 Hd 20.0 su -53.0 hl
344.9 -53.0 Hd -9.0 sh 20.0 su -53.0 hl
24.0 361.7 -47.0 bar
373.8 -53.0 Hd 20.0 su -53.0 hl
394.1 -59.0 Hd 24.0 su -53.0 hl -59.0 hl
24.0 409.9 -47.0 bar
423.8 -35.0 r1
24.0 444.5 -47.0 bar
456.5 -35.0 r2
475.0 -44.0 hd 8.0 0 dt 20.0 su
497.7 -47.0 hd 1 20.0 sfu
24.0 514.5 -47.0 bar
526.7 -50.0 Hd 20.0 su
545.9 -41.0 hd 8.0 3 dt 20.0 su
568.2 -38.0 hd 1 20.0 sfu
24.0 584.5 -47.0 bar
595.9 -35.0 hd 8.0 3 dt 20.0 sd
625.8 -38.0 hd -9.0 ft 1 20.0 sfu
642.8 -41.0 hd 25.2 su
656.1 -38.0 hd 22.2 su
667.8 -35.0 hd 19.2 su
687.1 -35.0 hd -9.0 nt 19.2 su
24.0 699.3 -47.0 bar
40.7 143.7 -78.32 cresc
(p) 223.3 -78.32 pf
223.3 -21.00 dnb
475.0 -21.00 upb
-37.7 522.7 -78.32 cresc
63.5 629.8 -78.32 cresc
0 -78.32 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1765 6215 a Fe(8)p eop end
%%Page: 9 9
TeXDict begin 9 8 bop -317 444 a @beginspecial 0 @llx
0 @lly 544 @urx 102 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 102
%%Title: jazzmesse-vli-sanctus006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 101.7 T
0.75 dup scale


% --- 6 ((notitle)) ---
0 -25.34 T
3.2 40.0 0.0 206.6   -41.0 bm
95.2   -36.8 71.1   -33.9 63.8   -38.2 0 0.2 69.9   -34.9 96.4   -37.8 102.5   -42.6 63.8   -38.4 SL
164.9   -68.6 138.8   -68.6 131.1   -63.6 0 -0.2 137.6   -67.6 166.1   -67.6 172.6   -63.4 131.1   -63.4 SL
234.6   -77.8  211.6   -77.8  204.7   -69.6 0 -0.2 210.5   -76.8  235.8   -76.8  241.5   -69.4 204.7   -69.4 SL
270.9   -65.0 261.9   -66.4 259.2   -62.2 0 -0.2 261.5   -65.4 271.3   -64.0 273.6   -59.8 259.2   -61.9 SL
14.0 F3 550.6   -79.4  M (\(Osanna\)) gcshow 550.6   -94.8  M (\(senza sordino\)) gcshow 
14.0 F1  342.9   -31.0 M (45) showb 602.8   -31.0 M (50) showb
15.0 F2 494.5 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 168) show
0 -62.00 M 699.30 staff
12.0 -62.0  tclef
30.0 -50.0 ft0 
59.0 -47.0 Hd 20.0 sd
80.0 -47.0 hd 8.0 0 dt 20.0 sd
104.3 -50.0 hd 1 20.0 sfd
24.0 116.9 -62.0 bar
129.3 -53.0 Hd 20.0 su
150.1 -53.0 hd 8.0 0 dt 20.0 su
174.4 -56.0 hd 1 20.0 sfu
24.0 191.8 -62.0 bar
203.1 -59.0 hd 18.0 su
215.8 -65.0 hd 24.0 su
229.8 -68.0 hd 27.0 su -68.0 hl
243.1 -59.0 hd 18.0 su
257.0 -56.0 hd 20.0 su
274.3 -53.0 hd 20.0 su
24.0 288.6 -62.0 bar
301.2 -59.0 Hd 20.0 su
324.7 -47.0 Hd 26.0 sd 324.7 -53.0 Hd
24.0 342.9 -62.0 bar
355.4 -47.0 Hd 26.0 sd 355.4 -53.0 Hd
383.9 -53.0 Hd 23.0 su 391.7 -50.0 Hd -17.8 nt
24.0 408.6 -62.0 bar
423.6 -47.0 HD 423.6 -53.0 HD
24.0 446.4 -62.0 bar
460.9 -50.0 r1
24.0 485.2 -62.0 fbar1 495.2 -62.0 rdots
(5) (8) 506.5 -62.0 tsig
(2) 558.6 -62.0 mrest
24.0 602.8 -62.0 bar
616.8 -50.0 r1
24.0 640.6 -62.0 bar
652.2 -50.0 r4 8.0 3 dt
683.9 -53.0 hd 20.0 su
24.0 699.3 -62.0 bar
73.6 -39.1 65.3 -39.1 62.8 -42.4 0 0.2 64.9 -40.1 74.0 -40.1 76.1 -42.6 62.8 -42.6 SL
143.8 -60.9 135.6 -60.9 133.1 -57.6 0 -0.2 135.2 -59.9 144.2 -59.9 146.2 -57.4 133.1 -57.4 SL
(mf) 59.0 -89.00 pf
20.0 40.0 -89.00 cresc
301.2 -36.00 dnb
460.9 -36.00 hld
(f) 683.9 -89.00 pf
683.9 -31.00 upb
0 -110.20 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 527 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-sanctus007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale


% --- 7 ((notitle)) ---
0 -25.34 T
14.0 F1  206.8   -16.0 M (55) showb 475.4   -16.0 M (60) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 
48.5 -41.0 hd 20.0 su
64.3 -38.0 hd 1 20.0 sfu
82.6 -44.0 hd 20.0 su
24.0 96.9 -47.0 bar
107.8 -44.0 hd 1 20.0 sfu
125.5 -50.0 hd 20.0 su
142.1 -50.0 hd 20.0 su
24.0 157.0 -47.0 bar
168.7 -41.0 hd 20.0 su
184.7 -41.0 hd 8.0 3 dt 20.0 su
24.0 206.8 -47.0 bar
219.1 -41.0 hd 8.0 3 dt 20.0 su
243.2 -41.0 hd 20.0 su
24.0 279.4 -47.0 bar
(2) 325.3 -47.0 mrest
24.0 369.2 -47.0 bar
381.3 -35.0 r4 8.0 3 dt
405.6 -29.0 hd 20.0 sd
24.0 419.4 -47.0 bar
431.0 -32.0 hd 20.0 sd
447.3 -29.0 hd 1 20.0 sfd
460.8 -38.0 hd 20.0 su
24.0 475.4 -47.0 bar
486.5 -44.0 hd 1 20.0 sfu
505.4 -41.0 hd 20.0 su
521.1 -38.0 hd 20.0 su
24.0 535.5 -47.0 bar
546.9 -44.0 hd 20.0 su
563.1 -44.0 hd 8.0 0 dt 20.0 su
24.0 588.4 -47.0 dbar
(3) (4) 603.6 -47.0 tsig
(3) 655.4 -47.0 mrest
24.0 699.3 -47.0 bar
209.9 -49.4 193.9 -49.4 189.0 -45.9 0 -0.2 193.1 -48.4 210.7 -48.4 214.8 -45.7 189.0 -45.7 SL
236.2 -49.0 226.1 -49.0 223.1 -45.7 0 -0.2 225.7 -48.0 236.7 -48.0 239.3 -45.5 223.1 -45.5 SL
142.1 -21.00 dnb
263.2 -20.00 brth
405.6 -21.00 dnb
0 -70.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 561 x @beginspecial 0 @llx 0 @lly 544 @urx
76 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 76
%%Title: jazzmesse-vli-sanctus008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 75.6 T
0.75 dup scale


% --- 8 ((notitle)) ---
0 -25.34 T
-3.2 30.4 -4.0 125.4   -48.6 bm
-3.2 30.5 -4.9 171.4   -50.8 bm
3.2 45.9 3.6 291.8    -7.6 bm
-3.2 29.2 3.9 504.9   -52.6 bm
14.0 F1 55.7   -18.4 M (65) showb 496.0   -17.4 M (70) showb
0 -48.41 M 699.30 staff
12.0 -48.4  tclef
30.0 -36.4 ft0 
(2) (4) 51.0 -48.4 tsig
69.7 -36.4 r1
24.0 98.9 -48.4 bar
(3) (4) 112.2 -48.4 tsig
128.9 -24.4 hd 24.2 sd
143.4 -30.4 hd 20.1 sd
159.3 -33.4 hd 19.2 sd
174.9 -24.4 hd 26.3 sd
189.5 -33.4 hd 19.7 sd
205.4 -36.4 hd 19.2 sd
24.0 219.3 -48.4 bar
(7) (8) 232.6 -48.4 tsig
249.8 -39.4 hd 20.0 su
269.9 -39.4 hd 1 20.0 sfu
288.3 -42.4 hd 34.8 su
304.3 -39.4 hd 33.1 su
318.8 -24.4 hd 19.2 su
334.2 -39.4 hd 35.4 su
24.0 348.2 -48.4 bar
(3) (4) 361.4 -48.4 tsig
378.1 -33.4 hd 8.0 0 dt 20.0 sd
405.5 -30.4 hd 8.0 3 dt 20.0 sd
24.0 430.6 -48.4 bar
443.5 -36.4 hd 8.0 3 dt 20.0 sd
472.1 -42.4 hd 8.0 3 dt 20.0 su
24.0 496.0 -48.4 bar
508.4 -33.4 hd 19.2 sd
522.7 -30.4 hd 20.3 sd
537.6 -24.4 hd 24.3 sd
554.8 -24.4 hd 20.0 sd
574.4 -30.4 hd 1 20.0 sfd
24.0 589.0 -48.4 bar
603.8 -33.4 Hd 9.0 0 dt 20.0 sd
24.0 633.7 -48.4 bar
647.2 -33.4 hd 8.0 0 dt 20.0 sd
675.3 -33.4 hd 8.0 0 dt 20.0 sd
24.0 699.3 -48.4 bar
636.1 -24.7 614.9 -24.7 608.5 -28.3 0 0.2 613.9 -25.7 637.2 -25.7 642.5 -28.5 608.5 -28.5 SL
128.9 -20.41 dnb
378.1 -22.41 dnb
554.8 -20.41 upb
574.4 -22.41 upb
-85.5 693.3 -75.41 cresc
0 -75.41 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 577 x @beginspecial 0 @llx 0 @lly 544 @urx
78 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 78
%%Title: jazzmesse-vli-sanctus009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 77.5 T
0.75 dup scale


% --- 9 ((notitle)) ---
0 -25.34 T
3.2 41.6 -4.3 145.1   -13.8 bm
3.2 31.9 -6.4 204.7   -13.8 bm
-3.2 34.1 -3.8 264.5   -36.4 bm
-3.2 31.0 -5.4 316.2   -43.8 bm
-3.2 49.4 -6.0 392.7   -43.2 bm
-3.2 33.9 -3.7 487.2   -39.5 bm
-3.2 31.7 -5.5 538.8   -43.7 bm
-3.2 33.8 -3.7 597.2   -39.5 bm
-3.2 31.9 -5.5 647.9   -43.7 bm
14.0 F1  247.9   -13.0 M (75) showb
0 -48.00 M 699.30 staff
12.0 -48.0  tclef
30.0 -36.0 ft0 
49.7 -33.0 Hd 9.0 0 dt 20.0 sd
88.0 -33.0 hd 20.0 sd
113.3 -33.0 hd 1 23.0 sfd 106.3 -36.0 hd
24.0 129.1 -48.0 bar
141.6 -33.0 hd 19.2 su
162.5 -39.0 hd -9.0 ft 23.0 su
183.1 -42.0 hd -9.0 ft 23.9 su
201.2 -33.0 hd 19.2 su
217.1 -45.0 hd 28.0 su
233.1 -51.0 hd 30.8 su
24.0 247.9 -48.0 bar
268.0 -12.0 hd 24.4 sd -18.0 hl -12.0 hl
286.7 -18.0 hd 20.5 sd -18.0 hl
302.1 -21.0 hd 19.2 sd
319.7 -12.0 hd 31.8 sd -18.0 hl -12.0 hl
335.1 -24.0 hd 22.5 sd
350.7 -30.0 hd 19.2 sd
24.0 366.5 -48.0 bar
(2) (4) 379.7 -48.0 tsig
396.2 -12.0 hd 31.2 sd -18.0 hl -12.0 hl
414.3 -18.0 hd 27.4 sd -18.0 hl
430.7 -21.0 hd 26.4 sd
445.7 -30.0 hd 19.2 sd
24.0 461.3 -48.0 bar
(3) (4) 474.6 -48.0 tsig
490.7 -12.0 hd 27.5 sd -18.0 hl -12.0 hl
509.0 -15.0 hd 26.5 sd -18.0 hl
524.6 -24.0 hd 19.2 sd
542.3 -12.0 hd 31.7 sd -18.0 hl -12.0 hl
558.4 -24.0 hd 22.5 sd
574.0 -30.0 hd 19.2 sd
24.0 589.2 -48.0 bar
600.7 -12.0 hd 27.5 sd -18.0 hl -12.0 hl
618.1 -15.0 hd 26.4 sd -18.0 hl
634.5 -24.0 hd 19.2 sd
651.4 -12.0 hd 31.7 sd -18.0 hl -12.0 hl
667.4 -24.0 hd 22.4 sd
683.3 -30.0 hd 19.2 sd
24.0 699.3 -48.0 bar
78.0 -24.5 59.7 -24.5 54.3 -28.0 0 0.2 58.9 -25.5 78.8 -25.5 83.4 -28.2 54.3 -28.2 SL
141.6 -11.00 dnb
-156.4 197.2 -78.00 cresc
(ff) 268.0 -78.00 pf
0 -78.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 552 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vli-sanctus010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 74.5 T
0.75 dup scale


% --- 10 ((notitle)) ---
0 -25.34 T
-3.2 30.2 -3.5 45.0   -42.6 bm
-3.2 27.6 -5.2 91.0   -47.0 bm
-3.2 43.7 -6.3 162.9   -45.9 bm
-3.2 32.4 0.0 250.9   -39.2 bm
-3.2 30.3 -2.5 299.8   -40.7 bm
-3.2 46.1 0.0 355.7   -41.9 bm
3.2 27.3 4.7 569.4   -30.5 bm
-3.2 14.0 2.1 607.0   -55.6 bm
14.0 F1  136.0   -20.0 M (80) showb 638.7   -20.0 M (85) showb
0 -51.00 M 699.30 staff
12.0 -51.0  tclef
30.0 -39.0 ft0 
48.5 -12.0 hd 30.7 sd -21.0 hl -15.0 hl
65.0 -15.0 hd 29.6 sd -21.0 hl -15.0 hl
78.7 -27.0 hd 19.2 sd
94.5 -12.0 hd 35.0 sd -21.0 hl -15.0 hl
108.3 -27.0 hd 22.6 sd
122.1 -33.0 hd 19.2 sd
24.0 136.0 -51.0 bar
(2) (4) 149.2 -51.0 tsig
166.4 -12.0 hd 33.9 sd -21.0 hl -15.0 hl
182.6 -15.0 hd 33.2 sd -21.0 hl -15.0 hl
196.7 -27.0 hd 23.3 sd
210.0 -33.0 hd 19.2 sd
24.0 224.0 -51.0 bar
(3) (4) 237.2 -51.0 tsig
254.4 -6.0 hd 33.2 sd -21.0 hl -15.0 hl -9.0 hl
270.0 -12.0 hd 27.2 sd -21.0 hl -15.0 hl
286.7 -18.0 hd 21.2 sd -21.0 hl
303.3 -6.0 hd 34.7 sd -21.0 hl -15.0 hl -9.0 hl
319.1 -18.0 hd 24.0 sd -21.0 hl
333.6 -24.0 hd 19.2 sd
24.0 347.3 -51.0 bar
359.2 -6.0 hd 35.9 sd -21.0 hl -15.0 hl -9.0 hl
376.0 -12.0 hd 29.9 sd -21.0 hl -15.0 hl
391.3 -18.0 hd 23.9 sd -21.0 hl
405.4 -24.0 hd 17.9 sd
421.3 -6.0 hd 33.0 sd -21.0 hl -15.0 hl -9.0 hl
24.0 461.1 -51.0 bar
473.6 -39.0 r4 8.0 3 dt
500.6 -39.0 r4
519.2 -66.0 hd 1 27.0 sfu -57.0 hl -63.0 hl
24.0 535.9 -51.0 bar
(5) (8) 549.1 -51.0 tsig
565.9 -57.0 hd 26.5 su -57.0 hl
579.2 -48.0 hd 19.8 su
593.3 -45.0 hd 19.2 su
610.5 -36.0 hd 19.6 sd
624.5 -33.0 hd 20.4 sd
24.0 638.7 -51.0 bar
(3) (8) 651.9 -51.0 tsig
667.8 -27.0 hd 26.0 sd 667.8 -33.0 hd
685.2 -39.0 r8
24.0 699.3 -51.0 bar
444.3 -24.00 brth
519.2 -25.00 dnb
0 -74.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 902 x @beginspecial 0 @llx 0 @lly 544 @urx
117 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus011.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 117
%%Title: jazzmesse-vli-sanctus011.abc (11)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 117.0 T
0.75 dup scale


% --- 11 ((notitle)) ---
0 -25.34 T
14.0 F3 124.2   -38.4 M ( Fine) gcshow 
211.7   -38.4 M (pizz.) gcshow 
248.9   -99.8  M () gcshow 240.9  -115.2  M (\(Benedictus\)) gcshow 
14.0 F1  305.5   -51.4 M (90) showb 565.1   -51.4 M (95) showb
15.0 F2 180.8 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 96) show
0 -82.40 M 699.30 staff
12.0 -82.4  tclef
30.0 -70.4 ft0 
(3) (4) 51.0 -82.4 tsig
67.5 -70.4 r4
82.4 -58.4 Hd 26.0 sd 82.4 -64.4 Hd
24.0 98.8 -82.4 bar
110.4 -58.4 hd 8.0 3 dt 29.0 sd 110.4 -67.4 hd 8.0 0 dt
132.2 -58.4 hd 8.0 3 dt 29.0 sd 132.2 -67.4 hd 8.0 0 dt
24.0 177.7 -82.4 dbar
(3) (4) 192.8 -82.4 tsig
219.7 -85.4 hd 20.0 su
234.5 -82.4 hd 20.0 su
248.9 -79.4 hd 20.0 su
24.0 262.0 -82.4 bar
274.9 -76.4 Hd 20.0 su
291.9 -73.4 hd 20.0 su
24.0 305.5 -82.4 bar
316.8 -85.4 hd 20.0 su
332.2 -82.4 hd 20.0 su
346.6 -79.4 hd 20.0 su
24.0 359.7 -82.4 bar
371.4 -76.4 hd 20.0 su
387.5 -73.4 Hd 20.0 su
24.0 402.5 -82.4 bar
414.1 -85.4 hd 20.0 su
429.3 -82.4 hd 20.0 su
443.3 -79.4 hd 20.0 su
24.0 456.7 -82.4 bar
467.9 -76.4 hd 20.0 su
483.2 -73.4 hd 20.0 su
497.2 -79.4 hd 20.0 su
24.0 510.9 -82.4 bar
521.9 -85.4 hd 20.0 su
537.7 -79.4 hd 20.0 su
552.1 -73.4 hd 20.0 su
24.0 565.1 -82.4 bar
578.1 -67.4 Hd 9.0 0 dt 20.0 sd
24.0 601.6 -82.4 bar
613.5 -64.4 hd 20.0 sd
627.8 -67.4 hd 20.0 sd
643.0 -64.4 hd 20.0 sd
24.0 655.8 -82.4 bar
668.6 -76.4 Hd 20.0 su
685.6 -73.4 hd 20.0 su
24.0 699.3 -82.4 bar
82.4 -54.40 dnb
132.2 -54.40 hld
159.0 -55.40 brth
(mf) 219.7 -109.40 pf
0 -130.60 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 527 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus012.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-sanctus012.abc (12)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 72.3 T
0.75 dup scale


% --- 12 ((notitle)) ---
0 -25.34 T
14.0 F1  131.9   -17.0 M (100) showb 391.8   -17.0 M (105) showb 644.7    -8.0 M (110) showb
0 -48.00 M 699.30 staff
12.0 -48.0  tclef
30.0 -36.0 ft0 
48.5 -33.0 hd 20.0 sd
62.2 -36.0 hd 20.0 sd
76.9 -33.0 hd 20.0 sd
24.0 89.7 -48.0 bar
101.6 -45.0 Hd 20.0 su
119.5 -42.0 hd 20.0 su
24.0 131.9 -48.0 bar
143.6 -39.0 hd 20.0 su
157.6 -42.0 hd 20.0 su
172.3 -39.0 hd 20.0 su
24.0 184.5 -48.0 bar
195.5 -51.0 hd 20.0 su
209.9 -48.0 hd 20.0 su
224.8 -45.0 hd 20.0 su
24.0 237.2 -48.0 bar
248.5 -39.0 hd 20.0 su
263.0 -45.0 hd 20.0 su
277.7 -48.0 hd 20.0 su
24.0 289.8 -48.0 bar
309.4 -48.0 Hd -9.0 ft 20.0 su
326.9 -36.0 r4
24.0 339.2 -48.0 bar
350.3 -51.0 hd 41.0 su 350.3 -30.0 hd
364.5 -48.0 hd 41.0 su 364.5 -27.0 hd
379.3 -45.0 hd 41.0 su 379.3 -24.0 hd
24.0 391.8 -48.0 bar
414.9 -21.0 Hd 41.0 sd 414.9 -42.0 Hd
432.0 -18.0 hd 41.0 sd -18.0 hl 432.0 -39.0 hd
24.0 445.3 -48.0 bar
457.1 -51.0 hd 41.0 su 457.1 -30.0 hd
471.1 -48.0 hd 41.0 su 471.1 -27.0 hd
485.5 -45.0 hd 41.0 su 485.5 -24.0 hd
24.0 497.9 -48.0 bar
509.7 -21.0 hd 41.0 sd 509.7 -42.0 hd
524.1 -18.0 Hd 41.0 sd -18.0 hl 524.1 -39.0 Hd
24.0 539.4 -48.0 bar
551.1 -51.0 hd 41.0 su 551.1 -30.0 hd
565.6 -48.0 hd 41.0 su 565.6 -27.0 hd
578.8 -45.0 hd 41.0 su 578.8 -24.0 hd
24.0 592.0 -48.0 bar
603.0 -21.0 hd 41.0 sd 603.0 -42.0 hd
617.6 -18.0 hd 41.0 sd -18.0 hl 617.6 -39.0 hd
632.0 -24.0 hd 41.0 sd 632.0 -45.0 hd
24.0 644.7 -48.0 bar
655.8 -51.0 hd 41.0 su 655.8 -30.0 hd
670.8 -45.0 hd 41.0 su 670.8 -24.0 hd
686.9 -18.0 hd 41.0 sd -18.0 hl 686.9 -39.0 hd
24.0 699.3 -48.0 bar
0 -71.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 903 x @beginspecial 0 @llx 0 @lly 544 @urx
117 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus013.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 117
%%Title: jazzmesse-vli-sanctus013.abc (13)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 117.4 T
0.75 dup scale


% --- 13 ((notitle)) ---
0 -25.34 T
14.0 F3 96.0   -17.4 M (arco,) gcshow 96.0   -32.8 M (con sordino) gcshow 104.0   -48.2 M () gcshow 
14.0 F1  203.0   -76.2 M (115) showb 413.8   -76.2 M (120) showb 639.1   -76.2 M (125) showb
0 -107.20 M 699.30 staff
12.0 -107.2  tclef
30.0 -95.2 ft0 
49.0 -71.2 Hd 41.0 sd -77.2 hl -71.2 hl 49.0 -92.2 Hd
69.0 -95.2 r4
24.0 82.0 -107.2 bar
104.0 -68.2 Hd 9.0 0 dt 41.0 sd -77.2 hl -71.2 hl 104.0 -89.2 Hd 9.0 3 dt
24.0 127.7 -107.2 bar
140.4 -68.2 Hd 9.0 0 dt 41.0 sd -77.2 hl -71.2 hl 140.4 -89.2 Hd 9.0 3 dt
24.0 165.4 -107.2 bar
178.1 -71.2 Hd 9.0 3 dt 41.0 sd -77.2 hl -71.2 hl 178.1 -92.2 Hd 9.0 0 dt
24.0 203.0 -107.2 bar
239.0 -71.2 Hd 9.0 3 dt 41.0 sd -77.2 hl -71.2 hl 239.0 -92.2 Hd 9.0 0 dt
24.0 263.2 -107.2 bar
276.5 -71.2 Hd 9.0 3 dt 41.0 sd -77.2 hl -71.2 hl 276.5 -92.2 Hd 9.0 0 dt
24.0 300.9 -107.2 bar
314.0 -71.2 Hd 9.0 3 dt 41.0 sd -77.2 hl -71.2 hl 314.0 -92.2 Hd 9.0 0 dt
24.0 338.5 -107.2 bar
351.8 -74.2 Hd 9.0 0 dt 41.0 sd -77.2 hl 351.8 -95.2 Hd 9.0 3 dt
24.0 376.1 -107.2 bar
389.0 -74.2 Hd 9.0 0 dt 41.0 sd -77.2 hl 389.0 -95.2 Hd 9.0 3 dt
24.0 413.8 -107.2 bar
449.1 -77.2 Hd 9.0 3 dt 41.0 sd -77.2 hl 449.1 -98.2 Hd 9.0 0 dt
24.0 474.0 -107.2 bar
486.0 -77.2 Hd 41.0 sd -77.2 hl 486.0 -98.2 Hd
506.1 -95.2 r4
24.0 519.5 -107.2 bar
538.6 -86.2 Hd 9.0 0 dt -9.0 ft 20.0 sd
24.0 563.8 -107.2 bar
577.1 -86.2 Hd 9.0 0 dt 20.0 sd
24.0 601.4 -107.2 bar
614.4 -86.2 Hd 9.0 0 dt 20.0 sd
24.0 639.1 -107.2 bar
674.7 -86.2 Hd 9.0 0 dt 20.0 sd
24.0 699.3 -107.2 bar
129.6 -97.6 113.3 -97.6 108.4 -94.1 0 -0.2 112.5 -96.6 130.3 -96.6 134.4 -93.9 108.4 -93.9 SL
130.8 -59.7 113.6 -59.7 108.4 -63.3 0 0.2 112.8 -60.7 131.6 -60.7 135.9 -63.5 108.4 -63.5 SL
223.2 -101.5 192.5 -101.5 183.6 -97.6 0 -0.2 191.0 -100.5 224.6 -100.5 232.1 -97.4 183.6 -97.4 SL
224.4 -61.8 192.7 -61.8 183.6 -65.8 0 0.2 191.2 -62.8 225.9 -62.8 233.6 -66.0 183.6 -66.0 SL
302.9 -100.7 286.1 -100.7 281.0 -97.1 0 -0.2 285.3 -99.7 303.8 -99.7 308.0 -96.9 281.0 -96.9 SL
304.2 -62.7 286.4 -62.7 281.0 -66.3 0 0.2 285.5 -63.7 305.0 -63.7 309.5 -66.5 281.0 -66.5 SL
378.0 -103.7 361.3 -103.7 356.3 -100.1 0 -0.2 360.5 -102.7 378.8 -102.7 383.0 -99.9 356.3 -99.9 SL
379.2 -65.7 361.6 -65.7 356.3 -69.3 0 0.2 360.7 -66.7 380.1 -66.7 384.5 -69.5 356.3 -69.5 SL
475.1 -106.7 458.6 -106.7 453.6 -103.1 0 -0.2 457.8 -105.7 475.9 -105.7 480.1 -102.9 453.6 -102.9 SL
476.3 -68.7 458.9 -68.7 453.6 -72.3 0 0.2 458.0 -69.7 477.2 -69.7 481.6 -72.5 453.6 -72.5 SL
567.0 -77.7 548.7 -77.7 543.2 -81.2 0 0.2 547.8 -78.7 567.9 -78.7 572.5 -81.4 543.2 -81.4 SL
604.6 -77.7 586.9 -77.7 581.6 -81.3 0 0.2 586.0 -78.7 605.5 -78.7 609.9 -81.5 581.6 -81.5 SL
660.2 -76.9 628.9 -76.9 619.8 -80.8 0 0.2 627.4 -77.9 661.7 -77.9 669.3 -81.0 619.8 -81.0 SL
692.2 -78.2 681.8 -78.2 678.7 -81.5 0 0.2 681.3 -79.2 692.7 -79.2 695.3 -81.7 678.7 -81.7 SL
(p) 104.0 -131.20 pf
104.0 -61.20 dnb
538.6 -78.20 dnb
674.7 -79.20 upb
0 -131.20 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1068 x @beginspecial 0 @llx 0 @lly 544 @urx
137 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-sanctus014.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 137
%%Title: jazzmesse-vli-sanctus014.abc (14)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:17 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 137.4 T
0.75 dup scale


% --- 14 ((notitle)) ---
0 -25.34 T
14.0 F3 579.5   -17.4 M (Dal Osanna al Fine) gcshow 587.5   -32.8 M () gcshow 
14.0 F1  216.4   -45.8 M (130) showb 434.3   -45.8 M (135) showb 652.2   -36.8 M (140) showb
0 -134.80 M 699.30 staff
0 -76.80 M 699.30 staff
82.0 0.0 -134.8 bar
82.0 0.0 -52.8 brace
12.0 -76.8  tclef
30.0 -64.8 ft0 
49.4 -55.8 Hd 9.0 0 dt 20.0 sd
82.0 75.2 -134.8 bar
88.4 -55.8 Hd 9.0 0 dt 20.0 sd
82.0 114.1 -134.8 bar
133.8 -49.8 Hd 9.0 0 dt -9.0 ft 20.0 sd
82.0 159.5 -134.8 bar
172.3 -49.8 Hd 20.0 sd
202.0 -52.8 hd 20.0 sd
82.0 216.4 -134.8 bar
243.6 -52.8 Hd 9.0 3 dt 20.0 sd
82.0 269.3 -134.8 bar
282.5 -55.8 Hd 9.0 0 dt 20.0 sd
82.0 308.3 -134.8 bar
321.5 -52.8 Hd 9.0 3 dt 20.0 sd
82.0 347.2 -134.8 bar
360.4 -52.8 Hd 9.0 3 dt 20.0 sd
82.0 395.3 -134.8 bar
408.5 -52.8 Hd 9.0 3 dt 20.0 sd
82.0 434.3 -134.8 bar
461.5 -52.8 Hd 9.0 3 dt 20.0 sd
82.0 487.2 -134.8 bar
500.4 -52.8 Hd 9.0 3 dt 20.0 sd
82.0 526.2 -134.8 bar
539.4 -52.8 Hd 9.0 3 dt 20.0 sd
82.0 574.3 -134.8 bar
587.5 -52.8 Hd 9.0 3 dt 20.0 sd
82.0 613.2 -134.8 bar
626.4 -52.8 Hd 9.0 3 dt 20.0 sd
82.0 652.2 -134.8 bar
665.4 -52.8 Hd 9.0 3 dt 20.0 sd
82.0 699.3 -134.8 fbar2 689.3 -134.8 rdots 689.3 -76.8 rdots
43.3 -47.9 35.6 -47.9 33.2 -51.2 0 0.2 35.2 -48.9 43.7 -48.9 45.6 -51.4 33.2 -51.4 SL
78.2 -47.2 59.6 -47.2 54.0 -50.8 0 0.2 58.7 -48.2 79.1 -48.2 83.8 -51.0 54.0 -51.0 SL
162.2 -41.2 143.8 -41.2 138.3 -44.8 0 0.2 143.0 -42.2 163.1 -42.2 167.8 -45.0 138.3 -45.0 SL
193.8 -44.1 180.5 -42.0 176.5 -45.0 0 0.2 179.9 -43.0 194.4 -45.1 197.8 -48.2 176.5 -45.2 SL
272.4 -46.8 253.7 -44.7 248.1 -47.8 0 0.2 252.8 -45.7 273.3 -47.8 278.0 -51.0 248.1 -48.0 SL
350.3 -44.2 331.6 -44.2 326.0 -47.8 0 0.2 330.7 -45.2 351.2 -45.2 355.9 -48.0 326.0 -48.0 SL
396.4 -43.9 372.5 -43.9 365.4 -47.6 0 0.2 371.4 -44.9 397.6 -44.9 403.6 -47.8 365.4 -47.8 SL
529.2 -44.2 510.6 -44.2 505.0 -47.8 0 0.2 509.7 -45.2 530.1 -45.2 534.8 -48.0 505.0 -48.0 SL
575.4 -43.9 551.4 -43.9 544.3 -47.6 0 0.2 550.3 -44.9 576.5 -44.9 582.5 -47.8 544.3 -47.8 SL
616.3 -44.2 597.6 -44.2 592.0 -47.8 0 0.2 596.7 -45.2 617.1 -45.2 621.8 -48.0 592.0 -48.0 SL
655.2 -44.2 636.6 -44.2 631.0 -47.8 0 0.2 635.7 -45.2 656.1 -45.2 660.8 -48.0 631.0 -48.0 SL
12.0 -134.8  tclef
30.0 -122.8 ft0 
49.4 -113.8 Hd 9.0 0 dt 20.0 sd
88.4 -113.8 Hd 9.0 0 dt 20.0 sd
133.8 -128.8 Hd 9.0 3 dt -9.0 ft 20.0 su
172.3 -128.8 Hd 20.0 su
202.0 -131.8 hd 20.0 su
243.6 -131.8 Hd 9.0 0 dt 20.0 su
282.5 -128.8 Hd 9.0 3 dt 20.0 su
321.5 -131.8 Hd 9.0 0 dt 20.0 su
360.4 -122.8 r2
380.9 -131.8 hd 20.0 su
408.5 -131.8 Hd 9.0 0 dt 20.0 su
461.5 -131.8 Hd 9.0 0 dt 20.0 su
500.4 -131.8 Hd 9.0 0 dt 20.0 su
539.4 -131.8 Hd 20.0 su
559.8 -131.8 hd 20.0 su
587.5 -131.8 Hd 9.0 0 dt 20.0 su
626.4 -131.8 Hd 9.0 0 dt 20.0 su
665.4 -131.8 Hd 9.0 0 dt 20.0 su
43.3 -105.9 35.6 -105.9 33.2 -109.2 0 0.2 35.2 -106.9 43.7 -106.9 45.6 -109.4 33.2 -109.4 SL
78.2 -105.2 59.6 -105.2 54.0 -108.8 0 0.2 58.7 -106.2 79.1 -106.2 83.8 -109.0 54.0 -109.0 SL
162.2 -137.4 143.8 -137.4 138.3 -133.8 0 -0.2 143.0 -136.4 163.1 -136.4 167.8 -133.6 138.3 -133.6 SL
162.2 -137.4 143.8 -137.4 138.3 -133.8 0 -0.2 143.0 -136.4 163.1 -136.4 167.8 -133.6 138.3 -133.6 SL
193.8 -139.6 180.5 -137.5 176.5 -133.6 0 -0.2 179.9 -136.5 194.4 -138.6 197.8 -136.4 176.5 -133.4 SL
272.4 -137.8 253.7 -139.9 248.1 -136.8 0 -0.2 252.8 -138.9 273.3 -136.8 278.0 -133.6 248.1 -136.6 SL
490.3 -140.4 471.6 -140.4 466.0 -136.8 0 -0.2 470.7 -139.4 491.1 -139.4 495.8 -136.6 466.0 -136.6 SL
655.2 -140.4 636.6 -140.4 631.0 -136.8 0 -0.2 635.7 -139.4 656.1 -139.4 660.8 -136.6 631.0 -136.6 SL
133.8 -41.80 dnb
133.8 -106.80 dnb
321.5 -48.80 dnb
380.9 -108.80 upb
500.4 -48.80 upb
559.8 -108.80 dnb
626.4 -48.80 dnb
665.4 -48.80 hld
665.4 -108.80 hld
0 -157.80 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1836 6215 a Fe(9)p eop end
%%Page: 10 10
TeXDict begin 10 9 bop 1417 -306 a Fc(Agn)l(us)52 b(Dei)-387
547 y @beginspecial 0 @llx 0 @lly 516 @urx 98 @ury 5160
@rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 98
%%Title: jazzmesse-vli-dona001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 98.1 T
0.75 dup scale
37.8 0 T


% --- 1 ((notitle)) ---
0 -25.34 T
386.6   -54.2 373.6   -52.8 369.7   -57.1 0 0.2 373.0   -53.8 387.3   -55.2 390.5   -59.4 369.7   -57.3 SL
14.0 F3 67.1   -38.4 M (senza sordino) gcshow 
14.0 F1  266.7   -47.4 M (5) showb 477.6   -47.4 M (10) showb
15.0 F2 44.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 96) show
0 -78.40 M 661.50 staff
12.0 -78.4  tclef
30.0 -66.4 ft0 35.0 -57.4 ft0 
56.0 -78.4 csig
75.1 -66.4 r2
100.7 -81.4 Hd 20.0 su
24.0 115.6 -78.4 bar
127.8 -72.4 Hd 9.0 3 dt 20.0 su
152.7 -66.4 r4
24.0 174.7 -78.4 bar
187.3 -66.4 r2
203.1 -81.4 Hd 20.0 su
24.0 217.9 -78.4 bar
230.3 -72.4 Hd 9.0 3 dt 20.0 su
255.1 -66.4 r4
24.0 266.7 -78.4 bar
279.4 -66.4 r2
295.7 -81.4 Hd 20.0 su
24.0 309.8 -78.4 bar
322.2 -72.4 Hd 20.0 su
340.4 -66.4 Hd 20.0 sd
24.0 354.6 -78.4 bar
367.3 -63.4 Hd 9.0 0 dt 20.0 sd
391.5 -66.4 hd 20.0 sd
24.0 403.4 -78.4 bar
417.0 -69.4 HD
24.0 434.4 -78.4 bar
445.9 -66.4 r2
462.7 -81.4 Hd 20.0 su
24.0 477.6 -78.4 bar
489.7 -72.4 Hd 9.0 3 dt 20.0 su
514.2 -66.4 r4
24.0 526.4 -78.4 bar
538.5 -66.4 r2
555.5 -81.4 Hd 20.0 su
24.0 569.5 -78.4 bar
581.8 -72.4 Hd 9.0 3 dt 20.0 su
605.8 -66.4 r4
24.0 618.4 -78.4 bar
630.2 -66.4 r2
647.2 -66.4 Hd 20.0 sd
24.0 661.5 -78.4 bar
(p) 100.7 -105.40 pf
100.7 -52.40 upb
203.1 -52.40 upb
295.7 -52.40 upb
462.7 -52.40 upb
555.5 -52.40 upb
647.2 -52.40 dnb
0 -105.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 591 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vli-dona002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.8 T
0.75 dup scale


% --- 2 ((notitle)) ---
0 -25.34 T
240.1   -16.1 225.1   -16.1 220.7   -20.8 0 0.2 224.4   -17.1 240.8   -17.1 244.6   -21.0 220.7   -21.0 SL
302.5    -9.6 278.8   -14.1 271.7   -23.6 0 0.2 277.7   -15.1 303.6   -10.6 309.6   -17.2 271.7   -23.8 SL
402.7   -51.1 387.4   -55.6 382.9   -51.9 0 -0.2 386.7   -54.6 403.4   -50.1 407.2   -45.1 382.9   -51.7 SL
507.0   -17.7 489.2   -18.7 483.9   -23.7 0 0.2 488.4   -19.7 507.8   -18.7 512.3   -22.5 483.9   -23.9 SL
675.8   -56.4 663.6   -53.5 659.9   -48.2 0 -0.2 663.0   -52.5 676.3   -55.4 679.4   -52.2 659.9   -48.0 SL
14.0 F1  94.5   -16.0 M (15) showb 357.9   -16.0 M (20) showb 605.7   -16.0 M (25) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 
53.0 -35.0 r2
78.6 -32.0 Hd -9.0 sh 20.0 sd
24.0 94.5 -47.0 bar
106.7 -35.0 r2
132.2 -32.0 Hd -9.0 nt 20.0 sd
24.0 147.1 -47.0 bar
159.9 -35.0 r2
184.0 -35.0 Hd -9.0 nt 20.0 sd
24.0 199.8 -47.0 bar
219.6 -35.0 Hd 9.0 3 dt -9.0 ft 20.0 sd
245.7 -35.0 hd 20.0 sd
24.0 257.9 -47.0 bar
269.9 -35.0 hd 20.0 sd
283.9 -38.0 hd 20.0 su
298.4 -41.0 hd 20.0 su
312.4 -44.0 hd 20.0 su
24.0 325.2 -47.0 bar
339.2 -44.0 HD
24.0 357.9 -47.0 bar
377.6 -44.0 Hd -9.0 sh 20.0 su
394.9 -41.0 hd 20.0 su
408.5 -38.0 hd 20.0 su
24.0 421.9 -47.0 bar
443.5 -35.0 HD -12.0 ft
24.0 463.4 -47.0 bar
482.6 -35.0 Hd -9.0 nt 20.0 sd
500.1 -32.0 hd 20.0 sd
514.6 -29.0 hd 20.0 sd
24.0 527.4 -47.0 bar
539.8 -23.0 Hd 20.0 sd
557.7 -26.0 Hd 20.0 sd
24.0 573.0 -47.0 bar
586.2 -35.0 r1
24.0 605.7 -47.0 bar
627.3 -41.0 HD
24.0 646.7 -47.0 bar
658.9 -41.0 Hd 20.0 su
683.4 -44.0 Hd -9.0 sh 20.0 su
24.0 699.3 -47.0 bar
78.6 -21.00 upb
132.2 -21.00 dnb
219.6 -26.00 emb
245.7 -26.00 emb
339.2 -21.00 dnb
-82.3 529.8 -77.00 cresc
20.0 549.8 -77.00 cresc
(p) 627.3 -77.00 pf
0 -77.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 758 x @beginspecial 0 @llx 0 @lly 544 @urx
97 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 97
%%Title: jazzmesse-vli-dona003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 97.3 T
0.75 dup scale


% --- 3 ((notitle)) ---
0 -25.34 T
14.0 F3 552.5   -38.4 M (swing) gcshow 
14.0 F1  184.4   -50.4 M (30) showb 399.8   -50.4 M (35) showb 606.1   -47.4 M (40) showb
15.0 F2 514.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 120) show
0 -81.40 M 699.30 staff
12.0 -81.4  tclef
30.0 -69.4 ft0 35.0 -60.4 ft0 
55.0 -75.4 HD
24.0 83.4 -81.4 bar
98.8 -75.4 HD
24.0 134.7 -81.4 fbar2 124.7 -81.4 rdots
157.2 -75.4 HD
24.0 184.4 -81.4 bar
199.7 -81.4 HD 199.7 -75.4 HD
24.0 227.5 -81.4 bar
242.2 -75.4 HD
24.0 270.6 -81.4 bar
286.2 -81.4 HD 286.2 -75.4 HD
24.0 313.7 -81.4 bar
328.4 -75.4 HD
24.0 356.8 -81.4 bar
371.4 -81.4 HD 371.4 -75.4 HD
24.0 399.8 -81.4 bar
414.8 -75.4 HD
24.0 442.9 -81.4 bar
456.4 -75.4 Hd 9.0 3 dt 20.0 su
490.5 -69.4 r4
24.0 510.8 -81.4 dbar
(3) 560.5 -81.4 mrest
24.0 606.1 -81.4 bar
(9) 653.7 -81.4 mrest
24.0 699.3 -81.4 bar
87.6 -84.1 66.2 -84.1 59.7 -80.5 0 -0.2 65.1 -83.1 88.7 -83.1 94.1 -80.3 59.7 -80.3 SL
445.7 -84.1 425.5 -84.1 419.4 -80.4 0 -0.2 424.5 -83.1 446.7 -83.1 451.7 -80.2 419.4 -80.2 SL
(pp) 157.2 -103.40 pf
157.2 -55.40 dnb
456.4 -53.40 hld
0 -104.40 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 667 x @beginspecial 0 @llx 0 @lly 544 @urx
86 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 86
%%Title: jazzmesse-vli-dona004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 86.3 T
0.75 dup scale


% --- 4 ((notitle)) ---
0 -25.34 T
3.2 25.7 -5.3 252.9   -27.2 bm
3.2 25.7 -5.3 491.2   -27.2 bm
3.2 20.5 2.3 590.0   -38.1 bm
3.2 20.5 4.8 626.1   -29.0 bm
-3.2 20.5 2.3 661.1   -60.1 bm
(3) 265.7   -23.1 bnum
(3) 504.1   -25.9 bnum
87.9   -22.7 76.6   -22.7 73.2   -27.3 0 0.2 76.0   -23.7 88.4   -23.7 91.3   -27.5 73.2   -27.5 SL
127.5   -22.7 116.7   -22.7 113.5   -27.3 0 0.2 116.2   -23.7 128.0   -23.7 130.7   -27.5 113.5   -27.5 SL
273.4    -9.2 260.8    -6.7 257.0   -10.8 0 0.2 260.2    -7.7 274.0   -10.2 277.1   -14.7 257.0   -11.0 SL
325.2   -71.1  313.9   -71.1  310.5   -66.5 0 -0.2 313.4   -70.1  325.8   -70.1  328.6   -66.3 310.5   -66.3 SL
364.6   -71.1  353.3   -71.1  349.9   -66.5 0 -0.2 352.7   -70.1  365.1   -70.1  368.0   -66.3 349.9   -66.3 SL
504.7   -69.4  492.4   -62.8 488.8   -56.6 0 -0.2 491.9   -61.8 505.3   -68.4 508.4   -66.0 488.8   -56.4 SL
602.9   -72.5  592.1   -73.9  588.8   -69.6  0 -0.2 591.5   -72.9  603.5   -71.5  606.2   -67.3 588.8   -69.4  SL
639.5   -60.6 630.2   -67.2 627.5   -64.1 0 -0.2 629.8   -66.2 640.0   -59.6 642.3   -54.3 627.5   -63.9 SL
680.4   -21.1 668.9   -21.5 665.5   -26.3 0 0.2 668.4   -22.5 681.0   -22.1 683.9   -25.8 665.5   -26.5 SL
14.0 F3 49.7   -17.4 M (2.Vl.:) gcshow 
301.7   -17.4 M (1.Vl.) gcshow 
14.0 F1  145.4   -27.4 M (50) showb
0 -58.40 M 699.30 staff
12.0 -58.4  tclef
30.0 -46.4 ft0 35.0 -37.4 ft0 
68.4 -52.4 shd 20.0 su
89.1 -52.4 shd 20.0 su
108.8 -52.4 shd 20.0 su
128.4 -52.4 shd 20.0 su
24.0 145.4 -58.4 bar
159.2 -52.4 shd 8.0 3 dt 20.0 su
185.9 -52.4 shd 1 20.0 sfu
205.1 -52.4 shd 1 20.0 sfu
224.3 -40.4 shd 1 20.0 sfu
249.4 -46.4 shd -9.0 nt 19.2 su
262.3 -52.4 shd 22.6 su
275.1 -61.4 shd 28.9 su
24.0 289.2 -58.4 bar
309.7 -52.4 hd 20.0 su
329.4 -52.4 hd 20.0 su
349.1 -52.4 hd 20.0 su
368.8 -52.4 hd 20.0 su
24.0 385.8 -58.4 bar
399.5 -52.4 hd 8.0 3 dt 20.0 su
426.2 -52.4 hd 1 20.0 sfu
445.4 -52.4 hd 1 20.0 sfu
466.2 -40.4 hd 1 20.0 sfd
487.7 -46.4 hd -9.0 nt 19.2 su
500.6 -52.4 hd 22.6 su
513.5 -61.4 hd 28.9 su
24.0 527.6 -58.4 bar
539.8 -46.4 r8
561.4 -64.4 hd -9.0 sh 1 20.0 sfu -64.4 hl
586.5 -58.4 hd -9.0 nt 20.3 su
607.0 -55.4 hd -9.0 sh 19.7 su
622.6 -52.4 hd 23.4 su
643.1 -43.4 hd -9.0 sh 19.2 su
664.6 -40.4 hd -9.0 sh 19.7 sd
685.2 -37.4 hd -9.0 nt 20.3 sd
24.0 699.3 -58.4 bar
199.4 -44.6 193.1 -44.6 191.1 -47.8 0 0.2 192.7 -45.6 199.7 -45.6 201.4 -48.0 191.1 -48.0 SL
439.5 -60.2 432.2 -60.2 430.0 -57.0 0 -0.2 431.8 -59.2 439.8 -59.2 441.7 -56.8 430.0 -56.8 SL
68.4 -64.4 r1
159.2 -76.4 r1 -70.4 hl
(cresc.) 309.7 -89.71 crdc
309.7 -61.40 emb
309.7 -30.40 dnb
329.4 -61.40 emb
349.1 -61.40 emb
368.8 -61.40 emb
466.2 -32.40 dnb
561.4 -32.40 upb
586.5 -65.40 emb
607.0 -62.40 emb
622.6 -61.40 emb
643.1 -49.40 emb
664.6 -31.40 emb
685.2 -30.40 emb
0 -89.71 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 674 x @beginspecial 0 @llx 0 @lly 544 @urx
87 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 87
%%Title: jazzmesse-vli-dona005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 87.3 T
0.75 dup scale


% --- 5 ((notitle)) ---
0 -25.34 T
-3.2 20.0 0.0 50.7   -47.1 bm
-3.2 20.9 -6.2 86.5   -48.2 bm
-3.2 19.2 2.3 130.3   -57.8 bm
-3.2 31.9 2.8 237.0   -59.0 bm
-3.2 15.3 0.0 290.8   -47.1 bm
-3.2 15.2 -2.2 327.2   -49.6 bm
-3.2 21.3 0.0 458.9   -44.4 bm
(3) 252.9   -69.6  bnum
69.9    -9.4 58.4    -9.4 55.0   -14.1 0 0.2 57.9   -10.4 70.4   -10.4 73.3   -14.3 55.0   -14.3 SL
107.2   -16.2 97.7    -6.9 94.9   -10.5 0 0.2 97.3    -7.9 107.7   -17.2 110.1   -24.3 94.9   -10.7 SL
148.8   -19.5 137.8   -19.5 134.5   -24.1 0 0.2 137.3   -20.5 149.4   -20.5 152.2   -24.3 134.5   -24.3 SL
264.8   -20.9 247.1   -21.9 241.8   -26.9 0 0.2 246.2   -22.9 265.6   -21.9 270.1   -25.7 241.8   -27.1 SL
306.3    -9.6 297.5    -9.6 294.9   -14.2 0 0.2 297.1   -10.6 306.7   -10.6 309.0   -14.4 294.9   -14.4 SL
342.7   -13.5 334.3   -13.0 331.8   -17.5 0 0.2 333.9   -14.0 343.1   -14.5 345.2   -18.4 331.8   -17.7 SL
479.2    -6.4 466.9    -6.4 463.3   -11.1 0 0.2 466.3    -7.4 479.8    -7.4 482.8   -11.3 463.3   -11.3 SL
532.1    -9.2 516.9    -9.2 512.3   -14.0 0 0.2 516.1   -10.2 532.8   -10.2 536.6   -14.2 512.3   -14.2 SL
14.0 F1  187.8   -19.2 M (55) showb
0 -50.20 M 699.30 staff
12.0 -50.2  tclef
30.0 -38.2 ft0 35.0 -29.2 ft0 
54.2 -26.2 hd 20.9 sd
74.1 -26.2 hd -9.0 sh 20.9 sd
90.0 -20.2 hd 28.0 sd -20.2 hl
110.9 -35.2 hd -9.0 sh 19.2 sd
133.8 -38.2 hd -9.0 nt 19.6 sd
152.9 -35.2 hd -9.0 nt 20.4 sd
170.2 -38.2 r4
24.0 187.8 -50.2 bar
198.6 -38.2 r8
216.1 -44.2 hd 1 20.0 sfu
240.5 -38.2 hd -9.0 ft 20.8 sd
258.8 -38.2 hd -9.0 nt 19.2 sd
272.4 -32.2 hd 24.0 sd
294.3 -26.2 hd -9.0 nt 20.9 sd
309.6 -26.2 hd 20.9 sd
330.7 -29.2 hd -9.0 nt 20.4 sd
345.9 -32.2 hd 19.6 sd
24.0 360.8 -50.2 bar
373.3 -20.2 hd 8.0 3 dt 26.0 sd -20.2 hl 373.3 -26.2 hd 8.0 3 dt
403.3 -20.2 hd 1 26.0 sfd -20.2 hl 403.3 -26.2 hd
418.1 -38.2 r8
439.8 -20.2 hd 1 20.0 sfd -20.2 hl
462.4 -23.2 hd -9.0 sh 21.2 sd
483.7 -23.2 hd -9.0 nt 21.2 sd
24.0 497.8 -50.2 bar
511.3 -26.2 hd 8.0 3 dt 20.0 sd
537.7 -26.2 hd 1 20.0 sfd
560.0 -29.2 hd -9.0 nt 20.0 sd
580.3 -38.2 r4
24.0 598.5 -50.2 bar
611.3 -26.2 hd 8.0 3 dt 20.0 sd
644.8 -29.2 hd -9.0 nt 1 20.0 sfd
660.4 -29.2 hd 20.0 sd
682.0 -38.2 r4
24.0 699.3 -50.2 bar
655.2 -21.5 650.0 -21.5 648.4 -24.7 0 0.2 649.7 -22.5 655.5 -22.5 656.8 -24.9 648.4 -24.9 SL
54.2 -19.20 emb
74.1 -19.20 emb
90.0 -13.20 emb
110.9 -29.20 emb
133.8 -29.20 emb
152.9 -29.20 emb
216.1 -22.20 upb
294.3 -19.20 emb
309.6 -19.20 emb
330.7 -22.20 emb
345.9 -23.20 emb
-323.7 369.3 -91.01 cresc
(f) 439.8 -91.01 pf
439.8 -16.20 dnb
462.4 -16.20 emb
483.7 -16.20 emb
511.3 -19.20 emb
537.7 -19.20 emb
0 -91.01 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 633 x @beginspecial 0 @llx 0 @lly 544 @urx
82 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 82
%%Title: jazzmesse-vli-dona006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 81.6 T
0.75 dup scale


% --- 6 ((notitle)) ---
0 -25.34 T
-3.2 13.0 -2.1 86.1   -43.9 bm
-3.2 13.2 -2.1 120.0   -49.9 bm
-3.2 20.3 -3.8 177.6   -50.9 bm
-3.2 13.5 3.2 318.6   -57.6 bm
-3.2 12.9 -2.0 346.0   -55.9 bm
3.2 12.6 -2.0 390.5   -21.9 bm
3.2 12.8 3.1 540.8   -22.3 bm
3.2 13.6 -2.1 568.4   -21.9 bm
3.2 20.1 -2.3 606.2   -27.8 bm
283.9   -13.1 271.5    -6.5 267.8    -9.6 0 0.2 270.9    -7.5 284.5   -14.1 287.6   -19.4 267.8    -9.8 SL
330.3   -16.4 324.4   -19.3 322.6   -24.5 0 0.2 324.1   -20.3 330.5   -17.4 332.0   -20.5 322.6   -24.7 SL
359.6   -19.9 352.2   -19.9 350.0   -24.5 0 0.2 351.8   -20.9 359.9   -20.9 361.8   -24.7 350.0   -24.7 SL
408.7   -57.4 392.9   -57.4 388.1   -52.7 0 -0.2 392.1   -56.4 409.4   -56.4 413.4   -52.5 388.1   -52.5 SL
498.0   -56.8 482.2   -58.2 477.4   -53.8 0 -0.2 481.4   -57.2 498.8   -55.8 502.8   -51.5 477.4   -53.6 SL
547.9   -57.6 542.5   -60.5  540.8   -56.6 0 -0.2 542.2   -59.5 548.2   -56.6 549.6   -52.2 540.8   -56.4 SL
573.1   -60.5  567.2   -57.6 565.4   -52.4 0 -0.2 566.9   -56.6 573.4   -59.5 574.9   -56.4 565.4   -52.2 SL
634.7   -64.9  611.3   -64.9  604.3   -60.0 0 -0.2 610.2   -63.9  635.8   -63.9  641.7   -59.8 604.3   -59.8 SL
14.0 F1  149.5   -19.4 M (60) showb
0 -50.44 M 699.30 staff
12.0 -50.4  tclef
30.0 -38.4 ft0 35.0 -29.4 ft0 
54.2 -20.4 hd 20.0 sd -20.4 hl
72.3 -20.4 hd 20.0 sd -20.4 hl
89.6 -23.4 hd 20.5 sd
102.6 -26.4 hd 19.5 sd
123.5 -29.4 hd -9.0 nt 20.5 sd
136.8 -32.4 hd 19.5 sd
24.0 149.5 -50.4 bar
160.8 -38.4 r8
181.1 -29.4 hd -9.0 nt 21.4 sd
201.4 -35.4 hd -9.0 sh 19.2 sd
215.4 -32.4 hd 1 20.0 sfd
229.7 -32.4 hd 20.0 sd
245.6 -38.4 r8
258.8 -41.4 hd 1 20.0 sfu
24.0 276.2 -50.4 bar
288.6 -38.4 hd 20.0 sd
305.5 -38.4 hd 20.0 sd
322.1 -38.4 hd 19.2 sd
335.6 -32.4 hd 22.0 sd
349.5 -35.4 hd 20.5 sd
362.3 -38.4 hd 19.5 sd
24.0 375.3 -50.4 bar
387.0 -41.4 hd 19.5 su
399.6 -44.4 hd 20.5 su
414.5 -41.4 hd 1 20.0 sfu
431.4 -41.4 hd 1 20.0 sfu
450.2 -41.4 hd 8.0 0 dt 20.0 su
474.8 -47.4 hd 1 20.0 sfu
24.0 491.7 -50.4 bar
504.0 -44.4 hd 20.0 su
521.5 -44.4 hd 20.0 su
537.3 -44.4 hd 22.1 su
550.1 -38.4 hd 19.2 su
564.9 -41.4 hd 19.5 su
578.4 -44.4 hd 20.5 su
24.0 590.8 -50.4 bar
602.7 -47.4 hd 19.7 su
622.8 -50.4 hd -9.0 nt 20.3 su
643.3 -47.4 hd 1 20.0 sfu
661.2 -47.4 hd 1 20.0 sfu
680.6 -47.4 Hd 20.0 su
24.0 699.3 -50.4 bar
224.8 -24.8 220.3 -24.8 219.0 -28.0 0 0.2 220.1 -25.8 225.0 -25.8 226.1 -28.2 219.0 -28.2 SL
444.3 -49.3 437.3 -49.3 435.1 -46.0 0 -0.2 436.9 -48.3 444.7 -48.3 446.5 -45.8 435.1 -45.8 SL
674.6 -55.3 667.2 -55.3 665.0 -52.0 0 -0.2 666.8 -54.3 674.9 -54.3 676.8 -51.8 665.0 -51.8 SL
54.2 -16.44 dnb
181.1 -21.44 dnb
258.8 -19.44 dnb
322.1 -29.44 emb
335.6 -23.44 emb
349.5 -29.44 emb
362.3 -29.44 emb
387.0 -47.44 emb
399.6 -53.44 emb
414.5 -47.44 emb
431.4 -19.44 upb
474.8 -24.44 dnb
537.3 -53.44 emb
550.1 -47.44 emb
564.9 -47.44 emb
578.4 -53.44 emb
183.1 409.6 -83.41 cresc
602.7 -54.44 emb
622.8 -57.44 emb
(p) 643.3 -83.41 pf
643.3 -54.44 emb
0 -83.41 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 575 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vli-dona007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 74.5 T
0.75 dup scale


% --- 7 ((notitle)) ---
0 -25.34 T
3.2 13.3 -3.2 92.0   -24.8 bm
96.5   -64.0  90.8   -61.1  89.0   -56.0 0 -0.2 90.5   -60.1  96.8   -63.0  98.3   -60.0  89.0   -55.8 SL
14.0 F1 41.7   -17.0 M (65) showb 393.2   -16.0 M (70) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 
54.2 -44.0 hd 20.0 su
70.7 -44.0 hd 20.0 su
88.5 -44.0 hd 19.2 su
101.8 -50.0 hd 22.0 su
122.9 -47.0 hd -9.0 nt 1 20.0 sfu
141.2 -44.0 hd 1 20.0 sfu
24.0 158.2 -47.0 bar
173.2 -44.0 HD
24.0 197.4 -47.0 bar
(2) 244.1 -47.0 mrest
24.0 288.6 -47.0 bar
299.6 -35.0 r8
328.0 -32.0 hd -9.0 ft 1 20.0 sfd
342.7 -35.0 r4
360.4 -35.0 hd 20.0 sd
378.1 -35.0 r4
24.0 393.2 -47.0 bar
425.0 -32.0 hd -9.0 ft 20.0 sd
442.6 -35.0 r8
456.6 -35.0 hd 1 20.0 sfd
471.2 -35.0 hd 20.0 sd
489.1 -35.0 r4
24.0 504.1 -47.0 bar
515.4 -35.0 r8
535.9 -32.0 hd -9.0 ft 1 20.0 sfd
551.2 -35.0 r4
567.9 -35.0 hd 20.0 sd
586.6 -35.0 r4
24.0 601.5 -47.0 bar
620.3 -32.0 hd -9.0 ft 20.0 sd
636.8 -35.0 r8
651.5 -35.0 hd 1 20.0 sfd
666.7 -35.0 hd 20.0 sd
684.7 -35.0 r4
24.0 699.3 -47.0 bar
164.5 -52.3 149.8 -52.3 145.4 -48.8 0 -0.2 149.1 -51.3 165.2 -51.3 168.9 -48.6 145.4 -48.6 SL
466.2 -27.3 461.6 -27.3 460.2 -30.5 0 0.2 461.3 -28.3 466.4 -28.3 467.6 -30.7 460.2 -30.7 SL
661.6 -27.3 656.6 -27.3 655.1 -30.5 0 0.2 656.3 -28.3 661.8 -28.3 663.1 -30.7 655.1 -30.7 SL
88.5 -51.00 emb
101.8 -57.00 emb
122.9 -54.00 emb
141.2 -21.00 dnb
(mp) 328.0 -74.00 pf
328.0 -26.00 emb
328.0 -21.00 dnb
360.4 -21.00 upb
425.0 -21.00 dnb
456.6 -21.00 upb
535.9 -26.00 emb
535.9 -21.00 dnb
567.9 -21.00 upb
620.3 -21.00 dnb
651.5 -21.00 upb
0 -74.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 550 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vli-dona008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale


% --- 8 ((notitle)) ---
0 -25.34 T
-3.2 14.5 2.1 105.3   -54.6 bm
-3.2 20.0 2.3 163.7   -54.7 bm
-3.2 14.5 2.1 537.3   -54.6 bm
-3.2 21.1 2.3 594.3   -54.7 bm
14.0 F1  268.0   -16.0 M (75) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 
54.3 -35.0 r8
74.4 -32.0 hd -9.0 ft 1 20.0 sfd
90.5 -35.0 r4
108.8 -35.0 hd 19.6 sd
123.3 -32.0 hd 20.4 sd
138.9 -35.0 r4
24.0 155.3 -47.0 bar
167.2 -35.0 hd 19.7 sd
187.2 -32.0 hd -9.0 ft 20.3 sd
201.9 -35.0 r8
217.1 -32.0 hd 1 20.0 sfd
232.7 -32.0 hd 20.0 sd
251.8 -35.0 r4
24.0 268.0 -47.0 bar
278.7 -35.0 r8
301.1 -32.0 hd -9.0 ft 1 20.0 sfd
316.3 -35.0 r4
335.3 -35.0 hd 20.0 sd
354.5 -35.0 r4
24.0 370.5 -47.0 bar
390.3 -32.0 hd -9.0 ft 20.0 sd
407.1 -35.0 r8
423.0 -35.0 hd 1 20.0 sfd
437.7 -35.0 hd 20.0 sd
457.8 -35.0 r4
24.0 473.6 -47.0 bar
484.4 -35.0 r8
505.7 -32.0 hd -9.0 ft 1 20.0 sfd
521.6 -35.0 r4
540.8 -35.0 hd 19.6 sd
555.3 -32.0 hd 20.4 sd
570.1 -35.0 r4
24.0 586.7 -47.0 bar
597.8 -35.0 hd 19.7 sd
618.9 -32.0 hd -9.0 ft 20.3 sd
633.5 -35.0 r8
648.9 -32.0 hd 1 20.0 sfd
664.4 -32.0 hd 20.0 sd
682.6 -35.0 r4
24.0 699.3 -47.0 bar
227.5 -24.3 222.3 -24.3 220.7 -27.5 0 0.2 222.1 -25.3 227.7 -25.3 229.1 -27.7 220.7 -27.7 SL
432.7 -27.3 428.0 -27.3 426.6 -30.5 0 0.2 427.8 -28.3 433.0 -28.3 434.2 -30.7 426.6 -30.7 SL
659.2 -24.3 654.0 -24.3 652.5 -27.5 0 0.2 653.8 -25.3 659.4 -25.3 660.7 -27.7 652.5 -27.7 SL
74.4 -26.00 emb
74.4 -21.00 upb
108.8 -26.00 emb
108.8 -21.00 dnb
123.3 -26.00 emb
123.3 -21.00 upb
167.2 -26.00 emb
167.2 -21.00 dnb
187.2 -26.00 emb
187.2 -21.00 upb
217.1 -21.00 dnb
301.1 -26.00 emb
301.1 -21.00 dnb
335.3 -21.00 upb
390.3 -21.00 dnb
423.0 -21.00 upb
505.7 -26.00 emb
505.7 -21.00 upb
540.8 -26.00 emb
540.8 -21.00 dnb
555.3 -26.00 emb
555.3 -21.00 upb
597.8 -26.00 emb
597.8 -21.00 dnb
618.9 -26.00 emb
618.9 -21.00 upb
648.9 -21.00 dnb
0 -70.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 591 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vli-dona009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.8 T
0.75 dup scale


% --- 9 ((notitle)) ---
0 -25.34 T
3.2 22.9 -5.0 120.0   -28.8 bm
3.2 22.1 -5.0 349.2   -28.8 bm
-3.2 34.2 -4.1 562.3   -51.1 bm
-3.2 17.5 3.6 621.0   -61.2 bm
-3.2 17.1 3.5 660.0   -52.2 bm
(3) 579.3   -65.1  bnum
593.4   -22.8 576.3   -18.3 571.1   -22.0 0 0.2 575.4   -19.3 594.2   -23.8 598.6   -28.8 571.1   -22.2 SL
637.5   -25.2 628.1   -26.1 625.2   -31.0 0 0.2 627.6   -27.1 638.0   -26.2 640.4   -29.8 625.2   -31.1 SL
674.5   -17.8 666.5   -20.7 664.2   -26.0 0 0.2 666.2   -21.7 674.9   -18.8 676.9   -22.0 664.2   -26.2 SL
14.0 F1  157.3   -16.0 M (80) showb
0 -54.00 M 699.30 staff
12.0 -54.0  tclef
30.0 -42.0 ft0 35.0 -33.0 ft0 
74.1 -48.0 Hd 9.0 3 dt -9.0 sh 20.0 su
116.5 -48.0 hd 19.2 su
139.4 -57.0 hd -9.0 sh 23.2 su
24.0 157.3 -54.0 bar
176.5 -48.0 Hd -9.0 sh 20.0 su
212.2 -48.0 hd 1 20.0 sfu
238.8 -27.0 hd -9.0 sh 20.0 sd
263.3 -42.0 r8
24.0 281.0 -54.0 bar
300.6 -48.0 Hd 9.0 3 dt -9.0 sh 20.0 su
345.7 -48.0 hd 19.2 su
367.9 -57.0 hd -9.0 sh 23.2 su
24.0 385.6 -54.0 bar
405.3 -48.0 Hd -9.0 sh 20.0 su
440.8 -48.0 hd 1 20.0 sfu
466.2 -27.0 hd -9.0 sh 20.0 sd
492.1 -42.0 r8
24.0 509.3 -54.0 bar
521.3 -42.0 r8
545.3 -21.0 hd -9.0 nt 1 21.0 sfd -24.0 hl
565.8 -27.0 hd 24.1 sd
584.8 -33.0 hd -9.0 nt 20.4 sd
599.9 -36.0 hd 19.2 sd
624.5 -42.0 hd -9.0 nt 19.2 sd
642.1 -36.0 hd 21.6 sd
663.5 -33.0 hd 19.2 sd
680.6 -27.0 hd 21.7 sd
24.0 699.3 -54.0 bar
202.7 -56.4 185.9 -56.4 180.9 -52.9 0 -0.2 185.1 -55.4 203.5 -55.4 207.7 -52.7 180.9 -52.7 SL
431.4 -56.4 414.7 -56.4 409.7 -52.9 0 -0.2 413.9 -55.4 432.2 -55.4 436.4 -52.7 409.7 -52.7 SL
(f) 74.1 -76.00 pf
74.1 -26.00 dnb
116.5 -26.00 upb
139.4 -28.00 dnb
176.5 -26.00 upb
238.8 -19.00 accent
238.8 -11.00 dnb
300.6 -26.00 dnb
345.7 -26.00 upb
367.9 -28.00 dnb
405.3 -26.00 upb
466.2 -19.00 accent
466.2 -11.00 dnb
545.3 -13.00 dnb
0 -77.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 575 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vli-dona010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 75.3 T
0.75 dup scale


% --- 10 ((notitle)) ---
0 -25.34 T
-3.2 22.0 -3.9 95.0   -46.3 bm
-3.2 18.9 3.7 141.5   -59.2 bm
-3.2 35.2 -4.2 262.4   -49.0 bm
-3.2 20.6 3.8 320.7   -59.2 bm
-3.2 18.8 3.7 361.5   -50.2 bm
-3.2 23.3 -4.0 454.9   -46.2 bm
-3.2 20.2 3.8 501.2   -59.2 bm
(3) 280.0   -63.1  bnum
116.0   -15.0 104.0   -14.0 100.3   -18.5 0 0.2 103.4   -15.0 116.6   -16.0 119.6   -20.1 100.3   -18.7 SL
159.0   -23.1 148.8   -24.1 145.8   -28.9 0 0.2 148.3   -25.1 159.5   -24.1 162.1   -27.7 145.8   -29.1 SL
294.4   -20.8 276.6   -16.2 271.3   -20.0 0 0.2 275.8   -17.2 295.2   -21.8 299.7   -26.8 271.3   -20.2 SL
339.6   -23.1 328.4   -24.0 325.0   -28.9 0 0.2 327.9   -25.0 340.1   -24.1 343.0   -27.7 325.0   -29.1 SL
377.3   -15.8 368.4   -18.7 365.7   -23.9 0 0.2 368.0   -19.7 377.7   -16.8 380.0   -19.9 365.7   -24.1 SL
477.0   -14.9 464.2   -14.0 460.3   -18.4 0 0.2 463.6   -15.0 477.6   -15.9 480.8   -20.0 460.3   -18.6 SL
519.8   -23.1 508.8   -24.0 505.6   -28.9 0 0.2 508.3   -25.0 520.4   -24.1 523.1   -27.7 505.6   -29.1 SL
14.0 F1  208.9   -21.0 M (85) showb
0 -52.00 M 699.30 staff
12.0 -52.0  tclef
30.0 -40.0 ft0 35.0 -31.0 ft0 
54.4 -40.0 r8
77.2 -19.0 hd -9.0 nt 1 21.0 sfd -22.0 hl
98.5 -25.0 hd 21.3 sd
120.5 -31.0 hd -9.0 nt 19.2 sd
145.0 -40.0 hd -9.0 nt 19.2 sd
163.9 -34.0 hd 21.5 sd
185.7 -40.0 r4
24.0 208.9 -52.0 bar
220.6 -40.0 r8
245.3 -19.0 hd -9.0 nt 1 21.0 sfd -22.0 hl
265.9 -25.0 hd 24.0 sd
285.2 -31.0 hd -9.0 nt 20.3 sd
301.1 -34.0 hd 19.2 sd
324.2 -40.0 hd -9.0 nt 19.2 sd
344.8 -34.0 hd 21.4 sd
365.0 -31.0 hd 19.2 sd
383.7 -25.0 hd 21.5 sd
24.0 402.0 -52.0 bar
414.1 -40.0 r8
438.5 -19.0 hd -9.0 nt 1 21.0 sfd -22.0 hl
458.4 -25.0 hd 21.2 sd
481.7 -31.0 hd -9.0 nt 19.2 sd
504.7 -40.0 hd -9.0 nt 19.2 sd
524.9 -34.0 hd 21.4 sd
544.8 -40.0 r4
24.0 569.2 -52.0 bar
588.2 -19.0 hd -9.0 nt 41.0 sd -22.0 hl 588.2 -40.0 hd -9.0 nt
617.5 -19.0 hd 41.0 sd -22.0 hl 617.5 -40.0 hd
647.6 -19.0 hd 41.0 sd -22.0 hl 647.6 -40.0 hd
676.9 -19.0 hd 41.0 sd -22.0 hl 676.9 -40.0 hd
24.0 699.3 -52.0 bar
77.2 -11.00 dnb
245.3 -11.00 dnb
438.5 -11.00 dnb
588.2 -11.00 dnb
0 -75.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 1744 6215 a Fe(10)p eop end
%%Page: 11 11
TeXDict begin 11 10 bop -317 236 a @beginspecial 0 @llx
0 @lly 544 @urx 77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona011.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vli-dona011.abc (11)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.8 T
0.75 dup scale


% --- 11 ((notitle)) ---
0 -25.34 T
-3.2 29.8 -5.4 161.7   -49.8 bm
-3.2 31.3 -5.5 476.1   -49.7 bm
-3.2 30.6 -5.4 647.3   -49.8 bm
(3) 176.6   -64.5  bnum
(3) 491.7   -64.5  bnum
(3) 662.6   -64.5  bnum
189.4   -19.3 174.7    -7.9 170.4   -12.1 0 0.2 174.0    -8.9 190.1   -20.3 193.7   -28.9 170.4   -12.3 SL
505.0   -19.3 489.5    -7.9 484.9   -12.1 0 0.2 488.8    -8.9 505.7   -20.3 509.6   -28.9 484.9   -12.3 SL
675.6   -19.3 660.5    -7.9 656.0   -12.1 0 0.2 659.8    -8.9 676.3   -20.3 680.2   -28.9 656.0   -12.3 SL
14.0 F1  341.2   -23.0 M (90) showb
0 -54.00 M 699.30 staff
12.0 -54.0  tclef
30.0 -42.0 ft0 35.0 -33.0 ft0 
64.1 -21.0 hd 8.0 0 dt -9.0 nt 41.0 sd -24.0 hl 64.1 -42.0 hd 8.0 3 dt -9.0 nt
97.0 -21.0 hd 1 41.0 sfd -24.0 hl 97.0 -42.0 hd
120.0 -21.0 hd 1 41.0 sfd -24.0 hl 120.0 -42.0 hd
139.8 -15.0 hd 1 27.0 sfd -24.0 hl -18.0 hl
165.2 -21.0 hd -9.0 nt 28.8 sd -24.0 hl
179.4 -27.0 hd 25.4 sd
194.9 -36.0 hd 19.2 sd
24.0 213.6 -54.0 bar
232.5 -21.0 hd -9.0 nt 41.0 sd -24.0 hl 232.5 -42.0 hd -9.0 nt
262.5 -21.0 hd 41.0 sd -24.0 hl 262.5 -42.0 hd
288.8 -21.0 hd 41.0 sd -24.0 hl 288.8 -42.0 hd
317.8 -21.0 hd 41.0 sd -24.0 hl 317.8 -42.0 hd
24.0 341.2 -54.0 bar
377.8 -21.0 hd 8.0 0 dt -9.0 nt 41.0 sd -24.0 hl 377.8 -42.0 hd 8.0 3 dt -9.0 nt
413.6 -21.0 hd 1 41.0 sfd -24.0 hl 413.6 -42.0 hd
434.0 -21.0 hd 1 41.0 sfd -24.0 hl 434.0 -42.0 hd
455.8 -15.0 hd 1 27.0 sfd -24.0 hl -18.0 hl
479.6 -21.0 hd -9.0 nt 28.7 sd -24.0 hl
495.6 -27.0 hd 25.5 sd
510.9 -36.0 hd 19.2 sd
24.0 529.2 -54.0 bar
549.5 -21.0 hd -9.0 nt 41.0 sd -24.0 hl 549.5 -42.0 hd -9.0 nt
577.8 -21.0 hd 41.0 sd -24.0 hl 577.8 -42.0 hd
604.9 -21.0 hd 1 41.0 sfd -24.0 hl 604.9 -42.0 hd
627.1 -15.0 hd 1 27.0 sfd -24.0 hl -18.0 hl
650.8 -21.0 hd -9.0 nt 28.8 sd -24.0 hl
665.9 -27.0 hd 25.5 sd
681.4 -36.0 hd 19.2 sd
24.0 699.3 -54.0 bar
112.0 -50.0 103.5 -50.0 100.9 -46.7 0 -0.2 103.1 -49.0 112.4 -49.0 114.6 -46.5 100.9 -46.5 SL
113.2 -13.0 103.8 -13.0 100.9 -16.3 0 0.2 103.3 -14.0 113.7 -14.0 116.1 -16.5 100.9 -16.5 SL
426.6 -49.9 419.5 -49.9 417.4 -46.6 0 -0.2 419.2 -48.9 426.9 -48.9 428.7 -46.4 417.4 -46.4 SL
427.8 -13.1 419.8 -13.1 417.4 -16.4 0 0.2 419.4 -14.1 428.2 -14.1 430.2 -16.6 417.4 -16.6 SL
139.8 -11.00 dnb
455.8 -11.00 dnb
627.1 -11.00 dnb
0 -77.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 601 x @beginspecial 0 @llx 0 @lly 544 @urx
82 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona012.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 82
%%Title: jazzmesse-vli-dona012.abc (12)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 82.5 T
0.75 dup scale


% --- 12 ((notitle)) ---
0 -25.34 T
-3.2 16.7 4.3 116.3   -56.2 bm
-3.2 16.0 -1.6 228.9   -40.2 bm
129.7   -15.0 122.6   -20.2 120.5   -26.0 0 0.2 122.2   -21.2 130.0   -16.0 131.8   -18.6 120.5   -26.2 SL
610.6   -60.6 583.5   -64.4  575.4   -60.3 0 -0.2 582.2   -63.4  611.9   -59.6 618.7   -54.5 575.4   -60.1 SL
695.1   -67.4  685.4   -66.8  682.5   -62.1  0 -0.2 684.9   -65.8  695.6   -66.4  698.0   -62.7  682.5   -61.9 SL
14.0 F1  385.0   -18.0 M (95) showb 480.0   -21.0 M (100) showb
0 -52.00 M 699.30 staff
12.0 -52.0  tclef
30.0 -40.0 ft0 35.0 -31.0 ft0 
63.5 -19.0 hd -9.0 nt 41.0 sd -22.0 hl 63.5 -40.0 hd -9.0 nt
81.3 -40.0 r8
104.5 -40.0 hd -9.0 nt 1 20.0 sfd
119.8 -37.0 hd 19.2 sd
136.5 -28.0 hd 23.9 sd
151.6 -22.0 hd 1 20.0 sfd -22.0 hl
173.7 -19.0 hd -9.0 nt 1 21.0 sfd -22.0 hl
24.0 189.2 -52.0 bar
202.7 -19.0 Hd 21.0 sd -22.0 hl
232.4 -19.0 hd 21.2 sd -22.0 hl
248.5 -22.0 hd 19.8 sd -22.0 hl
265.3 -25.0 hd 1 20.0 sfd
282.0 -22.0 hd 1 20.0 sfd -22.0 hl
24.0 297.1 -52.0 bar
310.5 -22.0 hd 8.0 3 dt 20.0 sd -22.0 hl
343.2 -19.0 hd -9.0 nt 1 21.0 sfd -22.0 hl
361.5 -40.0 r2
24.0 385.0 -52.0 bar
(5) 433.5 -52.0 mrest
24.0 480.0 -52.0 bar
493.5 -40.0 r2
521.2 -40.0 r4
540.1 -40.0 r8
569.4 -52.0 hd -9.0 nt 1 20.0 sfu
24.0 586.8 -52.0 bar
599.8 -43.0 hd 20.0 su
620.7 -43.0 hd 20.0 su
648.7 -46.0 hd 8.0 3 dt -9.0 sh 20.0 su
681.8 -52.0 hd -9.0 nt 1 20.0 sfu
24.0 699.3 -52.0 bar
194.6 -10.8 181.7 -10.8 177.8 -14.2 0 0.2 181.1 -11.8 195.3 -11.8 198.5 -14.4 177.8 -14.4 SL
224.2 -10.8 210.9 -10.8 206.9 -14.2 0 0.2 210.2 -11.8 224.9 -11.8 228.2 -14.4 206.9 -14.4 SL
302.5 -13.8 289.9 -13.8 286.1 -17.2 0 0.2 289.3 -14.8 303.1 -14.8 306.3 -17.4 286.1 -17.4 SL
104.5 -26.00 upb
119.8 -31.00 emb
136.5 -21.00 emb
151.6 -18.00 upb
173.7 -11.00 dnb
282.0 -15.00 upb
239.0 67.5 -84.63 cresc
(f) 569.4 -84.63 pf
569.4 -26.00 dnb
599.8 -49.00 emb
620.7 -49.00 emb
681.8 -26.00 dnb
0 -84.63 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 560 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona013.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vli-dona013.abc (13)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 77.2 T
0.75 dup scale


% --- 13 ((notitle)) ---
0 -25.34 T
-3.2 19.7 2.3 427.1   -62.2 bm
-3.2 20.6 2.3 463.1   -56.2 bm
-3.2 14.6 3.3 630.3   -58.8 bm
-3.2 13.5 -2.1 667.7   -57.0 bm
181.1   -22.6 151.4   -21.6 142.7   -26.4 0 0.2 150.0   -22.6 182.5   -23.6 189.8   -28.0 142.7   -26.6 SL
275.2   -22.9 260.0   -22.2 255.4   -26.8 0 0.2 259.3   -23.2 275.9   -23.9 279.7   -28.0 255.4   -27.0 SL
393.3   -13.0 375.3   -11.0 369.8   -15.4 0 0.2 374.4   -12.0 394.2   -14.0 398.8   -18.4 369.8   -15.6 SL
585.0   -26.3 568.3   -29.7 563.3   -35.2 0 0.2 567.5   -30.7 585.8   -27.3 590.0   -30.5 563.3   -35.4 SL
642.5   -19.9 636.3   -23.3 634.4   -28.6 0 0.2 636.0   -24.3 642.8   -20.9 644.3   -23.9 634.4   -28.8 SL
682.4   -23.4 676.5   -20.5 674.7   -24.4 0 0.2 676.2   -21.5 682.7   -24.4 684.1   -28.8 674.7   -24.6 SL
49.2   -27.5 35.6   -27.0 31.6   -31.5 0 0.2 35.0   -28.0 49.8   -28.5 53.3   -32.6 31.6   -31.7 SL
14.0 F1  379.8    -8.0 M (105) showb
0 -54.56 M 699.30 staff
12.0 -54.6  tclef
30.0 -42.6 ft0 35.0 -33.6 ft0 
54.2 -39.6 hd 8.0 0 dt 20.0 sd
85.4 -42.6 hd -9.0 nt 1 20.0 sfd
102.2 -42.6 hd 8.0 3 dt 20.0 sd
135.6 -51.6 hd -9.0 sh 1 20.0 sfu
24.0 152.7 -54.6 bar
172.4 -42.6 hd -9.0 nt 20.0 sd
191.9 -42.6 hd 20.0 sd
218.8 -45.6 hd 8.0 0 dt -9.0 sh 20.0 su
249.6 -51.6 hd -9.0 sh 1 20.0 sfu
24.0 267.9 -54.6 bar
280.8 -36.6 hd 8.0 3 dt 20.0 sd
312.7 -39.6 hd -9.0 sh 1 20.0 sfd
330.3 -39.6 hd 8.0 0 dt 20.0 sd
362.5 -48.6 hd -9.0 sh 1 20.0 sfu
24.0 379.8 -54.6 bar
400.1 -33.6 Hd -9.0 nt 20.0 sd
430.6 -42.6 hd -9.0 nt 19.6 sd
450.3 -39.6 hd -9.0 sh 20.4 sd
466.6 -36.6 hd 19.7 sd
487.2 -33.6 hd -9.0 ft 20.3 sd
24.0 500.7 -54.6 bar
515.1 -33.6 Hd 9.0 0 dt 20.0 sd
546.1 -42.6 r8
562.0 -42.6 hd 1 20.0 sfd
24.0 575.9 -54.6 bar
594.8 -39.6 hd -9.0 ft 20.0 sd
614.9 -39.6 hd 20.0 sd
633.8 -39.6 hd 19.2 sd
648.4 -33.6 hd 21.9 sd
671.2 -36.6 hd -9.0 ft 20.5 sd
684.7 -39.6 hd 19.5 sd
24.0 699.3 -54.6 bar
96.7 -34.8 90.8 -34.8 89.1 -38.0 0 0.2 90.5 -35.8 97.0 -35.8 98.5 -38.2 89.1 -38.2 SL
324.7 -31.8 318.4 -31.8 316.4 -35.0 0 0.2 318.1 -32.8 325.0 -32.8 326.6 -35.2 316.4 -35.2 SL
507.3 -25.4 495.0 -25.4 491.3 -28.8 0 0.2 494.4 -26.4 507.9 -26.4 510.9 -29.0 491.3 -29.0 SL
172.4 -33.56 emb
191.9 -33.56 emb
362.5 -26.56 dnb
430.6 -28.56 upb
450.3 -28.56 dnb
466.6 -28.56 upb
487.2 -25.56 dnb
633.8 -33.56 emb
648.4 -26.56 emb
671.2 -27.56 emb
684.7 -33.56 emb
0 -77.56 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 569 x @beginspecial 0 @llx 0 @lly 544 @urx
78 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona014.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 78
%%Title: jazzmesse-vli-dona014.abc (14)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 78.1 T
0.75 dup scale


% --- 14 ((notitle)) ---
0 -25.34 T
3.2 19.4 -2.3 57.6   -15.4 bm
3.2 14.8 -2.1 338.3   -21.4 bm
3.2 14.2 -3.3 496.8   -21.8 bm
82.2   -54.3 61.6   -54.3 55.5   -49.4 0 -0.2 60.7   -53.3 83.2   -53.3 88.4   -49.2 55.5   -49.2 SL
192.9   -51.7 171.9   -53.1 165.6   -48.6 0 -0.2 170.9   -52.1 193.9   -50.7 199.2   -46.3 165.6   -48.4 SL
260.5   -11.8 250.0    -9.9 246.8   -14.1 0 0.2 249.5   -10.9 261.0   -12.8 263.7   -17.1 246.8   -14.3 SL
294.6   -10.0 285.2   -11.9 282.3   -16.9 0 0.2 284.7   -12.9 295.0   -11.0 297.4   -14.3 282.3   -17.1 SL
363.5   -60.3  342.6   -60.3  336.3   -55.4 0 -0.2 341.5   -59.3  364.5   -59.3  369.8   -55.2 336.3   -55.2 SL
502.8   -61.9  495.9   -60.0  493.8   -55.0 0 -0.2 495.6   -59.0  503.2   -60.9  504.9   -57.6  493.8   -54.8 SL
14.0 F1  314.7   -16.0 M (110) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 
54.1 -35.0 hd 19.6 su
73.4 -38.0 hd -9.0 ft 20.4 su
89.8 -35.0 hd 1 20.0 sfu
110.3 -35.0 hd 1 20.0 sfu
129.9 -35.0 hd 8.0 3 dt 20.0 su
162.6 -41.0 hd -9.0 ft 1 20.0 sfu
24.0 180.4 -47.0 bar
200.7 -38.0 hd -9.0 ft 20.0 su
219.4 -38.0 hd 20.0 su
240.0 -38.0 hd 1 20.0 sfu
264.5 -32.0 hd -9.0 ft 1 20.0 sfd
281.6 -35.0 hd 1 20.0 sfd
297.2 -38.0 hd 1 20.0 sfu
24.0 314.7 -47.0 bar
334.8 -41.0 hd -9.0 ft 19.6 su
349.6 -44.0 hd 20.4 su
371.3 -41.0 hd 1 20.0 sfu
391.5 -41.0 hd 1 20.0 sfu
412.5 -41.0 Hd 20.0 su
24.0 433.7 -47.0 bar
453.5 -41.0 hd -9.0 ft 20.0 su
473.3 -41.0 hd 20.0 su
493.3 -41.0 hd 19.2 su
507.5 -47.0 hd 21.9 su
523.7 -44.0 hd 1 20.0 sfu
542.6 -41.0 hd 1 20.0 sfu
24.0 561.2 -47.0 bar
576.1 -41.0 HD
24.0 605.4 -47.0 bar
(2) 653.4 -47.0 mrest
24.0 699.3 -47.0 bar
123.9 -42.9 116.3 -42.9 114.1 -39.6 0 -0.2 116.0 -41.9 124.2 -41.9 126.1 -39.4 114.1 -39.4 SL
406.2 -48.9 397.8 -48.9 395.3 -45.6 0 -0.2 397.4 -47.9 406.6 -47.9 408.7 -45.4 395.3 -45.4 SL
567.1 -49.4 551.6 -49.4 546.9 -45.9 0 -0.2 550.8 -48.4 567.9 -48.4 571.8 -45.7 546.9 -45.7 SL
54.1 -44.00 emb
73.4 -44.00 emb
89.8 -44.00 emb
162.6 -19.00 dnb
240.0 -44.00 emb
264.5 -26.00 emb
281.6 -26.00 emb
297.2 -44.00 emb
241.4 83.4 -78.83 cresc
334.8 -50.00 emb
349.6 -51.00 emb
(mp) 371.3 -78.83 pf
371.3 -50.00 emb
493.3 -50.00 emb
507.5 -54.00 emb
523.7 -51.00 emb
542.6 -19.00 dnb
0 -78.83 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 543 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona015.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vli-dona015.abc (15)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 74.5 T
0.75 dup scale


% --- 15 ((notitle)) ---
0 -25.34 T
-3.2 13.3 2.1 457.5   -54.5 bm
-3.2 11.7 2.0 528.5   -54.5 bm
14.0 F1 41.6   -17.0 M (115) showb 500.4   -16.0 M (120) showb
0 -47.00 M 699.30 staff
12.0 -47.0  tclef
30.0 -35.0 ft0 35.0 -26.0 ft0 
54.1 -35.0 r8
73.8 -32.0 hd 1 20.0 sfd
87.3 -35.0 r4
110.5 -35.0 hd -9.0 nt 20.0 sd
125.3 -35.0 r4
24.0 138.7 -47.0 bar
150.3 -32.0 hd 20.0 sd
165.1 -35.0 r8
184.1 -35.0 hd -9.0 nt 1 20.0 sfd
197.8 -35.0 hd 20.0 sd
212.5 -35.0 r4
24.0 226.4 -47.0 bar
237.9 -35.0 r8
250.6 -32.0 hd 1 20.0 sfd
263.9 -35.0 r4
286.4 -35.0 hd -9.0 nt 20.0 sd
301.0 -35.0 r4
24.0 314.6 -47.0 bar
326.5 -32.0 hd 20.0 sd
341.0 -35.0 r8
360.7 -35.0 hd -9.0 nt 1 20.0 sfd
373.6 -35.0 hd 20.0 sd
389.0 -35.0 r4
24.0 402.3 -47.0 bar
412.9 -35.0 r8
426.0 -32.0 hd 1 20.0 sfd
438.8 -35.0 r4
461.0 -35.0 hd -9.0 nt 19.5 sd
474.3 -32.0 hd 20.5 sd
486.5 -35.0 r4
24.0 500.4 -47.0 bar
532.0 -35.0 hd -9.0 nt 19.5 sd
543.8 -32.0 hd 20.5 sd
556.1 -35.0 r8
569.3 -32.0 hd 1 20.0 sfd
582.9 -32.0 hd 20.0 sd
597.1 -35.0 r4
24.0 611.2 -47.0 bar
622.1 -35.0 r8
634.6 -32.0 hd 1 20.0 sfd
648.7 -35.0 r4
670.0 -35.0 hd -9.0 nt 20.0 sd
686.1 -35.0 r4
24.0 699.3 -47.0 bar
193.0 -27.4 188.9 -27.4 187.6 -30.5 0 0.2 188.7 -28.4 193.2 -28.4 194.3 -30.7 187.6 -30.7 SL
368.9 -27.4 365.3 -27.4 364.2 -30.5 0 0.2 365.1 -28.4 369.1 -28.4 370.0 -30.7 364.2 -30.7 SL
578.1 -24.4 574.0 -24.4 572.8 -27.5 0 0.2 573.8 -25.4 578.3 -25.4 579.4 -27.7 572.8 -27.7 SL
(mp) 73.8 -74.00 pf
73.8 -26.00 emb
73.8 -21.00 dnb
110.5 -21.00 upb
150.3 -21.00 dnb
184.1 -21.00 upb
250.6 -26.00 emb
250.6 -21.00 dnb
286.4 -21.00 upb
326.5 -26.00 emb
326.5 -21.00 dnb
360.7 -21.00 upb
426.0 -26.00 emb
426.0 -21.00 upb
461.0 -26.00 emb
461.0 -21.00 dnb
474.3 -26.00 emb
474.3 -21.00 upb
532.0 -26.00 emb
532.0 -21.00 dnb
543.8 -26.00 emb
543.8 -21.00 upb
569.3 -21.00 dnb
634.6 -26.00 emb
634.6 -21.00 dnb
670.0 -21.00 upb
0 -74.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 552 x @beginspecial 0 @llx 0 @lly 544 @urx
76 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona016.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 76
%%Title: jazzmesse-vli-dona016.abc (16)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 76.0 T
0.75 dup scale


% --- 16 ((notitle)) ---
0 -25.34 T
-3.2 13.0 2.1 199.2   -60.5 bm
-3.2 13.8 2.1 262.6   -60.6 bm
3.2 20.3 -4.8 423.2   -24.8 bm
3.2 21.0 -4.8 584.3   -24.8 bm
14.0 F1  355.2   -22.0 M (125) showb
0 -53.00 M 699.30 staff
12.0 -53.0  tclef
30.0 -41.0 ft0 35.0 -32.0 ft0 
53.9 -38.0 hd 20.0 sd
69.0 -41.0 r8
90.4 -41.0 hd -9.0 nt 1 20.0 sfd
105.9 -41.0 hd 20.0 sd
123.2 -41.0 r4
24.0 138.5 -53.0 bar
149.6 -41.0 r8
164.6 -38.0 hd 1 20.0 sfd
178.2 -41.0 r4
202.7 -41.0 hd -9.0 nt 19.5 sd
215.7 -38.0 hd 20.5 sd
231.6 -41.0 r4
24.0 246.3 -53.0 bar
266.1 -41.0 hd -9.0 nt 19.5 sd
279.9 -38.0 hd 20.5 sd
293.5 -41.0 r8
307.3 -38.0 hd 1 20.0 sfd
322.6 -38.0 hd 20.0 sd
340.5 -41.0 r4
24.0 355.2 -53.0 bar
389.6 -44.0 Hd 9.0 0 dt 20.0 su
419.7 -44.0 hd 19.2 su
440.0 -53.0 hd -9.0 nt 23.4 su
24.0 452.8 -53.0 bar
465.5 -44.0 Hd 20.0 su
487.6 -44.0 hd 1 20.0 sfu
507.5 -23.0 hd 20.0 sd -23.0 hl
524.0 -41.0 r8
24.0 537.5 -53.0 bar
551.6 -44.0 Hd 9.0 0 dt 20.0 su
580.8 -44.0 hd 19.2 su
601.8 -53.0 hd -9.0 nt 23.4 su
24.0 614.6 -53.0 bar
627.4 -44.0 Hd 20.0 su
649.2 -44.0 hd 1 20.0 sfu
669.9 -23.0 hd 20.0 sd -23.0 hl
686.7 -41.0 r8
24.0 699.3 -53.0 bar
100.8 -33.3 95.6 -33.3 94.0 -36.5 0 0.2 95.3 -34.3 101.0 -34.3 102.3 -36.7 94.0 -36.7 SL
317.5 -30.3 312.4 -30.3 310.9 -33.5 0 0.2 312.2 -31.3 317.7 -31.3 319.0 -33.7 310.9 -33.7 SL
481.1 -52.0 472.1 -52.0 469.4 -48.6 0 -0.2 471.6 -51.0 481.5 -51.0 483.7 -48.4 469.4 -48.4 SL
642.6 -51.9 633.9 -51.9 631.2 -48.6 0 -0.2 633.5 -50.9 643.1 -50.9 645.3 -48.4 631.2 -48.4 SL
53.9 -27.00 dnb
90.4 -27.00 upb
164.6 -32.00 emb
164.6 -27.00 upb
202.7 -32.00 emb
202.7 -27.00 dnb
215.7 -32.00 emb
215.7 -27.00 upb
266.1 -32.00 emb
266.1 -27.00 dnb
279.9 -32.00 emb
279.9 -27.00 upb
307.3 -27.00 dnb
(f) 389.6 -75.00 pf
389.6 -22.00 dnb
419.7 -22.00 upb
440.0 -27.00 dnb
465.5 -22.00 upb
507.5 -19.00 accent
507.5 -11.00 dnb
551.6 -22.00 dnb
580.8 -22.00 upb
601.8 -27.00 dnb
627.4 -22.00 upb
669.9 -19.00 accent
669.9 -11.00 dnb
0 -76.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 693 x @beginspecial 0 @llx 0 @lly 544 @urx
93 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona017.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 93
%%Title: jazzmesse-vli-dona017.abc (17)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 93.4 T
0.75 dup scale


% --- 17 ((notitle)) ---
0 -25.34 T
-3.2 13.0 -2.1 64.6   -63.3 bm
-3.2 12.4 2.0 90.8   -62.3 bm
78.6   -29.0 72.1   -27.5 70.1   -31.7 0 0.2 71.8   -28.5 78.9   -30.0 80.6   -34.0 70.1   -31.9 SL
694.5   -82.3  683.3   -81.7  680.0   -76.9  0 -0.2 682.8   -80.7  695.1   -81.3  697.9   -77.5  680.0   -76.7 SL
14.0 F3 671.2   -17.4 M (Coro:) gcshow 671.2   -32.8 M (S,A:) gcshow 
14.0 F1  133.1   -35.8 M (130) showb 533.0   -32.8 M (135) showb
0 -66.80 M 699.30 staff
12.0 -66.8  tclef
30.0 -54.8 ft0 35.0 -45.8 ft0 
53.3 -39.8 hd 20.0 sd
68.1 -42.8 hd 20.5 sd
81.1 -45.8 hd 19.5 sd
94.3 -42.8 hd 19.5 sd
106.7 -39.8 hd 20.5 sd
119.7 -54.8 r4
24.0 133.1 -66.8 bar
167.5 -45.8 hd 1 20.0 sfd
180.6 -48.8 hd 20.0 sd
195.2 -51.8 hd 1 20.0 sfd
209.2 -51.8 hd 20.0 sd
224.7 -54.8 r4
24.0 237.7 -66.8 bar
249.1 -45.8 hd 1 20.0 sfd
262.6 -48.8 hd 20.0 sd
276.6 -51.8 hd 1 20.0 sfd
290.3 -51.8 hd 20.0 sd
306.0 -54.8 r4
24.0 319.4 -66.8 bar
330.4 -45.8 hd 1 20.0 sfd
343.6 -48.8 hd 20.0 sd
358.7 -51.8 hd 1 20.0 sfd
372.4 -51.8 hd 20.0 sd
387.5 -54.8 r4
24.0 401.1 -66.8 bar
412.5 -48.8 hd 8.0 3 dt 20.0 sd
435.0 -48.8 hd 1 20.0 sfd
448.9 -48.8 hd 20.0 sd
474.3 -54.8 r4
24.0 498.3 -66.8 bar
512.1 -54.8 r1
24.0 533.0 -66.8 bar
(3) 578.5 -66.8 mrest
24.0 621.8 -66.8 bar
634.1 -54.8 r2
652.8 -54.8 r4 8.0 3 dt
679.2 -69.8 shd 1 20.0 sfu
24.0 699.3 -66.8 bar
204.3 -44.1 200.1 -44.1 198.8 -47.3 0 0.2 199.9 -45.1 204.5 -45.1 205.6 -47.5 198.8 -47.5 SL
285.5 -44.2 281.4 -44.2 280.1 -47.3 0 0.2 281.2 -45.2 285.7 -45.2 286.7 -47.5 280.1 -47.5 SL
367.6 -44.2 363.5 -44.2 362.3 -47.3 0 0.2 363.3 -45.2 367.8 -45.2 368.8 -47.5 362.3 -47.5 SL
444.1 -41.1 439.8 -41.1 438.5 -44.3 0 0.2 439.6 -42.1 444.3 -42.1 445.4 -44.5 438.5 -44.5 SL
13.0 F2 (Do) 669.8 -94.0 wd 691.4 -94.0 whf 
53.3 -35.80 dnb
68.1 -35.80 emb
81.1 -38.80 emb
94.3 -35.80 emb
94.3 -33.80 dnb
106.7 -32.80 emb
106.7 -30.80 upb
167.5 -38.80 emb
167.5 -36.80 dnb
180.6 -40.80 upb
195.2 -40.80 dnb
249.1 -38.80 emb
249.1 -36.80 dnb
262.6 -40.80 upb
276.6 -40.80 dnb
330.4 -38.80 emb
330.4 -36.80 dnb
343.6 -40.80 upb
358.7 -40.80 dnb
435.0 -40.80 upb
448.9 -40.80 hld
652.8 -40.80 hld
0 -99.22 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 969 x @beginspecial 0 @llx 0 @lly 544 @urx
126 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona018.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 126
%%Title: jazzmesse-vli-dona018.abc (18)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 126.4 T
0.75 dup scale


% --- 18 ((notitle)) ---
0 -25.34 T
284.1   -48.5 267.9   -61.2 263.0   -71.6 0 0.2 267.1   -62.2 284.9   -49.5 289.0   -53.2 263.0   -71.8 SL
429.5   -52.8 414.6   -51.8 410.1   -56.3 0 0.2 413.8   -52.8 430.2   -53.8 434.0   -57.9 410.1   -56.5 SL
612.7   -42.3 594.8   -45.1 589.5   -50.6 0 0.2 594.0   -46.1 613.6   -43.3 618.1   -46.6 589.5   -50.8 SL
52.2   -57.8 36.4   -57.3 31.7   -61.9 0 0.2 35.7   -58.3 52.9   -58.8 56.9   -62.9 31.7   -62.1 SL
14.0 F3 396.0   -38.4 M (1.Vl) gcshow 
614.4   -38.4 M (swing) gcshow 
14.0 F1  156.5   -60.0 M (140) showb
15.0 F2 608.1 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 60) show
0 -93.97 M 699.30 staff
12.0 -94.0  tclef
30.0 -82.0 ft0 35.0 -73.0 ft0 
55.0 -88.0 shd 20.0 su
77.2 -88.0 shd 20.0 su
107.4 -91.0 shd 8.0 0 dt -9.0 sh 20.0 su
136.6 -97.0 shd 1 20.0 sfu
24.0 156.5 -94.0 bar
171.4 -88.0 shd 8.0 3 dt 26.0 su 171.4 -82.0 shd 8.0 3 dt
203.2 -91.0 shd 1 26.0 sfu 203.2 -85.0 shd
229.4 -91.0 shd 8.0 0 dt 26.0 su 229.4 -85.0 shd 8.0 0 dt
257.7 -97.0 shd 1 20.0 sfu
24.0 276.7 -94.0 bar
291.3 -88.0 shd 32.0 su 291.3 -82.0 shd 291.3 -76.0 shd
319.5 -88.0 shd 32.0 su 319.5 -82.0 shd 319.5 -76.0 shd
346.0 -91.0 shd 8.0 0 dt -9.0 sh 32.0 su 346.0 -85.0 shd 8.0 0 dt 346.0 -79.0 shd 8.0 0 dt
404.0 -97.0 hd 1 20.0 sfu
24.0 421.4 -94.0 bar
435.1 -67.0 hd 8.0 0 dt 20.0 sd
467.1 -70.0 hd -9.0 sh 1 20.0 sfd
483.4 -70.0 Hd 20.0 sd
24.0 503.9 -94.0 bar
524.9 -67.0 Hd 20.0 sd
548.9 -82.0 r4
566.2 -82.0 r8
588.1 -67.0 hd 1 20.0 sfd
24.0 604.9 -94.0 dbar
622.4 -52.0 hd 41.0 sd -64.0 hl -58.0 hl -52.0 hl 622.4 -73.0 hd
643.3 -52.0 hd 41.0 sd -64.0 hl -58.0 hl -52.0 hl 643.3 -73.0 hd
664.2 -55.0 hd 41.0 sd -64.0 hl -58.0 hl 664.2 -76.0 hd
682.9 -67.0 hd 29.0 sd 682.9 -76.0 hd
24.0 699.3 -94.0 bar
222.2 -82.9 211.9 -82.9 208.7 -86.2 0 0.2 211.4 -83.9 222.7 -83.9 225.3 -86.4 208.7 -86.4 SL
222.2 -76.9 211.9 -76.9 208.7 -80.2 0 0.2 211.4 -77.9 222.7 -77.9 225.3 -80.4 208.7 -80.4 SL
478.1 -62.2 472.4 -62.2 470.7 -65.4 0 0.2 472.1 -63.2 478.4 -63.2 479.8 -65.6 470.7 -65.6 SL
13.0 F2 28.7 -138.0 whf (na) 69.3 -138.0 wd (no) 99.2 -138.0 wd 119.2 -138.0 whf (bis) 127.5 -138.0 wd (pa) 163.5 -138.0 wd 182.2 -138.0 whf (cem,) 190.0 -138.0 wd 16.2 219.2 -138.0 wln (do) 249.6 -138.0 wd 272.3 -138.0 whf (na) 283.4 -138.0 wd (no..) 308.6 -138.0 wd 
55.0 -112.0 r1 -106.0 hl
171.4 -112.0 r1 -106.0 hl
291.3 -106.0 r2 -106.0 hl
346.0 -112.0 r4
368.4 -112.0 r8
404.0 -67.97 dnb
-40.4 479.4 -115.97 cresc
(f) 524.9 -115.97 pf
524.9 -62.97 hld
(ff) 588.1 -115.97 pf
588.1 -62.97 dnb
0 -143.17 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial 635 x @beginspecial 0 @llx 0 @lly 544 @urx
86 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vli-dona019.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 86
%%Title: jazzmesse-vli-dona019.abc (19)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:19 2007
%%LanguageLevel: 2
%%EndComments

gsave /origstate save def mark
100 dict begin

%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef

/Times-Roman findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef

/Times-Italic findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef

/Times-Bold findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef

/Helvetica findfont
dup length dict begin
	{1 index /FID ne {def} {pop pop} ifelse} forall
	/Encoding ISOLatin1Encoding def
	currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef

/xymove {
	2 copy /y exch def /x exch def M
} bdef

/cshow {	% usage: str cshow - center at current pt
	dup stringwidth pop 2 div neg 0 rmoveto show
} bdef

/lshow { % usage: str lshow - show left-aligned
	dup stringwidth pop neg 0 rmoveto show
} bdef

/showb { % usage: str showb - show in box
	dup currentpoint 3 -1 roll show
	0.6 setlinewidth
	exch 2 sub exch 3 sub 3 -1 roll
	stringwidth pop 4 add fh 4 add rectstroke
} bdef

/wd { M show } bdef
/wln {	% usage: l x y wln
	M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef

/tclef {	% usage: x y tclef - treble clef
	M
	-1.9 3.7 rmoveto
	-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
	7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
	-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
	-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
	4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
	-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
	0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
	0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
	-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
	3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
	0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
	-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
	0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
	2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
	-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
	0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
	3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
	-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
	fill
} bdef

/stclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef

/octu {	% usage: x y octu - upper '8'
	/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef

/octl {	% usage: x y octl - lower '8'
	/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef

/bclef {	% usage: x y bclef - bass clef
	M
	-8.8 3.5 rmoveto
	6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
	0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
	-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
	1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
	-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
	2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
	-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
	15.5 17.0 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	0.0 -5.5 rmoveto
	0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
	0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
	fill
} bdef

/sbclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef

/cchalf {
	0 0 M 0.0 12.0 rmoveto
	2.6 5.0 rlineto
	2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
	0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
	4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
	-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
	1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
	-1.6 -3.0 rlineto
	fill
} bdef

/cclef {	% usage: x y cclef
	gsave T
	cchalf 0 24 T 1 -1 scale cchalf
	-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
	-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef

/scclef {
	exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef

/pclef {	% usage: x y pclef
	M 1.4 setlinewidth -2.7 2 rmoveto
	0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef

/bm {	% usage: t dx dy x y bm - beam, depth t
	M 3 copy rlineto neg 0 exch rlineto
	neg exch neg exch rlineto 0 exch rlineto fill
} bdef

/bnum {	% usage: str x y bnum - number on beam
	M /Times-Italic 12 selectfont cshow
} bdef

/hbr {	% usage: x1 y1 x2 y2 hbr - half bracket
	M dlw lineto 0 -3 rlineto stroke
} bdef

/r00 {	% usage: x y r00 - longa rest
	xymove
	-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef

/r0 {	% usage: x y r0 - breve rest
	xymove
	-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef

/r1 {	% usage: x y r1 - rest
	xymove
	-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef

/r2 {	% usage: x y r2 - half rest
	xymove
	-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef

/r4 {	% usage: x y r4 - quarter rest
	xymove
	-0.5 8.9 rmoveto
	1.3 -3.4 rlineto
	-2.0 -4.5 rlineto
	3.1 -4.8 rlineto
	-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
	-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
	-2.2 4.2 rlineto
	0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
	-3.3 5.0 rlineto
	fill
} bdef

/r8e {	% 1/8 .. 1/64 rest element
	-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
	2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
	0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
	fill
} bdef

/r8 {	% usage: x y r8 - eighth rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-3.4 -9.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
} bdef

/r16 {	% usage: x y r16 - 16th rest
	xymove
	0.5 setlinewidth 3.3 4.0 rmoveto
	-4.0 -15.6 rlineto stroke
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r32 {	% usage: x y r32 - 32th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-5.5 -21.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
} bdef

/r64 {	% usage: x y r64 - 64th rest
	xymove
	0.5 setlinewidth 4.8 10.0 rmoveto
	-7.0 -27.6 rlineto stroke
	x y M 4.9 10.0 rmoveto r8e
	x y M 3.4 4.0 rmoveto r8e
	x y M 1.9 -2.0 rmoveto r8e
	x y M 0.3 -8.0 rmoveto r8e
} bdef

/dt {	% usage: dx dy dt - dot shifted by dx,dy
	y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef

/hld {	% usage: x y hld - fermata
	1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
	M -7.5 0 rmoveto
	0 11.5 15 11.5 15 0 rcurveto
	-0.25 0 rlineto
	-1.25 9 -13.25 9 -14.50 0 rcurveto
	fill
} bdef

/dnb {	% usage: x y dnb - down bow
	dlw M
	-3.2 2.0 rmoveto
	0.0 7.2 rlineto
	6.4 0.0 rmoveto
	0.0 -7.2 rlineto
	currentpoint stroke M
	-6.4 4.8 rmoveto
	0.0 2.4 rlineto
	6.4 0.0 rlineto
	0.0 -2.4 rlineto
	fill
} bdef

/upb {	% usage: x y upb - up bow
	dlw M -2.6 9.4 rmoveto
	2.6 -8.8 rlineto
	2.6 8.8 rlineto
	stroke
} bdef

/grm {	% usage: x y grm - gracing mark
	M -5 2.5 rmoveto
	5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
	-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef

/stc {	% usage: x y stc - staccato mark
	M currentpoint 1.2 0 360 arc fill
} bdef

/emb {	% usage: x y emb - emphasis bar
	1.2 setlinewidth 1 setlinecap M
	-2.5 0 rmoveto 5 0 rlineto stroke
} bdef

/cpu {	% usage: x y cpu - roll sign above head
	M -6 0 rmoveto
	0.4 7.3 11.3 7.3 11.7 0 rcurveto
	-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef

/sld {	% usage: x y sld - slide
	M -7.2 -4.8 rmoveto
	1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
	-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef

/trl {	% usage: x y trl - trill sign
	/Times-BoldItalic 16 selectfont
	M -4 2 rmoveto (tr) show
} bdef

/umrd {	% usage: x y umrd - upper mordent
	4 add M
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
	2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef

/lmrd {	% usage: x y lmrd - lower mordent
	2 copy umrd 8 add M
	0.6 setlinewidth 0 -8 rlineto stroke
} bdef

/fng {	% usage: str x y fng - finger (0-5)
	/Bookman-Demi 8 selectfont
	M -3 1 rmoveto show
} bdef

/dacs {	% usage: str x y dacs - D.C. / D.S.
	/Times-Roman 16 selectfont
	3 add M cshow
} bdef

/brth {	% usage: x y brth - breath
	/Times-BoldItalic 30 selectfont
	6 add M (,) show
} bdef

/pf {	% usage: str x y pf - p, f, pp, ..
	/Times-BoldItalic 16 selectfont
	5 add M cshow
} bdef

/sfz {	% usage: str x y sfz
	exch 4 sub exch 5 add M pop
	/Times-Italic 14 selectfont (s) show
	/Times-BoldItalic 16 selectfont (f) show
	/Times-Italic 14 selectfont (z) show
} bdef

/coda {	% usage: x y coda - coda
	1 setlinewidth 2 add 2 copy M 0 20 rlineto
	2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
	10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef

/sgno {	% usage: x y sgno - segno
	M 0 3 rmoveto currentpoint currentpoint currentpoint
	1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
	-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
	4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
	-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
	-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
	10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
	-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
	1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
	fill
	M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
	7 add exch -6 add exch 1.2 0 360 arc fill
	8 add exch 6 add exch 1.2 0 360 arc fill
} bdef

/cresc {	% usage: w x y cresc - (de)crescendo
	1.2 setlinewidth 6 add M
	dup 4 rlineto neg 4 rlineto stroke
} bdef

/dplus {	% usage: x y dplus - + decoration
	1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
	-3 -3 rmoveto 6 0 rlineto stroke
} bdef

/accent {	% usage: x y accent - accent
	1.2 setlinewidth M -4 2 rmoveto
	8 2 rlineto -8 2 rlineto stroke
} bdef

/turn {	% usage: x y turn - turn
	M 5.2 8 rmoveto
	1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
	-4.8 3.5 rlineto
	-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
	1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
	0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
	-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
	4.8 -3.5 rlineto
	3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
	-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
	-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
	fill
} bdef

/turnx {	% usage: x y trnx - turn with line through it
	2 copy turn M
	0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef

/lphr {	% usage: x y lphr - longphrase
	1.2 setlinewidth M
	0 -18 rlineto stroke
} bdef

/mphr {	% usage: x y mphr - mediumphrase
	1.2 setlinewidth M
	0 -12 rlineto stroke
} bdef

/sphr {	% usage: x y sphr - shortphrase
	1.2 setlinewidth M
	0 -6 rlineto stroke
} bdef
/ltr {	% usage: len xleft y ltr - long trill
	gsave 4 add T
	0 6 3 -1 roll {
		% first loop draws left half of squiggle; second draws right
		0 1 1 {
			0.0 0.4 M
			2.0 1.9 3.4 2.3 3.9 0.0 curveto
			2.1 0.0 lineto
			1.9 0.8 1.4 0.7 0.0 -0.4 curveto
			fill
			pop 180 rotate -6 0 translate
		} for
		pop 6 0 translate	% shift axes right one squiggle
	} for
	grestore
} bdef
/arp {	% usage: len x ylow arp - arpeggio
	gsave 90 rotate exch neg ltr grestore
} bdef
/wedge {	% usage: x y wedge - wedge
	1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend {	% usage: x y opend - 'open' sign
	dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap {	% usage: x y snap - 'snap' sign
	dlw M currentpoint -3 6 rmoveto
	0 5 6 5 6 0 rcurveto
	0 -5 -6 -5 -6 0 rcurveto
	5 add M 0 -6 rlineto stroke
} bdef
/thumb {	% usage: x y thumb - 'thumb' sign
	dlw M currentpoint -2.5 7 rmoveto
	0 6 5 6 5 0 rcurveto
	0 -6 -5 -6 -5 0 rcurveto
	2 add M 0 -4 rlineto stroke
} bdef

/hl {	% usage: y hl - helper line at height y
	0.8 setlinewidth x -6.5 add exch M
	13 0 rlineto stroke
} bdef

/hl1 {	% usage: y hl1 - longer helper line
	0.8 setlinewidth x -8 add exch M
	16 0 rlineto stroke
} bdef

% accidentals
/sh0 {		% usage: x y sh0 - sharp sign
	gsave T 0.9 setlinewidth
	-1.2 -8.4 M 0 15.4 rlineto
	1.4 -7.2 M 0 15.4 rlineto stroke
	-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
	grestore
} bdef
/sh {		% usage: dx sh - sharp relative to head
	x add y sh0 } bdef

/ft0 {		% usage: x y ft0 - flat sign
	gsave T 0.8 setlinewidth
	-1.8 2.5 M
	6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
	4.6 3.9 4.5 7.6 0 5.7 rcurveto
	currentpoint fill M
	0 7.1 rmoveto 0 -12.6 rlineto stroke
	grestore
} bdef
/ft {		% usage: dx ft - flat relative to head
	x add y ft0 } bdef

/nt0 {		% usage: x y nt0 - natural sign
	gsave T 0.5 setlinewidth
	-2 -4.3 M 0 12.2 rlineto
	1.3 -7.8 M 0 12.2 rlineto stroke
	2.1 setlinewidth
	-2 -2.9 M 3.3 0.6 rlineto
	-2 2.4 M 3.3 0.6 rlineto stroke
	grestore
} bdef
/nt {		% usage: dx nt - natural relative to head
	x add y nt0 } bdef

/ftx {	% usage: x y ftx - narrow flat sign
	M -1.4 2.7 rmoveto
	5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
	3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
	currentpoint fill M
	dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
 } bdef
/dft0 { % usage: x y dft0 ft - double flat sign
	2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
	x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
	2 copy M 0.7 setlinewidth
	-2 -2 rmoveto 4 4 rlineto
	-4 0 rmoveto 4 -4 rlineto stroke
	0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
	2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
	2 copy M 1.3 1.3 rmoveto
	2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
	2 copy M -1.3 1.3 rmoveto
	-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
	M -1.3 -1.3 rmoveto
	-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
 } bdef
/dsh {		% usage: dx dsh - double sharp relative to head
 x add y dsh0 } bdef

% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
	fh 0.4 mul 0 rmoveto currentpoint
	gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
	fh 0.4 mul 0 rmoveto
} bdef
/gcshow {	% usage: str gcshow - guitar chord
	{ dup 129 eq
	  {pop sharp_glyph}
	  { dup 130 eq
	    {pop flat_glyph}
	    { dup 131 eq
	      {pop nat_glyph}
	      {tempstr exch 0 exch put tempstr show}
	      ifelse
	    }
	    ifelse
	  }
	  ifelse
	}
	forall
} bdef

/bar {	% usage: h x y bar - single bar
	M dlw 0 exch rlineto stroke
} bdef

/dbar {	% usage: h x y dbar - thin double bar
	M dlw dup 0 exch rlineto -3 0 rmoveto
	0 exch neg rlineto stroke
} bdef

/fbar1 {	% usage: h x y fbar1 - fat double bar at start
	M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	3 0 rmoveto 0 exch rlineto stroke
} bdef

/fbar2 {	% usage: h x y fbar2 - fat double bar at end
	M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
	currentpoint fill M
	-3 0 rmoveto 0 exch rlineto stroke
} bdef

/rdots {	% usage: x y rdots - repeat dots
	9 add M currentpoint 2 copy 1.2 0 360 arc
	6 add M currentpoint 1.2 0 360 arc fill
} bdef

/csig {	% usage: x y csig - C timesig
	M
	1.0 17.3 rmoveto
	0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
	-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
	2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
	-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
	0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
	-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
	-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
	fill
 } bdef

/ctsig {	% usage: x y ctsig - C| timesig
	dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef

/tsig { % usage: (top) (bot) x y tsig - time signature
	M gsave /Times-Bold 16 selectfont 1.2 1 scale
	0 1 rmoveto currentpoint 3 -1 roll cshow
	M 0 12 rmoveto cshow grestore
} bdef

/stsig {	% usage: (meter) x y stsig - single time signature
	M gsave /Times-Bold 18 selectfont 1.2 1 scale
	0 6 rmoveto cshow grestore
} bdef

/staff {	% usage: l staff - draw staff
	dlw dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	dup 0 rlineto dup neg 6 rmoveto
	0 rlineto stroke
} bdef

/sep0 {	% usage: x1 x2 sep0 - hline separator
	dlw 0 M 0 lineto stroke
} bdef

/hbrce {
	-2.5 1.0 rmoveto
	-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
	3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
	7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
	-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
	fill
} bdef
/brace {	% usage: h x y brace
	gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
	0 -100 M 1 -1 scale hbrce grestore
} bdef

/bracket {	% usage: h x y bracket
	M dlw -5 2 rmoveto currentpoint
	-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
	0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
	3 setlinewidth M 0 2 rmoveto
	0 exch neg -8 add rlineto currentpoint stroke
	dlw M -1.7 0 rmoveto
	10.5 1 12 -4.5 12 -3.5 rcurveto
	0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef

/mrest {	% usage: nb_measures x y mrest
	gsave T 1 setlinewidth
	-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
	5 setlinewidth -20 12 M 40 0 rlineto stroke
	/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef

/mrep {	% usage: x y mrep - measure repeat
	2 copy 2 copy
	M -5 16 rmoveto currentpoint 1.4 0 360 arc
	M 5 8 rmoveto currentpoint 1.4 0 360 arc
	M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 {	% usage: x y mrep2 - measure repeat 2 times
	2 copy 2 copy
	M -5 18 rmoveto currentpoint 1.4 0 360 arc
	M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
	M 1.8 setlinewidth
	-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef

/end1 {	% usage: str dx x y end1 - mark first ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto 0 -20 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/end2 {	% usage: str dx x y end2 - mark second ending
	gsave dlw T 0 -20 M
	0 20 rlineto 0 rlineto stroke
	4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
	show grestore
} bdef

/SL {	% usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
	M curveto rlineto curveto fill
} bdef

%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index 
	putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def

/P1 {	% usage: str lwidth P1
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/P2 {	% usage: str lwidth P2
	/textwidth exch def () TXT
	dup spacecount {
		rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
	} repeat gsave txt show grestore LF () TXT pop
} def

/hd {	% usage: x y hd - full head
	xymove
	3.5 2.0 rmoveto
	-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
	2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef

/Hd {	% usage: x y Hd - open head for half
	xymove
	3.0 1.6 rmoveto
	-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
	1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
	0.5 0.3 rmoveto
	2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
	-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
	fill
} bdef

/HD {	% usage: x y HD - open head for whole
	xymove
	-1.6 2.4 rmoveto
	2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
	-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
	7.2 -2.4 rmoveto
	0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
	-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
	0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
	3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
	fill
} bdef

/HDD {	% usage: x y HDD - round breve
	dlw HD
	x y M -6 -4 rmoveto 0 8 rlineto
	x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef

/breve {	% usage: x y breve - square breve
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef

/longa {	% usage: x y longa
	xymove
	2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
	0 5.4 rmoveto -12 0 rlineto stroke
	dlw x y M -6 -5 rmoveto 0 10 rlineto
	x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef

/shd {		% usage: x y shd
       xymove
	3 1.3 rmoveto
	-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
	1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef

/sHd{
        xymove
	3 1.3 rmoveto
	-1 1.5 -5 -1.0 -4 -2.4 rcurveto
	1 -1.8 7 1.4 6 3.2 rcurveto
	0.5 0.3 rmoveto
	2 -3.8 -5 -7.6 -7 -3.8 rcurveto
	-2 3.8 5 7.6 7 3.8 rcurveto
	fill} bdef

/sHD{
        xymove
	-1.2 1.8 rmoveto
	2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
	-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
	5.4 -1.8 rmoveto
	0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
	-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
	0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
	2.6 0 4.2 1.1 4.2 2.4 rcurveto
	fill} bdef

 /sHdd{	% usage: x y opchnot
	xymove
	-2.5 -2.3 rmoveto
	/Times-Roman 12 selectfont (o) show} bdef

/su {	% usage: len su - up stem
	dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef

/sd {	% usage: len sd - down stem
	dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef

/sfu {	% usage: n len sfu - stem and n flag up
	dlw x y M 3.5 1.0 rmoveto
	1.0 sub 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
		1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
			1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
			fill -5.4 add M
		} for
		1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
		1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfd {	% usage: n len sfd - stem and n flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
		1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
		fill
	  }
	  {
		2 1 3 -1 roll {
			pop currentpoint
			0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
			1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
			fill 5.4 add M
		} for
			1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
			1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
		fill
	  }
	ifelse
} bdef

/sfs {	% usage: n len sfs - stem and n straight flag down
	dlw x y M -3.5 -1.0 rmoveto
	neg 1.0 add 0 exch rlineto currentpoint stroke
	M 1 1 3 -1 roll {
		pop currentpoint
		7 3.2 rlineto
		0 3.2 rlineto
		-7 -3.2 rlineto
		fill 5.4 add M
	} for
} bdef

/ghd {	% usage: x y ghd - grace note head
	xymove
	-1.3 1.5 rmoveto
	2.4 2 5 -1 2.6 -3 rcurveto
	-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef

/gu {	% usage: l gu - grace note stem
	0.6 setlinewidth x y M
	2.0 0 rmoveto 0 exch rlineto stroke
} bdef

/sgu {	% usage: n len sgu - gnote stem and n flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	M dup 1 eq
	  {
		pop
		0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
		1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
		fill
	  }
	  {
		1 1 3 -1 roll {
			pop currentpoint
			1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
			1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
			fill -3.5 add M
		} for
	  }
	ifelse
} bdef

/sgs {	% usage: n len sgs - gnote stem and n straight flag up
	0.6 setlinewidth x y M 2.0 0 rmoveto
	0 exch rlineto currentpoint stroke
	1.2 setlinewidth M 1 1 3 -1 roll {
		pop currentpoint
		4.5 -2.2 rlineto
		stroke -3.5 add M
	} for
} bdef

/ga {	% usage: ga - acciaccatura
	x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef

/ghl {	% usage: x y ghl - grace note helper line
	0.6 setlinewidth x -3 add exch M
	6 0 rlineto stroke
} bdef

/gsl {	% usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
	dlw M curveto stroke
} bdef

% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh {		% usage: x y gsh
	gsc sh0 grestore
} bdef
/gnt {		% usage: x y gnt
	gsc nt0 grestore
} bdef
/gft {		% usage: x y gft
	gsc ft0 grestore
} bdef
/gdsh {	% usage: x y gdsh
	gsc dsh0 grestore
} bdef
/gdft {	% usage: x y gdft
	gsc dft0 grestore
} bdef

0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\(   \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 85.8 T
0.75 dup scale


% --- 19 ((notitle)) ---
0 -25.34 T
-3.2 32.1 0.0 150.6   -56.9 bm
(3) 166.6   -69.0 bnum
178.1   -25.1 160.6   -26.5 155.4   -31.7 0 0.2 159.8   -27.5 179.0   -26.1 183.4   -29.8 155.4   -31.9 SL
14.0 F1 43.0   -36.0 M (145) showb 535.9   -35.0 M (150) showb
0 -66.00 M 699.30 staff
12.0 -66.0  tclef
30.0 -54.0 ft0 35.0 -45.0 ft0 
65.8 -27.0 hd 1 41.0 sfd -36.0 hl -30.0 hl 65.8 -48.0 hd
83.8 -30.0 hd 8.0 3 dt 41.0 sd -36.0 hl -30.0 hl 83.8 -51.0 hd 8.0 0 dt
110.5 -54.0 r8
126.9 -48.0 hd 1 20.0 sfd
154.1 -39.0 hd 17.9 sd
172.9 -39.0 hd -9.0 sh 17.9 sd
186.2 -36.0 hd 20.9 sd -36.0 hl
24.0 200.4 -66.0 bar
213.1 -33.0 hd 41.0 sd -36.0 hl 213.1 -54.0 hd
234.7 -33.0 hd 41.0 sd -36.0 hl 234.7 -54.0 hd
258.9 -33.0 Hd 38.0 sd -36.0 hl 258.9 -51.0 Hd
24.0 280.5 -66.0 bar
293.6 -39.0 hd 20.0 sd
313.7 -54.0 r4
334.7 -18.0 hd 41.0 sd -36.0 hl -30.0 hl -24.0 hl -18.0 hl 334.7 -39.0 hd
355.4 -18.0 hd 41.0 sd -36.0 hl -30.0 hl -24.0 hl -18.0 hl 355.4 -39.0 hd
24.0 373.9 -66.0 bar
386.2 -18.0 hd 41.0 sd -36.0 hl -30.0 hl -24.0 hl -18.0 hl 386.2 -39.0 hd
409.0 -18.0 hd 41.0 sd -36.0 hl -30.0 hl -24.0 hl -18.0 hl 409.0 -39.0 hd
430.7 -18.0 hd 41.0 sd -36.0 hl -30.0 hl -24.0 hl -18.0 hl 430.7 -39.0 hd
453.1 -18.0 hd 41.0 sd -36.0 hl -30.0 hl -24.0 hl -18.0 hl 453.1 -39.0 hd
24.0 471.0 -66.0 bar
484.5 -18.0 Hd 41.0 sd -36.0 hl -30.0 hl -24.0 hl -18.0 hl 484.5 -39.0 Hd
513.9 -18.0 Hd 41.0 sd -36.0 hl -30.0 hl -24.0 hl -18.0 hl 513.9 -39.0 Hd
24.0 535.9 -66.0 bar
576.2 -18.0 Hd 9.0 3 dt 41.0 sd -36.0 hl -30.0 hl -24.0 hl -18.0 hl 576.2 -39.0 Hd 9.0 0 dt
612.6 -18.0 hd 41.0 sd -36.0 hl -30.0 hl -24.0 hl -18.0 hl 612.6 -39.0 hd
24.0 630.8 -66.0 bar
644.0 -18.0 Hd 41.0 sd -36.0 hl -30.0 hl -24.0 hl -18.0 hl 644.0 -39.0 Hd
672.2 -54.0 r2
24.0 699.3 -66.0 fbar2
126.9 -40.00 dnb
293.6 -35.00 upb
386.2 -14.00 dnb
644.0 -14.00 hld
0 -89.00 T

showpage
end
cleartomark origstate restore grestore


%%EndDocument
 @endspecial -149 5708 a Fb(Christian)34 b(Martin)e(Gabriel:)h
(Jazzmesse)i(\(Mai)e(2003\))e(f)1979 5712 y(\177)1976
5708 y(ur)i(Soli,)g(Chor)f(und)i(Streic)m(horc)m(hester,)h(Violine)e(I)
p 3494 5721 369 4 v 178 5824 a(Besetzung:)h(Mezzosopran)g(\(Solo\),)e
(T)-8 b(enor)33 b(\(Solo\),)g(Chor)g(\(Sopran,)f(Alt,)h(T)-8
b(enor,)33 b(Ba\031\),)-275 5941 y(Streic)m(horc)m(hester)i(\(1.)d
(Violine,)i(2.)e(Violine,)i(Viola,)e(Violoncello,)h(Kon)m(traba\031\),)
f(P)m(auk)m(e,)j(Horn)d(o)s(d.)h(Sax.)g(ad)f(lib.)1721
6057 y Fa(\(10.6.04\))1815 6215 y Fe(11)p eop end
%%Trailer

userdict /end-hook known{end-hook}if
%%EOF