| Current Path : /var/www/web-klick.de/dsh/90_akt/jazzmesse/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/90_akt/jazzmesse/jazzmesse-vc.ps |
%!PS-Adobe-2.0
%%Creator: dvips(k) 5.95a Copyright 2005 Radical Eye Software
%%Title: jazzmesse-vc.dvi
%%Pages: 12
%%PageOrder: Ascend
%%BoundingBox: 0 0 595 842
%%DocumentFonts: CMR17 CMBX12 CMR10 CMR12 CMR8
%%DocumentPaperSizes: a4
%%EndComments
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: dvips -O -1in,-1in -o jazzmesse-vc.ps jazzmesse-vc
%DVIPSParameters: dpi=600
%DVIPSSource: TeX output 2007.10.20:2322
%%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 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
D86BFE8DA8607817AEE030753FCE8C7825450B44B1C8CFA47A5E83D34F2F4813
D5FE101EDBEB0942B0767E98BC85CE69D7B35CE94A22CCCC0BB1EEAD52185ACB
3BB5FD548FF31561B7C03033EB3D779B19B35BBAD0D641960A83D1DA9F633188
B9B97C88792901E5D5D2B50478C33A79D544F0E0F486CB9B44DFAD1D289668FD
0664CD1C3DDD91FE78D1EC367E6246B14B67107C5E5F7AFA2782B80131B95C85
02CE7A6F23AE368AC50DF59470662ECC1A8EC64055E1C95D7D7B8C2C06A62DE5
471FCCAF0C7A0CC8272438DBB489040AEC9C3A7050915C69B22976E70817F8FF
0AE2207F10A6226E78DD3E5E2FE9C07A6920C72F4D09828337028A2DCB9126FA
1C8E936B4716DFB331E405AC463D001D7D0F5A4115A5F973251DDE5E8FBA8EAA
CD2FD893562338A837B79AEB29E23955A0E3295B298872F8D3937C8D8F82711F
06D2C97055C7049498A3002EA376769814F52D5F15C7DF483E3A3EBB657A6BCB
3D05E4258FCBD755D14D65995B2C5989CC62C9B6D533EB5FEAC853BBB39A1F92
7E60AECA0C407613B0A98C55F6B5908FBD21F8DAB04A2222BFD3A4590E97340F
2AB6B92150EA91F337D622FD10204E76D8BAD50B99BF13440CED7284F1FD1E6A
FF58E5818232F5885D6CBA24CD91A22455323D176AACCD6F8BB3A7C5C9A770EF
C1238C1FFDCAA2CA705785B7A56A69485C440924A1F7EC440246AEC7741147A8
5A5D2FBEA22FE0F8A0D64B0014A6E8CA10B6E904873EFD96CF02F4B833DF85CA
01E5A8A5006AC8A972F67BF9EFE2520A9AD35A6A011490C6CFE071D856923AE6
D0C56110A715963A7118529A082CEE1288A441295FFE52B516C4A295F7EF5779
8030D581DC325C82FC6B53F5A15C36C696A980BA010D6D327BC4FBE7719DE863
797A999F30C0A346C0D0C84A059DC041AC0F71DE7C3B1052F0EF43690C3F9C8A
27AE750AAE9E511742B21438C3A5ACE2AE2551F2A32BD646EAD29D578540A202
00314DE5A9352922DF84C8E365A48DBFE2A01E241DCF2355CAD4E33AD7573892
200B6DDF187F1201A821C43AFC1DC259F7D068090CF28A19CEC8553B0EAD5EDB
D91CA775728AEC793FC04E53722FD8AB89AAB15475AA462578AEE36BFD5A9892
2ABAB65A9194313E501E7EAD79C6E76B8E18BB5BA1ECD09CB8584C936E42F449
F3567A0EE6BEB300D8B8E6973EFE71FA5FCF4E360638B4855B16E68B13CBD4C0
6A2ADB67C9B04D667B97AAAE4F9B5AC09BB168D9A6E2A7CA3DAD3FE07DA4187D
62F4B692C1E0FF1CA41FA5500B7FEBEE43D64051CDAC93777429815C98AE1A85
561F3E901423F07CE335F1B85659662CCEA7D261790A8D2968B8D8A82B9C11D4
AF9B2FA4C49265FC22A8197165EB98FD40B2E6BB3C8B09C15D5B24DB61771E40
247ACA8A3628ECE59E2296B628B0D195026B638D7A770C839D27C3B83389A917
9859F02F7E91564D4161300D5425C57BFC95688F702D60DD83699A34B54D65D5
930D07512BF0C93E2B022B27C6D17A2B3DF8365E45A698BD2A3C57475F8D9C25
A287D3BC248CA65D826F9431A4D4DC113DF1874CAE1CDAAA286A775C0DFFA6FB
1945A61550E9C31930D60D38C1D2847F231AFB95056604AB105FF3428280FD81
CE691D3A5855E5BA072427DDB4E5B14E32AB73D59ECEECD0BF710CB4219D5053
69B2FB50141CD71167AB6034B1BDE9629B2773C53E7CC175B233421F07EC2ED3
A4F13AC6D0A32D90F82FB089A0A499B2B9255E14AF305E7D49528A354B687AF2
4319BF76654DB4510C67ACE9C7710228C6576D900A55100CBB103AE6FFD46170
5713C4367F28B077360FB2109051CE6240C499D620659AD84B1CE688F91B58D6
C6E38791BF0C09889F236E2972205472A9E95493D7704BCBE13AE6CE560F948A
EAF6D6EC2A54A68CF2767BC5D701FCACDA4E5BCF86A098FA4FA07F7E51984D09
893B13E11B68AC5C8AE29E7FC15E6C65FA4C653354F8B31D389947DD8EB3EA45
EFCAC9229FEED9BC4F67D97FF645DF5577FB9E5E35385D12ADF8C98A13C47705
C2C936BE67CB6941C739ED37E6A2DEE9E3AC11D780598AE1D84935DAAEE5E826
EC766883341747DD12B1DF28D0A1698DC3E5BFC3570800BE8AD3FDBA0DEF7D5A
05B7F940231C3A0DFCDE4BBD649C59E47797F0462192AC4073F08D13D3A80628
83193B1B0E701DBBBC91B598508FCC2D07BA5AA5B5BC168CB8DC019FB03F77D5
BA59FAEB0B581B1472FA1500B63832CDE109F06A2251C71C77559642A1E2D710
1BC31770022AC0B061F4049651F693DE87EAFB5E843817D6C8FB98E021DC33C2
798A6F4FB76F6CC4DB23A9F7E9CE3DEA4C8AE036D9B892F046B9424DA3279329
0FDFA233B18E497C059477C2AA989A04D61AA4B8413EFA4DC7D7309EA6860D54
CC5521E998967ED92A1FAF642B192CC0722C387233C0130B5A207D0E581AE2EF
A0C25D52D5AE57B30B5D34945A0ECEE73C0989420117D0B3DAFC7681273ED234
4C7D163D330A037B55560BCDED60BEF5FE74E98AD8E75A40885599A98A9C0038
2455C436BDE216650A01D69846B58D56204F27C545823FC953B32ADDC5D0D8C8
9EA2C596A7871FB201357DEA834FA5BF38BF862148B4CFACF2EE3C976E37E467
A7D251C774988B8C0990E9806FA1B39CBF8CFB85C8803DC489A6E81648681F04
C6D230AEC04E60CBE9A07E0E1B1764ED21A1354C826F0F270BE7D6D3A2804E67
F567C8B2769B3D5237BF27694F58CB6BA51830465C98587D883F8EC736099B69
7B2871D1EEA621D7DBF800D05781FC583CB326FF10B8886608E972E73DCF3B04
F25122256989D668DF027DF0898F0EA7119D45D483328893F2EC2D6CF531AE03
A52C7A68650D0125C8A206EFFFDDDCEEAD75B1AB9F90367400E0E3867D26E27A
4C554A44D836DAC0AC21BE404748A83F599DB4F9FEFD83A93D39D2841D1CAF77
3055CB5BD855D5EFDA590F33FABC9E5C9A86D547E59E049B5D7BBC8F987012A8
C880BA60E252E26382AAB80224F3E844D593397A9EE36BA6BA1D69AD35E9985E
3715E574A618089DFF93DD86203C37C1FFCB0F9D95B455EDF4CEAB3B9D8EEB95
92A41AE7CC59F046610C43F52B4B02BDFEFFAC75D2384E6A352946A43CF2187C
E4BE24EC4C9C2E5B714130BD26D2EC351D23FDA1E96877F48A0EA4335F3E4767
92CFADFB205D3489C1DBEB161D0F31D64F6F4150B7AFFA3C8FC443E187CC4271
8ACAE057491D39EDE9CDC0FB48077B306A670DCAE863C81F107337468305CDBB
4D4FC52660B3EEF3B5F9D09AD13898823ECD719B419AB0341FFE4D1D00E8B466
24A49FE13015497A544741DC90FD7697B337B6A37491E48EB5DADB76F636AD24
B54BF5838D8B01518BED34576FE5C2A5690EF8D25EBD8E86C84738E75ED4A01C
EF9D4128A52271DF8A476D03E43D37E9EA2CEDA2671DCD4D064B27B3E4527F76
4B534D91031BF9D4294EC6A1E019D06DE63ED426AB13573270DE58EBD120BC28
981D1E4C20FBAB3ACA7B87B767BAD89749C1B887143E3FC06027AB293F5A6853
C57E3CC3328AA8DCFA76C3804A2B8323C1B7B9E4DD3C52188DB6BA6C12DF332A
4B0502CF8756E0908DE115B72DB44689DAFDCA7D485C478DADF0E7E89CF28594
545D27601A140091D87AF261887DA353941911C6FC983C306E68C40AE6540EF7
CAE0D1682E5BD81A26925A3EF17638A37D0617559F2E9BADBBB1CD0B70148410
CD3E51E5C8B8FF426958C994E3123B597E0D2E8476A3891DAAD95EB26E497832
826E22472B9F4DE10B20B8BC93028A866FEE74774D0593A1A4E01F879D787945
1B521309C3095A01C60C887E42B29F6CA78B21CEFCF9901F0495D275CBFCD0B1
3C447EC137A82240636E182ABBD1D0622201D95D56F75F45BB688DB61D33AAF9
A1D3A4B7C2FD628A84BDC90FE455B749DB44B70275F591E3DFD9C8937B4A9895
AE5ABB632BACE5B8DF00D3A7483D90BCEC22DF3632F1FAFC5A92031B9FA20CD4
2577C90A370AEB8B4E65F40E72235721F43BE603A52E98086CD49362292998C1
48D6B4DAFA14C360AA7D61DAD983BF439D3182A8B2837481A84AA6450F44BBEB
9F76538E5225C0129822EE7DAD4A2E34AD401C4487EEE681B89B48946F3A3EF7
51090334D3817E150A83A27CA90CC3F7C1A399F4719F8C5741B254D93A047BC0
0A952771C0B0BE36A5126AB82C1986995155DE77925F6B83A26A6199D54641AB
E2CD46A3488FF2285EA781638C8BEE2787415BCCE4DF7C2BD13A2D4063E69C35
C5B1DF48FE5FBF054098D372A4E51007744E63B38044B538AEFA72000262DAF4
219F56ADD21AE59E3A164B5F994B3CC2FAC4AEEF1BB31BC288C8D8F594B4DEC4
944F7C7D280F33052DA18177F4D4FB4F7F41DD415AC4ADA2C698B6065F6389B4
45E5138C01A2A81F27CC8CCEB496957DE714B01C5DB2ACA8D45A0209F14A6471
1027E941572E59583A9C0B3052CDC91F1C67A0BF8BEE55B040D6FAA4526C4403
4188F3433C9E8F5B29DB9302335C70F667294B405FC4EA3FC9149495A314504A
9D281E0D89AC6DF9CA7DF6E6C19DFC870B28ED9E137730D184E8ACDE0A44B444
1551B28182BB5E863494D18B5C68B0B7847052CB6105BC94389301AEBD359B29
A7A2A776EE9224F4060CA8A00CC9EBD75F436279336A064C9F4075A37054CC06
9BDF3738BE095E037AA4B07E96321413480ECE01003183B1E81D0B8877B4312F
0DA574ED2EFDD4AF38A2182A079AF4FC831D11D17B9BF05A93F152AE75F43563
503A262C177CF797E4AA2D88CCF046064710F722F1545A71016AF5D140C772BA
C8ED748FAEAA97EEB7C2C528BFF250565B5113A322E48896324FF60E367B931D
CF09FD72C8ED671EFCDAC97CF5FAF4082BFC3AABA855567DF3FA3CDD4908A069
D04E0CBADFE5D9C92C2D16E382782CB418A06C6C0C9C46AC383362626B7115C4
8BE9FA907FDD587C3336C0C36399E49B0D4F172B9B165CB83282B4CC385F8D33
0565EB97F05A1101D1CFF05A8EED5E76EB6BF91608F358D9023BC4AC9F36F37C
FDC5F27282E68F936992141FDAD005432C6E7D3F37F46BCDC03C776BCCD9A11B
219D20AF1D6EF2C804241CAF1851E984610A7A12316BEEE897B7FB1EB06B7B8A
CBC7E07D7AEC36CAE286467AE5D1144653BA25C18FBF36D9AC8ADACEEA69A634
20446987CECC1DC2B461CBDD4EC5CF2C938C540EF856879A1EFB7DCEDADA189D
FCC559F13200B7A81A576E136389E2FA3F5614BE71DE5DF660B42B9A0A67697E
B2C36D885A5BEE25D7B248617BA680465102DFC66F6166090AA9B922E4E2F8E1
56F348D14708DCD567257AA0C5E445C51020B8FCDF3159CC428AD31C34113163
7F3706C524D0057BF43BD807F3D7D69FDE6F14B69A4C26A18C250FC4BAA460A2
DE6416DD92982334AD8D9020099A121932996FA53D29BBB4A3322CA85DAC7765
34DACB97A66706F591C43FC7608D369CACDF85C0DF104154909A26DD8FBF70BF
F61B6BEF28D2771BD9454A7B911A94D385D5296B56FC937C7AA7988336EAD251
FBA6E7B391CCD53EC062647F3429AB0E987D7C2DEB504A6116B899C4CCA862A4
91C7CF4E83B2DDEDFF28BF37DA24D5D4F90FD71B74489D1E2573536BB7C21EA0
99BA4DF2CD6B179852D9DCEE363B6F01F7ACF8548CFB24489432B29367718817
9E5EA56DEF8DCBD8F374E726A591FA3E8ECDBBFAE460A7816697D1D3F39C47CF
7F5173178095A5BB35A805783269BD35D60E6CCE7D510C63D957E8EF1187C9ED
93D034EDA50B0A38CA336D529B7EAE2CFAC197F380887633E85D2BF799551086
0AD6BDD088085D602D550D587E33E722D8B99D76623C0F403902664D4499CBB6
428C9038895165054C2DB09EA83B964A22B9BC7EF9B09791DCB207856B832B45
2CA9A2462E7957E3EAA4A40AE6CD8465D1DC9F17D719F86E3AA575C69E2A9FEE
D8EE986D30A205DEF459C8719E869F254DF8703E9CAC166E2AD96F9DCB345020
E62C002C3328AE43967E464F06A92F2F69DAD94504CD1D69E870216D37F8B19A
75C37C00899D588D87AB00F5EA99237FE3BE6BD295097AD062DD111C567171D0
D7A9815AD0780BBCCDF0B0436E0F3B8F013AEA908F09DF092DB9971592187C9A
DBB3C955ADB21EE72907A42B05321A19396E22C990E7663DFAA0160AB405ED6B
DEDA41907AAA7724F8ACA33BF65E6FBECB93DE6FA9ABD96325CD92F801398EDC
712FED8C09A3881ECA81B6A9F7AD697FD847746586974D243D3358400F6C15C4
91803287DE73B04CD6FB426A8B579C83F1A84EA0870B7ABF9BCEFB675DB4DB85
CDDC3C40AF663834D813C65B96D66DABE209D27992CC38D53395FDAF6637551C
7DDF10A883B7C40E4966E22857E5BFAF6436052579DE4BB4EF53C9B9217E0AF4
BBC3824269AF89D46A8A8D9794737EBD438968BCCDDF7992FA1957D45F2E7A15
AA61AF61665AE14A3337121720A07FD2FC8450BDCE47BCF591A4280F9F5FBEAC
2FD434CAB252E6F2D9A19B08A7E0C37AC945EB1402FF3E388959596902DF68FC
B6DDEC1A14B20BCFCC73931F9899F848BCBBB2705D69C7A0BAAF5C3C593440BB
B9869E5A1437AA804011DE8D9FA1CA6704449E9588F8EE3511F44A64A074CE84
675A6D6A1E07003CA5E0358E5265B9971C17711C5213E696EFF82264F3636A9D
6A1AE2FAE8F8199D53B1BFBA4426EA44013CC4D9CA925ED82B5278E14F23EC6A
3808A4DE82B64E2237FE39F42B5AC1D0384D74DC3A0EAA1C74BC05B4E7B7182B
766F196104EC6EE0B3B28BD1B5C8C748C1B0F4FB6398DDCC7B5202B055A29B0A
6F69AE9809394E08D9C128F4F4E5A77D3D4D9945232C43A0B1AA13583F0029A0
143BE3F399A755893490C3406E59EB35EDD5252ADAF2960E79313DAE56641797
31DD558F12AB68EF0A1D59FF4A83622DFAC8560E7AEDE592E6DB5DAFCFD6BD65
70296224D973438B669C64910D763459486A31DDC749FF3A53C433A0F691508B
B2E528FFAFA86370DEBB851A7F41279D917B293DB84BD73A96659AF0A75393CE
FA354323FB7FEFC72E3694605FFF2DC36951F8151D4FE518633713F3CFBC8F8C
E97C74042BA713A46737121065895A1DFFEAD54D2A8F3ED8B71833EA25624ECE
0FCF9238F7682D674075AB4A429B050F67ABE343B89BF04F815037C0F04305A1
F5266F2537D3DABD55B7837F71F41AFA538303D417DF94F698F973812600EA95
67868C25816D869132359C00B1AB93501FE9E02C5400BDCB8F343857BEAE1A3E
C8C75605C6F48138B20B15D2DDAD636AF4041B50B956A2A7CDAD063135E3DB4B
04E43088AA13505163EACDE44C140B07D876DBD5CDD5A89C161907C9E1E75506
3FC224DD6568F671B41391E906463885D48389006E8B207A02E2070DD4A1FD25
5FA15BDD5C5050D4E66CDAF82CA6BB64BD33041A8D6FC485B303797079412828
5D3257974404B414FF2B5B1131E8607B04853A7A7341C3B30A89658C88204130
9B6187149248337EB684E2B7BB88BA1C0526CE3697B6AA6BCE7AB156D3BE11B9
0B1C9841C2E5D55BB52C1A6B76C39CD939E69C277C6D5D05F5825C610FCE6C72
E1B51B711690A707D00D7FFE10FAF307ADC421485EAD0A7518987A6266BE7145
501E6A111962F88CA0165DBB556B6C3EEF8BB202A5D2306D93BC25C99D04F339
3E319460EE5E4E72CA193D8BBF7F62989065B514F024C1EE2CE4332D726DBC41
FEBE597D734A1D18398FE94975216C6DDDBF159E79D18A35255BED506395E081
4C4E22006935E649887440C36B39CDB1E41FF7FD5823D9788468BBCFA234D334
AB53B4B796AC12975DA45B58F960FDADF63E5CB1C1FFEA31297D97BDB39DF18E
C4445737B783565ADD9A8638F3BBCA45B5FFADBDDB1294DF89D5A392BFAC2B5E
B4DFC76E226BF33F1BB78F832AAFE15C789BF81B7558A10879BBCE4449B1A21D
E516FCAD25C950DE2AE3FA1F8C49AA24CD469256AA4FE760E833A152572A5BBD
A400A8287A22632E12BAF6D4FCB5560A8BA95300E86696E9F13F3424968EBEF0
03B5F3AFABA5CBA61B8B3A8FE2970CE719D5FE9448B670A92885DEA06025C519
D3B87A87823F8396D626132458E621C6DBEB60D6643AF0C8AA27309FCC56E50E
A39AD65E73F5CD07EE17A89786F6DDE1B8BC22EBA1F82203DAADC647BA438EC9
DA14F2B6395EB608D304AF482EF4BDC095597A57953EC324096A6835B8C7969C
0BA029BEE745079E369DF5A9C4052D99BAE7ABB5DC18C80E67226BCE152C85B6
B74F68F81A40623F68D7FFF309A685142928FB12C4186B96E03BF6F7A15CBCE9
A247B8043F53EBF68455C53469125AD4C46E5B4AB055C1E833CD1A6BD789F779
ED2E01BAB26D708B5AA53B7A7DF2C71195639C4F41BA85E436C27209C2873150
05A1E942EEF66886F22652184AE886EDFB86208BBEB490C8725205E51EA6A97C
F0EE980F365545C82234634C1ED3E8ACB9AA3570D9C8C0FF22143D0FF1647883
858EE9846AC4EC75E2BB0AA97DF7840412A34E5F4C304279305667E85E0CCACD
68AAFC760018C99EE7DE0E00E4FBE658BFC44A89FCC686CA21D83BD6FD0CA864
C59DCE4DA2708D58B13EAD03DE6C606E5D31AD2869A7949EE453AAB6FF879417
FB35B0CB088CD9D22DD48F30C1CEF65E2C9950FA9743C30D1BCB3EBDB90A8A3F
2F14D9FAFE0DF02404263729AFFE43C294508E18633ABC63B40E9B9BE3828911
16ECC276BDFB8C2260646131F713AF6AFF9313A571D62728FE9786590D45BF27
9B78C146EC893862DA934E2651EB8D73E7D38E2C952456AB7F2CB863D81178AE
D4610F78901AC9CFCA63314F713ECEF3C19FF14953819844ECDDB5951A965E5D
98CBA4BCD7FB5BA1D3E00B86E857CA1BBFC131E5C22E20EE2B74157B8E914383
32B157276F4BB78DB99413368FF54C369CFA72B1AF0906F8690184C2FBFBE585
5F8528542A54B131E05A8CA7CF7241D12C88A5A0F0CBC305F3429E0220718F45
BE3AC9BE2A69F9F0F10067DF2C254DF6314C9FA8F049133C04E0398A8E14DCAA
3DEA33CF892E6FEB72A2D2F462C9A0CD72D26B193308F41B1BE4A31DE990291E
37CBE903D938BF226E5442D45560B21168EE3A3092F37DCF02C1FC73AD0062A2
D207034D74AD09062953FC4E0B6371F11C7A517E0E1C1BFAE676767C2F121FFF
D081B72557E76D1E3B767F3DD97D48923017A821BCDF280B98065A5DA5B6F1FB
41375764A2E1BBF2AB1CB07D4C3AB8A6BCA663C40204F0DAC1A5008B3A69638E
540B2C3611A227ED4A4C8AAD94541C95AA6B07A0DDD93DD780837DBD5843E8CB
F48EE7D6590441872D8579A395D256D1B1D24BD6805940262342ACA170514D9A
51E271896C5B224EFF9C5AB2E512D799168002F2C98232F63F26107536073D5A
471FCE4FCB35330A1186E02377A07D6BEC5835DAF8B098C5E6F1B169D7A83675
E49818CC4D9105C118B5B6C956BF61B7DA429B1C6FA681FAE46640E6CDDEC238
21702E98807A3B7F08905151AD108CEFED57BC62D097AD33F4348F207BB1C728
5EBA4D24F26B290B462E6A83A7FA00B1F63958985594BC65162122975F5CA9DA
3758F4921B8D6206E88D277D8FA2DAFBBA4D3EF5EB9F0BA555E2648744CA57D9
408B1C5B89C7492B38CC10738EBE8A414EA9171A1484F5AF9F5DAA29FE1890BE
F3354513FA21EF5D91106D6D09BE09167838543D9098938C2459FF3F7205AFA6
DCC1650245CF6A39B2CA58E2DC4C754A2DC01B48C5D5E09F0C0C5A9DDA5BDEA8
A27934A2DE2FBECA08EFF128B2BAAAAA8A4B7F5F020DA8608B8101A88EB31A47
439DFE94A9C5F207BF2BF78E7EB9E0FABEBC1CE565226410F5D6CE128B63566D
47D055C685A49D9BC10AF66DDB92CE8F7986536397D7956239EB79288B53B8D3
A74D63E0326F301D03ADAA7FFDFB648552C90B3CEC92ED248F8306FF0D02CF19
6F8258D905D87612D919AB4A7749C58A81E8CD4B25633B24467FB0D3F2E3E8C9
5F322C952018779DFC4D5C71F3012F1020D93A14754E46AABDEB27955CAAD66F
8326D26D2E1399F347DE645A732942AC89
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 40 /parenleft put
dup 41 /parenright put
dup 44 /comma put
dup 45 /hyphen put
dup 46 /period put
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
dup 65 /A put
dup 67 /C put
dup 72 /H put
dup 80 /P put
dup 83 /S 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 104 /h put
dup 105 /i put
dup 107 /k put
dup 108 /l 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 127 /dieresis 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
7D1888B284904301450CE0BC15EEEA00E48CCD6388F3FC3BEFD8D9C400015B65
0F2F536D035626B1FF0A69D732C7A1836D635C30C06BED4327737029E5BA5830
B9E88A4024C3326AD2F34F47B54739B48825AD6699F7D117EA4C4AEC4440BF6D
AA0099DEFD326235965C63647921828BF269ECC87A2B1C8CAD6C78B6E561B007
97BE2BC7CA32B4534075F6491BE959D1F635463E71679E527F4F456F774B2AF8
FEF3D8C63B283796A9AD847424B4E6508546C36223A3B17EB82A56592F27FC27
F1D49D5FF4BBC0E16231807AF7E195AA7D0D01C7566243448B222D57B811EAE6
DE9370F84E207DC9BEC731AD6040FD9B804FA14CA264B73136F9AF34390319F6
A543D5D4D7FDDDF2F76651E557683614521110DEC1CCAC426117DDA7D6CF1B8B
7879B21FDC78BAB3C944BCDCD6A65B67F3692F0A8D5E36FB783A63D4FBC9842E
2CBC2720A7206F42A99AEC79FBBA92A27965AF40A71E05E4BA8D7FC58C828226
7A8B47241F73590CE626EDA930A1D18D758636250D9D6A09E133378CD725F586
F40320EF186DDF87AF8C2F5470EADFF39C60384EB4DD859794CDD6E4AA8E8A7A
18E246579B5FD876A7C0AFB4D935B09F36A74412957D9BE1DA54DAC6239E5574
A9AB77DC4A6CFBAF23EC30579BA578299EA68B0BFC5B9B4EAA4D3CADB581AC57
6236C14F8F8D56406DC427BBE7913BA2990D22F36D646D3D31A6DB69512AACF4
0A46538C40FE5F6D369871E017069547B6CD9793652C2EE8EF391B88DC95DC58
DD90F27F47D996223903C9A02FB30DB43963F1DD6EAAE43F5E43F19B54FCA3EB
114CFCC68A6B5106C697C5876011047F6679201540AD102C571BF5DD26AA443B
6B73E80D855F5EBFF6A5BCEC484EFF7634D31618ED926015CF883D323F319D95
D79BEA40912E16BF834DA5B13327538D51A4BAD1812A8116E112FC23069DF8D1
62A2B400EDE05DF412F5D3AF808D720E28A4055091ED6C0F733B035CCAC9A2CA
A288B0193FD47218C21F7EA70DD47A2908D3E6E3AC0B1ED9F0F0E202A25C908D
F2CFA784EB1E9A52E048FEC333BCF7A3A01413B78C7F0EF39AA367A90DC73F6B
F742B7B20F1D9126CD31F3B6D68265BF0E0150053C6C3CDF1192394D91C789B5
3428B93AED4D490791A5F9F44E1FC79A37E8B41BCBB68C4C05147AFDEB68B0DD
F5541E7C994D731D975E1ED38A97E48754A2529012DBB90F93E4D87AC3C04DD9
9D4FA6EAAF606DDCA9515D6E911192A0772AC9CCF99167639A74B0023BBAB1FC
E4E2CA42215C38D3EB7AA23CDF19150A9AF00E901F74D264B8FFF9E4D785C58A
18359CE4B4648049569D425DB71358AE548F8B9F66EBA940567B7814B47E09C2
B12838DF827ECE6D20FBC3A75B23D143A8F4F7E3FB4E6B445F40C5CF5B72C4AC
DD41F7723687F4D555951736F15353B46B83FBAACF512E7BAF86441B4E898AA8
C9715B8E3C65AE8FFAEAF87C1DAD048F1AF5732A5D61758EB6457D12F88119EE
E99BE63E39D377C608511009CD4951A971DC8785BA0EC0BB075A51A151BE648D
6E627812935D70F45018920ED597C1A2472DD4EBCD3ED16B4C05336422D1EA2C
35EC9A5E6FCB10C6210EAFAA3EF4517BE1E7B992D198A55784ADFEBC2910216E
F7ADE2A46110A1B10B98B175940C49B9573D58FE76E48FB1F175FC8A494F25AF
07A5A9E768F57C62756406E66AA67185F10BB15861CDB7ECD65A6C370873B8A1
DA9FEE74D0D2847976A9CE391BD67D8A2F34A8A3A0FF4D02E24685E497DBA8F5
AEDBEDAE4D546F5A1E5AAE8C597F2C0C1B5DFBFB0ECAD6C3CF591B155BA018A1
6E2D787F512D8D436540051A56F90E610AE9A551D717183222BF04B97FF60F32
2990A9EDB4F0068E378A681D703028058A9E81880736B1AB6468E2126C8BB67E
43F2480B61528035882497A08F37934C1C50894B499045B4BDEF7A35986923E9
0FD00D58C3D2B236F72A82C16CB10B7FEA6DF50B8AA4A3D2F89CB4368FCF3264
18563EF2FC92B290F09AB8A630152BFB0C7C1EBDDC12B70187E3DB46A7DCBA01
C4007C6AD01430ACC84CF39FC4FFEAFEBD35BBD1D7D42CC5D6E353D258A2E221
C81B115B429897ABBDE98E033CF1045DEAD812625FF5A77862DB9465D122A894
BF16825677852E04D2C844F3CF7D45FB40AF9178289E699940138CDF8CE3F7ED
FC95C600297A90BFC817E5FEAA93C47A8ED3A1EEFD2F9ACA61A41FEDA4634CEE
76EC57A2FC620A815525B1A629113E8A4D88FB4DE66F7887BFDE6DE13E48907A
174A64B9BD8D16B36CB98EE25354DEF3BEFB285E4E2D3419DA959C495A2EE798
EC312C97CD45A72A0D9F0F18E3BD6D578DC2EE504768595E0D79DD247D99D032
126D67D896754BE3885BDCF6B881E8EB9456570955916FAAC2508E876E0B90DA
663BBA5AA79C6951C18C41017385F4F5D32D31A724419F807C632913E136F54B
4A9546A5787D10E116D2845ED34F7FD8307FB960391827BC74AA19B7F1F61B5D
77D2CCBF6E3D7BA6361FF3279E7CBA627D3B0529279F5A974A9E90A9421ADEA0
B2D87A0FB7D07ED361CBD501164B86BA75BF0477B95285C466B493CFDACBD603
493D3509A582DE99CEC9BFE3A5121E13E0ACDB3B2561B1E7E9F8B8C268EE2580
BD4694F4207AF7719E66EE592D68AA7EEE25320B9E65AFCF1D519FA391C52977
C5F980107A72F4B6B2393812A0B457DC064FE611D7271624320394534A3B6463
FA0896D4E71AD2DAD32BE98678F0F510370CB77628332513A5D7A94563B4D30B
6C2E075E8AC677636D3817869473AFE581EBC4965BEF1C32B363266C9EF52F24
440784E1A193276AF8E3DB59DF934C79FFE703C205697ED86C72290AEE7DB77D
4D355F3D8CAA20FB8C9568D6079F991B582BCA462E2EBDC0A34B445907F77A19
22A5F81E3AE79135E40A863F0DDA1816F9FB8D8EFDCD5E2E4A89126C2FEE2FF7
B140136A6C924F2A522D85FF4EA37E9E8B6FB9A3A04A44872AC3538C22505FC8
14AA8529432F29B5029D8F4A2E7FE4132F90EEACE639277383EFE345A30BB28C
334135B90CD92E98E658C0EDE6F10FFCE8202D700BE6AB4030EE6325719BDDA8
B0026CCC3DD25AED61A94B54290B17B76F60DAF20765A25091258A72086BE0D2
E3C333EC34CF9DE4E442211190FF9558CC609115B8C933724B7C6B1E214ED120
1365EBA855356776E76DF6DAFEB38D9B1979F1E24F078C696FA052FFDCA11675
19EFEB584ACA7D9E89EBC197CD590EDFB5F551F79467B7659E702EF21F9E43AB
4D18AFC5FACFEC1724DBA0CF114A264FA47FC5BCCF400A6C45C771D6D8781AF4
07A6E97FEA1018706BB86D1D54E894921FE413996EFCBA74C56D80885116FCFB
3664B9F9F26D5DA554F2A0927D82820AB19B53DDE929ECA170BD3DFD0FE255C7
60941047FB0D4B1EFC9F2294347CC912A400334D87DC52CE77CB54AA8CA2F726
062348DED557FFF92049E6B15782B624F5E8EF33CB04E2CB4B24EBAE1B66882C
0504BA0EEBC9645E7BBE1DF9542FC2B4749BD6A7E1A23101C3A4B007B1C3AB5E
B04E09C06A3AAD65CFF5D9A519D724A22A7C8C8795709BFB18CDD9C0952601BA
05C295F716C60EA4907EC5166B5A0CA858468F678944E1159044BC3E806C0A94
8B134717F917FEB9471E82D04D89B65D318CA25ABFE30E9FF9FB86A7AF4FC7C0
E0DEF54D3314046E202D4E9602246CEA74F94F9BE179F582FE33A619B8C398B3
656B2C9B175B3EFD8380EAE38B745E9CAE5043582BC54B882A66FD1BAFA2CFAD
761CF095731FDE3746C455B501114121EA5DD21D4910C0EB318D7BCF1240CB3B
10ACD0C35C61302BB11CFAEF1AF36AA9918E54A6A57D84FB64DF9489C3D2E9DB
F46407E184CA45D658F2F0865E2DAD7560DB2816EB2A717673F739245FD91E1F
06272C37E308A6C1C69138F27989FF2813BF3767FC6342EE004896BA9E2EF824
0AFA0A5010FD737D77295C2FC26622164A200CDC6C33C04A946F1EE51350A684
854E4178DD9A63EA6A2A7FB32870A3C79296FF403FD2272B358311DBE998D392
54267F54C6B33B98641388773F71F8F3D77A2BC0698E695D285DBC72DA905467
CEBC681B51B5E3C6DEC79AC905CF21501C11DE0E366B8DE0E7EFC5CE3F5A411D
936E2EF9A849579D8A05C8BBCE6E7D3FEF5F980717B7D3DCD8B785564D0B6A70
0484C2AFDA24F14BF878605883DA1D92048D27E900A4532AB368FD5685819609
A465EC236A69F56259ADD64B3297617E1FB618D31C6773C3325BA892E6884BF3
F309088D447139B1F7288A989390071259DF6E46B70989F70739F8D9DB385BB4
6A7761954F3038D43E38F1BCB0B9D5BAED2D9855FA363B7B9ADA0170C48BD0E8
34F13CFF5E2DA666175BA8F64CBCB29B63ECB66B13313F7132AA68EE31773B91
E032C8F0BF1AE604A1BA6D5A7F7AB8F25FFE3C4AE783A5E5BCAFACED7534048A
323D3F20B23E581091E45AC25CB133F12123F648388A1616285CD6DAA7BD28DC
A1F4AC16886F557689BFB6D17F9B1B6CDEA6DB4FF04CE59C80163F285416F999
355870F3719D49692E21AE9AFCE4F96148B078B84EB6A0D7CCD819E3507264F7
DA7058D024A7167E757EC21D113EDB1AC5593CA841D0DBB4B7CA50DE3FB64B76
F18D4FD4496477C1A678F6849FBA8A129D88BB2A4ACF8F8091A8A92BB5DE87DD
4E4BFF1B82613CC29D98BDF4A2BE3E26563D166B1FD1ABC261E0085A1BA779FD
45E5889A98492D6B62C8F460F950A51CEE4AF74F0B2DFC18AC369FA697213BEE
427CEC43212A0CE381E752F9EDCD46440D5DFF98A329FBEE4FA91566AE4832B0
B396973EE9EAB1248C9C1893874E9248D3C5A0C955AE83C773F955CBF0C8D9DF
01B73073890C9F633F18C4EBA891AC84B45C45F893350D9DE7B50CD4BDD75B04
979EC3AFCE35D19782C751CB77817818C25B92CB62B9FE11ADB02F7BC14802F0
2A8744032D0FD2139234A061DEBCCE8F7A8A8670BD6DB1EB60AA769B4FD5F09F
242B2CB719C3EEDEF05F8C1E5F21353814CCEFF2477947550B7E33D004785A23
84424C2EE87432FFC85A643EBB1DCB07B29D322351FAFE2F6EADB115D8CF0C04
731FCBDB6C14DDDCBD8B55DB3F297A8489FD69502743B5D78F312C38AA388B72
C3D35C47E66EF5A65CC96AC920B3471F9415A85FF36256123C690F31999482BF
2A6B3B44A6D153D0EA462BC33E7278993524584451B96589E3C9917550417A0B
43E0E4B68921C78218EC4E75A6CDC2F322BAA7117F6D62F52B1779088D6BE63B
DEC605513E4EA56D156B3689A1AD3F0DDD0DBF23CC90A5E05CF932559098176B
7848C9CCA6336DEBB734846303EDFDEEAC3EA05D33CA2067947A7F63E983B337
818899419EE905383EA46EE35B8958D218CD659B43A8A3A2F3248813925B4163
C7CF00FEFD63F69FBB3700B5566FFF8CFE0067B478947BA5D8F6D4487F9C5FD4
53FC699BE93DF873F2659B4282845F673454FB0F8C78920C5291FB41E8EB1828
E6DB01B6B00FFD031A92172EB2FA0E7698034C8FFF8D0A2C2D626A35DEF0C441
2098639CB1B869CA6757932263EFE158C57373508B8D0E75027D9A7A8F82F774
545F4004ABC9B731A2998EBE93BE82C2993B4F5E1B948E396F7ADAAA9D2175E1
A1CF8D731477EDBF3DBD813AF96D8CCB465AED57E4F198CE13551921802D6813
F9FEE65C49C307DADF66A738DF8DECB66CC241E8DB26DBF8C62E438B213AFBCB
EF916E5BADEF753A4121F71BE2891936EB336F50D0F36EC0DBDD10BFF3367FF9
3F7E0E1A1B32B5191D92F2B07641EF57927B3A2DABBD30BA6D52B2157B26BAE3
69A1F316D00510E3A315645DDFEA7DD92F6304E0E9B5C80574A2026C2F51D385
5658B52329717E37B46704B5CCADF47CFFDF655DF66122FD138F1363490AC131
D1831DC503A95681E74328CF3F9715A63F1B0D3AAFD7B096593060B794B9ADA8
69CD42DC3C5386103C2DD08DC238637FEE65A02A8C785CB6BADE2D491B1FDB95
A9E62AF458F992C319E60A59E784E7193D527DB04FA983E3007BBC49ABC23289
D8AA773C32B48014D6E1446201545F985643962171E1301130C5937DCD8BEB8E
2FA8F1189475004E1AC4FAB5DF5055B87F6459B49ED7E995A277A21DCC99E2B0
0169D2CDD01D795288B4367FA4C43DBF5997E2378EDC43486A38D0F56E6A664D
5CC6A8D986DE2A8ED000138483FD27E39365E8ED3613FEB346DFE9E6C0561F16
9BB0AE4418DF06A7FF829A7FB26DA32D7C4C8122009B936C9A927C24B0032F26
05EC814A8F2F048B66E1935E0944AB5662E6036640B37D18A7783B3BC30F5E96
8B56943BEAE5A4B297525EA9A0A45C2F9A8907B8B2AA4419C5B7A32BD3CF9FD7
643AC4FCDD0F2D29DA89AA3F3043995DD42BD32D236A79AD71E10EC0CF6E926A
6CC5918D09F3CBAAC418A72E2D8BFD9BBE39DCE323879ACC1170CDE570132374
5E369540172B0A28B91BEB1DD167FAEC15A3C0FAAE0C16BE8BBD210694DE755F
9495DE0C64D1491CB85F6922B428BACB73128FCB7F1D045ED70DD23FEF5B61F7
A236760D8142E0D1D9BB0F2B1DCF28FEA008CE9DB80EA5F06107D9751E35128A
BB6DDF2FC12F0304B8185D702A76C21485747D6941597471F2A873AD2090307E
D1F2ADB969FE36E9838ECCFCCA898C18C6BF13A6F664CFD7EDF2B3E7D32A5E53
C2FB1F6373E9324FB9420A035B1CC1A98788EDCEBE176D5734B2E6993E9E23B6
82B2E2B9A98291101673C532D8A295DE4D00687F0809EDCFEC056EC44A112BA8
7C544D77E8F5290C33ED3A19F1E2ABFA4F93B4CD0563DB6B137FE6A73CD3C3A3
A9DB69811D4F954A223DCD80D76DCB4A036BE748BCA49818D0CB8E84FC825D87
FABD05E6FC4B2307B1EE843AB924FCAEDBFC244FCBAB765C20CEE0DD56C70B90
3B9CC7CE21F857FABC652753E35C2FB005E12A9ECBD36A194DA6AC82AC43D50E
B49206A67B1119A10A259884B8CDC750C15C6F9478AE12AC35D8DDF7A3AF6F63
F9E4282B099DB1B3626F8C241458F1CA9626F18355B886CA10C97AF4A9D8CF55
E5262079D059413459E29F0878091C8930604711CCD9F60B8908AC18BC472DC1
568BE1FFC43F4A8DFACE8872DCDE14D0CE387C77238D7DA3D76220186837A66D
F07D92F87149A3009C3DC2A5C3C06198CFD0E0B26F8B170B9D7011585E0ED734
5BC3F3273FB4DA881AEEBC948B725ADF967BE6666671529D27D4155ED15659C9
0798F026C17ED61D7B2339AC49AF0248B78BFF54424EC37B3419A0735D34F6D7
C694A48F7D16D3CF4EED12F0261F14319E6F9E8F47CF5C9A6A5AD9D562C1E2C9
1B31BBD07B25B155F66A8D833520EFB4D2FD750C720BFC9DAF72731579D2A31A
EA9B3561ADA886D7E28043A940ADA5DAA37A9D5A8B5C0A985046C7D29A7A5914
CA7CE8583BE34E7EC21C808D0BE2CF39E0176034B4E5A446DC5DC8BB3E53051F
A2BCB8ABFCD240CC449BA45A93A132C43B1F7979AAB9BD1F0AA1154F82C774FB
AE74806FDAC580039337272840D67744B7D2A3C08972A957F5E6897C1E4EA853
2F8667C01A2BAE743EE0E5E024C1327BEA24210840B300B1504C8B3FBEF9EA71
76642E2A7C5EDA6AB3E1A286E0D88F1E5027005EE255C2E49A581EAA6C69452C
C45260B6C658D6C97A17969F3970ED2F47D1C8134D8EAB738D3ADCDEB2E762D3
079A3C20FE37814EBDE5369B1F01C6D5F9AC343B910F2CC86652900AB9F4605A
3F98E8364979836D473EB9E7BD0205788C9A424802266F0053421EE4745B38BB
ACE0F58BA5953E62D3B6C230FEC081F3A48789EAED854C1C3AF2662D54D12E5E
775B78A8C65734E272E287EF8F512C6D642D5C365EF1A4A92CBFB588C11DE082
4E5728E5DF6A773CA12EE90040F21C7C41DC4DD7700932166300278D806FB796
7A292BDAFD61883523645FA2613B0ED36856C1693456AA340D81CCAF304286E6
6F53E49EC754972774D8EFDF824F1788BBEB10072A5162B7C35211872C9AF9A9
D051B2596EA6568642C662AF9CC73A8850C9210E1F05B2C61332E879402F2A55
B5FA87F65D354F7B26C4FCE0EAA03FCC388018E8D7DB85B2CE5A96528A8C50CF
B73EC1B1BA7D9770BC73CD333FCDEDED2776FBEABEA5956CC63DEF235F78AE12
41390A93C157AAD72ECBCE15933621D9CB16C68A422E2CCDCC2D990DA2004D8D
022200F5A1A579F8451B9F277CA1D4DED518A62B2BCF947CBE9C059A4E4A1B93
1DA71F1D301803F323D14292EC5B7CBEE7529DF605E431D4011EC76E87925D2D
333209AAEBFCA576ADA7948E58B6947811A4F218BBE2068917B7BD42C2C3B631
95065F8CFEF980754C55CC5E9877C2AA066392BE04A2C35E93D36060CF47C47D
FCA68CDFE482830D6591EE56EFA9D258674794EABC8893836517665D0221F90C
0DE7E198D4A1D8F0809F72D143899C102E1F6FD78BBAA20EACD820663BB21A58
09D977623B5BC63271A689EFCF50C7A15A77B13078DD1023026353F88469E5A7
23464E72B22FD852B46AFA9FBDC59CFD1A9A9809EEFAF23BB8CC4D25C1A1A3A7
730DBF45557F78126F2105928785D7B5A446FEFFB8B1FDF433D210A0DB3490D7
C20FC20F71BC1E51BF519E66C93CCBD23182BEEF3575AF44D4E3C9F2EFE9F50C
F3A173752CDBD97646D81FD38855DB7B2C00ABCB9C6AB0BBA68BC3A0B5D1DE3C
1525DA5512D842A5FAD909C35BAE131FAF6DBADF50B3D8C055DA80D44EA45017
50B515697C8049B9944E3CDC88B379690BE994AE6305BAA2F93262B4881C576F
07DC5B38DE65B2E71862CF1F111B7EFE7D3A8A92966FBD5F072023AB38F127D6
43D0C8A33CAC230630717F92864542ACC8EC5EAF6A1FEBFDE966B158B728F967
9FA12F40A3B332C2ECFF6082CB0A198CAB31159DCA25107A0D1CAEF243C8A876
F3C42E3A1D3332506FD3CE937F62D518D25F48B713328C7D0A22A79DB955A9F1
9424226FA2ADCABB014E721DA8F081F0BB0F0333150CCC529CCC7067BEFE5DE2
95AF50601CAC8F20E812354178FE642DCDC211596CCE2E78D3781B7999446C52
13B5997E7A6745BE7B1D601F00C9A12C35AC5C09F60038E37D21712ADA84AE71
5A0C4B35C7DE62F6535AF200DD83B8A1FBBA347F59A8542798732ACC03F160F6
A6F55626E3EA4AD3BF7D0F004263EE3CD2CF1C917E87393976E8482436CA6D59
901E6E99F280B961229B8214DC79051363AF22CF3B67E76E0B9243A6FB735100
641B053D7893EE221BD616E988083D8278F146AA4867B7F85BC7D388D387D39D
C616DF629F627186920F573611B61F0882131F5EA3EFE5612AB8E5D702C14421
F42FE37B348FF61C0CA488C5AA85E13C5F63C8F31946A564AD1BD81BDABA29A3
6FA721EECF8AC7A5649A6C62ED2850B4BA938BC5E28241EDC4C7A378B6FF6B80
6E59AB0E02E0D253B78DE2CACD3F4299D02711621FF6314B0F8A23DD52E7850E
684177789E5DBE50878412881665855337FA2A2B4D4B558E0BA622255C715246
0871E4EDE9E790A1EBFA34143EAFACE3E5F2D1B43B3440BDCF2FB2B2F00231AB
78F0E477C6C55ECDC3BC7AB9DB2B369151C1730C18FD591067BB7AB787B7FE7D
62A37101DA0AE78EEFFB2B51796E326D499AE133DB7473E4180DCA1E520651B8
BC5DCA1B6A2CA0821E7983B7D173AA90D9FDCE010690688E74B870B4EC46316C
5D00B8D8D8034602B0428C5870D4F58AE5CD39E894B8F4F856C9DA95375E030C
31AA18374DD6A4575EEEC021FBB34C63E3B679B37CE32222D3DE728067FB9F00
C3DC69101F93D5CF1E61609473B14BFED36E468E9956F88FAEDEC49D0D3ACCEC
825690ECE1EC74507C9D503A199B911C43121347026466AF41BC43F2CA8DAF1D
9EDB7FA6D7F88868212B9D07209FFD8D95A6C5EA06B00265240554D2CFD6C71F
4E1B4EDA0DB515B514212E46BF68B658F11362154A678C55B9EE9A54796784D3
65CACA31EA08432250D566984E47A8299DFD182DC81A432EC9222F945C37B087
F43B997B2C685FE6F758C52EC7A204FE90B882B6998D88D5CCB659E0C7A51E84
2AC83018B72BD013962D6C1BB2B691388F1AB4931588A09D5938A8A22760453C
20400571AA07135CBB149924AE8BBF06E5BA87EE41ED7E0DAFD5DCF92DF032B3
A2ED0D86A168A77AC134742DB8CD0C0FA57C94D50A587DBF25E7E91D35DF79F3
859BD9316B6C6647181D54CBB568A59907D2EC78DBF282FC03325C7DA2B92FCA
1EEAC03D727987C4439C0BA3474776458E62A1AA3290F706235F04
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 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 74 /J put
dup 75 /K put
dup 77 /M put
dup 83 /S put
dup 97 /a put
dup 98 /b put
dup 99 /c put
dup 100 /d put
dup 101 /e put
dup 103 /g put
dup 104 /h put
dup 105 /i put
dup 108 /l put
dup 109 /m put
dup 110 /n put
dup 111 /o put
dup 114 /r put
dup 115 /s put
dup 116 /t put
dup 117 /u put
dup 121 /y put
dup 122 /z 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
B4C38C1F2D24B8FDE686832FE96204552C820E45B6BAF0C3308742AE291FB1D9
0E43A8FD2EBD81EB1980071C0B0A0C969425D5F25AFFC692C48795D9D1E64539
33545F13009C91B8F336C19DAAE5730DA9511E15571721FD8688E7E592C31560
603440A35E28038090F84D65598BA51D01DBB77ED5F821B3C6A268FEBD5A0A59
2FF4F445C1BC4B1F0D94AB428B3EE8A6072E614432FA530786B4FC0C35D39638
D706409C79076DBFBBA6CD72DCC3CD1A7ED14C1727002193A49A5CC105DE80AA
DE42966FC29DB4A70910086BC519CF8273A995CACA95881891BF03A3383466B2
B8E280F4E9256F099C8B6E666FED387B1AD264DAA84A6563287AFC79E09D2DB5
98D5D00F9289806DB2FBEDFB419D479252C3512CABEA0C5C10EBE6C8E1F816E0
86E71203373D0E885ACD79D9A399C5CA4F204FFC34D95E6B1D757D0A6ABE8039
A50B201439AA1DF457304AC7E93409B4FC2F00939D609EB345B43C0CA25897B8
42DD28E1377AAF5713BEE606D140564298E610E8B8AF35E9209C6D5C70E58B99
AE2E6E0DAC46D17217DB081C083F21DB5CBDE4759EA3F12034AA4E80C419F54E
22814D237D333F0A9FC61451B6BD4D202A6F925F1F480A6D79F1F151CF091421
ED9C977925C9050C868B6E99B88F4E174D6F1777CCA3A700199507C325B5A672
D74EFE72B84B181EB1AFAD9583D75663BA5F86209542ABD66930370867EA04B4
00FC0D569194900F03E12C17AC37C6D7E57ED067CB49858C8609F04E04D1AFAA
0EF72132400AABEFE5EDECD73DD15BA4892F8088FE3ABB0AF909F3BD0066F1D3
A60C6051976C2092DD700C8895F9792BD83292BEC6B54D1BC0A302C21DCB98EB
ECC1049F1BFADC5E794FC596D1533BE9FB43AD7CE1BF543940466CDE507BFF2B
BB5490865011E08F2540026C1E8BA8050BBD274DA26FD363F3F2CF753D689D01
B3C4E87E9A58A96130EA3BD7227612304F982DAC6320E653C330A9F52259BFD4
A588FD9F033CD3AE025C61C68C1D9D5E1CD27E375E8F8C059AB71379BCD5A462
7CD599BD4C41DE40A42B02D6E621DEF980D259E3AD063196DB89E4D61DF3017E
1147B9EE841039C75AFF196C2554A452CC044F12D8E053C16F079CDC9D1210C2
E8632CDF0F16A59B70D3B1298D628EAA9EB73C06316504D73F005D3F19B034F8
887D4646ACF043F2AADF23C458466940624174FAD709738563EA60B498DD057B
31E63D80D5E13BEC53877698CF283A86A2ED44E090A15B53010F7EBDB194C90E
78CC4CC29361B79C1542DEEEBA812612FDF05106B3B51E21EF661B40BBA50AF1
B26829D954F25FC4BCD69AD3F28C11573EBFA905E9232102187BDE15E752237F
C3E1A1BDABF3D5DF129DF74974AD19CFB6B4D52A53DFF75353BF6068250DF37B
5A8BB3DC036153DA6D141AADB8D3D4D7E04A65CFA02A74BF720A455083E99077
89FF18B57F2F704155EF20B2DB75154F4AB5BF215B22D88743F1B88737D9FD45
0ADC49BC2570E79C68DA5501461919ACD043B4937E91C8D5E3558753E90369BD
68F9F285DDF5232804FE4242E2B594DBE5783DEF767350CD96B9071AACBD64F5
CC6747C2A4E87D17BAC5ACF012FD6A360A1B4CB729C64B91037931C6ACAF2D30
97AD7469C70D8E11152E01F7630992A47008B3F3D740E5DA8C81806C5D62CCD2
CE9E11026C39BA6435A2E60EE96ADFC2452206C0BD3204869DB62AFDD9653C8F
7725413C403C8A8A72D4F04E9F3CEB249CCC7781B84DE983D9536727DCC62052
668F4FC6D39E319FE434C282925E3CE0B925340C23EFF91454A7DB180B7DDB99
8650C9BA22BE9D2DEC2AD1F48CEB82DF21E3616D8E98A0C1A8A12D10E79966F0
05CCB14CA1692CD1DD1459BBA7475D0300A75DAD6CD0D725213AA3B6CB026DA4
FFC22788727180175D727FFCD6A5CA417CACE24E6E85AAB98EFD1C9DECF1BCE8
873F792287E5A815FF5DDDF48D75E50AB497105328766A37ACB6D417038831C4
29C7013CD054E74DAC1E1FDB500205473C405FEED84431D3328F767AC48AE293
191AA3E293715A22A03B31D380478FA79D36138DC8745E4B51F3464D001047E2
906A4D1A9D769C1DCF819B9D4AA4900468836ADDBF5672BFE286983626136C73
BC612DB5D7FA2297D1BC55EE33A97B8DE57379DECA841365A04A8D955DA10DC4
010A5B871604A8F8912B2B9DF6C206591986EF68ADFC0C258BA9BF2E2B52F257
37AB8FFEF7BA1A971005D714689927975A163F76053BA1BFABB5516EC0BC9598
A1362F4C0CF6C70829A82AD93E3F9B24F52EE3BD471D6026F2C7527F049F264F
E17FEFE1F14F204E60481C0359BDE8F78A28C13E85DAB51BE482D4024651EC23
A466F192A7C5457DFB9E5AAC069C10585C2AB274C56D57B1F6409FB11238DD34
042D8D65752BAF5EE7C8BCC1B765582F1CB3F59ACF9C42A19302F9C7A6987068
4D05E1B13A43BEB6AEEE9B7F667554A1F07FFFE28529FE33573D1B839F62C78C
C3B609480E26EBE5770E7B831846391FB579DE5DC679F65122201613AA578AEF
CFFAF057DD03E7F3B3CEE5910F9BC8B750CF4C4D2B37C067B27F1738EDE88AC7
F1DA44ABD956848FDA7C95AD5F93A54C64DEFAAF67F2DE09B5D7DC2E3323703C
2B27A95B82FA9B4437AE468073F8397DEB8157A913993BF560FE492477045C4A
81A3D5A3B0402FF6CACA70362681D3F73A3E6C85AF8D64F3D774AB0EF11B8118
11AADA6FB21CDCEF8ABBE947B9D64E2C264390C013DC9FF62F5E0627C7CFFADD
20456DDE5C57C41B42ED2048CEAB91E7495AAAF8652C4D74C6010E04114F3850
227D5FA244B0ABD6B016E1BCE9C38A5A19F476450A4B01C7B6D41E75EBD23A7B
11E5C284497DF6FFDEB205DAA8FBF693C7BB840686FE2D4D10BF37FAC94B04E7
12A5D82FFFBF9EADA6C8B094232162F17357AF3B6D35548D9A6E726EF11A4C16
FCCF8FA4A2912C7F57CC1A07CF42F389EC1F2B00344DF470DE6A104317FDB5CC
450DD09B8C72A9A42CA1EFEE85942A7253C90A07DACB3A124D57F9F2F97352DD
133820D5A197FF5EC0B377CFFF9600A41699F2E3B2370B1B432981140E76AF49
199F48447D3BEB2F2B973D4C530DB3983DAF9C87E067C7A9C2AB6D4E14E38DD5
A57F81BA6E453B56ADC9609DC192D8AEFAB563237553770130F3FCFE9BF7ECF5
9213900E4C22F666DF2FA61B5495F8B1A6DA55ED2B73F1F36F01938A0047B8E8
3094E66B1D70594F1692A0CD4BCE9307EFCDC050EC7346FBB7382A1037971B42
3B1C15AC5C799E97E752A37AE9966637DC7CDBD611EB1EA921C63BF2A972DB8E
20BE97148CF7146FB24B21C8ED3AD00CE101EFE2B83E166C18DE60171BC1692A
69E275846901B45BEB69F36974623E6F2903E1AA3AA2E0C8043E8A7CA71CFC2F
9637EAC825FF0CA15A073C75E333CBF6C2E1895AADAF6FE50958A3BBF7219801
2CB7EB4E777D4C579C7BD1BA9115E1FE4117CEEF778E389BAE749DC3D3DB518F
2F85D63FC80D26565592A11BD063C8E15C3895CB58CE031EB072E866EF1D37B1
491F18A56EA3C42E4D7311C81D73ACFA32F9DF608A8D91A501C18A881DFD04D8
39CD475ADED011C6F28EB6ACBC785B925449F51F3A43044BC7A739079EACDB12
C9DEA7699260753510502CAE0781BC63397B4A0E09399818D8BD00BDEDD720C0
05F32AD3E3ADD693C5E14C2C2197C46371EE5D03A743A1EFE906A5FB1C4F9309
DD75B43776BF76A72E6FFA341F9085DC7636E6B151388C92241FDA7BDA5102C7
2A6F72FBFCE92B7BE32A3F6B3CC641602020C0C7F956BDD4B767BE8FA904047D
ECAA4B81648A00C1091E77C340788E1CE9215D4EEE46D3E4066C403158CBF9D5
A1533FA05039166E8C940CF227EF2FB13D5EB445E9623353B7091F8297DF5588
9437C20C7C26B85ABE98F7697D33F29BD6FB9782A6B474DB504113DBFDC0BAF9
9F429BE0E1B4C8FEFD0C3095C29C83D881FA4244CBC9CD9F7CF4005A66B706EA
AC70A45C22321C6BCB158618D463F8C5689DA54FAD48EFE9BFEDE6C91D098B96
AAA977AFD13FCF22AAA292DBE0F786CBD4B14919FC6EACDFD72E7888BAAAD867
82727AF218AB4BEFFFCA52ADD5D0D7FB552A59BC300C1FA0F59B9A6B99372F6E
579FF0683182338E67246E15A3D37609CF9BABFC73067792A33904175D4CB291
CDC5B2D5EE5442F481C114DA0F67E5E9999D5E3A703A0554060E5A2F1B8D5ECE
1486E97F1EE683CA5DD3FA2377D3FE4890005CB057193903D9247D11B9E3D545
D7DFFDAA476FA4433AFACC0A32BB1AEDFD75234276337AE6A9B6B1E3A4F95F6E
0F73CC2BE2BE094F82457697A1F1BD4ECCB0420AC62DE84229AABBA0BE0D9D6A
6C57CB26D8400D3E1E7F3549D9AAC2D923D7EFF6E4302462B697C56D44C489C4
34E4BCFD7861EE02AAB0A081E82BA35183260EF28247E82B5209FF0BFC83D029
4D51D759C5165C5B6F621F3A82746187995D07D1D2F03C38B7DDF41E0D495C92
88ECDB3E89EBE2D41040E6055553E4BBAFB16AB2A14FBD3ED9107C567C4C8FBA
633CEE01AB75F7D87CB2A45DDDBC9D6064DDD3196831370C242193B167F590A4
8D0B0D2D7D0968F1198C701FD2FCA3B54D7A0994AEBB8029E9FFFAF2166B9783
671337952F67BA227576F38821DCF814A1849FF72AD2708BE499CE466887953E
32961E17A13A16483C3EE62549412EC66D4078534D0728DFF132C80DB832702F
FE9F260184CC757EDB37514D4980796B003FA768B2472F8ABBB65D55461BC47F
B9ADA1C4776077170EFBAD40BC8903F4314EFBAFCECBFA9A1508B58D72C2A2DC
84E6E919782703EFA9F59EB20157E2B71A32A9D00CFB8E54E69DDA4E3DA17789
7D5D5396E6D22B42AA5B5C702FCA4E1A7551216166CE348EDEC9034DFC3EAA4A
E508A6A3439585A3D6BF6C2723FA851C56B238B915F2B4B14195052BAE99AFBB
171BD60CD24475A2731C41B3A96C43D26E0A39F20C29A3208B03FF469A9FBADB
6D1F8325862DE7EDA5AC913EB01D337CA898BC9C55815330F7D1CAB0CB60F624
0C10B27816BC67292EC07836A581E0B7BD2D6B64733FF671936560ACF2960FF9
597FFA8FD83C8868797532E6E75E5C95F4D47FED6A4E5C91C43B8DECA8898D57
7D9D1F843D1D37B98686572E87165B5C6956D6309F01D44DEF55D40CE668B8A5
FDF3C1F535DC504A41099CF6B91A6E7EE632C07A286ABB69A8AF6B2BDA425092
CDC0C35483D83C22B18EAF5FF5069EAFF922E566C272079639A3C6375E2443F7
55A0A085C144476B4A1E69E610B70457C471859C3D3ACB85D84393E8DA9534FC
CF2F5533D0E8B61B5A46AA96E6522E1D4EA5954239E00166D3993167D8E52289
2FD7166E2F1111677A910B840FFCB396865B7A98C7E15F4325E62CEBA9669ACA
AB5059E706837F5C77B65518358CB76EDDD4468A36DB41C2E0319124165C4E41
C152796484318B90B4362E0835901C74940E12C72EF7E6FFE5F258975699796A
A4197704DD16CF581BFD7365CF88551FB76BB9F6FF6A395B4BFC07BA27F05D34
2821C07C6C20F97CF43979C54A504B30BE3D96E30ECC4DFFA203E5153CD30130
AAFA7A06D1C2BCE4587CB192D8AB4381D3D6FD93F7C8662B971E47E7425C1B04
A74C12242B41FB7544DAEE7B9D031D45A7DFA11434A2182EF49982A2BB21A6DE
C7C86087FA4DC3755B9491644A0432E0400E27563DF3271079FE6A9CA0618D93
A671A960E1E9006FB238921C7920C6925F94C2CEF2DACD229A7277F0A30B00BA
B9EB735390ADD8D84DF633660C909FA0747F870C801F8723B8943E1592ED142A
4C070DD99F095A609C25F6C57A6BF51459626A61B0A898BF6EEEEFD89BF61519
7DFE789E8410DE727A1B7826A0C782BD89F66356C301E36FC6B6436766CFF304
2BB73804C89F0133D3DF5ED4A171EFF36A30DC89818FC099D02A3DAC5A087284
151836F07AD2740E91480629AB1DB322D97ECBF21304457A8BE2B04C062F267D
24C5F274865DE9F294B10E2A1018C7714254E2C370E2FC43C32897D56569E4B8
7AA57D903B9DE3ECCFCB5375EA48BA323603A94A84D0D65C5B11545FEAD0F6EC
CAAF95CAEA00BDF253253D0A8BD295F26F6FF352C751E8DB7DA716798FD78454
0893F4676E7427D328D1CA4FBC4F15EED956D0DAAD1143B439B4A2E76642BA2C
65B1CE2F091DC9DF9576F61D65DCD6DD4998D95241B7C6A2FD206A36C439922A
64CDF591CB2D575859580300D5850990C2563BF4D360AF13636E14DD9F27AFC3
ABF09AECC7178EDB658AC1EAC619D7A5A55781FFCB077978179866491FF86A57
7CB51051B9E449D1C11C142559C19702052E08AAEAD53E03A370716BEEF10B0E
9E96B1BEB29F65A91D7C73673ADF438A3891FB0E770D90D1193BD9744F1E44E3
3F838CB8DC12B27108AABA206E6040F92973CEFB306599AC3A1DF5CB275A21B1
BB6C61F925C20793CE8E918A4F5CEFA1AF08141AC971D798EB5C11A2C56EA74F
7D0F1CA52E4C97C17A9F808FF0229DEACD78492F2E5C0174D21EB2F9CBD010F2
15507361F8F665BC35238E6467635C18A71EB61266EF2A9F24A0A085F4CE03EB
0EA3D8B2A120A00EFC0E2A822C2FCD245D6954521DA2B1ADDE9DB3EF25D43C24
BC865B757EBFF2D3B34F3A88613D0F269F7E2A6E68813181E7FDC05565070E36
5C79AB1404A44ECEB3E7D8A3EE7CDB9E7C88EB0398B0C7AD3C2DC5A5BB0B63A4
B00792B54B2AA2B02780790FF3271A0F57D7B2FA204FA9501A530156EF7B2B72
0563CD19437F58979CED87B7F5A9823E17E226204EDF259A8B89AFF41DF94B9C
AC7149C7672387A22B4D23B6D8DB7AAAD3429616015B9697655AC33C626289F1
B3CC2031F198B36EF55DA6E34972DFAC0ECC3F29080634274B6173B69D9B3CB0
9D6782F5575D79ED0FE313250D7F8B5534E60E8C254DD6225F6156DB4E3AD8BC
1D49EE
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 67 /C put
dup 101 /e put
dup 108 /l 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
207999FF86F6A3EBE48EB0A1CA635450FDEEF79EB16D853F3BF4B0D37EBFFEE1
9E7A64D3313B6B7963057DCC53107F5234F8D6BEC3DA2A81A94081A7FD153C9C
5DA5AAC5DEDA92CC6ECE33C45BD709D82BE02CE865C213ED0AA9B092A8C0CB3B
147B3C0DD811C4E426DFBA44C0F81CCB3A18E727814D95CA56C697B0CE0E0E8F
03BE25B65037A6FDA57A5AE3CA361540B49AADEBF016F7901FC47FE6E8E22217
089DEB629F9053EA1D06DE81F595CADB15DB183DA2424D9740E43B2F0208530F
2ECA1F9A6BA07EFD28FF6D3DC8C4724B2EE102CF6689689DDD6BAD6410345B64
F854949F206D29746284C4D26B5D525D75FCD4278B41BA45356D1B61ECD87A01
E6D20CCEB5DB7D11F298AB85F5A9C925B0E60F2894BEDAC29B9AAF99883AAECB
96B881E66D6B0E0FDF8D981664FD8E671E0384C8986D194FE41631DD0AC80B05
608066097D432FDE932173087679CA00758E0407EE8ABE072C3EAFC611CC832F
CF2BBF82E6D9ADD82DFB0CF1026B76C88E1325E9FD6ADAAD40DFD5A9068C84FB
4223BA6DCEEF67A25972E7DCA785287A2C09CA0EF0829D321E77985E8598C8A2
BDE8418B627A1A69FDBA7D2F9B620B57D354D0228F16D8BA6DBBACF78AE8187B
FF12B8B1BB9ACD94F81915BAB1BF383C5642C22603FF6964D5633621FB6DE2D5
313BD26C08115B826B005D6305FD607A03EB1E43F44ABA468AF80D3C3AB8F935
5DF2A3848549FC89D71C1FF276D56D8B7E6CE7CE655004C33A654BCE6CD36D2C
0B5C17A89FAFCBEE31088952996B98E141A55ECAA78C64D095EBE60A0D634449
B0FAD973483798D55B72E059E41373A9FD875BDBA20BA2412CE608174CDE71AE
1392E0786496DFE88A2CC3BEC76EBF8094D6E3DD6C0D66C436EDCABE82DE6661
D5A12286090B5F0E4A86E3D55AD3D24C0740DA114497B5D35F7CA7D9160567D6
A3E87F0CE8A6DAFB39DC50402CC40303E5CB
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark
%%EndFont
TeXDict begin 39139632 55387786 1000 600 600 (jazzmesse-vc.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 1[73 77 3[70 69 73 6[27 6[49 49 49 49 1[27
1[27 2[38 38 14[49 25[{}44 99.6264 /CMR12 rf /Fc 128[42
6[44 2[46 32 33 33 1[46 42 46 1[23 44 1[23 46 1[25 37
46 37 46 42 13[46 2[57 7[62 4[60 1[62 7[42 42 42 42 42
42 42 42 42 42 1[23 28 23 2[32 32 40[{}39 83.022 /CMR10
rf /Fd 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 /Fe
139[44 44 46 3[62 1[31 2[31 62 2[51 2[62 54 19[106 5[88
3[81 67[{}13 99.6264 /CMBX12 rf /Ff 144[66 2[36 6[58
33[96 67[{}4 143.462 /CMR17 rf end
%%EndProlog
%%BeginSetup
%%Feature: *Resolution 600dpi
TeXDict begin
%%PaperSize: A4
end
%%EndSetup
%%Page: 1 1
TeXDict begin 1 0 bop 3682 -193 348 4 v 3682 -44 4 150
v 3710 -69 a Ff(Cello)p 4027 -44 V 3682 -41 348 4 v 1238
78 a Fe(Christian)38 b(Martin)g(Gabriel)1248 241 y Fd(Jazzmesse)54
b(\(2003\))1087 388 y Fc(f)1114 392 y(\177)1112 388 y(ur)28
b(Soli,)g(Chor,)e(Streic)n(horc)n(hester)g(und)i(P)n(auk)n(e)1248
512 y(\(Horn)f(o)r(der)g(Alt-Saxophon)g(ad)g(lib.\))1659
841 y Fd(Kyrie)-317 1497 y @beginspecial 0 @llx 0 @lly
516 @urx 80 @ury 5160 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-kyrie001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 80
%%Title: jazzmesse-vc-kyrie001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:57 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.8 T
0.75 dup scale
37.8 0 T
% --- 1 ((notitle)) ---
0 -25.34 T
14.0 F1 307.0 -27.0 M (5) showb 605.5 -27.0 M (10) 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 -58.00 M 661.50 staff
12.0 -58.0 bclef
30.0 -40.0 sh0
(3) (4) 51.0 -58.0 tsig
78.1 -37.0 hd 20.0 sd
105.9 -37.0 Hd 20.0 sd
24.0 124.0 -58.0 bar
144.0 -43.0 hd -9.0 ft 20.0 sd
171.8 -43.0 Hd 20.0 sd
24.0 190.1 -58.0 bar
202.2 -46.0 hd 20.0 sd
230.2 -46.0 Hd 20.0 sd
24.0 248.5 -58.0 bar
260.6 -46.0 hd 20.0 sd
288.9 -46.0 Hd 20.0 sd
24.0 307.0 -58.0 bar
319.3 -37.0 hd 20.0 sd
346.9 -37.0 Hd 20.0 sd
24.0 365.5 -58.0 bar
385.3 -43.0 hd -9.0 ft 20.0 sd
412.6 -43.0 Hd 20.0 sd
24.0 431.5 -58.0 bar
443.8 -46.0 hd 20.0 sd
471.9 -46.0 Hd 20.0 sd
24.0 490.0 -58.0 bar
501.3 -46.0 hd 20.0 sd
530.1 -46.0 Hd 20.0 sd
24.0 548.4 -58.0 bar
568.8 -37.0 hd 20.0 sd
586.8 -37.0 Hd 20.0 sd
24.0 605.5 -58.0 bar
625.4 -43.0 hd -9.0 ft 20.0 sd
642.5 -43.0 Hd 20.0 sd
24.0 661.5 -58.0 bar
(mf) 78.1 -80.00 pf
78.1 -32.00 dnb
(p) 568.8 -80.00 pf
0 -81.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 603 x @beginspecial 0 @llx 0 @lly 544 @urx
79 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-kyrie002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 79
%%Title: jazzmesse-vc-kyrie002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:57 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.1 T
0.75 dup scale
% --- 2 ((notitle)) ---
0 -25.34 T
3.2 30.9 2.7 304.8 -23.0 bm
-3.2 19.7 0.0 383.9 -58.1 bm
(3) 320.3 -17.6 bnum
325.9 -56.5 309.1 -58.0 304.1 -53.5 0 -0.2 308.3 -57.0 326.8 -55.5 331.0 -51.2 304.1 -53.3 SL
401.3 -24.1 391.2 -26.0 388.2 -31.0 0 0.2 390.7 -27.0 401.8 -25.1 404.4 -28.4 388.2 -31.2 SL
14.0 F1 244.1 -19.1 M (15) showb 573.2 -19.1 M (20) showb
0 -50.12 M 699.30 staff
12.0 -50.1 bclef
30.0 -32.1 sh0
49.2 -38.1 hd 20.0 sd
65.9 -38.1 Hd 20.0 sd
24.0 82.5 -50.1 bar
94.6 -38.1 hd 20.0 sd
110.9 -38.1 hd 8.0 3 dt 20.0 sd
132.9 -38.1 r8
24.0 144.8 -50.1 bar
156.8 -29.1 hd 20.0 sd
173.5 -29.1 Hd 20.0 sd
24.0 190.6 -50.1 bar
210.7 -35.1 hd -9.0 ft 20.0 sd
227.5 -35.1 Hd 20.0 sd
24.0 244.1 -50.1 bar
268.0 -47.1 hd 20.0 su
286.3 -38.1 hd 20.0 sd
301.3 -47.1 hd 24.1 su
313.6 -41.1 hd 19.2 su
332.2 -41.1 hd -9.0 sh 20.8 su
24.0 344.0 -50.1 bar
355.1 -38.1 hd 20.0 sd
372.1 -38.1 hd 20.0 sd
387.4 -38.1 hd 20.0 sd
407.1 -38.1 hd -9.0 ft 20.0 sd
24.0 419.4 -50.1 bar
440.3 -41.1 hd 20.0 su
456.3 -41.1 Hd 20.0 su
24.0 473.9 -50.1 bar
485.2 -41.1 hd 20.0 su
502.6 -41.1 Hd 20.0 su
24.0 519.7 -50.1 bar
539.3 -47.1 hd -9.0 ft 20.0 su
556.2 -47.1 Hd 20.0 su
24.0 573.2 -50.1 bar
592.4 -47.1 hd -9.0 ft 20.0 su
609.1 -47.1 Hd 20.0 su
24.0 627.8 -50.1 fbar1 637.8 -50.1 rdots
665.8 -35.1 hd -9.0 ft 20.0 sd
681.4 -35.1 Hd 20.0 sd
24.0 699.3 -50.1 bar
268.0 -24.12 dnb
286.3 -24.12 upb
301.3 -11.00 dnb
355.1 -24.12 upb
-38.9 430.3 -80.12 cresc
(mf) 440.3 -80.12 pf
(mf) 665.8 -80.12 pf
0 -80.12 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 587 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-kyrie003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vc-kyrie003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:57 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
% --- 3 ((notitle)) ---
0 -25.34 T
3.2 29.8 2.7 570.9 -19.8 bm
-3.2 19.6 0.0 663.2 -55.0 bm
(3) 585.8 -14.5 bnum
591.1 -53.4 574.9 -54.8 570.1 -50.4 0 -0.2 574.2 -53.8 591.9 -52.4 596.0 -48.1 570.1 -50.2 SL
680.4 -20.9 670.4 -22.9 667.4 -27.9 0 0.2 670.0 -23.9 680.9 -21.9 683.4 -25.3 667.4 -28.1 SL
14.0 F1 207.1 -16.0 M (25) showb 463.4 -16.0 M (30) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -29.0 sh0
58.3 -32.0 hd -9.0 nt 20.0 sd
76.2 -32.0 Hd 20.0 sd
24.0 94.0 -47.0 bar
114.0 -44.0 hd -9.0 nt 20.0 su
132.0 -44.0 Hd 20.0 su
24.0 150.1 -47.0 bar
170.9 -35.0 hd 20.0 sd
189.0 -35.0 Hd 20.0 sd
24.0 207.1 -47.0 bar
219.2 -38.0 hd 20.0 su
237.7 -38.0 Hd 20.0 su
24.0 255.6 -47.0 bar
275.8 -41.0 hd -9.0 ft 20.0 su
293.1 -41.0 Hd 20.0 su
24.0 311.7 -47.0 bar
332.6 -50.0 Hd 9.0 0 dt -10.0 nt 41.0 su 332.6 -29.0 Hd 9.0 3 dt -10.0 nt
24.0 358.8 -47.0 bar
379.2 -50.0 Hd 9.0 0 dt 41.0 su 379.2 -29.0 Hd 9.0 3 dt
24.0 406.4 -47.0 bar
427.4 -26.0 hd 20.0 sd
445.5 -26.0 Hd 20.0 sd
24.0 463.4 -47.0 bar
482.1 -32.0 hd -9.0 ft 20.0 sd
501.3 -32.0 Hd 20.0 sd
24.0 519.4 -47.0 bar
531.3 -44.0 hd 20.0 su
550.2 -35.0 hd 20.0 sd
567.4 -44.0 hd 24.2 su
578.8 -38.0 hd 19.2 su
597.2 -38.0 hd -9.0 sh 20.8 su
24.0 610.5 -47.0 bar
622.5 -35.0 hd 20.0 sd
639.8 -35.0 hd 20.0 sd
666.7 -35.0 hd 20.0 sd
686.2 -35.0 hd -9.0 ft 20.0 sd
24.0 699.3 -47.0 bar
367.4 -58.8 344.3 -58.8 337.4 -55.1 0 -0.2 343.2 -57.8 368.5 -57.8 374.3 -54.9 337.4 -54.9 SL
367.7 -20.2 345.6 -20.2 338.9 -23.9 0 0.2 344.5 -21.2 368.7 -21.2 374.3 -24.1 338.9 -24.1 SL
-65.7 128.0 -77.00 cresc
(f) 170.9 -77.00 pf
78.8 193.0 -77.00 cresc
(ritard.) 379.2 -77.00 crdc
(p) 427.4 -77.00 pf
427.4 -21.00 upb
445.5 -21.00 upb
531.3 -21.00 dnb
0 -77.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 770 x @beginspecial 0 @llx 0 @lly 544 @urx
99 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-kyrie004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 99
%%Title: jazzmesse-vc-kyrie004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:57 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.8 T
0.75 dup scale
% --- 4 ((notitle)) ---
0 -25.34 T
394.9 -51.9 389.6 -47.4 388.0 -50.8 0 0.2 389.3 -48.4 395.2 -52.9 396.5 -57.6 388.0 -51.0 SL
510.6 -51.9 504.9 -47.3 503.2 -50.8 0 0.2 504.6 -48.3 510.8 -52.9 512.3 -57.6 503.2 -51.0 SL
14.0 F3 627.0 -17.4 M (Fine) gcshow
14.0 F1 142.7 -45.4 M (35) showb 410.9 -45.4 M (40) showb 661.8 -45.4 M (45) showb
0 -76.40 M 699.30 staff
12.0 -76.4 bclef
30.0 -58.4 sh0
59.1 -67.4 hd 20.0 su
84.3 -67.4 Hd 20.0 su
24.0 99.7 -76.4 bar
111.5 -67.4 hd 20.0 su
127.3 -67.4 Hd 20.0 su
24.0 142.7 -76.4 bar
162.5 -61.4 hd -9.0 ft 20.0 sd
187.8 -61.4 Hd 20.0 sd
24.0 203.5 -76.4 bar
223.1 -61.4 hd -9.0 ft 20.0 sd
239.1 -61.4 Hd 20.0 sd
24.0 254.5 -76.4 bar
274.5 -52.4 hd -9.0 ft 20.0 sd
289.5 -52.4 Hd 20.0 sd
24.0 305.5 -76.4 bar
325.3 -52.4 hd -9.0 ft 20.0 sd
340.1 -52.4 Hd 20.0 sd
24.0 356.4 -76.4 bar
368.3 -55.4 hd 20.0 sd
383.4 -55.4 hd 20.0 sd
397.1 -64.4 hd 20.0 sd
24.0 410.9 -76.4 bar
440.7 -61.4 hd -9.0 ft 20.0 sd
455.9 -61.4 Hd 20.0 sd
24.0 471.9 -76.4 bar
483.4 -55.4 hd 20.0 sd
498.6 -55.4 hd 20.0 sd
512.8 -64.4 hd 20.0 sd
24.0 526.3 -76.4 bar
545.0 -61.4 hd -9.0 ft 20.0 sd
569.6 -61.4 Hd 20.0 sd
24.0 585.4 -76.4 bar
598.3 -76.4 Hd 9.0 3 dt 41.0 su 598.3 -55.4 Hd 9.0 0 dt
24.0 622.1 -76.4 bar
635.0 -76.4 Hd 9.0 3 dt 41.0 su 635.0 -55.4 Hd 9.0 0 dt
24.0 661.8 -76.4 dbar
671.9 -58.4 nt0 679.9 -70.4 ft0 684.9 -61.4 ft0
625.3 -84.9 607.9 -84.9 602.7 -81.3 0 -0.2 607.1 -83.9 626.1 -83.9 630.5 -81.1 602.7 -81.1 SL
625.6 -46.9 609.2 -46.9 604.2 -50.5 0 0.2 608.4 -47.9 626.4 -47.9 630.5 -50.7 604.2 -50.7 SL
(mf) 59.1 -106.40 pf
-70.3 158.5 -106.40 cresc
35.0 329.3 -106.40 cresc
(mf) 440.7 -106.40 pf
53.7 487.4 -106.40 cresc
(p) 569.6 -106.40 pf
635.0 -33.40 hld
0 -106.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 620 x @beginspecial 0 @llx 0 @lly 544 @urx
81 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-kyrie005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 81
%%Title: jazzmesse-vc-kyrie005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:57 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.5 T
0.75 dup scale
% --- 5 ((notitle)) ---
0 -25.34 T
14.0 F1 42.1 -29.0 M (45) showb 323.0 -28.0 M (50) showb 542.2 -28.0 M (55) showb
15.0 F2 73.8 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
Hd 20 su grestore 15.40 0 rmoveto ( = 48) show
0 -59.00 M 699.30 staff
12.0 -59.0 bclef
30.0 -53.0 ft0 35.0 -44.0 ft0
(2) (2) 66.8 -59.0 tsig
83.9 -47.0 r2
110.9 -38.0 Hd 20.0 sd
24.0 127.8 -59.0 bar
139.9 -35.0 Hd 20.0 sd
159.1 -47.0 r4
24.0 172.6 -59.0 bar
185.6 -47.0 r2
205.4 -38.0 Hd 20.0 sd
24.0 221.0 -59.0 bar
234.3 -35.0 Hd 9.0 3 dt 20.0 sd
260.8 -47.0 r4
24.0 274.6 -59.0 bar
287.5 -47.0 r2
305.9 -41.0 Hd 20.0 sd
24.0 323.0 -59.0 bar
335.0 -35.0 Hd 20.0 sd
354.7 -26.0 Hd 21.0 sd -29.0 hl
24.0 371.3 -59.0 bar
393.8 -26.0 HD -12.0 ft -29.0 hl1
24.0 414.4 -59.0 bar
427.9 -29.0 HD -29.0 hl1
24.0 449.0 -59.0 bar
461.4 -47.0 r2
481.6 -38.0 Hd 20.0 sd
24.0 497.4 -59.0 bar
509.3 -35.0 Hd 20.0 sd
528.6 -47.0 r4
24.0 542.2 -59.0 bar
554.8 -47.0 r2
574.2 -38.0 Hd 20.0 sd
24.0 590.6 -59.0 bar
603.4 -35.0 Hd 9.0 3 dt 20.0 sd
630.2 -47.0 r4
24.0 644.2 -59.0 bar
656.9 -47.0 r2
682.2 -44.0 Hd -9.0 nt 20.0 sd
24.0 699.3 -59.0 bar
(p) 110.9 -81.00 pf
110.9 -33.00 upb
205.4 -33.00 upb
305.9 -33.00 upb
481.6 -33.00 upb
574.2 -33.00 upb
682.2 -33.00 dnb
0 -82.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 703 x @beginspecial 0 @llx 0 @lly 544 @urx
91 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-kyrie006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 91
%%Title: jazzmesse-vc-kyrie006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:57 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.4 T
0.75 dup scale
% --- 6 ((notitle)) ---
0 -25.34 T
389.0 -70.5 379.1 -69.0 376.1 -64.1 0 -0.2 378.6 -68.0 389.5 -69.5 392.0 -66.0 376.1 -63.9 SL
434.3 -76.5 424.5 -75.0 421.5 -70.1 0 -0.2 424.0 -74.0 434.7 -75.5 437.2 -72.0 421.5 -69.9 SL
571.8 -77.9 557.6 -77.9 553.3 -73.2 0 -0.2 556.9 -76.9 572.5 -76.9 576.0 -73.0 553.3 -73.0 SL
14.0 F1 133.6 -26.0 M (60) showb 363.1 -26.0 M (65) showb 592.9 -26.0 M (70) showb
15.0 F2 659.2 -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 bclef
30.0 -51.0 ft0 35.0 -42.0 ft0
53.9 -45.0 r2
71.8 -33.0 Hd 20.0 sd
24.0 87.7 -57.0 bar
99.6 -45.0 r2
118.3 -45.0 Hd 20.0 sd
24.0 133.6 -57.0 bar
146.4 -45.0 r2
164.8 -36.0 Hd 20.0 sd
24.0 179.5 -57.0 bar
192.3 -45.0 r2
209.8 -36.0 Hd 20.0 sd
24.0 225.4 -57.0 bar
238.1 -45.0 r2
255.2 -39.0 Hd 20.0 sd
24.0 271.3 -57.0 bar
283.2 -45.0 r2
301.7 -39.0 Hd 20.0 sd
24.0 317.2 -57.0 bar
329.6 -45.0 r2
347.3 -54.0 Hd 20.0 su
24.0 363.1 -57.0 bar
375.4 -57.0 Hd 20.0 su
394.2 -60.0 Hd 20.0 su
24.0 409.0 -57.0 bar
420.8 -63.0 Hd 20.0 su -63.0 hl
439.5 -66.0 Hd 21.0 su -63.0 hl
24.0 454.9 -57.0 bar
468.8 -69.0 HD -63.0 hl1 -69.0 hl1
24.0 498.4 -57.0 bar
512.2 -45.0 r1
24.0 531.3 -57.0 bar
552.3 -66.0 Hd 21.0 su -63.0 hl
577.0 -63.0 Hd -9.0 nt 20.0 su -63.0 hl
24.0 592.9 -57.0 bar
615.4 -66.0 HD -63.0 hl1
24.0 637.1 -57.0 dbar
(3) (4) 652.2 -57.0 tsig
668.5 -45.0 r4
683.9 -48.0 Hd 20.0 su
24.0 699.3 -57.0 bar
694.1 -55.7 689.0 -55.7 687.5 -52.5 0 -0.2 688.8 -54.7 694.4 -54.7 695.7 -52.3 687.5 -52.3 SL
71.8 -29.00 upb
118.3 -31.00 dnb
301.7 -31.00 dnb
-56.1 435.5 -96.47 cresc
20.0 472.8 -96.47 cresc
(p) 552.3 -96.47 pf
(ritard.) 615.4 -96.47 crdc
0 -96.47 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 628 x @beginspecial 0 @llx 0 @lly 544 @urx
82 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-kyrie007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 82
%%Title: jazzmesse-vc-kyrie007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:57 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.3 T
0.75 dup scale
% --- 7 ((notitle)) ---
0 -25.34 T
3.2 20.3 0.0 85.3 -24.5 bm
14.0 F3 264.7 -17.4 M (a tempo) gcshow
14.0 F1 222.2 -20.4 M (75) showb 526.2 -20.4 M (80) showb
0 -51.40 M 699.30 staff
12.0 -51.4 bclef
30.0 -45.4 ft0 35.0 -36.4 ft0
53.9 -42.4 Hd 20.0 su
81.8 -45.4 hd -9.0 nt 21.0 su
102.2 -45.4 hd -9.0 ft 21.0 su
24.0 115.7 -51.4 bar
135.4 -48.4 Hd 9.0 0 dt -9.0 nt 20.0 su
24.0 162.5 -51.4 bar
193.0 -48.4 Hd 9.0 0 dt -9.0 ft 20.0 su
24.0 222.2 -51.4 dbar
232.4 -45.4 nt0 237.4 -36.4 nt0 245.4 -33.4 sh0
272.7 -60.4 Hd 9.0 0 dt 21.0 su -57.4 hl
24.0 298.6 -51.4 bar
311.0 -36.4 hd 20.0 sd
328.0 -39.4 hd 20.0 sd
346.3 -39.4 hd 20.0 sd
24.0 361.3 -51.4 bar
381.0 -30.4 hd 20.0 sd
399.6 -30.4 Hd 20.0 sd
24.0 419.4 -51.4 bar
438.7 -36.4 hd -9.0 ft 20.0 sd
457.5 -36.4 Hd 20.0 sd
24.0 476.5 -51.4 bar
488.2 -39.4 hd 20.0 sd
506.9 -39.4 Hd 20.0 sd
24.0 526.2 -51.4 bar
538.6 -39.4 hd 20.0 sd
555.3 -39.4 hd 8.0 3 dt 20.0 sd
579.5 -39.4 r8
24.0 592.6 -51.4 bar
604.7 -30.4 hd 20.0 sd
623.1 -30.4 Hd 20.0 sd
24.0 642.2 -51.4 bar
661.7 -36.4 hd -9.0 ft 20.0 sd
679.6 -36.4 Hd 20.0 sd
24.0 699.3 -51.4 bar
47.8 -50.3 40.0 -50.3 37.7 -47.0 0 -0.2 39.7 -49.3 48.2 -49.3 50.1 -46.8 37.7 -46.8 SL
(ritard.) 193.0 -84.40 crdc
-59.6 262.7 -84.40 cresc
(mf) 272.7 -84.40 pf
-20.0 335.0 -84.40 cresc
(f) 381.0 -84.40 pf
0 -84.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 653 x @beginspecial 0 @llx 0 @lly 544 @urx
85 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-kyrie008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 85
%%Title: jazzmesse-vc-kyrie008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 22:57 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.6 T
0.75 dup scale
% --- 8 ((notitle)) ---
0 -25.34 T
3.2 39.9 3.0 120.9 -30.7 bm
-3.2 25.4 0.0 259.6 -65.4 bm
(3) 140.8 -25.2 bnum
149.1 -64.1 127.1 -65.5 120.5 -61.0 0 -0.2 126.0 -64.5 150.1 -63.1 155.7 -58.7 120.5 -60.8 SL
281.5 -31.2 268.1 -33.1 264.1 -38.2 0 0.2 267.5 -34.1 282.1 -32.2 285.5 -35.6 264.1 -38.4 SL
14.0 F3 606.9 -17.4 M (al Fine) gcshow
14.0 F1 310.2 -26.4 M (85) showb
0 -57.40 M 699.30 staff
12.0 -57.4 bclef
30.0 -39.4 sh0
48.3 -54.4 hd 20.0 su
82.7 -45.4 hd 20.0 sd
117.4 -54.4 hd 23.7 su
136.6 -48.4 hd 19.2 su
157.3 -48.4 hd -9.0 sh 20.8 su
24.0 178.8 -57.4 bar
194.6 -45.4 hd 20.0 sd
230.4 -45.4 hd 20.0 sd
263.1 -45.4 hd 20.0 sd
288.5 -45.4 hd -9.0 ft 20.0 sd
24.0 310.2 -57.4 bar
329.8 -48.4 hd 20.0 su
366.1 -48.4 Hd 20.0 su
24.0 407.2 -57.4 bar
422.1 -48.4 hd 20.0 su
459.1 -48.4 Hd 20.0 su
24.0 498.7 -57.4 bar
517.6 -54.4 hd -9.0 ft 20.0 su
554.8 -54.4 Hd 20.0 su
24.0 594.7 -57.4 bar
614.9 -54.4 hd -9.0 ft 20.0 su
649.3 -54.4 Hd 20.0 su
24.0 699.3 -57.4 fbar2 689.3 -57.4 rdots
48.3 -31.40 dnb
82.7 -31.40 upb
117.4 -18.66 dnb
194.6 -31.40 upb
(p) 329.8 -87.40 pf
52.6 267.1 -87.40 cresc
-89.4 610.9 -87.40 cresc
649.3 -31.40 upb
0 -87.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1836 6215 a Fc(1)p eop end
%%Page: 2 2
TeXDict begin 2 1 bop 1565 -306 a Fd(Gloria)-387 298
y @beginspecial 0 @llx 0 @lly 516 @urx 97 @ury 5160 @rwi
@setspecial
%%BeginDocument: jazzmesse-vc-gloria001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 97
%%Title: jazzmesse-vc-gloria001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
37.8 0 T
% --- 1 ((notitle)) ---
0 -25.34 T
-3.2 11.1 -1.9 140.8 -84.9 bm
-3.2 11.1 -1.9 140.8 -79.9 bm
3.2 13.1 -2.1 499.4 -51.9 bm
153.8 -46.0 149.9 -40.6 148.7 -43.9 0 0.2 149.7 -41.6 154.0 -47.0 155.0 -51.9 148.7 -44.1 SL
14.0 F3 74.6 -38.4 M (legato) gcshow
14.0 F1 398.3 -45.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 -80.40 M 661.50 staff
12.0 -80.4 bclef
30.0 -62.4 sh0 35.0 -71.4 sh0
56.0 -80.4 csig
82.6 -62.4 hd 8.0 3 dt 20.0 sd
105.8 -59.4 hd 1 20.0 sfd
121.5 -59.4 hd 8.0 0 dt 20.0 sd
144.3 -62.4 hd 22.5 sd
155.4 -65.4 hd 21.5 sd
24.0 166.9 -80.4 bar
179.0 -62.4 hd 20.0 sd
195.8 -68.4 hd 1 20.0 sfd
209.7 -65.4 hd 1 20.0 sfd
223.5 -65.4 Hd 20.0 sd
24.0 242.1 -80.4 bar
253.4 -68.4 hd 20.0 sd
270.9 -74.4 hd 1 20.0 sfu
288.6 -77.4 hd 1 20.0 sfu
307.4 -77.4 hd 20.0 su
323.7 -77.4 hd 20.0 su
24.0 338.2 -80.4 bar
353.0 -68.4 HD
24.0 398.3 -80.4 bar
410.1 -62.4 hd 8.0 3 dt 20.0 sd
433.9 -65.4 hd 1 20.0 sfd
450.0 -65.4 Hd 20.0 sd
24.0 467.5 -80.4 bar
478.8 -68.4 hd 20.0 sd
495.9 -71.4 hd 19.5 su
509.0 -74.4 hd 20.5 su
523.8 -74.4 Hd 20.0 su
24.0 542.0 -80.4 bar
562.4 -74.4 Hd -9.0 ft 20.0 su
582.9 -77.4 Hd 20.0 su
24.0 601.4 -80.4 bar
616.2 -68.4 HD
24.0 661.5 -80.4 bar
116.3 -51.7 111.0 -51.7 109.4 -54.9 0 0.2 110.7 -52.7 116.5 -52.7 117.8 -55.1 109.4 -55.1 SL
218.7 -57.8 214.5 -57.8 213.2 -60.9 0 0.2 214.3 -58.8 218.9 -58.8 219.9 -61.1 213.2 -61.1 SL
301.5 -85.2 294.5 -85.2 292.4 -82.0 0 -0.2 294.2 -84.2 301.8 -84.2 303.6 -81.8 292.4 -81.8 SL
444.7 -57.7 439.2 -57.7 437.5 -60.9 0 0.2 438.9 -58.7 445.0 -58.7 446.4 -61.1 437.5 -61.1 SL
518.8 -82.1 514.0 -82.1 512.6 -78.9 0 -0.2 513.8 -81.1 519.0 -81.1 520.2 -78.7 512.6 -78.7 SL
(p) 82.6 -104.40 pf
82.6 -54.40 dnb
105.8 -52.40 upb
144.3 -54.40 upb
179.0 -54.40 dnb
195.8 -54.40 dnb
382.1 -53.40 brth
410.1 -54.40 dnb
478.8 -54.40 dnb
495.9 -49.40 dnb
645.3 -53.40 brth
0 -104.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 510 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vc-gloria002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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.1 T
0.75 dup scale
% --- 2 ((notitle)) ---
0 -25.34 T
580.7 -60.7 565.7 -59.3 561.3 -54.2 0 -0.2 565.0 -58.3 581.4 -59.7 585.2 -56.1 561.3 -54.1 SL
14.0 F1 131.8 -16.0 M (10) showb 540.4 -16.0 M (15) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -29.0 sh0 35.0 -38.0 sh0
63.6 -41.0 hd 8.0 3 dt 20.0 su
91.5 -32.0 hd 1 20.0 sfd
110.4 -32.0 Hd 20.0 sd
24.0 131.8 -47.0 bar
144.4 -44.0 hd 8.0 0 dt 20.0 su
171.2 -53.0 hd 1 20.0 sfu -53.0 hl
193.3 -53.0 Hd 20.0 su -53.0 hl
24.0 214.9 -47.0 bar
229.1 -50.0 Hd 20.0 su
261.8 -41.0 Hd -9.0 ft 20.0 su
24.0 282.9 -47.0 bar
296.7 -44.0 Hd 9.0 0 dt 20.0 su
336.9 -47.0 hd -9.0 sh 20.0 su
24.0 355.2 -47.0 bar
375.3 -47.0 hd 8.0 3 dt -9.0 nt 41.0 su 375.3 -26.0 hd 8.0 0 dt -9.0 nt
402.2 -50.0 hd 1 41.0 sfu 402.2 -29.0 hd
423.6 -50.0 Hd 41.0 su 423.6 -29.0 Hd
24.0 444.9 -47.0 bar
464.8 -50.0 hd 8.0 0 dt -9.0 nt 41.0 su 464.8 -29.0 hd 8.0 3 dt -9.0 nt
497.9 -50.0 hd -9.0 sh 1 41.0 sfu 497.9 -29.0 hd -9.0 sh
517.5 -50.0 Hd 41.0 su 517.5 -29.0 Hd
24.0 540.4 -47.0 bar
560.1 -47.0 hd 20.0 su
587.8 -47.0 hd -9.0 sh 20.0 su
607.1 -44.0 Hd 20.0 su
24.0 630.2 -47.0 bar
645.9 -56.0 HD -53.0 hl1 645.9 -35.0 HD
24.0 699.3 -47.0 bar
104.5 -24.2 97.4 -24.2 95.2 -27.4 0 0.2 97.0 -25.2 104.9 -25.2 106.7 -27.6 95.2 -27.6 SL
186.7 -60.9 177.8 -60.9 175.1 -57.6 0 -0.2 177.4 -59.9 187.2 -59.9 189.4 -57.4 175.1 -57.4 SL
417.2 -57.9 408.6 -57.9 406.0 -54.6 0 -0.2 408.2 -56.9 417.6 -56.9 419.8 -54.4 406.0 -54.4 SL
417.5 -21.1 409.8 -21.1 407.5 -24.4 0 0.2 409.5 -22.1 417.8 -22.1 419.8 -24.6 407.5 -24.6 SL
511.5 -57.9 503.9 -57.9 501.7 -54.6 0 -0.2 503.6 -56.9 511.8 -56.9 513.7 -54.4 501.7 -54.4 SL
511.8 -21.2 505.2 -21.2 503.2 -24.4 0 0.2 504.8 -22.2 512.1 -22.2 513.7 -24.6 503.2 -24.6 SL
(mf) 63.6 -77.44 pf
63.6 -19.00 dnb
(p) 560.1 -77.44 pf
682.0 -20.00 brth
0 -77.44 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 510 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vc-gloria003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 3 ((notitle)) ---
0 -25.34 T
-3.2 10.6 -1.9 116.8 -51.5 bm
-3.2 10.6 -1.9 116.8 -46.5 bm
3.2 12.1 -2.0 446.8 -18.5 bm
3.2 43.2 3.8 647.5 -28.6 bm
14.0 F1 298.6 -16.0 M (20) showb 594.1 -12.0 M (25) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -29.0 sh0 35.0 -38.0 sh0
63.6 -29.0 hd 8.0 3 dt 20.0 sd
85.0 -26.0 hd 1 20.0 sfd
99.2 -26.0 hd 8.0 0 dt 20.0 sd
120.3 -29.0 hd 22.5 sd
130.9 -32.0 hd 21.5 sd
24.0 141.7 -47.0 bar
153.5 -29.0 hd 20.0 sd
168.4 -35.0 hd 1 20.0 sfd
181.1 -32.0 hd 1 20.0 sfd
193.6 -32.0 Hd 20.0 sd
24.0 209.9 -47.0 bar
221.0 -35.0 hd 20.0 sd
236.5 -41.0 hd 1 20.0 sfu
253.4 -44.0 hd 1 20.0 sfu
271.1 -44.0 hd 20.0 su
285.6 -44.0 hd 20.0 su
24.0 298.6 -47.0 bar
312.8 -35.0 HD
24.0 353.7 -47.0 bar
365.1 -29.0 hd 8.0 3 dt 20.0 sd
387.1 -32.0 hd 1 20.0 sfd
401.7 -32.0 Hd 20.0 sd
24.0 417.0 -47.0 bar
428.0 -35.0 hd 20.0 sd
443.3 -38.0 hd 19.5 su
455.3 -41.0 hd 20.5 su
468.8 -41.0 Hd 20.0 su
24.0 484.8 -47.0 bar
505.1 -41.0 Hd -9.0 ft 20.0 su
522.8 -44.0 Hd 20.0 su
24.0 538.9 -47.0 bar
553.2 -35.0 HD
24.0 594.1 -47.0 bar
613.8 -53.0 hd 20.0 su -53.0 hl
628.8 -35.0 r4
644.0 -53.0 hd 24.4 su -53.0 hl
656.6 -47.0 hd 19.5 su
675.5 -47.0 hd -9.0 sh 21.2 su
687.2 -44.0 hd 19.2 su
24.0 699.3 -47.0 bar
94.3 -18.3 89.9 -18.3 88.6 -21.5 0 0.2 89.7 -19.3 94.6 -19.3 95.7 -21.7 88.6 -21.7 SL
189.1 -24.4 185.6 -24.4 184.6 -27.5 0 0.2 185.5 -25.4 189.2 -25.4 190.1 -27.7 184.6 -27.7 SL
265.5 -51.8 259.1 -51.8 257.1 -48.6 0 -0.2 258.8 -50.8 265.8 -50.8 267.4 -48.4 257.1 -48.4 SL
396.7 -24.3 392.1 -24.3 390.6 -27.5 0 0.2 391.8 -25.3 397.0 -25.3 398.2 -27.7 390.6 -27.7 SL
464.0 -48.6 460.1 -48.6 458.9 -45.5 0 -0.2 459.9 -47.6 464.2 -47.6 465.2 -45.3 458.9 -45.3 SL
694.9 -51.6 691.7 -51.6 690.7 -48.4 0 -0.2 691.5 -50.6 695.0 -50.6 695.8 -48.2 690.7 -48.2 SL
(f) 63.6 -77.00 pf
63.6 -21.00 dnb
85.0 -19.00 upb
120.3 -21.00 upb
153.5 -21.00 dnb
168.4 -21.00 dnb
338.1 -20.00 brth
365.1 -21.00 dnb
428.0 -21.00 dnb
443.3 -16.00 dnb
22.4 526.8 -77.00 cresc
578.4 -20.00 brth
(p) 613.8 -77.00 pf
613.8 -21.00 dnb
644.0 -60.00 emb
644.0 -21.00 upb
656.6 -54.00 emb
675.5 -54.00 emb
0 -77.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 469 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-gloria004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 4 ((notitle)) ---
0 -25.34 T
3.2 20.8 0.0 100.0 -22.8 bm
3.2 60.9 4.2 192.5 -23.0 bm
3.2 33.7 0.0 333.4 -32.1 bm
3.2 48.2 3.8 418.5 -28.6 bm
3.2 21.5 0.0 535.8 -22.8 bm
3.2 61.3 4.3 627.5 -23.0 bm
14.0 F1 477.0 -16.0 M (30) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -29.0 sh0 35.0 -38.0 sh0
53.6 -44.0 Hd 20.0 su
77.9 -35.0 r4
96.5 -44.0 hd 21.2 su
117.3 -44.0 hd -9.0 ft 21.2 su
24.0 130.6 -47.0 bar
151.9 -47.0 hd 20.0 su
170.1 -35.0 r4
189.0 -47.0 hd 24.0 su
208.7 -41.0 hd -9.0 ft 19.4 su
229.0 -41.0 hd -9.0 nt 20.8 su
249.9 -38.0 hd -9.0 nt 19.2 su
24.0 263.1 -47.0 bar
275.6 -38.0 hd 8.0 0 dt 20.0 su
299.5 -35.0 r8
313.8 -35.0 r8
329.9 -50.0 hd 17.9 su
350.0 -50.0 hd -9.0 nt 17.9 su
363.6 -53.0 hd 20.9 su -53.0 hl
24.0 377.7 -47.0 bar
390.6 -35.0 r2
415.0 -53.0 hd 24.4 su -53.0 hl
428.9 -47.0 hd 19.5 su
449.3 -47.0 hd -9.0 sh 21.1 su
463.1 -44.0 hd 19.2 su
24.0 477.0 -47.0 bar
490.5 -44.0 Hd 20.0 su
513.4 -35.0 r4
532.3 -44.0 hd 21.2 su
553.8 -44.0 hd -9.0 ft 21.2 su
24.0 566.8 -47.0 bar
587.7 -47.0 hd 20.0 su
607.0 -35.0 r4
624.0 -47.0 hd 23.9 su
645.5 -41.0 hd -9.0 ft 19.4 su
664.5 -41.0 hd -9.0 nt 20.8 su
685.3 -38.0 hd -9.0 nt 19.2 su
24.0 699.3 -47.0 bar
47.5 -51.9 39.8 -51.9 37.4 -48.6 0 -0.2 39.4 -50.9 47.9 -50.9 49.8 -48.4 37.4 -48.4 SL
268.3 -46.1 257.3 -46.1 253.9 -42.7 0 -0.2 256.7 -45.1 268.8 -45.1 271.6 -42.5 253.9 -42.5 SL
482.8 -52.1 470.8 -52.1 467.2 -48.7 0 -0.2 470.2 -51.1 483.4 -51.1 486.4 -48.5 467.2 -48.5 SL
694.4 -45.7 690.1 -45.7 688.8 -42.5 0 -0.2 689.9 -44.7 694.6 -44.7 695.7 -42.3 688.8 -42.3 SL
96.5 -51.00 emb
96.5 -20.75 dnb
117.3 -51.00 emb
(cresc.) 151.9 -71.00 crdc
189.0 -54.00 emb
189.0 -20.98 upb
208.7 -50.00 emb
229.0 -50.00 emb
249.9 -50.00 emb
329.9 -57.00 emb
329.9 -21.00 dnb
350.0 -57.00 emb
363.6 -60.00 emb
415.0 -60.00 emb
415.0 -21.00 upb
428.9 -54.00 emb
449.3 -54.00 emb
463.1 -54.00 emb
532.3 -51.00 emb
532.3 -20.75 dnb
553.8 -51.00 emb
(cresc.) 587.7 -71.00 crdc
624.0 -54.00 emb
624.0 -21.00 upb
645.5 -50.00 emb
664.5 -50.00 emb
0 -71.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 477 x @beginspecial 0 @llx 0 @lly 544 @urx
73 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 73
%%Title: jazzmesse-vc-gloria005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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 73.0 T
0.75 dup scale
% --- 5 ((notitle)) ---
0 -25.34 T
3.2 20.0 0.0 119.8 -20.0 bm
3.2 25.9 6.2 226.5 -22.0 bm
3.2 26.2 4.1 313.4 -31.9 bm
3.2 26.5 6.3 663.2 -22.1 bm
14.0 F1 349.5 -16.0 M (35) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -29.0 sh0 35.0 -38.0 sh0
53.0 -38.0 hd 8.0 0 dt 20.0 su
76.7 -35.0 r8
91.3 -35.0 r4
116.3 -41.0 hd 21.0 su
136.4 -41.0 hd -9.0 ft 21.0 su
24.0 148.8 -47.0 bar
160.3 -44.0 hd 1 20.0 sfu
178.2 -35.0 r8
192.2 -35.0 r4
208.2 -35.0 r8
223.0 -47.0 hd 25.0 su
235.9 -41.0 hd 22.1 su
248.9 -35.0 hd 19.2 su
24.0 262.4 -47.0 bar
274.9 -35.0 r2
295.8 -35.0 r8
309.9 -53.0 hd 21.1 su -53.0 hl
322.7 -50.0 hd 20.1 su
336.1 -47.0 hd 19.2 su
24.0 349.5 -47.0 bar
361.3 -47.0 hd 1 20.0 sfu
378.7 -35.0 r8
399.5 -47.0 hd -9.0 sh 1 20.0 sfu
416.5 -35.0 r8
431.2 -44.0 hd 1 20.0 sfu
447.8 -35.0 r8
462.4 -44.0 hd 1 20.0 sfu
480.8 -35.0 r8
24.0 493.2 -47.0 bar
505.4 -35.0 r4
529.9 -38.0 hd -9.0 nt 20.0 su
545.9 -41.0 hd 20.0 su
570.9 -41.0 hd -9.0 ft 20.0 su
24.0 585.7 -47.0 bar
596.7 -44.0 hd 1 20.0 sfu
614.2 -35.0 r8
628.6 -35.0 r4
645.3 -35.0 r8
659.7 -47.0 hd 24.9 su
673.4 -41.0 hd 22.1 su
686.2 -35.0 hd 19.2 su
24.0 699.3 -47.0 bar
46.9 -45.9 39.1 -45.9 36.8 -42.6 0 -0.2 38.8 -44.9 47.3 -44.9 49.2 -42.4 36.8 -42.4 SL
354.1 -55.1 343.3 -55.1 340.1 -51.7 0 -0.2 342.8 -54.1 354.6 -54.1 357.3 -51.5 340.1 -51.5 SL
694.7 -42.6 690.9 -42.6 689.8 -39.5 0 -0.2 690.7 -41.6 694.8 -41.6 695.8 -39.3 689.8 -39.3 SL
(ff) 116.3 -72.00 pf
116.3 -50.00 emb
116.3 -18.05 dnb
136.4 -50.00 emb
223.0 -54.00 emb
223.0 -20.03 dnb
235.9 -50.00 emb
248.9 -44.00 emb
309.9 -60.00 emb
309.9 -21.00 dnb
322.7 -57.00 emb
399.5 -54.00 emb
431.2 -51.00 emb
462.4 -51.00 emb
529.9 -16.00 upb
659.7 -54.00 emb
659.7 -20.10 upb
673.4 -50.00 emb
686.2 -44.00 emb
0 -72.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 494 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vc-gloria006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 6 ((notitle)) ---
0 -25.34 T
14.0 F1 190.4 -20.0 M (40) showb 523.2 -8.0 M (45) showb
0 -51.00 M 699.30 staff
12.0 -51.0 bclef
30.0 -33.0 sh0 35.0 -42.0 sh0
53.1 -39.0 hd 1 20.0 sfd
68.5 -42.0 hd 20.0 su
86.7 -45.0 hd 1 20.0 sfu
107.2 -45.0 Hd 20.0 su
24.0 126.7 -51.0 bar
147.0 -45.0 Hd -9.0 ft 20.0 su
170.5 -48.0 Hd 20.0 su
24.0 190.4 -51.0 bar
213.1 -39.0 HD
24.0 238.2 -51.0 bar
250.7 -45.0 hd 8.0 3 dt 20.0 su
277.8 -36.0 hd 1 20.0 sfd
294.5 -36.0 Hd 20.0 sd
24.0 314.0 -51.0 bar
326.5 -48.0 hd 8.0 0 dt 20.0 su
351.1 -57.0 hd 1 20.0 sfu -57.0 hl
371.2 -57.0 Hd 20.0 su -57.0 hl
24.0 391.9 -51.0 bar
405.5 -54.0 Hd 20.0 su
435.4 -45.0 Hd -9.0 ft 20.0 su
24.0 455.1 -51.0 bar
468.4 -48.0 Hd 9.0 0 dt 20.0 su
506.5 -51.0 hd -9.0 sh 20.0 su
24.0 523.2 -51.0 bar
543.2 -51.0 hd 8.0 3 dt -9.0 nt 41.0 su 543.2 -30.0 hd 8.0 0 dt -9.0 nt
568.4 -54.0 hd 1 41.0 sfu 568.4 -33.0 hd
588.3 -54.0 Hd 41.0 su 588.3 -33.0 Hd
24.0 608.1 -51.0 bar
627.3 -54.0 hd 8.0 0 dt -9.0 nt 41.0 su 627.3 -33.0 hd 8.0 3 dt -9.0 nt
659.5 -54.0 hd -9.0 sh 1 41.0 sfu 659.5 -33.0 hd -9.0 sh
678.3 -54.0 Hd 41.0 su 678.3 -33.0 Hd
24.0 699.3 -51.0 bar
47.0 -31.1 39.3 -31.1 36.9 -34.4 0 0.2 38.9 -32.1 47.4 -32.1 49.3 -34.6 36.9 -34.6 SL
101.0 -52.9 92.9 -52.9 90.5 -49.6 0 -0.2 92.5 -51.9 101.4 -51.9 103.4 -49.4 90.5 -49.4 SL
289.1 -28.2 283.2 -28.2 281.5 -31.5 0 0.2 283.0 -29.2 289.4 -29.2 290.9 -31.7 281.5 -31.7 SL
365.0 -64.9 357.3 -64.9 354.9 -61.6 0 -0.2 356.9 -63.9 365.4 -63.9 367.4 -61.4 354.9 -61.4 SL
582.2 -61.9 574.5 -61.9 572.2 -58.6 0 -0.2 574.1 -60.9 582.5 -60.9 584.5 -58.4 572.2 -58.4 SL
582.5 -25.2 575.7 -25.2 573.7 -28.4 0 0.2 575.4 -26.2 582.8 -26.2 584.5 -28.6 573.7 -28.6 SL
672.4 -61.8 665.4 -61.8 663.3 -58.6 0 -0.2 665.1 -60.8 672.8 -60.8 674.6 -58.4 663.3 -58.4 SL
672.7 -25.2 666.6 -25.2 664.8 -28.4 0 0.2 666.3 -26.2 673.0 -26.2 674.6 -28.6 664.8 -28.6 SL
52.1 151.0 -73.00 cresc
(p) 213.1 -73.00 pf
250.7 -23.00 dnb
0 -74.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 543 x @beginspecial 0 @llx 0 @lly 544 @urx
81 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 81
%%Title: jazzmesse-vc-gloria007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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.8 T
0.75 dup scale
% --- 7 ((notitle)) ---
0 -25.34 T
72.9 -72.1 59.5 -70.6 55.4 -65.6 0 -0.2 58.8 -69.6 73.5 -71.1 76.9 -67.5 55.4 -65.4 SL
14.0 F3 184.9 -17.4 M (ad libitum) gcshow
14.0 F1 261.2 -27.4 M (50) showb 547.1 -27.4 M (55) showb
0 -58.40 M 699.30 staff
12.0 -58.4 bclef
30.0 -40.4 sh0 35.0 -49.4 sh0
54.4 -58.4 hd 20.0 su
79.4 -58.4 hd -9.0 sh 20.0 su
104.0 -55.4 Hd 20.0 su
24.0 124.8 -58.4 bar
140.1 -55.4 HD
24.0 169.0 -58.4 dbar
192.9 -37.4 Hd 20.0 sd
216.4 -37.4 hd 8.0 0 dt 20.0 sd
247.4 -40.4 hd -9.0 sh 1 20.0 sfd
24.0 261.2 -58.4 bar
276.9 -40.4 HD
24.0 302.4 -58.4 bar
316.3 -43.4 Hd 20.0 sd
340.4 -43.4 hd 8.0 0 dt 20.0 sd
365.5 -52.4 hd 1 20.0 sfu
24.0 382.4 -58.4 bar
396.9 -52.4 HD
24.0 423.5 -58.4 bar
436.3 -37.4 Hd 20.0 sd
461.0 -37.4 hd 8.0 0 dt 20.0 sd
492.1 -40.4 hd -9.0 sh 1 20.0 sfd
24.0 506.0 -58.4 bar
520.3 -40.4 HD
24.0 547.1 -58.4 bar
560.1 -43.4 Hd 20.0 sd
584.2 -43.4 hd 8.0 0 dt 20.0 sd
610.1 -52.4 hd 1 20.0 sfu
24.0 627.1 -58.4 bar
640.4 -52.4 Hd 9.0 3 dt 20.0 su
679.5 -52.4 hd 20.0 su
24.0 699.3 -58.4 dbar
130.5 -63.9 113.5 -63.9 108.4 -60.3 0 -0.2 112.7 -62.9 131.3 -62.9 135.6 -60.1 108.4 -60.1 SL
209.5 -29.4 199.8 -29.4 196.8 -32.7 0 0.2 199.3 -30.4 210.0 -30.4 212.5 -32.9 196.8 -32.9 SL
268.8 -32.2 255.5 -32.2 251.6 -35.6 0 0.2 254.9 -33.2 269.4 -33.2 272.7 -35.8 251.6 -35.8 SL
333.4 -35.4 323.3 -35.4 320.2 -38.7 0 0.2 322.8 -36.4 333.9 -36.4 336.4 -38.9 320.2 -38.9 SL
388.4 -60.7 374.0 -60.7 369.7 -57.2 0 -0.2 373.3 -59.7 389.0 -59.7 392.7 -57.0 369.7 -57.0 SL
453.9 -29.4 443.4 -29.4 440.3 -32.7 0 0.2 442.9 -30.4 454.4 -30.4 457.0 -32.9 440.3 -32.9 SL
512.4 -32.2 500.0 -32.2 496.2 -35.6 0 0.2 499.4 -33.2 513.0 -33.2 516.2 -35.8 496.2 -35.8 SL
577.2 -35.4 567.1 -35.4 564.1 -38.7 0 0.2 566.7 -36.4 577.7 -36.4 580.3 -38.9 564.1 -38.9 SL
632.1 -60.6 618.4 -60.6 614.3 -57.2 0 -0.2 617.8 -59.6 632.7 -59.6 636.2 -57.0 614.3 -57.0 SL
669.3 -61.0 650.6 -61.0 645.0 -57.4 0 -0.2 649.7 -60.0 670.2 -60.0 674.9 -57.2 645.0 -57.2 SL
(ritard.) 104.0 -82.40 crdc
(p) 192.9 -82.40 pf
192.9 -30.40 dnb
436.3 -30.40 dnb
-55.4 669.5 -82.40 cresc
(f) 679.5 -82.40 pf
0 -82.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 686 x @beginspecial 0 @llx 0 @lly 544 @urx
98 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 98
%%Title: jazzmesse-vc-gloria008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 8 ((notitle)) ---
0 -25.34 T
3.2 36.0 0.0 209.6 -64.2 bm
3.2 36.6 0.0 290.5 -55.5 bm
-3.2 52.9 0.0 337.6 -85.4 bm
3.2 37.8 0.0 498.0 -64.2 bm
3.2 36.9 0.0 579.7 -55.5 bm
-3.2 53.9 0.0 627.2 -85.4 bm
14.0 F3 124.6 -38.4 M (a tempo) gcshow
261.7 -38.4 M (simile) gcshow
14.0 F1 547.4 -51.4 M (60) showb
15.0 F2 112.5 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 88) show
0 -82.40 M 699.30 staff
12.0 -82.4 bclef
30.0 -64.4 sh0 35.0 -73.4 sh0
24.0 67.0 -82.4 fbar1 77.0 -82.4 rdots
83.5 -64.4 nt0 88.5 -73.4 nt0 96.5 -76.4 ft0 101.5 -67.4 ft0 106.5 -79.4 ft0
132.6 -73.4 hd 1 20.0 sfu
151.9 -70.4 r8
168.1 -70.4 r4
188.7 -70.4 r8
206.1 -82.4 hd 18.2 su
227.0 -82.4 hd -9.0 ft 18.2 su
242.1 -85.4 hd 21.2 su
24.0 257.7 -82.4 bar
269.7 -70.4 r8
287.0 -76.4 hd 21.0 su
308.0 -76.4 hd -9.0 nt 21.0 su
323.6 -73.4 hd 18.0 su
341.1 -67.4 hd 18.0 sd
356.8 -64.4 hd 21.0 sd
378.8 -64.4 hd -9.0 sh 21.0 sd
394.0 -61.4 hd 24.0 sd
24.0 409.7 -82.4 bar
421.1 -73.4 hd 1 20.0 sfu
440.4 -70.4 r8
458.3 -70.4 r4
478.5 -70.4 r8
494.5 -82.4 hd 18.2 su
515.8 -82.4 hd -9.0 ft 18.2 su
532.3 -85.4 hd 21.2 su
24.0 547.4 -82.4 bar
559.2 -70.4 r8
576.2 -76.4 hd 21.0 su
596.3 -76.4 hd -9.0 nt 21.0 su
613.1 -73.4 hd 18.0 su
630.7 -67.4 hd 18.0 sd
647.5 -64.4 hd 21.0 sd
668.9 -64.4 hd -9.0 sh 21.0 sd
684.6 -61.4 hd 24.0 sd
24.0 699.3 -82.4 bar
(mp) 132.6 -104.40 pf
132.6 -79.40 emb
132.6 -51.40 dnb
206.1 -89.40 emb
206.1 -56.40 dnb
227.0 -89.40 emb
242.1 -92.40 emb
287.0 -53.45 upb
421.1 -51.40 dnb
494.5 -56.40 dnb
576.2 -53.45 upb
0 -105.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 468 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-gloria009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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 33.0 0.0 126.0 -28.8 bm
3.2 33.6 0.0 198.8 -20.0 bm
-3.2 47.7 0.0 240.8 -50.0 bm
3.2 34.6 0.0 383.5 -28.8 bm
3.2 33.8 0.0 457.0 -20.0 bm
-3.2 48.5 0.0 499.4 -50.0 bm
3.2 33.8 0.0 655.8 -28.8 bm
14.0 F1 564.1 -16.0 M (65) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
59.2 -38.0 hd 1 20.0 sfu
76.8 -35.0 r8
90.6 -35.0 r4
107.7 -35.0 r8
122.5 -47.0 hd 18.2 su
142.5 -47.0 hd -9.0 ft 18.2 su
155.5 -50.0 hd 21.2 su
24.0 169.0 -47.0 bar
180.6 -35.0 r8
195.3 -41.0 hd 21.0 su
215.4 -41.0 hd -9.0 nt 21.0 su
228.9 -38.0 hd 18.0 su
244.3 -32.0 hd 18.0 sd
258.0 -29.0 hd 21.0 sd
278.9 -29.0 hd -9.0 sh 21.0 sd
292.0 -26.0 hd 24.0 sd
24.0 305.5 -47.0 bar
316.5 -38.0 hd 1 20.0 sfu
334.4 -35.0 r8
349.6 -35.0 r4
366.3 -35.0 r8
380.0 -47.0 hd 18.2 su
400.3 -47.0 hd -9.0 ft 18.2 su
414.6 -50.0 hd 21.2 su
24.0 427.6 -47.0 bar
439.1 -35.0 r8
453.5 -41.0 hd 21.0 su
472.8 -41.0 hd -9.0 nt 21.0 su
487.4 -38.0 hd 18.0 su
502.9 -32.0 hd 18.0 sd
517.5 -29.0 hd 21.0 sd
537.8 -29.0 hd -9.0 sh 21.0 sd
551.4 -26.0 hd 24.0 sd
24.0 564.1 -47.0 bar
588.8 -38.0 hd 1 20.0 sfu
607.0 -35.0 r8
621.8 -35.0 r4
638.1 -35.0 r8
652.3 -47.0 hd 18.2 su
672.7 -47.0 hd -9.0 ft 18.2 su
686.1 -50.0 hd 21.2 su
24.0 699.3 -47.0 bar
59.2 -16.00 dnb
122.5 -21.00 dnb
195.3 -18.05 upb
316.5 -16.00 dnb
380.0 -21.00 dnb
453.5 -18.05 upb
588.8 -16.00 dnb
652.3 -21.00 dnb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 569 x @beginspecial 0 @llx 0 @lly 544 @urx
84 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 84
%%Title: jazzmesse-vc-gloria010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 10 ((notitle)) ---
0 -25.34 T
3.2 35.6 0.0 83.4 -32.0 bm
-3.2 49.3 0.0 129.6 -62.0 bm
3.2 35.9 0.0 578.0 -32.0 bm
-3.2 49.5 0.0 623.5 -62.0 bm
(1) 80.0 541.3 -9.0 end2
14.0 F1 431.7 -28.0 M (70) showb
0 -59.00 M 699.30 staff
12.0 -59.0 bclef
30.0 -53.0 ft0 35.0 -44.0 ft0 40.0 -56.0 ft0
57.6 -47.0 r8
79.9 -53.0 hd 21.0 su
101.9 -53.0 hd -9.0 nt 21.0 su
115.6 -50.0 hd 18.0 su
133.1 -44.0 hd 18.0 sd
147.0 -41.0 hd 21.0 sd
168.4 -41.0 hd -9.0 sh 21.0 sd
182.4 -38.0 hd 24.0 sd
24.0 196.9 -59.0 bar
217.0 -35.0 Hd 20.0 sd
241.9 -32.0 hd 8.0 0 dt 20.0 sd
270.3 -29.0 hd 1 20.0 sfd -29.0 hl
24.0 283.9 -59.0 bar
297.2 -29.0 Hd 20.0 sd -29.0 hl
326.0 -26.0 Hd 21.0 sd -29.0 hl
24.0 346.4 -59.0 bar
359.4 -23.0 Hd 24.0 sd -29.0 hl -23.0 hl
384.1 -32.0 hd 8.0 0 dt 20.0 sd
417.1 -35.0 hd -9.0 nt 1 20.0 sfd
24.0 431.7 -59.0 bar
445.2 -35.0 Hd 20.0 sd
476.2 -35.0 Hd -9.0 ft 20.0 sd
24.0 498.1 -59.0 bar
513.9 -38.0 HD 513.9 -47.0 HD
24.0 541.3 -59.0 bar
552.9 -47.0 r8
574.5 -53.0 hd 21.0 su
595.4 -53.0 hd -9.0 nt 21.0 su
610.4 -50.0 hd 18.0 su
627.0 -44.0 hd 18.0 sd
642.4 -41.0 hd 21.0 sd
661.7 -41.0 hd -9.0 sh 21.0 sd
676.5 -38.0 hd 24.0 sd
24.0 699.3 -59.0 fbar2 689.3 -59.0 rdots
289.6 -20.9 277.9 -20.9 274.4 -24.3 0 0.2 277.4 -21.9 290.1 -21.9 293.1 -24.5 274.4 -24.5 SL
437.3 -26.8 425.0 -26.8 421.3 -30.2 0 0.2 424.4 -27.8 437.9 -27.8 441.0 -30.4 421.3 -30.4 SL
(mf) 79.9 -86.00 pf
-72.5 178.4 -86.00 cresc
(f) 217.0 -86.00 pf
217.0 -31.00 accent
217.0 -23.00 dnb
241.9 -28.00 accent
270.3 -22.00 accent
326.0 -22.00 accent
359.4 -19.00 accent
359.4 -11.00 dnb
384.1 -28.00 accent
417.1 -27.00 accent
476.2 -27.00 accent
(mp) 574.5 -86.00 pf
574.5 -62.00 emb
574.5 -30.05 upb
595.4 -62.00 emb
610.4 -56.00 emb
627.0 -38.00 emb
642.4 -32.00 emb
661.7 -32.00 emb
676.5 -31.00 emb
0 -86.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 643 x @beginspecial 0 @llx 0 @lly 544 @urx
93 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria011.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 93
%%Title: jazzmesse-vc-gloria011.abc (11)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 11 ((notitle)) ---
0 -25.34 T
3.2 16.0 4.2 124.5 -45.0 bm
(2) 80.0 70.3 -25.0 end2
14.0 F1 249.1 -44.0 M (75) showb 570.7 -44.0 M (80) showb
15.0 F2 90.5 -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 bclef
30.0 -69.0 ft0 35.0 -60.0 ft0 40.0 -72.0 ft0
24.0 70.3 -75.0 bar
(6) (8) 83.5 -75.0 tsig
99.8 -63.0 r8
121.0 -69.0 hd -9.0 nt 24.0 su
137.0 -60.0 hd 19.2 su
153.8 -54.0 hd 8.0 0 dt 20.0 sd
24.0 178.2 -75.0 bar
191.1 -54.0 hd 8.0 0 dt 20.0 sd
223.9 -54.0 hd 8.0 0 dt 20.0 sd
24.0 249.1 -75.0 bar
262.0 -66.0 hd 8.0 0 dt 20.0 su
288.6 -63.0 r4 8.0 3 dt
24.0 313.4 -75.0 bar
325.6 -63.0 hd 8.0 3 dt 20.0 sd
352.5 -63.0 r4 8.0 3 dt
24.0 377.7 -75.0 bar
391.0 -60.0 hd 8.0 0 dt 20.0 sd
417.5 -63.0 r4 8.0 3 dt
24.0 442.0 -75.0 bar
455.4 -72.0 hd 8.0 0 dt 20.0 su
481.5 -63.0 r4 8.0 3 dt
24.0 506.3 -75.0 bar
518.7 -63.0 hd 8.0 3 dt 20.0 sd
545.9 -63.0 r4 8.0 3 dt
24.0 570.7 -75.0 bar
583.4 -60.0 hd 8.0 0 dt 20.0 sd
610.4 -63.0 r4 8.0 3 dt
24.0 635.0 -75.0 bar
648.1 -54.0 hd 8.0 0 dt 20.0 sd
676.0 -63.0 r4 8.0 3 dt
24.0 699.3 -75.0 bar
181.3 -45.5 163.6 -45.5 158.3 -49.1 0 0.2 162.8 -46.5 182.1 -46.5 186.6 -49.3 158.3 -49.3 SL
121.0 -43.03 dnb
50.1 131.0 -97.00 cresc
191.1 -47.00 hld
(p) 223.9 -97.00 pf
223.9 -49.00 hld
0 -98.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 494 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria012.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vc-gloria012.abc (12)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 12 ((notitle)) ---
0 -25.34 T
3.2 26.9 0.0 582.9 -26.0 bm
509.3 -47.3 494.7 -48.7 490.3 -44.3 0 -0.2 494.0 -47.7 510.0 -46.3 513.7 -42.0 490.3 -44.1 SL
595.2 -61.1 564.2 -62.0 555.3 -57.2 0 -0.2 562.8 -61.0 596.6 -60.1 604.1 -55.6 555.3 -57.0 SL
14.0 F1 238.8 -16.0 M (85) showb 539.7 -16.0 M (90) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
57.4 -47.0 hd 8.0 3 dt 20.0 su
85.2 -35.0 r4 8.0 3 dt
24.0 110.1 -47.0 bar
123.6 -38.0 hd 8.0 0 dt 20.0 su
149.9 -35.0 r4 8.0 3 dt
24.0 174.5 -47.0 bar
187.3 -35.0 hd 8.0 3 dt 20.0 sd
213.6 -35.0 r4 8.0 3 dt
24.0 238.8 -47.0 bar
251.7 -32.0 hd 8.0 0 dt 20.0 sd
24.0 275.7 -47.0 bar
288.1 -44.0 hd 8.0 0 dt 20.0 su
314.9 -35.0 r4 8.0 3 dt
24.0 340.0 -47.0 bar
358.5 -44.0 hd 8.0 0 dt -9.0 nt 20.0 su
387.9 -35.0 r4 8.0 3 dt
24.0 411.0 -47.0 bar
423.6 -41.0 hd 8.0 3 dt 20.0 su
452.5 -35.0 r4 8.0 3 dt
24.0 475.4 -47.0 bar
487.7 -38.0 hd 8.0 0 dt 20.0 su
514.7 -35.0 hd 8.0 3 dt 20.0 su
24.0 539.7 -47.0 bar
552.1 -47.0 hd 8.0 3 dt 20.0 su
579.4 -47.0 hd 8.0 3 dt 21.0 su
606.3 -47.0 hd 8.0 3 dt -9.0 ft 21.0 su
24.0 627.3 -47.0 bar
648.3 -50.0 hd 8.0 0 dt 20.0 su
675.9 -35.0 r4 8.0 3 dt
24.0 699.3 -47.0 bar
571.7 -55.1 559.8 -55.1 556.2 -51.7 0 -0.2 559.2 -54.1 572.3 -54.1 575.3 -51.5 556.2 -51.5 SL
(p) 648.3 -74.00 pf
0 -74.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1765 6215 a Fc(2)p eop end
%%Page: 3 3
TeXDict begin 3 2 bop -317 236 a @beginspecial 0 @llx
0 @lly 544 @urx 77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria013.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vc-gloria013.abc (13)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 13 ((notitle)) ---
0 -25.34 T
14.0 F1 237.2 -16.0 M (95) showb 578.6 -16.0 M (100) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
69.4 -41.0 hd 8.0 3 dt 20.0 su
93.2 -35.0 r4 8.0 3 dt
24.0 116.5 -47.0 bar
128.4 -53.0 hd 8.0 3 dt 20.0 su -53.0 hl
154.4 -35.0 r4 8.0 3 dt
24.0 176.9 -47.0 bar
188.9 -44.0 hd 8.0 0 dt 20.0 su
214.4 -35.0 r4 8.0 3 dt
24.0 237.2 -47.0 bar
266.5 -35.0 hd 8.0 3 dt -9.0 ft 20.0 sd
291.5 -35.0 r4 8.0 3 dt
24.0 314.7 -47.0 bar
333.6 -41.0 hd 8.0 3 dt -9.0 nt 20.0 su
359.5 -35.0 r4 8.0 3 dt
24.0 382.2 -47.0 bar
402.1 -44.0 hd 8.0 0 dt -9.0 nt 20.0 su
427.1 -35.0 r4 8.0 3 dt
24.0 449.7 -47.0 bar
469.4 -47.0 hd 8.0 3 dt 20.0 su
495.9 -35.0 r4 8.0 3 dt
24.0 518.2 -47.0 bar
530.1 -50.0 hd 8.0 0 dt 20.0 su
556.0 -35.0 r4 8.0 3 dt
24.0 578.6 -47.0 bar
591.2 -41.0 hd 8.0 3 dt 20.0 su
615.5 -35.0 r4 8.0 3 dt
24.0 638.9 -47.0 bar
651.1 -50.0 hd 8.0 0 dt 20.0 su
676.0 -35.0 r4 8.0 3 dt
24.0 699.3 -47.0 bar
(cresc.) 69.4 -77.00 crdc
(cresc.) 266.5 -77.00 crdc
(mf) 469.4 -77.00 pf
530.1 -21.00 dnb
0 -77.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 560 x @beginspecial 0 @llx 0 @lly 544 @urx
79 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria014.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 79
%%Title: jazzmesse-vc-gloria014.abc (14)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 14 ((notitle)) ---
0 -25.34 T
14.0 F1 229.8 -16.0 M (105) showb 523.2 -16.0 M (110) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
59.4 -41.0 hd 8.0 3 dt 20.0 su
82.5 -35.0 r4 8.0 3 dt
24.0 105.1 -47.0 bar
123.9 -44.0 hd 8.0 0 dt -9.0 nt 20.0 su
149.2 -35.0 r4 8.0 3 dt
24.0 171.1 -47.0 bar
182.9 -56.0 hd 8.0 0 dt 21.0 su -53.0 hl
207.6 -35.0 r4 8.0 3 dt
24.0 229.8 -47.0 bar
241.9 -47.0 hd 8.0 3 dt 20.0 su
265.8 -35.0 r4 8.0 3 dt
24.0 288.5 -47.0 bar
300.3 -59.0 hd 8.0 3 dt 24.0 su -53.0 hl -59.0 hl
325.1 -35.0 r4 8.0 3 dt
24.0 347.1 -47.0 bar
359.6 -50.0 hd 8.0 0 dt 20.0 su
383.8 -35.0 r4 8.0 3 dt
24.0 405.8 -47.0 bar
417.6 -41.0 hd 8.0 3 dt 20.0 su
442.8 -35.0 r4 8.0 3 dt
24.0 464.5 -47.0 bar
476.3 -53.0 hd 8.0 3 dt 20.0 su -53.0 hl
501.3 -35.0 r4 8.0 3 dt
24.0 523.2 -47.0 bar
535.7 -44.0 hd 8.0 0 dt 20.0 su
559.1 -35.0 r4 8.0 3 dt
24.0 581.9 -47.0 bar
593.9 -56.0 hd 8.0 0 dt 21.0 su -53.0 hl
617.9 -35.0 r4 8.0 3 dt
24.0 640.6 -47.0 bar
652.3 -53.0 hd 8.0 3 dt 20.0 su -53.0 hl
677.7 -35.0 r4 8.0 3 dt
24.0 699.3 -47.0 bar
50.4 597.9 -80.00 cresc
0 -80.00 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-vc-gloria015.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-gloria015.abc (15)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 15 ((notitle)) ---
0 -25.34 T
14.0 F1 154.0 -16.0 M (115) showb 466.2 -16.0 M (120) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
69.3 -47.0 hd 8.0 3 dt 20.0 su
92.2 -35.0 r4 8.0 3 dt
24.0 114.6 -47.0 bar
127.4 -47.0 Hd 9.0 3 dt 20.0 su
24.0 154.0 -47.0 bar
187.1 -38.0 hd 8.0 0 dt 20.0 su
210.8 -35.0 r4 8.0 3 dt
24.0 233.2 -47.0 bar
245.2 -35.0 hd 8.0 3 dt 20.0 sd
269.5 -35.0 r4 8.0 3 dt
24.0 291.4 -47.0 bar
303.2 -32.0 hd 8.0 0 dt 20.0 sd
327.3 -35.0 r4 8.0 3 dt
24.0 349.7 -47.0 bar
361.8 -44.0 hd 8.0 0 dt 20.0 su
386.6 -35.0 r4 8.0 3 dt
24.0 408.0 -47.0 bar
420.1 -35.0 hd 8.0 3 dt 20.0 sd
443.7 -35.0 r4 8.0 3 dt
24.0 466.2 -47.0 bar
478.5 -32.0 hd 8.0 0 dt 20.0 sd
502.0 -35.0 r4 8.0 3 dt
24.0 524.5 -47.0 bar
536.6 -26.0 hd 8.0 0 dt 20.0 sd
561.5 -35.0 r4 8.0 3 dt
24.0 582.8 -47.0 bar
594.4 -47.0 hd 8.0 3 dt 20.0 su
618.9 -35.0 r4 8.0 3 dt
24.0 641.0 -47.0 bar
652.8 -38.0 hd 8.0 0 dt 20.0 su
676.6 -35.0 r4 8.0 3 dt
24.0 699.3 -47.0 bar
(p) 69.3 -71.00 pf
127.4 -21.00 upb
(mf) 187.1 -71.00 pf
187.1 -16.00 dnb
652.8 -16.00 dnb
0 -71.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 502 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria016.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-gloria016.abc (16)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 16 ((notitle)) ---
0 -25.34 T
3.2 26.1 0.0 469.0 -26.0 bm
398.0 -47.3 384.0 -48.7 379.8 -44.3 0 -0.2 383.3 -47.7 398.7 -46.3 402.3 -42.0 379.8 -44.1 SL
480.7 -61.0 450.6 -62.0 441.9 -57.2 0 -0.2 449.2 -61.0 482.2 -60.0 489.5 -55.6 441.9 -57.0 SL
14.0 F1 108.3 -16.0 M (125) showb 426.7 -16.0 M (130) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
59.5 -35.0 hd 8.0 3 dt 20.0 sd
84.3 -35.0 r4 8.0 3 dt
24.0 108.3 -47.0 bar
120.5 -32.0 hd 8.0 0 dt 20.0 sd
147.4 -35.0 r4 8.0 3 dt
24.0 170.6 -47.0 bar
182.8 -44.0 hd 8.0 0 dt 20.0 su
209.4 -35.0 r4 8.0 3 dt
24.0 232.9 -47.0 bar
252.2 -44.0 hd 8.0 0 dt -9.0 nt 20.0 su
278.1 -35.0 r4 8.0 3 dt
24.0 302.1 -47.0 bar
314.3 -41.0 hd 8.0 3 dt 20.0 su
341.0 -35.0 r4 8.0 3 dt
24.0 364.4 -47.0 bar
377.2 -38.0 hd 8.0 0 dt 20.0 su
403.3 -35.0 hd 8.0 3 dt 20.0 su
24.0 426.7 -47.0 bar
438.8 -47.0 hd 8.0 3 dt 20.0 su
465.5 -47.0 hd 8.0 3 dt 21.0 su
491.6 -47.0 hd 8.0 3 dt -9.0 ft 21.0 su
24.0 512.4 -47.0 bar
525.0 -50.0 hd 8.0 0 dt 20.0 su
552.0 -35.0 r4 8.0 3 dt
24.0 574.7 -47.0 bar
586.8 -41.0 hd 8.0 3 dt 20.0 su
613.3 -35.0 r4 8.0 3 dt
24.0 637.0 -47.0 bar
649.2 -53.0 hd 8.0 3 dt 20.0 su -53.0 hl
675.0 -35.0 r4 8.0 3 dt
24.0 699.3 -47.0 bar
458.0 -55.1 446.3 -55.1 442.8 -51.7 0 -0.2 445.8 -54.1 458.5 -54.1 461.4 -51.5 442.8 -51.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 526 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria017.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vc-gloria017.abc (17)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 17 ((notitle)) ---
0 -25.34 T
14.0 F1 110.7 -16.0 M (135) showb 448.9 -16.0 M (140) showb 657.6 -16.0 M (145) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
59.5 -44.0 hd 8.0 0 dt 20.0 su
83.8 -35.0 r4 8.0 3 dt
24.0 110.7 -47.0 dbar
120.9 -41.0 nt0 125.9 -32.0 nt0 130.9 -44.0 nt0 138.9 -29.0 sh0 143.9 -38.0 sh0
158.6 -35.0 hd 8.0 3 dt 20.0 sd
185.6 -35.0 r4 8.0 3 dt
24.0 208.5 -47.0 bar
220.6 -47.0 hd 8.0 3 dt 20.0 su
246.7 -35.0 r4 8.0 3 dt
24.0 269.9 -47.0 bar
289.3 -47.0 hd 8.0 3 dt -9.0 sh 20.0 su
314.7 -35.0 r4 8.0 3 dt
24.0 338.4 -47.0 bar
350.6 -44.0 hd 8.0 0 dt 20.0 su
376.8 -35.0 r4 8.0 3 dt
24.0 399.9 -47.0 bar
421.3 -50.0 Hd 9.0 0 dt 20.0 su
24.0 448.9 -47.0 bar
462.6 -47.0 Hd 9.0 3 dt 20.0 su
24.0 490.6 -47.0 bar
503.8 -50.0 Hd 9.0 0 dt 20.0 su
24.0 532.4 -47.0 bar
546.2 -47.0 Hd 9.0 3 dt 20.0 su
24.0 574.1 -47.0 bar
587.4 -50.0 Hd 9.0 0 dt 20.0 su
24.0 615.8 -47.0 bar
629.6 -41.0 Hd 9.0 3 dt 20.0 su
24.0 657.6 -47.0 bar
671.6 -53.0 Hd 9.0 3 dt 20.0 su -53.0 hl
24.0 699.3 -47.0 bar
(p) 421.3 -74.00 pf
0 -74.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 577 x @beginspecial 0 @llx 0 @lly 544 @urx
81 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria018.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 81
%%Title: jazzmesse-vc-gloria018.abc (18)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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.5 T
0.75 dup scale
% --- 18 ((notitle)) ---
0 -25.34 T
14.0 F1 203.4 -28.0 M (150) showb 588.9 -28.0 M (155) showb
15.0 F2 373.5 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 144) show
0 -59.00 M 699.30 staff
12.0 -59.0 bclef
30.0 -41.0 sh0 35.0 -50.0 sh0
53.7 -56.0 Hd 9.0 0 dt 20.0 su
24.0 81.6 -59.0 bar
95.4 -62.0 Hd 9.0 0 dt 20.0 su
24.0 122.2 -59.0 bar
135.9 -59.0 Hd 9.0 3 dt 20.0 su
24.0 162.8 -59.0 bar
176.9 -62.0 Hd 9.0 0 dt 20.0 su
24.0 203.4 -59.0 bar
217.4 -65.0 Hd 9.0 3 dt 20.0 su -65.0 hl
24.0 244.0 -59.0 bar
257.1 -62.0 Hd 9.0 0 dt 20.0 su
24.0 284.6 -59.0 bar
298.6 -56.0 Hd 9.0 0 dt 20.0 su
24.0 351.3 -59.0 dbar
366.5 -59.0 csig
383.1 -47.0 r4
407.9 -56.0 hd 20.0 su
436.0 -56.0 hd 20.0 su
463.1 -56.0 hd 20.0 su
24.0 478.6 -59.0 bar
490.4 -56.0 hd 20.0 su
518.2 -56.0 hd 20.0 su
546.4 -56.0 hd 20.0 su
573.1 -56.0 hd 20.0 su
24.0 588.9 -59.0 bar
601.3 -56.0 hd 20.0 su
628.9 -56.0 hd 20.0 su
656.2 -56.0 hd 20.0 su
684.1 -56.0 hd 20.0 su
24.0 699.3 -59.0 bar
298.6 -33.00 hld
331.8 -32.00 brth
(p) 407.9 -81.00 pf
407.9 -33.00 upb
0 -82.00 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-vc-gloria019.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-gloria019.abc (19)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 19 ((notitle)) ---
0 -25.34 T
14.0 F1 486.3 -16.0 M (160) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -29.0 sh0 35.0 -38.0 sh0
63.0 -44.0 hd 20.0 su
90.4 -44.0 hd 20.0 su
117.0 -44.0 hd 20.0 su
143.9 -44.0 hd 20.0 su
24.0 158.1 -47.0 bar
170.4 -44.0 hd 20.0 su
196.3 -44.0 hd 20.0 su
223.6 -44.0 hd 20.0 su
250.2 -44.0 hd 20.0 su
24.0 264.6 -47.0 bar
276.5 -44.0 hd 20.0 su
303.6 -44.0 hd 20.0 su
329.7 -44.0 hd 20.0 su
356.3 -44.0 hd 20.0 su
24.0 371.1 -47.0 bar
383.0 -44.0 hd 20.0 su
419.1 -44.0 hd 20.0 su
444.5 -44.0 hd 20.0 su
472.0 -44.0 hd 20.0 su
24.0 486.3 -47.0 bar
498.5 -44.0 hd 20.0 su
524.8 -44.0 hd 20.0 su
551.6 -44.0 hd 20.0 su
578.3 -44.0 hd 20.0 su
24.0 592.8 -47.0 bar
604.4 -44.0 hd 20.0 su
631.8 -44.0 hd 20.0 su
658.5 -44.0 hd 20.0 su
684.2 -44.0 hd 20.0 su
24.0 699.3 -47.0 bar
(cresc.) 63.0 -69.00 crdc
(f) 419.1 -69.00 pf
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 502 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria020.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-gloria020.abc (20)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 20 ((notitle)) ---
0 -25.34 T
3.2 26.8 6.3 333.3 -22.1 bm
3.2 27.8 4.2 422.2 -32.0 bm
14.0 F1 370.4 -16.0 M (165) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -29.0 sh0 35.0 -38.0 sh0
52.9 -44.0 hd 20.0 su
81.7 -44.0 hd 20.0 su
109.7 -44.0 hd 20.0 su
138.1 -44.0 hd 20.0 su
24.0 153.3 -47.0 bar
165.7 -44.0 hd 20.0 su
181.2 -35.0 r8
210.5 -38.0 hd -9.0 nt 1 20.0 sfu
229.1 -38.0 hd 20.0 su
253.1 -38.0 hd -9.0 sh 20.0 su
24.0 268.7 -47.0 bar
281.3 -35.0 hd 20.0 sd
298.5 -35.0 r4
315.0 -35.0 r8
329.8 -47.0 hd 24.9 su
344.1 -41.0 hd 22.3 su
356.5 -35.0 hd 19.2 su
24.0 370.4 -47.0 bar
383.9 -35.0 r2
404.6 -35.0 r8
418.7 -53.0 hd 21.0 su -53.0 hl
432.7 -50.0 hd 20.1 su
446.4 -47.0 hd 19.2 su
24.0 459.5 -47.0 bar
470.8 -47.0 hd 1 20.0 sfu
489.4 -35.0 r8
510.5 -47.0 hd -9.0 sh 1 20.0 sfu
526.7 -35.0 r8
541.3 -44.0 hd 1 20.0 sfu
559.4 -35.0 r8
574.1 -44.0 hd 1 20.0 sfu
591.6 -35.0 r8
24.0 605.0 -47.0 bar
617.3 -35.0 r4
640.8 -38.0 hd -9.0 nt 20.0 su
659.4 -41.0 hd 20.0 su
684.3 -41.0 hd -9.0 ft 20.0 su
24.0 699.3 -47.0 bar
223.3 -45.8 216.3 -45.8 214.2 -42.6 0 -0.2 216.0 -44.8 223.6 -44.8 225.3 -42.4 214.2 -42.4 SL
463.7 -55.0 453.5 -55.0 450.4 -51.7 0 -0.2 453.0 -54.0 464.2 -54.0 466.8 -51.5 450.4 -51.5 SL
(ff) 210.5 -69.00 pf
210.5 -16.00 dnb
329.8 -54.00 emb
329.8 -20.12 dnb
344.1 -50.00 emb
356.5 -44.00 emb
418.7 -60.00 emb
418.7 -21.00 dnb
432.7 -57.00 emb
510.5 -54.00 emb
541.3 -51.00 emb
574.1 -51.00 emb
640.8 -16.00 upb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 543 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria021.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-vc-gloria021.abc (21)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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 27.4 6.4 121.1 -22.2 bm
3.2 47.4 3.8 426.4 -28.6 bm
3.2 18.9 0.0 548.9 -22.8 bm
3.2 59.9 4.2 629.2 -23.0 bm
14.0 F1 241.0 -16.0 M (170) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -29.0 sh0 35.0 -38.0 sh0
52.9 -44.0 hd 1 20.0 sfu
71.5 -35.0 r8
86.3 -35.0 r4
103.2 -35.0 r8
117.6 -47.0 hd 24.8 su
130.4 -41.0 hd 21.8 su
145.0 -35.0 hd 19.2 su
24.0 157.8 -47.0 bar
169.6 -35.0 hd 1 20.0 sfd
184.3 -38.0 hd 20.0 su
202.6 -41.0 hd 1 20.0 sfu
221.3 -41.0 Hd 20.0 su
24.0 241.0 -47.0 bar
260.3 -41.0 Hd -9.0 ft 20.0 su
283.9 -44.0 Hd 20.0 su
24.0 303.4 -47.0 bar
318.9 -35.0 HD
24.0 366.5 -47.0 bar
386.1 -53.0 hd 20.0 su -53.0 hl
405.5 -35.0 r4
422.9 -53.0 hd 24.4 su -53.0 hl
436.2 -47.0 hd 19.4 su
456.6 -47.0 hd -9.0 sh 21.1 su
470.4 -44.0 hd 19.2 su
24.0 483.4 -47.0 bar
504.0 -44.0 Hd 20.0 su
527.8 -35.0 r4
545.4 -44.0 hd 21.2 su
564.3 -44.0 hd -9.0 ft 21.2 su
24.0 578.0 -47.0 bar
589.6 -47.0 hd 20.0 su
607.9 -35.0 r4
625.7 -47.0 hd 24.0 su
645.5 -41.0 hd -9.0 ft 19.4 su
666.4 -41.0 hd -9.0 nt 20.9 su
685.6 -38.0 hd -9.0 nt 19.2 su
24.0 699.3 -47.0 bar
162.8 -27.0 153.4 -27.0 150.5 -30.3 0 0.2 152.9 -28.0 163.3 -28.0 165.6 -30.5 150.5 -30.5 SL
215.4 -48.8 208.5 -48.8 206.4 -45.6 0 -0.2 208.1 -47.8 215.8 -47.8 217.5 -45.4 206.4 -45.4 SL
494.9 -52.4 479.4 -52.4 474.7 -48.9 0 -0.2 478.6 -51.4 495.7 -51.4 499.6 -48.7 474.7 -48.7 SL
694.5 -45.6 690.4 -45.6 689.2 -42.5 0 -0.2 690.2 -44.6 694.7 -44.6 695.8 -42.3 689.2 -42.3 SL
52.9 -51.00 emb
52.9 -21.00 dnb
117.6 -54.00 emb
117.6 -20.20 upb
130.4 -50.00 emb
349.9 -20.00 brth
(mf) 386.1 -77.00 pf
386.1 -21.00 dnb
422.9 -60.00 emb
422.9 -21.00 upb
436.2 -54.00 emb
456.6 -54.00 emb
(cresc.) 504.0 -77.00 crdc
545.4 -51.00 emb
545.4 -20.75 dnb
564.3 -51.00 emb
625.7 -54.00 emb
625.7 -20.96 upb
645.5 -50.00 emb
666.4 -50.00 emb
0 -77.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 510 x @beginspecial 0 @llx 0 @lly 544 @urx
73 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria022.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 73
%%Title: jazzmesse-vc-gloria022.abc (22)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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 73.0 T
0.75 dup scale
% --- 22 ((notitle)) ---
0 -25.34 T
3.2 34.0 0.0 111.9 -32.1 bm
3.2 50.4 3.9 196.5 -28.7 bm
3.2 20.5 0.0 316.2 -22.8 bm
3.2 60.7 4.1 409.8 -22.9 bm
3.2 20.6 0.0 562.1 -20.0 bm
3.2 28.1 6.5 660.4 -22.3 bm
14.0 F1 40.9 -17.0 M (175) showb 592.9 -16.0 M (180) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -29.0 sh0 35.0 -38.0 sh0
53.4 -38.0 hd 8.0 0 dt 20.0 su
77.5 -35.0 r8
93.2 -35.0 r8
108.4 -50.0 hd 17.9 su
128.8 -50.0 hd -9.0 nt 17.9 su
142.3 -53.0 hd 20.9 su -53.0 hl
24.0 156.4 -47.0 bar
169.2 -35.0 r2
193.0 -53.0 hd 24.3 su -53.0 hl
208.2 -47.0 hd 19.5 su
228.3 -47.0 hd -9.0 sh 21.0 su
243.4 -44.0 hd 19.2 su
24.0 256.5 -47.0 bar
269.8 -44.0 Hd 20.0 su
294.7 -35.0 r4
312.7 -44.0 hd 21.2 su
333.2 -44.0 hd -9.0 ft 21.2 su
24.0 347.1 -47.0 bar
368.1 -47.0 hd 20.0 su
386.4 -35.0 r4
406.3 -47.0 hd 24.1 su
424.8 -41.0 hd -9.0 ft 19.3 su
446.1 -41.0 hd -9.0 nt 20.8 su
467.0 -38.0 hd -9.0 nt 19.2 su
24.0 480.3 -47.0 bar
492.9 -38.0 hd 8.0 0 dt 20.0 su
517.1 -35.0 r8
534.0 -35.0 r4
558.6 -41.0 hd 21.0 su
579.2 -41.0 hd -9.0 ft 21.0 su
24.0 592.9 -47.0 bar
605.7 -44.0 hd 20.0 su
624.3 -35.0 r4
641.9 -35.0 r8
656.9 -47.0 hd 24.7 su
671.7 -41.0 hd 22.1 su
685.0 -35.0 hd 19.2 su
24.0 699.3 -47.0 bar
47.3 -45.9 39.5 -45.9 37.2 -42.6 0 -0.2 39.1 -44.9 47.6 -44.9 49.6 -42.4 37.2 -42.4 SL
262.3 -52.1 250.9 -52.1 247.4 -48.7 0 -0.2 250.3 -51.1 262.8 -51.1 265.7 -48.5 247.4 -48.5 SL
485.5 -46.1 474.4 -46.1 471.0 -42.7 0 -0.2 473.8 -45.1 486.0 -45.1 488.8 -42.5 471.0 -42.5 SL
108.4 -57.00 emb
108.4 -21.00 dnb
128.8 -57.00 emb
142.3 -60.00 emb
193.0 -60.00 emb
193.0 -21.00 upb
208.2 -54.00 emb
228.3 -54.00 emb
312.7 -51.00 emb
312.7 -20.75 dnb
333.2 -51.00 emb
(cresc.) 368.1 -72.00 crdc
406.3 -54.00 emb
406.3 -20.93 upb
424.8 -50.00 emb
446.1 -50.00 emb
(ff) 558.6 -72.00 pf
558.6 -50.00 emb
558.6 -18.05 dnb
579.2 -50.00 emb
656.9 -54.00 emb
656.9 -20.26 dnb
671.7 -50.00 emb
685.0 -44.00 emb
0 -72.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 610 x @beginspecial 0 @llx 0 @lly 544 @urx
85 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria023.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 85
%%Title: jazzmesse-vc-gloria023.abc (23)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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.6 T
0.75 dup scale
% --- 23 ((notitle)) ---
0 -25.34 T
3.2 25.0 4.1 89.1 -49.3 bm
3.2 25.6 6.2 418.0 -39.4 bm
14.0 F3 644.3 -17.4 M (stringendo) gcshow
14.0 F1 451.6 -33.4 M (185) showb
0 -64.40 M 699.30 staff
12.0 -64.4 bclef
30.0 -46.4 sh0 35.0 -55.4 sh0
54.0 -52.4 r2
71.3 -52.4 r8
85.6 -70.4 hd 21.1 su -70.4 hl
98.0 -67.4 hd 20.2 su
110.5 -64.4 hd 19.2 su
24.0 122.0 -64.4 bar
133.1 -64.4 hd 1 20.0 sfu
149.4 -52.4 r8
169.5 -64.4 hd -9.0 sh 1 20.0 sfu
187.5 -52.4 r8
200.3 -61.4 hd 1 20.0 sfu
217.8 -52.4 r8
230.2 -61.4 hd 1 20.0 sfu
247.5 -52.4 r8
24.0 259.1 -64.4 bar
270.7 -52.4 r4
293.4 -55.4 hd -9.0 nt 20.0 su
309.5 -58.4 hd 20.0 su
331.5 -58.4 hd -9.0 ft 20.0 su
24.0 345.5 -64.4 bar
357.3 -61.4 hd 1 20.0 sfu
373.0 -52.4 r8
387.0 -52.4 r4
402.0 -52.4 r8
414.5 -64.4 hd 25.0 su
426.8 -58.4 hd 22.0 su
440.2 -52.4 hd 19.2 su
24.0 451.6 -64.4 bar
462.8 -52.4 hd 1 20.0 sfd
476.3 -55.4 hd 20.0 su
492.3 -58.4 hd 1 20.0 sfu
510.1 -58.4 Hd 20.0 su
24.0 526.7 -64.4 bar
546.6 -58.4 Hd -9.0 ft 20.0 su
566.1 -61.4 Hd 20.0 su
24.0 582.9 -64.4 bar
597.4 -52.4 HD
24.0 639.9 -64.4 bar
652.3 -70.4 Hd 9.0 3 dt 12.5 3 dt 20.0 su -70.4 hl
683.0 -67.4 hd 1 20.0 sfu
24.0 699.3 -64.4 bar
126.4 -72.4 117.2 -72.4 114.4 -69.1 0 -0.2 116.8 -71.4 126.9 -71.4 129.2 -68.9 114.4 -68.9 SL
456.4 -44.5 448.1 -44.5 445.6 -47.7 0 0.2 447.7 -45.5 456.8 -45.5 458.9 -47.9 445.6 -47.9 SL
504.5 -66.2 498.0 -66.2 496.0 -63.0 0 -0.2 497.7 -65.2 504.8 -65.2 506.4 -62.8 496.0 -62.8 SL
694.0 -75.1 688.4 -75.1 686.7 -71.9 0 -0.2 688.1 -74.1 694.2 -74.1 695.6 -71.7 686.7 -71.7 SL
85.6 -77.40 emb
85.6 -38.40 dnb
98.0 -74.40 emb
169.5 -71.40 emb
200.3 -68.40 emb
230.2 -68.40 emb
293.4 -33.40 upb
357.3 -68.40 emb
357.3 -38.40 dnb
414.5 -71.40 emb
414.5 -37.40 upb
426.8 -67.40 emb
624.0 -37.40 brth
652.3 -38.40 accent
652.3 -30.40 dnb
0 -87.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 593 x @beginspecial 0 @llx 0 @lly 544 @urx
83 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria024.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 83
%%Title: jazzmesse-vc-gloria024.abc (24)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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.8 T
0.75 dup scale
% --- 24 ((notitle)) ---
0 -25.34 T
14.0 F1 128.5 -31.0 M (190) showb 585.3 -31.0 M (195) showb
15.0 F2 607.6 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
Hd 20 su grestore 15.40 0 rmoveto ( = 84) show
0 -62.00 M 699.30 staff
12.0 -62.0 bclef
30.0 -44.0 sh0 35.0 -53.0 sh0
53.3 -65.0 hd 1 20.0 sfu
70.9 -50.0 r8
88.1 -50.0 r4
108.3 -50.0 r2
24.0 128.5 -62.0 bar
156.2 -62.0 Hd 9.0 3 dt 12.5 3 dt 20.0 su
196.6 -62.0 hd -9.0 sh 1 20.0 sfu
24.0 214.5 -62.0 bar
225.7 -62.0 hd 1 20.0 sfu
243.6 -50.0 r8
260.4 -50.0 r4
280.1 -50.0 r2
24.0 301.2 -62.0 bar
315.9 -59.0 Hd 9.0 0 dt 12.5 0 dt 20.0 su
356.3 -59.0 hd -9.0 sh 1 20.0 sfu
24.0 374.0 -62.0 bar
386.0 -59.0 hd 1 20.0 sfu
403.7 -50.0 r8
418.3 -50.0 r8
434.1 -56.0 hd 1 20.0 sfu
452.5 -56.0 hd 1 20.0 sfu
471.6 -50.0 r8
484.7 -50.0 r8
500.7 -68.0 hd 1 20.0 sfu -68.0 hl
24.0 518.3 -62.0 bar
532.7 -68.0 Hd 9.0 3 dt 20.0 su -68.0 hl
565.4 -50.0 r4
24.0 585.3 -62.0 dbar
(2) (2) 600.6 -62.0 tsig
(3) 653.9 -62.0 mrest
24.0 699.3 -62.0 bar
47.2 -72.9 39.5 -72.9 37.1 -69.6 0 -0.2 39.1 -71.9 47.6 -71.9 49.5 -69.4 37.1 -69.4 SL
217.6 -70.2 204.7 -70.2 200.8 -66.8 0 -0.2 204.0 -69.2 218.3 -69.2 221.5 -66.6 200.8 -66.6 SL
377.8 -67.2 364.5 -67.2 360.5 -63.8 0 -0.2 363.8 -66.2 378.5 -66.2 381.9 -63.6 360.5 -63.6 SL
446.7 -63.8 439.9 -63.8 437.9 -60.6 0 -0.2 439.6 -62.8 447.0 -62.8 448.8 -60.4 437.9 -60.4 SL
524.0 -76.3 509.4 -76.3 505.0 -72.8 0 -0.2 508.7 -75.3 524.8 -75.3 528.4 -72.6 505.0 -72.6 SL
156.2 -36.00 accent
196.6 -36.00 accent
315.9 -36.00 accent
356.3 -36.00 accent
434.1 -34.00 accent
434.1 -26.00 dnb
500.7 -36.00 accent
500.7 -28.00 dnb
0 -85.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1836 6215 a Fc(3)p eop end
%%Page: 4 4
TeXDict begin 4 3 bop -387 219 a @beginspecial 0 @llx
0 @lly 544 @urx 75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria025.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vc-gloria025.abc (25)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 25 ((notitle)) ---
0 -25.34 T
14.0 F1 178.2 -16.0 M (200) showb 611.4 -16.0 M (205) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -29.0 sh0 35.0 -38.0 sh0
55.4 -35.0 r1
24.0 82.7 -47.0 bar
102.8 -50.0 Hd 20.0 su
129.5 -47.0 hd 8.0 3 dt 20.0 su
161.3 -47.0 hd -9.0 sh 1 20.0 sfu
24.0 178.2 -47.0 bar
191.4 -47.0 hd 8.0 3 dt 20.0 su
216.7 -44.0 hd 1 20.0 sfu
236.4 -44.0 Hd 20.0 su
24.0 258.2 -47.0 bar
271.0 -50.0 Hd 20.0 su
296.8 -47.0 hd 8.0 3 dt 20.0 su
328.4 -47.0 hd -9.0 sh 1 20.0 sfu
24.0 346.1 -47.0 bar
359.4 -47.0 hd 8.0 3 dt 20.0 su
384.7 -44.0 hd 1 20.0 sfu
405.8 -44.0 Hd 20.0 su
24.0 427.1 -47.0 fbar1 437.1 -47.0 rdots
456.8 -50.0 Hd 20.0 su
481.6 -47.0 hd 8.0 3 dt 20.0 su
514.4 -47.0 hd -9.0 sh 1 20.0 sfu
24.0 531.4 -47.0 bar
543.9 -47.0 hd 8.0 3 dt 20.0 su
571.3 -44.0 hd 1 20.0 sfu
589.7 -44.0 Hd 20.0 su
24.0 611.4 -47.0 bar
624.8 -50.0 Hd 20.0 su
650.3 -47.0 hd 8.0 3 dt 20.0 su
681.6 -47.0 hd -9.0 sh 1 20.0 sfu
24.0 699.3 -47.0 bar
183.1 -55.2 169.6 -55.2 165.5 -51.8 0 -0.2 168.9 -54.2 183.7 -54.2 187.2 -51.6 165.5 -51.6 SL
230.4 -51.9 222.7 -51.9 220.5 -48.6 0 -0.2 222.4 -50.9 230.7 -50.9 232.6 -48.4 220.5 -48.4 SL
350.9 -55.3 336.9 -55.3 332.7 -51.8 0 -0.2 336.2 -54.3 351.6 -54.3 355.1 -51.6 332.7 -51.6 SL
399.4 -51.9 391.1 -51.9 388.6 -48.6 0 -0.2 390.7 -50.9 399.8 -50.9 401.9 -48.4 388.6 -48.4 SL
535.8 -55.2 522.5 -55.2 518.6 -51.8 0 -0.2 521.9 -54.2 536.4 -54.2 539.7 -51.6 518.6 -51.6 SL
583.9 -51.8 577.0 -51.8 575.0 -48.6 0 -0.2 576.7 -50.8 584.2 -50.8 585.9 -48.4 575.0 -48.4 SL
693.7 -54.8 687.2 -54.8 685.3 -51.6 0 -0.2 686.9 -53.8 694.0 -53.8 695.6 -51.4 685.3 -51.4 SL
(mf) 102.8 -74.00 pf
102.8 -21.00 dnb
(f) 456.8 -74.00 pf
0 -74.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 636 x @beginspecial 0 @llx 0 @lly 544 @urx
76 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria026.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 76
%%Title: jazzmesse-vc-gloria026.abc (26)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
% --- 26 ((notitle)) ---
0 -25.34 T
14.0 F1 385.4 -18.0 M (210) showb
0 -49.00 M 699.30 staff
12.0 -49.0 bclef
30.0 -31.0 sh0 35.0 -40.0 sh0
53.4 -49.0 hd 8.0 3 dt 20.0 su
77.4 -46.0 hd 1 20.0 sfu
98.7 -46.0 Hd 20.0 su
24.0 124.3 -49.0 fbar1 24.0 126.3 -49.0 fbar2 134.3 -49.0 rdots 116.3 -49.0 rdots
155.8 -52.0 Hd 20.0 su
178.3 -49.0 hd 8.0 3 dt 20.0 su
208.4 -49.0 hd -9.0 sh 1 20.0 sfu
24.0 225.7 -49.0 bar
237.6 -49.0 hd 8.0 3 dt 20.0 su
261.9 -46.0 hd 1 20.0 sfu
282.8 -46.0 Hd 20.0 su
24.0 301.5 -49.0 bar
314.6 -52.0 Hd 20.0 su
338.2 -49.0 hd 8.0 3 dt 20.0 su
368.2 -49.0 hd -9.0 sh 1 20.0 sfu
24.0 385.4 -49.0 bar
398.1 -49.0 hd 8.0 3 dt 20.0 su
422.4 -46.0 hd 1 20.0 sfu
442.0 -46.0 Hd 20.0 su
24.0 469.4 -49.0 fbar2 459.4 -49.0 rdots
489.4 -46.0 hd -9.0 sh 20.0 su
506.4 -37.0 r4
525.4 -37.0 r4 8.0 3 dt
548.6 -43.0 hd 1 20.0 sfu
24.0 566.4 -49.0 bar
578.4 -43.0 hd 20.0 su
596.6 -37.0 r4
614.5 -37.0 r2
24.0 633.8 -49.0 bar
648.1 -55.0 HD -55.0 hl1
24.0 699.3 -49.0 dbar
47.3 -56.9 39.5 -56.9 37.2 -53.6 0 -0.2 39.1 -55.9 47.6 -55.9 49.6 -53.4 37.2 -53.4 SL
92.3 -53.9 83.9 -53.9 81.3 -50.6 0 -0.2 83.4 -52.9 92.8 -52.9 94.9 -50.4 81.3 -50.4 SL
229.5 -57.2 216.5 -57.2 212.6 -53.8 0 -0.2 215.9 -56.2 230.1 -56.2 233.4 -53.6 212.6 -53.6 SL
276.5 -53.9 268.2 -53.9 265.7 -50.6 0 -0.2 267.8 -52.9 276.9 -52.9 278.9 -50.4 265.7 -50.4 SL
389.8 -57.2 376.4 -57.2 372.4 -53.8 0 -0.2 375.8 -56.2 390.5 -56.2 393.9 -53.6 372.4 -53.6 SL
435.9 -53.9 428.4 -53.9 426.1 -50.6 0 -0.2 428.0 -52.9 436.3 -52.9 438.2 -50.4 426.1 -50.4 SL
570.2 -51.2 556.8 -51.2 552.7 -47.8 0 -0.2 556.1 -50.2 570.8 -50.2 574.2 -47.6 552.7 -47.6 SL
(ff) 155.8 -76.00 pf
489.4 -23.00 dnb
548.6 -21.00 dnb
648.1 -23.00 hld
648.1 -11.00 dnb
679.7 -22.00 brth
0 -76.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 836 x @beginspecial 0 @llx 0 @lly 544 @urx
100 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-gloria027.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 100
%%Title: jazzmesse-vc-gloria027.abc (27)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 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
3.2 14.0 2.1 105.2 -61.0 bm
3.2 13.3 2.1 202.7 -60.9 bm
3.2 14.4 2.1 298.7 -61.0 bm
14.0 F3 74.0 -38.4 M (swing) gcshow
14.0 F1 167.4 -47.4 M (215) showb 554.1 -47.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 -78.40 M 699.30 staff
12.0 -78.4 bclef
30.0 -60.4 sh0 35.0 -69.4 sh0
56.0 -78.4 csig
82.0 -84.4 hd 20.0 su -84.4 hl
101.7 -81.4 hd 20.4 su
115.7 -78.4 hd 19.6 su
131.6 -75.4 hd 20.0 su
151.0 -75.4 hd 20.0 su
24.0 167.4 -78.4 bar
179.5 -84.4 hd 20.0 su -84.4 hl
199.2 -81.4 hd 20.5 su
212.5 -78.4 hd 19.5 su
229.4 -75.4 hd 20.0 su
248.6 -75.4 hd 20.0 su
24.0 264.6 -78.4 bar
276.4 -84.4 hd 20.0 su -84.4 hl
295.2 -81.4 hd 20.4 su
309.7 -78.4 hd 19.6 su
326.7 -75.4 hd 20.0 su
344.6 -75.4 hd 20.0 su
24.0 361.9 -78.4 bar
375.7 -66.4 r2
400.6 -78.4 Hd 41.0 su 400.6 -57.4 Hd
24.0 421.7 -78.4 bar
435.0 -81.4 Hd 41.0 su 435.0 -60.4 Hd
467.2 -81.4 Hd -10.0 nt 41.0 su 467.2 -60.4 Hd -10.0 nt
24.0 487.9 -78.4 bar
501.1 -84.4 Hd 41.0 su -84.4 hl 501.1 -63.4 Hd
533.6 -84.4 Hd -10.0 ft 41.0 su -84.4 hl 533.6 -63.4 Hd -10.0 ft
24.0 554.1 -78.4 bar
594.4 -87.4 HD -84.4 hl1 594.4 -66.4 HD
24.0 621.5 -78.4 bar
633.5 -87.4 hd 41.0 su -84.4 hl 633.5 -66.4 hd
652.3 -66.4 r4
673.1 -66.4 r2
24.0 699.3 -78.4 fbar2
(ff) 82.0 -108.40 pf
82.0 -52.40 dnb
101.7 -52.40 upb
115.7 -52.40 upb
400.6 -35.40 accent
400.6 -27.40 upb
435.0 -38.40 accent
467.2 -38.40 accent
501.1 -41.40 accent
533.6 -41.40 accent
594.4 -52.40 dnb
633.5 -44.40 hld
0 -108.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1765 6215 a Fc(4)p eop end
%%Page: 5 5
TeXDict begin 5 4 bop 1643 -306 a Fd(Credo)-317 555 y
@beginspecial 0 @llx 0 @lly 516 @urx 108 @ury 5160 @rwi
@setspecial
%%BeginDocument: jazzmesse-vc-credo001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 108
%%Title: jazzmesse-vc-credo001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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 107.8 T
0.75 dup scale
37.8 0 T
% --- 1 ((notitle)) ---
0 -25.34 T
3.2 18.1 5.5 91.8 -57.7 bm
3.2 18.2 -4.5 176.3 -45.2 bm
3.2 18.2 -4.5 176.3 -50.2 bm
3.2 32.9 0.0 222.6 -51.5 bm
3.2 14.1 0.0 222.6 -56.5 bm
3.2 18.3 5.5 286.4 -57.7 bm
3.2 16.9 -4.4 371.8 -45.2 bm
3.2 16.9 -4.4 371.8 -50.2 bm
3.2 31.6 0.0 418.8 -51.5 bm
3.2 14.2 0.0 418.8 -56.5 bm
3.2 18.3 5.5 482.6 -57.7 bm
3.2 18.0 -4.5 566.8 -45.2 bm
3.2 18.0 -4.5 566.8 -50.2 bm
3.2 32.6 0.0 614.3 -51.5 bm
3.2 14.2 0.0 614.3 -56.5 bm
14.0 F3 80.3 -38.4 M (senza vibrato) gcshow
471.1 -38.4 M (simile) gcshow
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 -77.40 M 661.50 staff
12.0 -77.4 bclef
30.0 -71.4 ft0 35.0 -62.4 ft0 40.0 -74.4 ft0
61.0 -77.4 csig
88.3 -89.4 hd 31.7 su -83.4 hl -89.4 hl
106.4 -71.4 hd 19.2 su
127.7 -65.4 r4
153.1 -65.4 r8
172.8 -65.4 hd 20.2 su
191.0 -74.4 hd -9.0 nt 24.7 su
219.1 -74.4 hd 23.0 su
233.2 -71.4 hd 20.0 su
252.0 -71.4 hd -9.0 nt 20.0 su
24.0 270.4 -77.4 bar
282.9 -89.4 hd 31.7 su -83.4 hl -89.4 hl
301.2 -71.4 hd 19.2 su
323.5 -65.4 r4
347.4 -65.4 r8
368.3 -65.4 hd 20.2 su
385.3 -74.4 hd -9.0 nt 24.8 su
415.3 -74.4 hd 23.0 su
429.5 -71.4 hd 20.0 su
446.9 -71.4 hd -9.0 nt 20.0 su
24.0 465.9 -77.4 bar
479.1 -89.4 hd 31.7 su -83.4 hl -89.4 hl
497.5 -71.4 hd 19.2 su
517.8 -65.4 r4
543.7 -65.4 r8
563.3 -65.4 hd 20.2 su
581.3 -74.4 hd -9.0 nt 24.7 su
610.8 -74.4 hd 23.0 su
625.1 -71.4 hd 20.0 su
643.4 -71.4 hd -9.0 nt 20.0 su
24.0 661.5 -77.4 bar
211.3 -82.6 198.9 -82.6 195.1 -79.2 0 -0.2 198.3 -81.6 211.9 -81.6 215.0 -79.0 195.1 -79.0 SL
407.1 -82.6 393.5 -82.6 389.5 -79.2 0 -0.2 392.9 -81.6 407.7 -81.6 411.1 -79.0 389.5 -79.0 SL
602.7 -82.6 589.4 -82.6 585.4 -79.2 0 -0.2 588.8 -81.6 603.3 -81.6 606.6 -79.0 585.4 -79.0 SL
(mf) 88.3 -118.40 pf
88.3 -96.40 emb
88.3 -51.40 dnb
106.4 -80.40 emb
172.8 -74.40 emb
233.2 -80.40 emb
252.0 -80.40 emb
282.9 -96.40 emb
282.9 -51.40 dnb
301.2 -80.40 emb
368.3 -74.40 emb
429.5 -80.40 emb
446.9 -80.40 emb
0 -118.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 509 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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 14.8 4.8 62.7 -26.6 bm
3.2 15.6 5.0 208.7 -26.8 bm
3.2 17.5 -4.4 277.2 -14.8 bm
3.2 17.5 -4.4 277.2 -19.8 bm
3.2 31.2 0.0 320.4 -21.0 bm
3.2 11.8 0.0 320.4 -26.0 bm
3.2 14.5 4.8 377.9 -26.6 bm
3.2 19.1 -4.6 444.7 -14.8 bm
3.2 19.1 -4.6 444.7 -19.8 bm
3.2 31.4 0.0 488.5 -21.0 bm
3.2 12.5 0.0 488.5 -26.0 bm
3.2 15.3 4.9 546.4 -26.8 bm
3.2 19.3 -4.7 613.4 -14.8 bm
3.2 19.3 -4.7 613.4 -19.8 bm
3.2 30.7 0.0 657.3 -21.0 bm
3.2 12.7 0.0 657.3 -26.0 bm
14.0 F1 193.7 -16.0 M (5) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
59.2 -59.0 hd 32.4 su -53.0 hl -59.0 hl
74.0 -41.0 hd 19.2 su
90.2 -41.0 hd 2 21.0 sfu
114.7 -41.0 hd 13.0 3 dt -9.0 nt 1 20.0 sfu
140.3 -38.0 hd 1 20.0 sfu
159.3 -35.0 r8
175.3 -35.0 r4
24.0 193.7 -47.0 bar
205.2 -59.0 hd 32.2 su -53.0 hl -59.0 hl
220.9 -41.0 hd 19.2 su
237.7 -35.0 r4
256.6 -35.0 r8
273.7 -35.0 hd 20.2 su
291.2 -44.0 hd -9.0 nt 24.8 su
316.9 -44.0 hd 23.0 su
328.7 -41.0 hd 20.0 su
348.0 -41.0 hd -9.0 nt 20.0 su
24.0 362.2 -47.0 bar
374.4 -59.0 hd 32.4 su -53.0 hl -59.0 hl
388.9 -41.0 hd 19.2 su
407.2 -35.0 r4
425.7 -35.0 r8
441.2 -35.0 hd 20.2 su
460.3 -44.0 hd -9.0 nt 24.6 su
485.0 -44.0 hd 23.0 su
497.5 -41.0 hd 20.0 su
516.4 -41.0 hd -9.0 nt 20.0 su
24.0 530.8 -47.0 bar
542.9 -59.0 hd 32.3 su -53.0 hl -59.0 hl
558.2 -41.0 hd 19.2 su
574.7 -35.0 r4
594.6 -35.0 r8
609.9 -35.0 hd 20.2 su
629.2 -44.0 hd -9.0 nt 24.5 su
653.8 -44.0 hd 23.0 su
666.5 -41.0 hd 20.0 su
684.5 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
84.9 -48.7 79.3 -48.7 77.6 -45.5 0 -0.2 79.0 -47.7 85.1 -47.7 86.5 -45.3 77.6 -45.3 SL
309.5 -52.1 298.5 -52.1 295.2 -48.7 0 -0.2 298.0 -51.1 310.1 -51.1 312.8 -48.5 295.2 -48.5 SL
477.9 -52.0 467.4 -52.0 464.2 -48.7 0 -0.2 466.9 -51.0 478.4 -51.0 481.0 -48.5 464.2 -48.5 SL
646.7 -52.0 636.3 -52.0 633.1 -48.7 0 -0.2 635.8 -51.0 647.2 -51.0 649.8 -48.5 633.1 -48.5 SL
140.3 -44.00 emb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 510 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 3 ((notitle)) ---
0 -25.34 T
3.2 20.5 6.5 62.9 -19.3 bm
-3.2 18.2 -4.5 152.6 -50.7 bm
-3.2 18.2 -4.5 152.6 -45.7 bm
-3.2 34.4 3.8 201.7 -56.2 bm
-3.2 15.4 1.7 201.7 -51.2 bm
3.2 20.7 5.6 277.0 -18.4 bm
-3.2 16.9 -4.4 370.0 -50.8 bm
-3.2 16.9 -4.4 370.0 -45.8 bm
-3.2 33.0 3.8 419.8 -56.2 bm
-3.2 15.5 1.8 419.8 -51.2 bm
3.2 20.5 6.5 501.6 -22.3 bm
-3.2 18.0 -4.5 590.8 -53.7 bm
-3.2 18.0 -4.5 590.8 -48.7 bm
3.2 34.1 0.0 648.2 -15.0 bm
3.2 15.6 0.0 648.2 -20.0 bm
14.0 F1 477.9 -16.0 M (10) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
59.4 -50.0 hd 30.7 su
79.9 -32.0 hd 19.2 su
104.3 -35.0 r4
133.8 -35.0 r8
156.1 -26.0 hd 24.7 sd
174.3 -35.0 hd -9.0 nt 20.2 sd
205.2 -35.0 hd 21.2 sd
220.7 -32.0 hd 22.5 sd
239.6 -32.0 hd -9.0 nt 20.3 sd
24.0 260.4 -47.0 bar
273.5 -44.0 hd 25.6 su
294.2 -32.0 hd 19.2 su
319.8 -35.0 r4
347.5 -35.0 r8
373.5 -26.0 hd -9.0 ft 24.8 sd
390.5 -35.0 hd -9.0 nt 20.2 sd
423.3 -35.0 hd 21.2 sd
438.8 -32.0 hd 22.4 sd
456.4 -32.0 hd -9.0 nt 20.4 sd
24.0 477.9 -47.0 bar
498.1 -53.0 hd -9.0 nt 30.7 su -53.0 hl
518.7 -35.0 hd 19.2 su
541.9 -35.0 r4
572.1 -35.0 r8
594.3 -29.0 hd 24.7 sd
612.3 -38.0 hd -9.0 sh 20.2 sd
644.7 -38.0 hd 23.0 su
660.3 -35.0 hd 20.0 su
678.8 -35.0 hd -9.0 sh 20.0 su
24.0 699.3 -47.0 bar
196.8 -26.7 182.8 -26.7 178.6 -30.2 0 0.2 182.1 -27.7 197.5 -27.7 201.0 -30.4 178.6 -30.4 SL
414.5 -26.7 399.3 -26.7 394.8 -30.1 0 0.2 398.6 -27.7 415.2 -27.7 419.0 -30.3 394.8 -30.3 SL
635.9 -29.7 621.1 -29.7 616.6 -33.2 0 0.2 620.4 -30.7 636.6 -30.7 640.4 -33.4 616.6 -33.4 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 510 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 4 ((notitle)) ---
0 -25.34 T
3.2 20.4 5.5 71.9 -18.3 bm
-3.2 15.8 -4.2 161.0 -51.0 bm
-3.2 15.8 -4.2 161.0 -46.0 bm
-3.2 36.6 2.6 207.7 -56.6 bm
-3.2 17.6 1.3 207.7 -51.6 bm
3.2 22.8 7.0 285.0 -22.8 bm
-3.2 14.7 -4.0 377.4 -54.2 bm
-3.2 14.7 -4.0 377.4 -49.2 bm
3.2 35.3 0.0 431.8 -15.0 bm
3.2 17.8 0.0 431.8 -20.0 bm
3.2 20.7 5.9 502.2 -27.7 bm
3.2 18.0 -4.5 598.1 -14.8 bm
3.2 18.0 -4.5 598.1 -19.8 bm
3.2 34.0 0.0 648.4 -21.0 bm
3.2 15.6 0.0 648.4 -26.0 bm
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
68.4 -44.0 hd -9.0 nt 25.7 su
88.8 -32.0 hd 19.2 su
113.0 -35.0 r4
142.3 -35.0 r8
164.5 -26.0 hd 25.0 sd
180.3 -35.0 hd 20.2 sd
211.2 -35.0 hd 21.6 sd
228.8 -35.0 hd -9.0 sh 20.4 sd
247.7 -32.0 hd -9.0 nt 22.0 sd
24.0 268.5 -47.0 bar
281.5 -53.0 hd 30.2 su -53.0 hl
304.3 -35.0 hd -9.0 ft 19.2 su
329.8 -35.0 r4
357.4 -35.0 r8
380.9 -29.0 hd 25.2 sd
395.6 -38.0 hd 20.2 sd
428.3 -38.0 hd 23.0 su
446.1 -35.0 hd -9.0 ft 20.0 su
463.6 -35.0 hd -9.0 nt 20.0 su
24.0 485.0 -47.0 bar
498.7 -59.0 hd 31.3 su -53.0 hl -59.0 hl
519.4 -41.0 hd 19.2 su
542.5 -35.0 r4
572.5 -35.0 r8
594.6 -35.0 hd 20.2 su
612.6 -44.0 hd -9.0 nt 24.7 su
644.9 -44.0 hd 23.0 su
660.4 -41.0 hd 20.0 su
678.9 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
202.7 -26.7 188.7 -26.7 184.5 -30.2 0 0.2 188.0 -27.7 203.4 -27.7 206.9 -30.4 184.5 -30.4 SL
419.5 -29.7 404.4 -29.7 399.9 -33.1 0 0.2 403.7 -30.7 420.2 -30.7 424.0 -33.3 399.9 -33.3 SL
636.1 -52.3 621.3 -52.3 616.9 -48.8 0 -0.2 620.6 -51.3 636.8 -51.3 640.6 -48.6 616.9 -48.6 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 509 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 5 ((notitle)) ---
0 -25.34 T
3.2 14.4 4.8 62.2 -26.6 bm
3.2 18.4 -4.6 129.0 -14.8 bm
3.2 18.4 -4.6 129.0 -19.8 bm
3.2 31.0 0.0 172.9 -21.0 bm
3.2 12.7 0.0 172.9 -26.0 bm
3.2 14.3 4.7 231.1 -26.5 bm
3.2 18.2 -4.5 297.9 -14.8 bm
3.2 18.2 -4.5 297.9 -19.8 bm
3.2 29.8 0.0 341.7 -21.0 bm
3.2 12.8 0.0 341.7 -26.0 bm
3.2 14.9 4.9 399.3 -26.6 bm
3.2 14.4 4.8 546.6 -26.6 bm
3.2 16.9 -4.4 614.7 -14.8 bm
3.2 16.9 -4.4 614.7 -19.8 bm
3.2 30.9 0.0 657.4 -21.0 bm
3.2 11.6 0.0 657.4 -26.0 bm
14.0 F1 215.1 -16.0 M (15) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.7 -59.0 hd 32.4 su -53.0 hl -59.0 hl
73.1 -41.0 hd 19.2 su
90.8 -35.0 r4
109.8 -35.0 r8
125.5 -35.0 hd 20.2 su
143.9 -44.0 hd -9.0 nt 24.6 su
169.4 -44.0 hd 23.0 su
182.1 -41.0 hd 20.0 su
200.4 -41.0 hd -9.0 nt 20.0 su
24.0 215.1 -47.0 bar
227.6 -59.0 hd 32.5 su -53.0 hl -59.0 hl
242.0 -41.0 hd 19.2 su
259.5 -35.0 r4
278.1 -35.0 r8
294.4 -35.0 hd 20.2 su
312.5 -44.0 hd -9.0 nt 24.7 su
338.2 -44.0 hd 23.0 su
351.0 -41.0 hd 20.0 su
368.1 -41.0 hd -9.0 nt 20.0 su
24.0 383.7 -47.0 bar
395.8 -59.0 hd 32.3 su -53.0 hl -59.0 hl
410.6 -41.0 hd 19.2 su
427.2 -41.0 hd 2 21.0 sfu
449.9 -41.0 hd 13.0 3 dt -9.0 nt 1 20.0 sfu
476.8 -38.0 hd 1 20.0 sfu
496.1 -35.0 r8
513.0 -35.0 r4
24.0 530.8 -47.0 bar
543.1 -59.0 hd 32.4 su -53.0 hl -59.0 hl
557.5 -41.0 hd 19.2 su
575.7 -35.0 r4
593.6 -35.0 r8
611.2 -35.0 hd 20.2 su
628.2 -44.0 hd -9.0 nt 24.8 su
653.9 -44.0 hd 23.0 su
665.5 -41.0 hd 20.0 su
684.8 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
162.1 -52.1 151.2 -52.1 147.9 -48.7 0 -0.2 150.7 -51.1 162.6 -51.1 165.4 -48.5 147.9 -48.5 SL
330.9 -52.1 319.9 -52.1 316.6 -48.7 0 -0.2 319.4 -51.1 331.4 -51.1 334.2 -48.5 316.6 -48.5 SL
421.8 -48.7 416.0 -48.7 414.3 -45.5 0 -0.2 415.8 -47.7 422.1 -47.7 423.6 -45.3 414.3 -45.3 SL
646.6 -52.1 635.5 -52.1 632.2 -48.7 0 -0.2 635.0 -51.1 647.1 -51.1 649.9 -48.5 632.2 -48.5 SL
476.8 -44.00 emb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 510 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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 13.8 4.6 62.2 -26.4 bm
3.2 18.4 -4.5 125.6 -14.8 bm
3.2 18.4 -4.5 125.6 -19.8 bm
3.2 30.5 0.0 168.8 -21.0 bm
3.2 12.3 0.0 168.8 -26.0 bm
3.2 13.7 4.6 225.7 -26.4 bm
3.2 18.2 -4.5 289.1 -14.8 bm
3.2 18.2 -4.5 289.1 -19.8 bm
3.2 29.5 0.0 332.2 -21.0 bm
3.2 12.4 0.0 332.2 -26.0 bm
3.2 14.2 4.7 388.5 -26.5 bm
3.2 18.5 -4.6 452.6 -14.8 bm
3.2 18.5 -4.6 452.6 -19.8 bm
3.2 29.6 0.0 495.3 -21.0 bm
3.2 12.3 0.0 495.3 -26.0 bm
3.2 13.8 5.0 551.9 -17.8 bm
-3.2 16.8 -4.3 609.3 -50.8 bm
-3.2 16.8 -4.3 609.3 -45.9 bm
-3.2 29.5 2.4 651.5 -55.5 bm
-3.2 11.5 0.9 651.5 -50.5 bm
14.0 F1 373.0 -16.0 M (20) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.7 -59.0 hd 32.6 su -53.0 hl -59.0 hl
72.5 -41.0 hd 19.2 su
89.3 -35.0 r4
107.2 -35.0 r8
122.1 -35.0 hd 20.2 su
140.5 -44.0 hd -9.0 nt 24.7 su
165.3 -44.0 hd 23.0 su
177.6 -41.0 hd 20.0 su
195.8 -41.0 hd -9.0 nt 20.0 su
24.0 209.9 -47.0 bar
222.2 -59.0 hd 32.6 su -53.0 hl -59.0 hl
235.9 -41.0 hd 19.2 su
252.6 -35.0 r4
270.1 -35.0 r8
285.6 -35.0 hd 20.2 su
303.8 -44.0 hd -9.0 nt 24.7 su
328.7 -44.0 hd 23.0 su
341.1 -41.0 hd 20.0 su
358.1 -41.0 hd -9.0 nt 20.0 su
24.0 373.0 -47.0 bar
385.0 -59.0 hd 32.5 su -53.0 hl -59.0 hl
399.2 -41.0 hd 19.2 su
415.7 -35.0 r4
433.2 -35.0 r8
449.1 -35.0 hd 20.2 su
467.6 -44.0 hd -9.0 nt 24.6 su
491.8 -44.0 hd 23.0 su
504.1 -41.0 hd 20.0 su
521.5 -41.0 hd -9.0 nt 20.0 su
24.0 536.2 -47.0 bar
548.4 -50.0 hd 32.2 su
562.1 -32.0 hd 19.2 su
579.6 -35.0 r4
596.5 -35.0 r8
612.8 -26.0 hd 24.9 sd
629.6 -35.0 hd -9.0 nt 20.2 sd
655.0 -35.0 hd 20.5 sd
666.5 -32.0 hd 22.5 sd
684.5 -32.0 hd -9.0 nt 21.0 sd
24.0 699.3 -47.0 bar
158.1 -52.0 147.7 -52.0 144.5 -48.7 0 -0.2 147.2 -51.0 158.6 -51.0 161.3 -48.5 144.5 -48.5 SL
321.5 -52.1 310.9 -52.1 307.8 -48.7 0 -0.2 310.4 -51.1 322.0 -51.1 324.7 -48.5 307.8 -48.5 SL
484.8 -52.0 474.6 -52.0 471.6 -48.7 0 -0.2 474.1 -51.0 485.3 -51.0 487.9 -48.5 471.6 -48.5 SL
647.7 -26.9 636.9 -26.9 633.6 -30.3 0 0.2 636.3 -27.9 648.2 -27.9 651.0 -30.5 633.6 -30.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 510 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
3.2 15.2 5.4 62.2 -18.1 bm
-3.2 18.5 -4.6 126.4 -50.6 bm
-3.2 18.5 -4.6 126.4 -45.6 bm
-3.2 31.5 2.5 171.4 -55.5 bm
-3.2 13.2 1.0 171.4 -50.5 bm
3.2 15.2 4.6 238.2 -17.5 bm
3.2 16.0 -1.6 283.7 -24.2 bm
3.2 6.0 -0.6 293.7 -30.2 bm
3.2 21.5 0.0 337.7 -34.8 bm
3.2 17.1 5.3 385.8 -27.1 bm
3.2 16.4 5.2 539.7 -27.0 bm
3.2 19.3 -4.7 610.9 -14.8 bm
3.2 19.3 -4.7 610.9 -19.8 bm
3.2 30.7 0.0 655.5 -21.0 bm
3.2 13.6 0.0 655.5 -26.0 bm
14.0 F1 523.7 -16.0 M (25) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.7 -50.0 hd 31.8 su
74.0 -32.0 hd 19.2 su
92.8 -35.0 r4
113.2 -35.0 r8
129.9 -26.0 hd 24.6 sd
148.3 -35.0 hd -9.0 nt 20.2 sd
174.9 -35.0 hd 20.5 sd
188.1 -32.0 hd 22.5 sd
206.3 -32.0 hd -9.0 nt 21.0 sd
24.0 222.0 -47.0 bar
234.7 -44.0 hd 26.6 su
249.9 -32.0 hd 19.2 su
266.4 -35.0 r16
280.2 -44.0 hd 19.8 su
296.2 -47.0 hd 21.2 su
311.2 -35.0 r4
334.2 -56.0 hd 21.2 su -53.0 hl
355.7 -56.0 hd -9.0 ft 21.2 su -53.0 hl
24.0 370.8 -47.0 bar
382.3 -59.0 hd 31.9 su -53.0 hl -59.0 hl
399.4 -41.0 hd 19.2 su
416.1 -41.0 hd 2 21.0 sfu
440.0 -41.0 hd 13.0 3 dt -9.0 nt 1 20.0 sfu
466.0 -38.0 hd 1 20.0 sfu
486.1 -35.0 r8
504.8 -35.0 r4
24.0 523.7 -47.0 bar
536.2 -59.0 hd 32.0 su -53.0 hl -59.0 hl
552.6 -41.0 hd 19.2 su
569.6 -35.0 r4
591.4 -35.0 r8
607.4 -35.0 hd 20.2 su
626.8 -44.0 hd -9.0 nt 24.5 su
652.0 -44.0 hd 23.0 su
665.6 -41.0 hd 20.0 su
682.8 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
167.3 -26.9 155.8 -26.9 152.4 -30.3 0 0.2 155.3 -27.9 167.9 -27.9 170.8 -30.5 152.4 -30.5 SL
410.7 -48.8 404.8 -48.8 403.1 -45.5 0 -0.2 404.6 -47.8 410.9 -47.8 412.4 -45.3 403.1 -45.3 SL
644.8 -52.1 634.0 -52.1 630.8 -48.7 0 -0.2 633.5 -51.1 645.3 -51.1 648.0 -48.5 630.8 -48.5 SL
466.0 -44.00 emb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 509 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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 20.2 5.9 62.3 -27.7 bm
3.2 18.4 -4.6 160.0 -14.8 bm
3.2 18.4 -4.6 160.0 -19.8 bm
3.2 34.7 0.0 211.1 -21.0 bm
3.2 16.2 0.0 211.1 -26.0 bm
3.2 20.3 5.9 280.7 -27.7 bm
3.2 18.2 -4.5 378.4 -14.8 bm
3.2 18.2 -4.5 378.4 -19.8 bm
3.2 33.4 0.0 429.4 -21.0 bm
3.2 16.3 0.0 429.4 -26.0 bm
3.2 20.9 6.6 498.3 -19.4 bm
-3.2 18.6 -4.6 589.9 -50.6 bm
-3.2 18.6 -4.6 589.9 -45.6 bm
-3.2 33.6 3.8 640.5 -56.2 bm
-3.2 16.2 1.8 640.5 -51.2 bm
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.8 -59.0 hd 31.3 su -53.0 hl -59.0 hl
79.1 -41.0 hd 19.2 su
104.8 -35.0 r4
133.8 -35.0 r8
156.5 -35.0 hd 20.2 su
174.9 -44.0 hd -9.0 nt 24.6 su
207.6 -44.0 hd 23.0 su
223.8 -41.0 hd 20.0 su
242.3 -41.0 hd -9.0 nt 20.0 su
24.0 263.2 -47.0 bar
277.2 -59.0 hd 31.3 su -53.0 hl -59.0 hl
297.5 -41.0 hd 19.2 su
323.1 -35.0 r4
351.4 -35.0 r8
374.9 -35.0 hd 20.2 su
393.1 -44.0 hd -9.0 nt 24.7 su
425.9 -44.0 hd 23.0 su
442.2 -41.0 hd 20.0 su
459.3 -41.0 hd -9.0 nt 20.0 su
24.0 481.3 -47.0 bar
494.8 -50.0 hd 30.6 su
515.7 -32.0 hd 19.2 su
541.1 -35.0 r4
569.3 -35.0 r8
593.4 -26.0 hd 24.6 sd
612.0 -35.0 hd -9.0 nt 20.2 sd
644.0 -35.0 hd 21.2 sd
660.1 -32.0 hd 22.4 sd
677.6 -32.0 hd -9.0 nt 20.4 sd
24.0 699.3 -47.0 bar
198.7 -52.3 183.7 -52.3 179.2 -48.9 0 -0.2 183.0 -51.3 199.5 -51.3 203.3 -48.7 179.2 -48.7 SL
417.1 -52.3 401.9 -52.3 397.4 -48.9 0 -0.2 401.2 -51.3 417.8 -51.3 421.6 -48.7 397.4 -48.7 SL
635.3 -26.7 620.7 -26.7 616.3 -30.2 0 0.2 620.0 -27.7 636.0 -27.7 639.7 -30.4 616.3 -30.4 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 510 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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 19.7 5.4 62.3 -18.2 bm
-3.2 18.4 -4.6 152.2 -50.7 bm
-3.2 18.4 -4.6 152.2 -45.6 bm
-3.2 34.3 3.9 202.6 -56.2 bm
-3.2 15.9 1.8 202.6 -51.2 bm
3.2 19.4 6.3 284.7 -22.1 bm
-3.2 18.2 -4.5 372.0 -53.7 bm
-3.2 18.2 -4.5 372.0 -48.7 bm
3.2 33.0 0.0 429.2 -15.0 bm
3.2 16.0 0.0 429.2 -20.0 bm
3.2 20.2 5.5 503.4 -18.3 bm
-3.2 16.0 -4.2 591.8 -51.0 bm
-3.2 16.0 -4.2 591.8 -46.0 bm
-3.2 35.6 2.5 639.1 -56.6 bm
-3.2 18.3 1.3 639.1 -51.6 bm
14.0 F1 260.7 -16.0 M (30) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.8 -44.0 hd 25.8 su
78.5 -32.0 hd 19.2 su
103.4 -35.0 r4
131.3 -35.0 r8
155.7 -26.0 hd -9.0 ft 24.6 sd
174.1 -35.0 hd -9.0 nt 20.2 sd
206.1 -35.0 hd 21.2 sd
221.9 -32.0 hd 22.4 sd
240.4 -32.0 hd -9.0 nt 20.4 sd
24.0 260.7 -47.0 bar
281.2 -53.0 hd -9.0 nt 30.9 su -53.0 hl
300.6 -35.0 hd 19.2 su
325.4 -35.0 r4
352.7 -35.0 r8
375.5 -29.0 hd 24.7 sd
393.6 -38.0 hd -9.0 sh 20.2 sd
425.7 -38.0 hd 23.0 su
441.7 -35.0 hd 20.0 su
458.7 -35.0 hd -9.0 sh 20.0 su
24.0 480.1 -47.0 bar
499.9 -44.0 hd -9.0 nt 25.7 su
520.1 -32.0 hd 19.2 su
544.7 -35.0 r4
571.9 -35.0 r8
595.3 -26.0 hd 25.0 sd
611.3 -35.0 hd 20.2 sd
642.6 -35.0 hd 21.6 sd
660.9 -35.0 hd -9.0 sh 20.3 sd
678.2 -32.0 hd -9.0 nt 22.1 sd
24.0 699.3 -47.0 bar
197.4 -26.7 182.8 -26.7 178.4 -30.2 0 0.2 182.1 -27.7 198.1 -27.7 201.8 -30.4 178.4 -30.4 SL
417.0 -29.7 402.3 -29.7 397.9 -33.2 0 0.2 401.6 -30.7 417.8 -30.7 421.5 -33.4 397.9 -33.4 SL
634.1 -26.7 619.8 -26.7 615.5 -30.2 0 0.2 619.1 -27.7 634.8 -27.7 638.4 -30.4 615.5 -30.4 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 510 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 10 ((notitle)) ---
0 -25.34 T
3.2 23.0 7.0 62.2 -22.8 bm
-3.2 16.3 -4.3 155.5 -53.9 bm
-3.2 16.3 -4.3 155.5 -48.9 bm
3.2 35.8 0.0 210.7 -15.0 bm
3.2 17.0 0.0 210.7 -20.0 bm
3.2 22.7 6.3 280.8 -28.1 bm
3.2 16.9 -4.4 380.6 -14.8 bm
3.2 16.9 -4.4 380.6 -19.8 bm
3.2 34.2 0.0 430.3 -21.0 bm
3.2 15.8 0.0 430.3 -26.0 bm
3.2 22.7 6.3 498.3 -28.1 bm
3.2 17.7 -4.5 597.6 -14.8 bm
3.2 17.7 -4.5 597.6 -19.8 bm
3.2 34.9 0.0 647.0 -21.0 bm
3.2 16.9 0.0 647.0 -26.0 bm
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.7 -53.0 hd 30.2 su -53.0 hl
81.7 -35.0 hd -9.0 ft 19.2 su
106.4 -35.0 r4
136.3 -35.0 r8
159.0 -29.0 hd 24.9 sd
175.2 -38.0 hd 20.2 sd
207.2 -38.0 hd 23.0 su
224.2 -35.0 hd -9.0 ft 20.0 su
243.0 -35.0 hd -9.0 nt 20.0 su
24.0 264.6 -47.0 bar
277.3 -59.0 hd 30.9 su -53.0 hl -59.0 hl
300.1 -41.0 hd 19.2 su
324.4 -35.0 r4
352.3 -35.0 r8
377.1 -35.0 hd 20.2 su
394.0 -44.0 hd -9.0 nt 24.8 su
426.8 -44.0 hd 23.0 su
442.6 -41.0 hd 20.0 su
461.1 -41.0 hd -9.0 nt 20.0 su
24.0 481.9 -47.0 bar
494.8 -59.0 hd 30.9 su -53.0 hl -59.0 hl
517.5 -41.0 hd 19.2 su
540.4 -35.0 r4
571.4 -35.0 r8
594.1 -35.0 hd 20.2 su
611.8 -44.0 hd -9.0 nt 24.7 su
643.5 -44.0 hd 23.0 su
660.4 -41.0 hd 20.0 su
678.4 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
198.5 -29.7 183.9 -29.7 179.5 -33.2 0 0.2 183.2 -30.7 199.2 -30.7 202.9 -33.4 179.5 -33.4 SL
418.0 -52.3 402.9 -52.3 398.3 -48.9 0 -0.2 402.1 -51.3 418.7 -51.3 422.5 -48.7 398.3 -48.7 SL
634.9 -52.3 620.4 -52.3 616.1 -48.8 0 -0.2 619.7 -51.3 635.6 -51.3 639.2 -48.6 616.1 -48.6 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 509 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo011.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo011.abc (11)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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 14.3 4.7 62.1 -26.5 bm
3.2 18.4 -4.6 126.3 -14.8 bm
3.2 18.4 -4.6 126.3 -19.8 bm
3.2 29.8 0.0 169.0 -21.0 bm
3.2 11.4 0.0 169.0 -26.0 bm
3.2 15.6 5.0 224.7 -26.8 bm
3.2 17.1 -4.4 290.2 -14.8 bm
3.2 17.1 -4.4 290.2 -19.8 bm
3.2 30.1 0.0 332.3 -21.0 bm
3.2 12.0 0.0 332.3 -26.0 bm
3.2 15.6 5.0 387.9 -26.8 bm
3.2 17.8 -4.5 453.0 -14.8 bm
3.2 17.8 -4.5 453.0 -19.8 bm
3.2 30.7 0.0 494.8 -21.0 bm
3.2 13.0 0.0 494.8 -26.0 bm
3.2 14.8 4.8 551.7 -26.6 bm
3.2 18.7 -4.6 615.6 -14.8 bm
3.2 18.7 -4.6 615.6 -19.8 bm
3.2 30.6 0.0 657.8 -21.0 bm
3.2 12.1 0.0 657.8 -26.0 bm
14.0 F1 46.1 -17.0 M (35) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.6 -59.0 hd 32.5 su -53.0 hl -59.0 hl
72.9 -41.0 hd 19.2 su
89.0 -35.0 r4
107.7 -35.0 r8
122.8 -35.0 hd 20.2 su
141.3 -44.0 hd -9.0 nt 24.6 su
165.5 -44.0 hd 23.0 su
176.9 -41.0 hd 20.0 su
195.3 -41.0 hd -9.0 nt 20.0 su
24.0 209.9 -47.0 bar
221.2 -59.0 hd 32.2 su -53.0 hl -59.0 hl
236.8 -41.0 hd 19.2 su
252.6 -35.0 r4
270.1 -35.0 r8
286.7 -35.0 hd 20.2 su
303.8 -44.0 hd -9.0 nt 24.8 su
328.8 -44.0 hd 23.0 su
340.8 -41.0 hd 20.0 su
358.9 -41.0 hd -9.0 nt 20.0 su
24.0 373.0 -47.0 bar
384.4 -59.0 hd 32.2 su -53.0 hl -59.0 hl
400.0 -41.0 hd 19.2 su
414.9 -35.0 r4
434.3 -35.0 r8
449.5 -35.0 hd 20.2 su
467.3 -44.0 hd -9.0 nt 24.7 su
491.3 -44.0 hd 23.0 su
504.3 -41.0 hd 20.0 su
522.0 -41.0 hd -9.0 nt 20.0 su
24.0 536.2 -47.0 bar
548.2 -59.0 hd 32.4 su -53.0 hl -59.0 hl
563.0 -41.0 hd 19.2 su
578.8 -35.0 r4
597.2 -35.0 r8
612.1 -35.0 hd 20.2 su
630.8 -44.0 hd -9.0 nt 24.6 su
654.3 -44.0 hd 23.0 su
666.3 -41.0 hd 20.0 su
684.9 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
158.5 -52.0 148.3 -52.0 145.2 -48.7 0 -0.2 147.8 -51.0 159.0 -51.0 161.5 -48.5 145.2 -48.5 SL
321.6 -52.1 311.0 -52.1 307.8 -48.7 0 -0.2 310.4 -51.1 322.1 -51.1 324.8 -48.5 307.8 -48.5 SL
484.3 -52.0 474.3 -52.0 471.2 -48.7 0 -0.2 473.8 -51.0 484.8 -51.0 487.3 -48.5 471.2 -48.5 SL
647.4 -52.0 637.7 -52.0 634.8 -48.7 0 -0.2 637.2 -51.0 647.9 -51.0 650.3 -48.5 634.8 -48.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 510 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo012.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo012.abc (12)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 12 ((notitle)) ---
0 -25.34 T
3.2 14.9 4.9 62.1 -26.6 bm
-3.2 42.8 0.0 119.5 -54.2 bm
3.2 20.8 6.6 195.1 -22.4 bm
-3.2 11.9 -3.6 261.4 -54.6 bm
-3.2 11.9 -3.6 261.4 -49.6 bm
3.2 36.4 0.0 306.2 -15.0 bm
3.2 17.3 0.0 306.2 -20.0 bm
3.2 20.7 6.6 368.9 -22.4 bm
-3.2 13.5 -3.8 433.8 -54.3 bm
-3.2 13.5 -3.8 433.8 -49.3 bm
3.2 35.6 0.0 479.0 -15.0 bm
3.2 17.9 0.0 479.0 -20.0 bm
3.2 20.3 6.5 542.2 -22.3 bm
-3.2 12.6 -3.7 607.4 -54.5 bm
-3.2 12.6 -3.7 607.4 -49.5 bm
3.2 35.7 0.0 651.6 -15.0 bm
3.2 18.8 0.0 651.6 -20.0 bm
14.0 F1 180.3 -16.0 M (40) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.6 -59.0 hd 32.3 su -53.0 hl -59.0 hl
73.5 -41.0 hd 19.2 su
90.3 -35.0 r4
109.5 -35.0 r16
123.0 -35.0 hd 8.0 3 dt 19.2 sd
145.2 -32.0 hd 22.2 sd
165.8 -32.0 hd -9.0 nt 22.2 sd
24.0 180.3 -47.0 bar
191.6 -53.0 hd 30.6 su -53.0 hl
212.4 -35.0 hd -9.0 ft 19.2 su
229.1 -35.0 r4
249.3 -35.0 r8
264.9 -29.0 hd 25.6 sd
276.8 -38.0 hd 20.2 sd
302.7 -38.0 hd 23.0 su
320.0 -35.0 hd -9.0 ft 20.0 su
339.1 -35.0 hd -9.0 nt 20.0 su
24.0 353.3 -47.0 bar
365.4 -53.0 hd 30.6 su -53.0 hl
386.1 -35.0 hd -9.0 ft 19.2 su
402.2 -35.0 r4
422.3 -35.0 r8
437.3 -29.0 hd 25.4 sd
450.7 -38.0 hd 20.2 sd
475.5 -38.0 hd 23.0 su
493.4 -35.0 hd -9.0 ft 20.0 su
511.1 -35.0 hd -9.0 nt 20.0 su
24.0 526.3 -47.0 bar
538.7 -53.0 hd 30.7 su -53.0 hl
559.0 -35.0 hd -9.0 ft 19.2 su
576.2 -35.0 r4
595.2 -35.0 r8
610.9 -29.0 hd 25.5 sd
623.5 -38.0 hd 20.2 sd
648.1 -38.0 hd 23.0 su
666.9 -35.0 hd -9.0 ft 20.0 su
683.9 -35.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
295.3 -29.9 284.2 -29.9 280.8 -33.3 0 0.2 283.6 -30.9 295.8 -30.9 298.7 -33.5 280.8 -33.5 SL
468.4 -30.0 457.9 -30.0 454.7 -33.3 0 0.2 457.4 -31.0 468.9 -31.0 471.5 -33.5 454.7 -33.5 SL
641.0 -30.0 630.6 -30.0 627.5 -33.3 0 0.2 630.1 -31.0 641.5 -31.0 644.2 -33.5 627.5 -33.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1836 6215 a Fc(5)p eop end
%%Page: 6 6
TeXDict begin 6 5 bop -387 194 a @beginspecial 0 @llx
0 @lly 544 @urx 72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo013.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo013.abc (13)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 13 ((notitle)) ---
0 -25.34 T
3.2 20.5 6.5 62.1 -22.3 bm
-3.2 43.3 0.0 126.5 -54.2 bm
3.2 15.7 5.0 203.1 -26.8 bm
3.2 17.4 -4.4 272.7 -14.8 bm
3.2 17.4 -4.4 272.7 -19.8 bm
3.2 31.0 0.0 316.4 -21.0 bm
3.2 12.0 0.0 316.4 -26.0 bm
3.2 15.5 5.0 374.2 -26.8 bm
3.2 19.3 -4.7 442.2 -14.8 bm
3.2 19.3 -4.7 442.2 -19.8 bm
3.2 30.3 0.0 486.6 -21.0 bm
3.2 12.5 0.0 486.6 -26.0 bm
3.2 15.1 4.9 544.9 -26.7 bm
3.2 18.3 -4.5 613.4 -14.8 bm
3.2 18.3 -4.5 613.4 -19.8 bm
3.2 30.4 0.0 656.6 -21.0 bm
3.2 13.2 0.0 656.6 -26.0 bm
14.0 F1 358.5 -16.0 M (45) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.6 -53.0 hd 30.7 su -53.0 hl
79.1 -35.0 hd -9.0 ft 19.2 su
96.4 -35.0 r4
116.3 -35.0 r16
130.0 -32.0 hd 8.0 0 dt 22.2 sd
152.5 -35.0 hd 19.2 sd
173.3 -35.0 hd -9.0 ft 19.2 sd
24.0 188.1 -47.0 bar
199.6 -59.0 hd 32.2 su -53.0 hl -59.0 hl
215.2 -41.0 hd 19.2 su
232.3 -35.0 r4
253.1 -35.0 r8
269.2 -35.0 hd 20.2 su
286.5 -44.0 hd -9.0 nt 24.8 su
312.9 -44.0 hd 23.0 su
324.9 -41.0 hd 20.0 su
343.9 -41.0 hd -9.0 nt 20.0 su
24.0 358.5 -47.0 bar
370.7 -59.0 hd 32.2 su -53.0 hl -59.0 hl
386.2 -41.0 hd 19.2 su
402.8 -35.0 r4
423.5 -35.0 r8
438.7 -35.0 hd 20.2 su
458.0 -44.0 hd -9.0 nt 24.5 su
483.1 -44.0 hd 23.0 su
495.6 -41.0 hd 20.0 su
513.4 -41.0 hd -9.0 nt 20.0 su
24.0 528.9 -47.0 bar
541.4 -59.0 hd 32.3 su -53.0 hl -59.0 hl
556.5 -41.0 hd 19.2 su
574.2 -35.0 r4
593.8 -35.0 r8
609.9 -35.0 hd 20.2 su
628.1 -44.0 hd -9.0 nt 24.7 su
653.1 -44.0 hd 23.0 su
666.4 -41.0 hd 20.0 su
683.5 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
305.4 -52.1 294.0 -52.1 290.6 -48.7 0 -0.2 293.5 -51.1 306.0 -51.1 308.9 -48.5 290.6 -48.5 SL
475.9 -52.1 465.2 -52.1 462.0 -48.7 0 -0.2 464.7 -51.1 476.4 -51.1 479.1 -48.5 462.0 -48.5 SL
645.9 -52.1 635.3 -52.1 632.1 -48.7 0 -0.2 634.8 -51.1 646.5 -51.1 649.1 -48.5 632.1 -48.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 497 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo014.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo014.abc (14)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 14 ((notitle)) ---
0 -25.34 T
3.2 21.0 6.0 62.1 -27.8 bm
3.2 18.5 -4.6 160.4 -14.8 bm
3.2 18.5 -4.6 160.4 -19.8 bm
3.2 33.7 0.0 210.8 -21.0 bm
3.2 15.0 0.0 210.8 -26.0 bm
3.2 22.7 7.0 278.8 -19.8 bm
-3.2 16.9 -4.4 371.5 -50.8 bm
-3.2 16.9 -4.4 371.5 -45.8 bm
-3.2 34.2 3.8 421.3 -56.2 bm
-3.2 15.8 1.8 421.3 -51.2 bm
3.2 22.7 5.8 496.2 -18.6 bm
-3.2 17.7 -4.5 590.6 -50.7 bm
-3.2 17.7 -4.5 590.6 -45.7 bm
-3.2 34.9 3.9 640.0 -56.2 bm
-3.2 16.9 1.9 640.0 -51.2 bm
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.6 -59.0 hd 31.2 su -53.0 hl -59.0 hl
79.6 -41.0 hd 19.2 su
104.3 -35.0 r4
134.2 -35.0 r8
156.9 -35.0 hd 20.2 su
175.4 -44.0 hd -9.0 nt 24.6 su
207.3 -44.0 hd 23.0 su
222.3 -41.0 hd 20.0 su
241.0 -41.0 hd -9.0 nt 20.0 su
24.0 262.5 -47.0 bar
275.3 -50.0 hd 30.2 su
298.1 -32.0 hd 19.2 su
322.3 -35.0 r4
350.3 -35.0 r8
375.0 -26.0 hd 24.8 sd
392.0 -35.0 hd -9.0 nt 20.2 sd
424.8 -35.0 hd 21.2 sd
440.6 -32.0 hd 22.4 sd
459.0 -32.0 hd -9.0 nt 20.4 sd
24.0 479.9 -47.0 bar
492.7 -44.0 hd 25.4 su
515.4 -32.0 hd 19.2 su
538.4 -35.0 r4
569.4 -35.0 r8
594.1 -26.0 hd -9.0 ft 24.7 sd
611.8 -35.0 hd -9.0 nt 20.2 sd
643.5 -35.0 hd 21.3 sd
660.4 -32.0 hd 22.4 sd
678.4 -32.0 hd -9.0 nt 20.4 sd
24.0 699.3 -47.0 bar
198.6 -52.3 184.1 -52.3 179.7 -48.8 0 -0.2 183.4 -51.3 199.3 -51.3 203.0 -48.6 179.7 -48.6 SL
416.0 -26.7 400.8 -26.7 396.3 -30.1 0 0.2 400.1 -27.7 416.7 -27.7 420.5 -30.3 396.3 -30.3 SL
634.9 -26.7 620.4 -26.7 616.1 -30.2 0 0.2 619.8 -27.7 635.6 -27.7 639.2 -30.4 616.1 -30.4 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 498 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo015.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo015.abc (15)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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 19.2 6.3 71.7 -22.1 bm
-3.2 19.1 -4.6 158.5 -53.6 bm
-3.2 19.1 -4.6 158.5 -48.6 bm
3.2 33.5 0.0 216.0 -15.0 bm
3.2 14.7 0.0 216.0 -20.0 bm
3.2 20.9 5.6 289.8 -18.4 bm
-3.2 14.4 -4.0 377.9 -51.2 bm
-3.2 14.4 -4.0 377.9 -46.2 bm
-3.2 36.6 2.6 424.0 -56.6 bm
-3.2 17.9 1.3 424.0 -51.6 bm
3.2 23.2 7.0 502.1 -22.9 bm
-3.2 15.6 -4.2 592.1 -54.0 bm
-3.2 15.6 -4.2 592.1 -49.0 bm
3.2 37.9 0.0 645.4 -15.0 bm
3.2 18.6 0.0 645.4 -20.0 bm
14.0 F1 46.7 -17.0 M (50) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
68.2 -53.0 hd -9.0 nt 30.9 su -53.0 hl
87.4 -35.0 hd 19.2 su
112.8 -35.0 r4
140.9 -35.0 r8
162.0 -29.0 hd 24.6 sd
181.1 -38.0 hd -9.0 sh 20.2 sd
212.5 -38.0 hd 23.0 su
227.3 -35.0 hd 20.0 su
246.0 -35.0 hd -9.0 sh 20.0 su
24.0 266.5 -47.0 bar
286.3 -44.0 hd -9.0 nt 25.6 su
307.2 -32.0 hd 19.2 su
330.1 -35.0 r4
358.1 -35.0 r8
381.4 -26.0 hd 25.2 sd
395.8 -35.0 hd 20.2 sd
427.5 -35.0 hd 21.6 sd
445.4 -35.0 hd -9.0 sh 20.4 sd
464.1 -32.0 hd -9.0 nt 22.0 sd
24.0 484.8 -47.0 bar
498.6 -53.0 hd 30.2 su -53.0 hl
521.7 -35.0 hd -9.0 ft 19.2 su
545.6 -35.0 r4
572.4 -35.0 r8
595.6 -29.0 hd 25.0 sd
611.2 -38.0 hd 20.2 sd
641.9 -38.0 hd 23.0 su
660.5 -35.0 hd -9.0 ft 20.0 su
679.8 -35.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
204.0 -29.7 189.6 -29.7 185.3 -33.2 0 0.2 188.9 -30.7 204.7 -30.7 208.3 -33.4 185.3 -33.4 SL
418.9 -26.7 404.4 -26.7 400.1 -30.2 0 0.2 403.7 -27.7 419.6 -27.7 423.2 -30.4 400.1 -30.4 SL
633.5 -29.7 619.6 -29.7 615.4 -33.2 0 0.2 618.9 -30.7 634.2 -30.7 637.7 -33.4 615.4 -33.4 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 497 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo016.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo016.abc (16)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 16 ((notitle)) ---
0 -25.34 T
3.2 13.5 4.6 62.5 -26.4 bm
3.2 18.9 -4.6 125.8 -14.8 bm
3.2 18.9 -4.6 125.8 -19.8 bm
3.2 29.9 0.0 169.2 -21.0 bm
3.2 11.4 0.0 169.2 -26.0 bm
3.2 14.8 4.8 225.3 -26.6 bm
3.2 17.0 -4.4 289.8 -14.8 bm
3.2 17.0 -4.4 289.8 -19.8 bm
3.2 30.6 0.0 331.5 -21.0 bm
3.2 12.2 0.0 331.5 -26.0 bm
3.2 14.5 4.8 388.8 -26.6 bm
3.2 18.1 -4.5 452.7 -14.8 bm
3.2 18.1 -4.5 452.7 -19.8 bm
3.2 31.5 0.0 494.7 -21.0 bm
3.2 12.6 0.0 494.7 -26.0 bm
3.2 14.1 4.7 552.0 -26.5 bm
3.2 18.2 -4.5 615.6 -14.8 bm
3.2 18.2 -4.5 615.6 -19.8 bm
3.2 30.7 0.0 658.2 -21.0 bm
3.2 11.8 0.0 658.2 -26.0 bm
14.0 F1 373.0 -16.0 M (55) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
59.0 -59.0 hd 32.6 su -53.0 hl -59.0 hl
72.5 -41.0 hd 19.2 su
89.7 -35.0 r4
107.9 -35.0 r8
122.3 -35.0 hd 20.2 su
141.2 -44.0 hd -9.0 nt 24.6 su
165.7 -44.0 hd 23.0 su
177.2 -41.0 hd 20.0 su
195.6 -41.0 hd -9.0 nt 20.0 su
24.0 209.9 -47.0 bar
221.8 -59.0 hd 32.4 su -53.0 hl -59.0 hl
236.6 -41.0 hd 19.2 su
252.0 -35.0 r4
270.2 -35.0 r8
286.3 -35.0 hd 20.2 su
303.3 -44.0 hd -9.0 nt 24.8 su
328.0 -44.0 hd 23.0 su
340.2 -41.0 hd 20.0 su
358.6 -41.0 hd -9.0 nt 20.0 su
24.0 373.0 -47.0 bar
385.3 -59.0 hd 32.4 su -53.0 hl -59.0 hl
399.8 -41.0 hd 19.2 su
415.9 -35.0 r4
433.2 -35.0 r8
449.2 -35.0 hd 20.2 su
467.3 -44.0 hd -9.0 nt 24.7 su
491.2 -44.0 hd 23.0 su
503.8 -41.0 hd 20.0 su
522.7 -41.0 hd -9.0 nt 20.0 su
24.0 536.2 -47.0 bar
548.5 -59.0 hd 32.5 su -53.0 hl -59.0 hl
562.7 -41.0 hd 19.2 su
578.8 -35.0 r4
597.2 -35.0 r8
612.1 -35.0 hd 20.2 su
630.4 -44.0 hd -9.0 nt 24.7 su
654.7 -44.0 hd 23.0 su
666.5 -41.0 hd 20.0 su
685.4 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
158.7 -52.0 148.3 -52.0 145.2 -48.7 0 -0.2 147.8 -51.0 159.2 -51.0 161.8 -48.5 145.2 -48.5 SL
320.9 -52.0 310.4 -52.0 307.3 -48.7 0 -0.2 309.9 -51.0 321.4 -51.0 324.0 -48.5 307.3 -48.5 SL
484.2 -52.0 474.3 -52.0 471.3 -48.7 0 -0.2 473.8 -51.0 484.7 -51.0 487.2 -48.5 471.3 -48.5 SL
647.6 -52.0 637.4 -52.0 634.3 -48.7 0 -0.2 636.9 -51.0 648.1 -51.0 650.7 -48.5 634.3 -48.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 497 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo017.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo017.abc (17)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 17 ((notitle)) ---
0 -25.34 T
3.2 13.5 4.6 62.5 -26.4 bm
3.2 18.9 -4.6 125.8 -14.8 bm
3.2 18.9 -4.6 125.8 -19.8 bm
3.2 29.9 0.0 169.2 -21.0 bm
3.2 11.4 0.0 169.2 -26.0 bm
3.2 14.8 4.8 225.3 -26.6 bm
3.2 17.0 -4.4 289.8 -14.8 bm
3.2 17.0 -4.4 289.8 -19.8 bm
3.2 30.6 0.0 331.5 -21.0 bm
3.2 12.2 0.0 331.5 -26.0 bm
3.2 14.5 4.8 388.8 -26.6 bm
3.2 18.1 -4.5 452.7 -14.8 bm
3.2 18.1 -4.5 452.7 -19.8 bm
3.2 31.5 0.0 494.7 -21.0 bm
3.2 12.6 0.0 494.7 -26.0 bm
3.2 14.1 4.7 552.0 -26.5 bm
3.2 18.2 -4.5 615.6 -14.8 bm
3.2 18.2 -4.5 615.6 -19.8 bm
3.2 30.7 0.0 658.2 -21.0 bm
3.2 11.8 0.0 658.2 -26.0 bm
14.0 F1 536.2 -16.0 M (60) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
59.0 -59.0 hd 32.6 su -53.0 hl -59.0 hl
72.5 -41.0 hd 19.2 su
89.7 -35.0 r4
107.9 -35.0 r8
122.3 -35.0 hd 20.2 su
141.2 -44.0 hd -9.0 nt 24.6 su
165.7 -44.0 hd 23.0 su
177.2 -41.0 hd 20.0 su
195.6 -41.0 hd -9.0 nt 20.0 su
24.0 209.9 -47.0 bar
221.8 -59.0 hd 32.4 su -53.0 hl -59.0 hl
236.6 -41.0 hd 19.2 su
252.0 -35.0 r4
270.2 -35.0 r8
286.3 -35.0 hd 20.2 su
303.3 -44.0 hd -9.0 nt 24.8 su
328.0 -44.0 hd 23.0 su
340.2 -41.0 hd 20.0 su
358.6 -41.0 hd -9.0 nt 20.0 su
24.0 373.0 -47.0 bar
385.3 -59.0 hd 32.4 su -53.0 hl -59.0 hl
399.8 -41.0 hd 19.2 su
415.9 -35.0 r4
433.2 -35.0 r8
449.2 -35.0 hd 20.2 su
467.3 -44.0 hd -9.0 nt 24.7 su
491.2 -44.0 hd 23.0 su
503.8 -41.0 hd 20.0 su
522.7 -41.0 hd -9.0 nt 20.0 su
24.0 536.2 -47.0 bar
548.5 -59.0 hd 32.5 su -53.0 hl -59.0 hl
562.7 -41.0 hd 19.2 su
578.8 -35.0 r4
597.2 -35.0 r8
612.1 -35.0 hd 20.2 su
630.4 -44.0 hd -9.0 nt 24.7 su
654.7 -44.0 hd 23.0 su
666.5 -41.0 hd 20.0 su
685.4 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
158.7 -52.0 148.3 -52.0 145.2 -48.7 0 -0.2 147.8 -51.0 159.2 -51.0 161.8 -48.5 145.2 -48.5 SL
320.9 -52.0 310.4 -52.0 307.3 -48.7 0 -0.2 309.9 -51.0 321.4 -51.0 324.0 -48.5 307.3 -48.5 SL
484.2 -52.0 474.3 -52.0 471.3 -48.7 0 -0.2 473.8 -51.0 484.7 -51.0 487.2 -48.5 471.3 -48.5 SL
647.6 -52.0 637.4 -52.0 634.3 -48.7 0 -0.2 636.9 -51.0 648.1 -51.0 650.7 -48.5 634.3 -48.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 497 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo018.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo018.abc (18)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 18 ((notitle)) ---
0 -25.34 T
3.2 19.4 5.7 62.7 -27.5 bm
3.2 19.1 -4.6 157.3 -14.8 bm
3.2 19.1 -4.6 157.3 -19.8 bm
3.2 33.6 0.0 208.1 -21.0 bm
3.2 14.8 0.0 208.1 -26.0 bm
3.2 21.2 6.0 275.7 -27.8 bm
3.2 16.8 -4.3 371.9 -14.8 bm
3.2 16.8 -4.3 371.9 -19.8 bm
3.2 34.3 0.0 420.6 -21.0 bm
3.2 18.0 0.0 420.6 -26.0 bm
3.2 23.1 -2.4 496.2 -21.3 bm
3.2 18.2 -4.5 596.2 -17.8 bm
3.2 18.2 -4.5 596.2 -22.8 bm
3.2 37.9 0.0 645.3 -22.8 bm
3.2 18.6 0.0 645.3 -27.8 bm
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
59.2 -59.0 hd 31.5 su -53.0 hl -59.0 hl
78.6 -41.0 hd 19.2 su
104.2 -35.0 r4
132.5 -35.0 r8
153.8 -35.0 hd 20.2 su
172.9 -44.0 hd -9.0 nt 24.6 su
204.6 -44.0 hd 23.0 su
219.4 -41.0 hd 20.0 su
238.2 -41.0 hd -9.0 nt 20.0 su
24.0 258.8 -47.0 bar
272.2 -59.0 hd 31.2 su -53.0 hl -59.0 hl
293.4 -41.0 hd 19.2 su
316.5 -35.0 r4
344.8 -35.0 r8
368.4 -35.0 hd 20.2 su
385.1 -44.0 hd -9.0 ft 24.9 su
417.1 -44.0 hd 23.0 su
435.1 -44.0 hd -9.0 nt 23.0 su
451.5 -41.0 hd 20.0 su
24.0 472.3 -47.0 bar
492.7 -41.0 hd -9.0 nt 19.7 su
515.8 -44.0 hd -9.0 nt 20.3 su
539.9 -35.0 r4
566.9 -35.0 r8
592.7 -38.0 hd -9.0 sh 20.2 su
610.9 -47.0 hd -9.0 sh 24.7 su
641.8 -47.0 hd 24.2 su
660.3 -44.0 hd -9.0 nt 21.2 su
679.7 -44.0 hd -9.0 sh 21.2 su
24.0 699.3 -47.0 bar
196.0 -52.3 181.5 -52.3 177.2 -48.8 0 -0.2 180.8 -51.3 196.7 -51.3 200.3 -48.6 177.2 -48.6 SL
408.5 -52.3 393.8 -52.3 389.4 -48.8 0 -0.2 393.1 -51.3 409.2 -51.3 412.9 -48.6 389.4 -48.6 SL
633.3 -55.3 619.3 -55.3 615.1 -51.8 0 -0.2 618.6 -54.3 634.0 -54.3 637.5 -51.6 615.1 -51.6 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 498 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo019.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo019.abc (19)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 19 ((notitle)) ---
0 -25.34 T
3.2 21.0 -2.3 71.8 -21.3 bm
3.2 19.1 -4.6 164.8 -17.8 bm
3.2 19.1 -4.6 164.8 -22.8 bm
3.2 35.9 0.0 213.7 -22.8 bm
3.2 17.1 0.0 213.7 -27.8 bm
3.2 22.8 -2.4 288.4 -21.3 bm
3.2 16.8 -4.3 382.9 -17.8 bm
3.2 16.8 -4.3 382.9 -22.8 bm
3.2 36.6 0.0 429.9 -22.8 bm
3.2 17.9 0.0 429.9 -27.8 bm
3.2 22.3 -2.4 506.1 -21.3 bm
3.2 18.2 -3.6 599.7 -17.8 bm
3.2 18.2 -3.6 599.7 -22.8 bm
3.2 37.8 0.0 647.0 -21.0 bm
3.2 18.6 0.0 647.0 -26.0 bm
14.0 F1 265.1 -16.0 M (65) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
68.3 -41.0 hd -9.0 nt 19.7 su
89.2 -44.0 hd -9.0 nt 20.3 su
112.8 -35.0 r4
138.7 -35.0 r8
161.3 -38.0 hd -9.0 sh 20.2 su
180.4 -47.0 hd -9.0 sh 24.6 su
210.2 -47.0 hd 24.2 su
227.4 -44.0 hd -9.0 nt 21.2 su
246.1 -44.0 hd -9.0 sh 21.2 su
24.0 265.1 -47.0 bar
284.9 -41.0 hd -9.0 nt 19.7 su
307.8 -44.0 hd -9.0 nt 20.3 su
328.8 -35.0 r4
354.5 -35.0 r8
379.4 -38.0 hd -9.0 sh 20.2 su
396.2 -47.0 hd -9.0 sh 24.9 su
426.4 -47.0 hd 24.2 su
444.3 -44.0 hd -9.0 nt 21.2 su
463.0 -44.0 hd -9.0 sh 21.2 su
24.0 482.2 -47.0 bar
502.6 -41.0 hd -9.0 nt 19.7 su
524.9 -44.0 hd -9.0 nt 20.3 su
546.9 -35.0 r4
571.4 -35.0 r8
596.2 -38.0 hd -9.0 sh 20.2 su
614.4 -44.0 hd -9.0 nt 22.6 su
643.5 -44.0 hd 23.0 su
662.1 -41.0 hd -9.0 ft 20.0 su
681.3 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
202.0 -55.2 188.6 -55.2 184.6 -51.8 0 -0.2 188.0 -54.2 202.6 -54.2 206.0 -51.6 184.6 -51.6 SL
418.1 -55.2 404.5 -55.2 400.4 -51.8 0 -0.2 403.8 -54.2 418.7 -54.2 422.2 -51.6 400.4 -51.6 SL
635.4 -52.2 622.5 -52.2 618.6 -48.8 0 -0.2 621.8 -51.2 636.1 -51.2 639.3 -48.6 618.6 -48.6 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 497 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo020.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo020.abc (20)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 20 ((notitle)) ---
0 -25.34 T
3.2 14.8 4.8 61.9 -26.6 bm
3.2 18.4 -4.6 126.3 -14.8 bm
3.2 18.4 -4.6 126.3 -19.8 bm
3.2 30.7 0.0 168.8 -21.0 bm
3.2 12.7 0.0 168.8 -26.0 bm
3.2 14.2 4.7 224.9 -26.5 bm
3.2 18.2 -4.5 289.8 -14.8 bm
3.2 18.2 -4.5 289.8 -19.8 bm
3.2 29.6 0.0 332.2 -21.0 bm
3.2 11.9 0.0 332.2 -26.0 bm
3.2 14.6 4.8 387.8 -26.6 bm
3.2 17.7 -4.5 453.3 -14.8 bm
3.2 17.7 -4.5 453.3 -19.8 bm
3.2 31.1 0.0 495.0 -21.0 bm
3.2 12.3 0.0 495.0 -26.0 bm
3.2 13.7 5.0 551.7 -17.8 bm
-3.2 18.0 -4.5 608.8 -50.7 bm
-3.2 18.0 -4.5 608.8 -45.7 bm
-3.2 31.5 2.5 650.8 -55.5 bm
-3.2 13.1 1.0 650.8 -50.5 bm
14.0 F1 536.2 -15.8 M (70) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.4 -59.0 hd 32.4 su -53.0 hl -59.0 hl
73.2 -41.0 hd 19.2 su
88.9 -35.0 r4
107.3 -35.0 r8
122.8 -35.0 hd 20.2 su
141.3 -44.0 hd -9.0 nt 24.6 su
165.3 -44.0 hd 23.0 su
178.0 -41.0 hd 20.0 su
195.9 -41.0 hd -9.0 nt 20.0 su
24.0 209.9 -47.0 bar
221.4 -59.0 hd 32.5 su -53.0 hl -59.0 hl
235.7 -41.0 hd 19.2 su
251.7 -35.0 r4
270.7 -35.0 r8
286.3 -35.0 hd 20.2 su
304.5 -44.0 hd -9.0 nt 24.7 su
328.7 -44.0 hd 23.0 su
340.6 -41.0 hd 20.0 su
358.3 -41.0 hd -9.0 nt 20.0 su
24.0 373.0 -47.0 bar
384.3 -59.0 hd 32.4 su -53.0 hl -59.0 hl
399.0 -41.0 hd 19.2 su
415.1 -35.0 r4
434.0 -35.0 r8
449.8 -35.0 hd 20.2 su
467.4 -44.0 hd -9.0 nt 24.7 su
491.5 -44.0 hd 23.0 su
503.8 -41.0 hd 20.0 su
522.6 -41.0 hd -9.0 nt 20.0 su
24.0 536.2 -47.0 bar
548.2 -50.0 hd 32.2 su
561.9 -32.0 hd 19.2 su
579.5 -35.0 r4
597.4 -35.0 r8
612.3 -26.0 hd 24.7 sd
630.3 -35.0 hd -9.0 nt 20.2 sd
654.3 -35.0 hd 20.5 sd
667.4 -32.0 hd 22.5 sd
685.8 -32.0 hd -9.0 nt 21.0 sd
24.0 699.3 -47.0 bar
158.3 -52.0 148.2 -52.0 145.2 -48.7 0 -0.2 147.7 -51.0 158.8 -51.0 161.3 -48.5 145.2 -48.5 SL
321.7 -52.0 311.5 -52.0 308.5 -48.7 0 -0.2 311.0 -51.0 322.2 -51.0 324.7 -48.5 308.5 -48.5 SL
484.5 -52.0 474.4 -52.0 471.4 -48.7 0 -0.2 473.9 -51.0 485.0 -51.0 487.5 -48.5 471.4 -48.5 SL
647.3 -27.0 637.3 -27.0 634.3 -30.3 0 0.2 636.8 -28.0 647.8 -28.0 650.3 -30.5 634.3 -30.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 497 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo021.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo021.abc (21)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 21 ((notitle)) ---
0 -25.34 T
3.2 21.1 5.6 61.9 -18.4 bm
-3.2 18.5 -4.6 153.0 -50.6 bm
-3.2 18.5 -4.6 153.0 -45.6 bm
-3.2 34.5 3.9 202.6 -56.2 bm
-3.2 16.4 1.8 202.6 -51.2 bm
3.2 20.4 6.5 283.4 -22.3 bm
-3.2 18.2 -4.5 372.8 -53.7 bm
-3.2 18.2 -4.5 372.8 -48.7 bm
3.2 33.2 0.0 429.3 -15.0 bm
3.2 15.4 0.0 429.3 -20.0 bm
3.2 21.0 5.6 502.3 -18.4 bm
-3.2 15.2 -4.1 592.4 -51.1 bm
-3.2 15.2 -4.1 592.4 -46.1 bm
-3.2 37.4 2.6 638.7 -56.6 bm
-3.2 18.2 1.3 638.7 -51.6 bm
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.4 -44.0 hd 25.6 su
79.5 -32.0 hd 19.2 su
102.8 -35.0 r4
131.5 -35.0 r8
156.5 -26.0 hd -9.0 ft 24.6 sd
175.1 -35.0 hd -9.0 nt 20.2 sd
206.1 -35.0 hd 21.2 sd
222.4 -32.0 hd 22.4 sd
240.6 -32.0 hd -9.0 nt 20.4 sd
24.0 260.7 -47.0 bar
279.9 -53.0 hd -9.0 nt 30.7 su -53.0 hl
300.2 -35.0 hd 19.2 su
324.1 -35.0 r4
353.6 -35.0 r8
376.3 -29.0 hd 24.7 sd
394.5 -38.0 hd -9.0 sh 20.2 sd
425.8 -38.0 hd 23.0 su
441.2 -35.0 hd 20.0 su
458.9 -35.0 hd -9.0 sh 20.0 su
24.0 480.1 -47.0 bar
498.8 -44.0 hd -9.0 nt 25.6 su
519.8 -32.0 hd 19.2 su
543.9 -35.0 r4
573.2 -35.0 r8
595.9 -26.0 hd 25.1 sd
611.1 -35.0 hd 20.2 sd
642.2 -35.0 hd 21.6 sd
660.5 -35.0 hd -9.0 sh 20.4 sd
679.6 -32.0 hd -9.0 nt 22.0 sd
24.0 699.3 -47.0 bar
197.6 -26.7 183.5 -26.7 179.3 -30.2 0 0.2 182.9 -27.7 198.3 -27.7 201.8 -30.4 179.3 -30.4 SL
417.3 -29.7 403.1 -29.7 398.8 -33.2 0 0.2 402.4 -30.7 417.9 -30.7 421.5 -33.4 398.8 -33.4 SL
633.7 -26.7 619.6 -26.7 615.3 -30.2 0 0.2 618.9 -27.7 634.4 -27.7 638.0 -30.4 615.3 -30.4 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 497 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo022.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo022.abc (22)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 22 ((notitle)) ---
0 -25.34 T
3.2 23.8 7.2 61.9 -23.0 bm
-3.2 16.3 -4.3 155.4 -53.9 bm
-3.2 16.3 -4.3 155.4 -48.9 bm
3.2 36.9 0.0 210.4 -15.0 bm
3.2 18.9 0.0 210.4 -20.0 bm
3.2 20.8 6.0 281.1 -27.8 bm
3.2 18.2 -4.5 380.2 -14.8 bm
3.2 18.2 -4.5 380.2 -19.8 bm
3.2 33.5 0.0 430.3 -21.0 bm
3.2 15.7 0.0 430.3 -26.0 bm
3.2 21.3 6.0 498.2 -27.9 bm
3.2 17.6 -4.4 597.9 -14.8 bm
3.2 17.6 -4.4 597.9 -19.8 bm
3.2 35.4 0.0 647.2 -21.0 bm
3.2 16.1 0.0 647.2 -26.0 bm
14.0 F1 264.6 -16.0 M (75) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.4 -53.0 hd 30.0 su -53.0 hl
82.2 -35.0 hd -9.0 ft 19.2 su
106.1 -35.0 r4
135.7 -35.0 r8
158.9 -29.0 hd 24.9 sd
175.2 -38.0 hd 20.2 sd
206.9 -38.0 hd 23.0 su
225.8 -35.0 hd -9.0 ft 20.0 su
243.9 -35.0 hd -9.0 nt 20.0 su
24.0 264.6 -47.0 bar
277.6 -59.0 hd 31.2 su -53.0 hl -59.0 hl
298.4 -41.0 hd 19.2 su
322.9 -35.0 r4
353.3 -35.0 r8
376.7 -35.0 hd 20.2 su
394.9 -44.0 hd -9.0 nt 24.7 su
426.8 -44.0 hd 23.0 su
442.4 -41.0 hd 20.0 su
460.2 -41.0 hd -9.0 nt 20.0 su
24.0 481.9 -47.0 bar
494.7 -59.0 hd 31.2 su -53.0 hl -59.0 hl
516.0 -41.0 hd 19.2 su
540.7 -35.0 r4
570.9 -35.0 r8
594.4 -35.0 hd 20.2 su
612.0 -44.0 hd -9.0 nt 24.8 su
643.7 -44.0 hd 23.0 su
659.8 -41.0 hd 20.0 su
679.1 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
198.3 -29.7 183.8 -29.7 179.5 -33.2 0 0.2 183.1 -30.7 199.0 -30.7 202.6 -33.4 179.5 -33.4 SL
418.1 -52.3 403.5 -52.3 399.2 -48.8 0 -0.2 402.8 -51.3 418.8 -51.3 422.5 -48.6 399.2 -48.6 SL
635.1 -52.3 620.6 -52.3 616.3 -48.8 0 -0.2 619.9 -51.3 635.8 -51.3 639.5 -48.6 616.3 -48.6 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 498 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo023.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo023.abc (23)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 23 ((notitle)) ---
0 -25.34 T
3.2 15.5 5.0 61.9 -26.8 bm
3.2 18.5 -4.6 129.7 -14.8 bm
3.2 18.5 -4.6 129.7 -19.8 bm
3.2 31.1 0.0 172.9 -21.0 bm
3.2 13.1 0.0 172.9 -26.0 bm
3.2 14.9 4.9 230.3 -26.7 bm
3.2 14.7 4.8 377.7 -26.6 bm
3.2 18.8 -4.6 444.9 -14.8 bm
3.2 18.8 -4.6 444.9 -19.8 bm
3.2 30.2 0.0 489.0 -21.0 bm
3.2 12.3 0.0 489.0 -26.0 bm
3.2 15.9 5.1 546.3 -26.9 bm
3.2 17.8 -4.5 614.7 -14.8 bm
3.2 17.8 -4.5 614.7 -19.8 bm
3.2 30.2 0.0 657.1 -21.0 bm
3.2 12.5 0.0 657.1 -26.0 bm
14.0 F1 530.8 -16.0 M (80) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.4 -59.0 hd 32.2 su -53.0 hl -59.0 hl
73.9 -41.0 hd 19.2 su
90.4 -35.0 r4
109.9 -35.0 r8
126.2 -35.0 hd 20.2 su
144.7 -44.0 hd -9.0 nt 24.6 su
169.4 -44.0 hd 23.0 su
182.5 -41.0 hd 20.0 su
200.5 -41.0 hd -9.0 nt 20.0 su
24.0 215.1 -47.0 bar
226.8 -59.0 hd 32.3 su -53.0 hl -59.0 hl
241.7 -41.0 hd 19.2 su
257.8 -41.0 hd 2 21.0 sfu
282.4 -41.0 hd 13.0 3 dt -9.0 nt 1 20.0 sfu
308.6 -38.0 hd 1 20.0 sfu
327.6 -35.0 r8
344.5 -35.0 r4
24.0 362.2 -47.0 bar
374.2 -59.0 hd 32.4 su -53.0 hl -59.0 hl
389.0 -41.0 hd 19.2 su
405.8 -35.0 r4
425.1 -35.0 r8
441.4 -35.0 hd 20.2 su
460.2 -44.0 hd -9.0 nt 24.6 su
485.5 -44.0 hd 23.0 su
497.8 -41.0 hd 20.0 su
515.8 -41.0 hd -9.0 nt 20.0 su
24.0 530.8 -47.0 bar
542.8 -59.0 hd 32.1 su -53.0 hl -59.0 hl
558.7 -41.0 hd 19.2 su
575.5 -35.0 r4
593.4 -35.0 r8
611.2 -35.0 hd 20.2 su
629.0 -44.0 hd -9.0 nt 24.7 su
653.6 -44.0 hd 23.0 su
666.2 -41.0 hd 20.0 su
683.8 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
162.3 -52.0 151.8 -52.0 148.7 -48.7 0 -0.2 151.3 -51.0 162.8 -51.0 165.4 -48.5 148.7 -48.5 SL
252.5 -48.7 247.0 -48.7 245.4 -45.5 0 -0.2 246.7 -47.7 252.8 -47.7 254.2 -45.3 245.4 -45.3 SL
478.3 -52.1 467.5 -52.1 464.2 -48.7 0 -0.2 466.9 -51.1 478.8 -51.1 481.5 -48.5 464.2 -48.5 SL
646.5 -52.0 636.1 -52.0 633.0 -48.7 0 -0.2 635.6 -51.0 647.0 -51.0 649.6 -48.5 633.0 -48.5 SL
308.6 -44.00 emb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 497 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo024.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo024.abc (24)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 24 ((notitle)) ---
0 -25.34 T
3.2 14.8 4.8 61.9 -26.6 bm
3.2 18.4 -4.6 126.3 -14.8 bm
3.2 18.4 -4.6 126.3 -19.8 bm
3.2 30.7 0.0 168.8 -21.0 bm
3.2 12.7 0.0 168.8 -26.0 bm
3.2 14.2 4.7 224.9 -26.5 bm
3.2 18.2 -4.5 289.8 -14.8 bm
3.2 18.2 -4.5 289.8 -19.8 bm
3.2 29.6 0.0 332.2 -21.0 bm
3.2 11.9 0.0 332.2 -26.0 bm
3.2 14.6 5.2 387.8 -18.0 bm
-3.2 17.7 -4.5 446.3 -50.7 bm
-3.2 17.7 -4.5 446.3 -45.7 bm
-3.2 31.1 2.5 488.0 -55.5 bm
-3.2 12.3 1.0 488.0 -50.5 bm
3.2 13.7 5.0 551.7 -17.8 bm
-3.2 18.0 -4.5 608.8 -50.7 bm
-3.2 18.0 -4.5 608.8 -45.7 bm
-3.2 31.5 2.5 650.8 -55.5 bm
-3.2 13.1 1.0 650.8 -50.5 bm
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.4 -59.0 hd 32.4 su -53.0 hl -59.0 hl
73.2 -41.0 hd 19.2 su
88.9 -35.0 r4
107.3 -35.0 r8
122.8 -35.0 hd 20.2 su
141.3 -44.0 hd -9.0 nt 24.6 su
165.3 -44.0 hd 23.0 su
178.0 -41.0 hd 20.0 su
195.9 -41.0 hd -9.0 nt 20.0 su
24.0 209.9 -47.0 bar
221.4 -59.0 hd 32.5 su -53.0 hl -59.0 hl
235.7 -41.0 hd 19.2 su
251.7 -35.0 r4
270.7 -35.0 r8
286.3 -35.0 hd 20.2 su
304.5 -44.0 hd -9.0 nt 24.7 su
328.7 -44.0 hd 23.0 su
340.6 -41.0 hd 20.0 su
358.3 -41.0 hd -9.0 nt 20.0 su
24.0 373.0 -47.0 bar
384.3 -50.0 hd 32.0 su
399.0 -32.0 hd 19.2 su
415.1 -35.0 r4
434.0 -35.0 r8
449.8 -26.0 hd 24.7 sd
467.4 -35.0 hd -9.0 nt 20.2 sd
491.5 -35.0 hd 20.5 sd
503.8 -32.0 hd 22.5 sd
522.6 -32.0 hd -9.0 nt 21.0 sd
24.0 536.2 -47.0 bar
548.2 -50.0 hd 32.2 su
561.9 -32.0 hd 19.2 su
579.5 -35.0 r4
597.4 -35.0 r8
612.3 -26.0 hd 24.7 sd
630.3 -35.0 hd -9.0 nt 20.2 sd
654.3 -35.0 hd 20.5 sd
667.4 -32.0 hd 22.5 sd
685.8 -32.0 hd -9.0 nt 21.0 sd
24.0 699.3 -47.0 bar
158.3 -52.0 148.2 -52.0 145.2 -48.7 0 -0.2 147.7 -51.0 158.8 -51.0 161.3 -48.5 145.2 -48.5 SL
321.7 -52.0 311.5 -52.0 308.5 -48.7 0 -0.2 311.0 -51.0 322.2 -51.0 324.7 -48.5 308.5 -48.5 SL
484.5 -27.0 474.4 -27.0 471.4 -30.3 0 0.2 473.9 -28.0 485.0 -28.0 487.5 -30.5 471.4 -30.5 SL
647.3 -27.0 637.3 -27.0 634.3 -30.3 0 0.2 636.8 -28.0 647.8 -28.0 650.3 -30.5 634.3 -30.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 497 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo025.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo025.abc (25)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 25 ((notitle)) ---
0 -25.34 T
3.2 16.5 4.9 61.4 -17.7 bm
3.2 16.5 -1.6 108.7 -24.2 bm
3.2 6.0 -0.6 119.2 -30.2 bm
3.2 21.2 0.0 162.1 -34.8 bm
3.2 16.7 5.2 210.4 -27.0 bm
3.2 16.7 5.2 363.5 -27.0 bm
3.2 18.5 -4.6 435.1 -14.8 bm
3.2 18.5 -4.6 435.1 -19.8 bm
3.2 30.5 0.0 480.6 -21.0 bm
3.2 11.9 0.0 480.6 -26.0 bm
3.2 15.7 5.0 539.1 -26.8 bm
3.2 18.3 -4.5 611.6 -14.8 bm
3.2 18.3 -4.5 611.6 -19.8 bm
3.2 31.2 0.0 655.2 -21.0 bm
3.2 18.8 0.0 655.2 -26.0 bm
14.0 F1 45.4 -17.0 M (85) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
57.9 -44.0 hd 26.3 su
74.4 -32.0 hd 19.2 su
91.3 -35.0 r16
105.2 -44.0 hd 19.8 su
121.7 -47.0 hd 21.2 su
136.1 -35.0 r4
158.6 -56.0 hd 21.2 su -53.0 hl
179.7 -56.0 hd -9.0 ft 21.2 su -53.0 hl
24.0 195.2 -47.0 bar
206.9 -59.0 hd 32.0 su -53.0 hl -59.0 hl
223.6 -41.0 hd 19.2 su
241.3 -41.0 hd 2 21.0 sfu
264.8 -41.0 hd 13.0 3 dt -9.0 nt 1 20.0 sfu
291.4 -38.0 hd 1 20.0 sfu
310.0 -35.0 r8
328.1 -35.0 r4
24.0 348.1 -47.0 bar
360.0 -59.0 hd 32.0 su -53.0 hl -59.0 hl
376.7 -41.0 hd 19.2 su
395.3 -35.0 r4
414.8 -35.0 r8
431.6 -35.0 hd 20.2 su
450.2 -44.0 hd -9.0 nt 24.6 su
477.1 -44.0 hd 23.0 su
489.0 -41.0 hd 20.0 su
507.6 -41.0 hd -9.0 nt 20.0 su
24.0 523.7 -47.0 bar
535.6 -59.0 hd 32.2 su -53.0 hl -59.0 hl
551.3 -41.0 hd 19.2 su
570.1 -35.0 r4
590.8 -35.0 r8
608.1 -35.0 hd 20.2 su
626.4 -44.0 hd -9.0 ft 24.7 su
651.7 -44.0 hd 23.0 su
670.5 -44.0 hd -9.0 nt 23.0 su
682.9 -41.0 hd 20.0 su
24.0 699.3 -47.0 bar
235.7 -48.8 229.2 -48.8 227.3 -45.6 0 -0.2 228.9 -47.8 236.0 -47.8 237.6 -45.4 227.3 -45.4 SL
469.5 -52.1 457.8 -52.1 454.2 -48.7 0 -0.2 457.2 -51.1 470.1 -51.1 473.0 -48.5 454.2 -48.5 SL
644.5 -52.1 633.6 -52.1 630.4 -48.7 0 -0.2 633.1 -51.1 645.0 -51.1 647.7 -48.5 630.4 -48.5 SL
291.4 -44.00 emb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1765 6215 a Fc(6)p eop end
%%Page: 7 7
TeXDict begin 7 6 bop -317 194 a @beginspecial 0 @llx
0 @lly 544 @urx 72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo026.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo026.abc (26)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 26 ((notitle)) ---
0 -25.34 T
3.2 24.6 -2.4 70.1 -21.3 bm
3.2 17.5 -3.6 179.3 -17.8 bm
3.2 17.5 -3.6 179.3 -22.8 bm
3.2 35.7 0.0 230.3 -21.0 bm
3.2 18.1 0.0 230.3 -26.0 bm
3.2 23.4 6.4 302.5 -28.2 bm
3.2 18.0 -4.5 406.6 -14.8 bm
3.2 18.0 -4.5 406.6 -19.8 bm
3.2 36.1 0.0 458.3 -21.0 bm
3.2 17.0 0.0 458.3 -26.0 bm
3.2 22.0 6.2 529.3 -28.0 bm
-3.2 52.7 0.0 620.5 -54.2 bm
14.0 F1 285.4 -16.0 M (90) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
66.6 -41.0 hd -9.0 nt 19.7 su
91.2 -44.0 hd -9.0 nt 20.3 su
119.1 -35.0 r4
149.3 -35.0 r8
175.8 -38.0 hd -9.0 sh 20.2 su
193.4 -44.0 hd -9.0 nt 22.6 su
226.8 -44.0 hd 23.0 su
244.8 -41.0 hd -9.0 ft 20.0 su
262.4 -41.0 hd -9.0 nt 20.0 su
24.0 285.4 -47.0 bar
299.0 -59.0 hd 30.8 su -53.0 hl -59.0 hl
322.3 -41.0 hd 19.2 su
348.5 -35.0 r4
379.3 -35.0 r8
403.1 -35.0 hd 20.2 su
421.1 -44.0 hd -9.0 nt 24.7 su
454.8 -44.0 hd 23.0 su
471.8 -41.0 hd 20.0 su
491.0 -41.0 hd -9.0 nt 20.0 su
24.0 512.5 -47.0 bar
525.8 -59.0 hd 31.0 su -53.0 hl -59.0 hl
547.8 -41.0 hd 19.2 su
574.6 -35.0 r4
606.3 -35.0 r16
624.0 -35.0 hd 8.0 3 dt 19.2 sd
652.2 -32.0 hd 22.2 sd
676.6 -32.0 hd -9.0 nt 22.2 sd
24.0 699.3 -47.0 bar
217.8 -52.4 202.3 -52.4 197.7 -48.9 0 -0.2 201.6 -51.4 218.5 -51.4 222.4 -48.7 197.7 -48.7 SL
445.8 -52.4 430.1 -52.4 425.4 -48.9 0 -0.2 429.4 -51.4 446.5 -51.4 450.5 -48.7 425.4 -48.7 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 587 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo027.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo027.abc (27)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 27 ((notitle)) ---
0 -25.34 T
3.2 23.8 7.2 61.1 -23.0 bm
-3.2 15.3 -4.1 155.4 -54.1 bm
-3.2 15.3 -4.1 155.4 -49.1 bm
3.2 35.6 0.0 209.6 -15.0 bm
3.2 18.1 0.0 209.6 -20.0 bm
3.2 24.2 7.2 280.0 -23.0 bm
-3.2 15.7 -4.2 372.3 -54.0 bm
-3.2 15.7 -4.2 372.3 -49.0 bm
3.2 37.5 0.0 427.2 -15.0 bm
3.2 18.5 0.0 427.2 -20.0 bm
3.2 22.7 7.0 497.7 -22.8 bm
-3.2 16.1 -4.2 590.0 -53.9 bm
-3.2 16.1 -4.2 590.0 -49.0 bm
3.2 36.7 0.0 645.2 -15.0 bm
3.2 17.3 0.0 645.2 -20.0 bm
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
57.6 -53.0 hd 30.0 su -53.0 hl
81.5 -35.0 hd -9.0 ft 19.2 su
107.4 -35.0 r4
135.4 -35.0 r8
158.9 -29.0 hd 25.1 sd
174.2 -38.0 hd 20.2 sd
206.1 -38.0 hd 23.0 su
224.1 -35.0 hd -9.0 ft 20.0 su
241.7 -35.0 hd -9.0 nt 20.0 su
24.0 263.3 -47.0 bar
276.5 -53.0 hd 30.0 su -53.0 hl
300.7 -35.0 hd -9.0 ft 19.2 su
325.0 -35.0 r4
353.5 -35.0 r8
375.8 -29.0 hd 25.0 sd
391.5 -38.0 hd 20.2 sd
423.7 -38.0 hd 23.0 su
442.1 -35.0 hd -9.0 ft 20.0 su
461.2 -35.0 hd -9.0 nt 20.0 su
24.0 481.3 -47.0 bar
494.2 -53.0 hd 30.2 su -53.0 hl
517.0 -35.0 hd -9.0 ft 19.2 su
542.1 -35.0 r4
572.3 -35.0 r8
593.5 -29.0 hd 25.0 sd
609.5 -38.0 hd 20.2 sd
641.7 -38.0 hd 23.0 su
659.0 -35.0 hd -9.0 ft 20.0 su
678.4 -35.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
197.4 -29.7 182.9 -29.7 178.5 -33.2 0 0.2 182.2 -30.7 198.1 -30.7 201.8 -33.4 178.5 -33.4 SL
414.9 -29.7 400.2 -29.7 395.8 -33.2 0 0.2 399.5 -30.7 415.7 -30.7 419.4 -33.4 395.8 -33.4 SL
633.0 -29.7 618.3 -29.7 613.8 -33.2 0 0.2 617.5 -30.7 633.7 -30.7 637.4 -33.4 613.8 -33.4 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 587 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo028.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo028.abc (28)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 28 ((notitle)) ---
0 -25.34 T
3.2 21.3 6.7 61.2 -22.5 bm
-3.2 42.7 0.0 127.1 -54.2 bm
3.2 14.8 4.8 203.8 -26.6 bm
3.2 17.9 -4.5 272.8 -14.8 bm
3.2 17.9 -4.5 272.8 -19.8 bm
3.2 30.9 0.0 315.7 -21.0 bm
3.2 12.6 0.0 315.7 -26.0 bm
3.2 16.0 5.1 374.1 -26.9 bm
3.2 19.0 -4.6 442.6 -14.8 bm
3.2 19.0 -4.6 442.6 -19.8 bm
3.2 31.1 0.0 485.9 -21.0 bm
3.2 12.8 0.0 485.9 -26.0 bm
3.2 16.1 5.1 543.8 -26.9 bm
3.2 16.9 -4.4 613.7 -14.8 bm
3.2 16.9 -4.4 613.7 -19.8 bm
3.2 31.3 0.0 657.0 -21.0 bm
3.2 11.9 0.0 657.0 -26.0 bm
14.0 F1 45.2 -17.0 M (95) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
57.7 -53.0 hd 30.5 su -53.0 hl
79.1 -35.0 hd -9.0 ft 19.2 su
97.4 -35.0 r4
116.1 -35.0 r16
130.6 -32.0 hd 8.0 0 dt 22.2 sd
152.4 -35.0 hd 19.2 sd
173.3 -35.0 hd -9.0 ft 19.2 sd
24.0 188.1 -47.0 bar
200.3 -59.0 hd 32.4 su -53.0 hl -59.0 hl
215.1 -41.0 hd 19.2 su
233.0 -35.0 r4
253.0 -35.0 r8
269.3 -35.0 hd 20.2 su
287.2 -44.0 hd -9.0 nt 24.7 su
312.2 -44.0 hd 23.0 su
324.8 -41.0 hd 20.0 su
343.1 -41.0 hd -9.0 nt 20.0 su
24.0 358.5 -47.0 bar
370.6 -59.0 hd 32.1 su -53.0 hl -59.0 hl
386.7 -41.0 hd 19.2 su
403.0 -35.0 r4
422.2 -35.0 r8
439.1 -35.0 hd 20.2 su
458.1 -44.0 hd -9.0 nt 24.6 su
482.4 -44.0 hd 23.0 su
495.2 -41.0 hd 20.0 su
513.5 -41.0 hd -9.0 nt 20.0 su
24.0 528.9 -47.0 bar
540.3 -59.0 hd 32.1 su -53.0 hl -59.0 hl
556.4 -41.0 hd 19.2 su
573.7 -35.0 r4
593.4 -35.0 r8
610.2 -35.0 hd 20.2 su
627.0 -44.0 hd -9.0 nt 24.8 su
653.5 -44.0 hd 23.0 su
665.3 -41.0 hd 20.0 su
684.8 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
305.0 -52.1 294.4 -52.1 291.2 -48.7 0 -0.2 293.9 -51.1 305.5 -51.1 308.2 -48.5 291.2 -48.5 SL
475.3 -52.0 465.1 -52.0 462.1 -48.7 0 -0.2 464.6 -51.0 475.8 -51.0 478.4 -48.5 462.1 -48.5 SL
646.0 -52.1 634.5 -52.1 631.1 -48.7 0 -0.2 634.0 -51.1 646.5 -51.1 649.4 -48.5 631.1 -48.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 586 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo029.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo029.abc (29)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 29 ((notitle)) ---
0 -25.34 T
3.2 21.5 6.7 61.2 -19.5 bm
-3.2 17.5 -4.4 152.9 -50.8 bm
-3.2 17.5 -4.4 152.9 -45.8 bm
-3.2 33.4 3.8 202.1 -56.2 bm
-3.2 15.8 1.8 202.1 -51.2 bm
3.2 21.8 5.7 277.2 -18.5 bm
-3.2 18.0 -4.5 369.0 -50.7 bm
-3.2 18.0 -4.5 369.0 -45.7 bm
-3.2 35.2 3.9 419.1 -56.2 bm
-3.2 16.2 1.8 419.1 -51.2 bm
3.2 20.7 6.6 500.4 -22.4 bm
-3.2 18.4 -4.6 590.0 -53.7 bm
-3.2 18.4 -4.6 590.0 -48.6 bm
3.2 34.4 0.0 647.5 -15.0 bm
3.2 15.2 0.0 647.5 -20.0 bm
14.0 F1 260.4 -16.0 M (100) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
57.7 -50.0 hd 30.5 su
79.3 -32.0 hd 19.2 su
105.1 -35.0 r4
132.9 -35.0 r8
156.4 -26.0 hd 24.8 sd
173.9 -35.0 hd -9.0 nt 20.2 sd
205.6 -35.0 hd 21.2 sd
221.4 -32.0 hd 22.4 sd
239.0 -32.0 hd -9.0 nt 20.4 sd
24.0 260.4 -47.0 bar
273.7 -44.0 hd 25.5 su
295.5 -32.0 hd 19.2 su
319.8 -35.0 r4
348.2 -35.0 r8
372.5 -26.0 hd -9.0 ft 24.7 sd
390.5 -35.0 hd -9.0 nt 20.2 sd
422.6 -35.0 hd 21.2 sd
438.8 -32.0 hd 22.4 sd
457.8 -32.0 hd -9.0 nt 20.3 sd
24.0 477.9 -47.0 bar
496.9 -53.0 hd -9.0 nt 30.6 su -53.0 hl
517.6 -35.0 hd 19.2 su
542.6 -35.0 r4
572.6 -35.0 r8
593.5 -29.0 hd 24.6 sd
612.0 -38.0 hd -9.0 sh 20.2 sd
644.0 -38.0 hd 23.0 su
659.2 -35.0 hd 20.0 su
678.5 -35.0 hd -9.0 sh 20.0 su
24.0 699.3 -47.0 bar
197.0 -26.7 182.5 -26.7 178.2 -30.2 0 0.2 181.8 -27.7 197.7 -27.7 201.4 -30.4 178.2 -30.4 SL
413.9 -26.7 399.2 -26.7 394.8 -30.2 0 0.2 398.5 -27.7 414.6 -27.7 418.3 -30.4 394.8 -30.4 SL
635.3 -29.7 620.7 -29.7 616.2 -33.2 0 0.2 619.9 -30.7 636.1 -30.7 639.8 -33.4 616.2 -33.4 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 587 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo030.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo030.abc (30)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 30 ((notitle)) ---
0 -25.34 T
3.2 21.5 5.7 71.1 -18.5 bm
-3.2 15.5 -4.2 160.4 -51.0 bm
-3.2 15.5 -4.2 160.4 -46.0 bm
-3.2 35.7 2.6 208.3 -56.6 bm
-3.2 17.6 1.3 208.3 -51.6 bm
3.2 22.7 7.0 284.9 -22.8 bm
-3.2 16.0 -4.2 376.7 -54.0 bm
-3.2 16.0 -4.2 376.7 -49.0 bm
3.2 36.5 0.0 431.1 -15.0 bm
3.2 17.7 0.0 431.1 -20.0 bm
3.2 21.4 6.1 501.6 -27.9 bm
3.2 18.7 -4.6 598.1 -14.8 bm
3.2 18.7 -4.6 598.1 -19.8 bm
3.2 35.3 0.0 647.4 -21.0 bm
3.2 15.7 0.0 647.4 -26.0 bm
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
67.6 -44.0 hd -9.0 nt 25.5 su
89.1 -32.0 hd 19.2 su
113.5 -35.0 r4
140.2 -35.0 r8
163.9 -26.0 hd 25.0 sd
179.4 -35.0 hd 20.2 sd
211.8 -35.0 hd 21.6 sd
229.4 -35.0 hd -9.0 sh 20.3 sd
247.5 -32.0 hd -9.0 nt 22.0 sd
24.0 268.5 -47.0 bar
281.4 -53.0 hd 30.2 su -53.0 hl
304.1 -35.0 hd -9.0 ft 19.2 su
328.5 -35.0 r4
356.8 -35.0 r8
380.2 -29.0 hd 25.0 sd
396.2 -38.0 hd 20.2 sd
427.6 -38.0 hd 23.0 su
445.3 -35.0 hd -9.0 ft 20.0 su
464.2 -35.0 hd -9.0 nt 20.0 su
24.0 485.0 -47.0 bar
498.1 -59.0 hd 31.1 su -53.0 hl -59.0 hl
519.5 -41.0 hd 19.2 su
543.3 -35.0 r4
572.7 -35.0 r8
594.6 -35.0 hd 20.2 su
613.3 -44.0 hd -9.0 nt 24.6 su
643.9 -44.0 hd 23.0 su
659.6 -41.0 hd 20.0 su
679.2 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
203.0 -26.7 188.2 -26.7 183.7 -30.2 0 0.2 187.4 -27.7 203.8 -27.7 207.5 -30.4 183.7 -30.4 SL
419.1 -29.7 404.8 -29.7 400.5 -33.2 0 0.2 404.1 -30.7 419.8 -30.7 423.4 -33.4 400.5 -33.4 SL
635.5 -52.3 621.7 -52.3 617.5 -48.8 0 -0.2 621.0 -51.3 636.2 -51.3 639.7 -48.6 617.5 -48.6 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 587 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo031.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo031.abc (31)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 31 ((notitle)) ---
0 -25.34 T
3.2 15.6 5.0 62.1 -26.8 bm
3.2 17.9 -4.5 129.6 -14.8 bm
3.2 17.9 -4.5 129.6 -19.8 bm
3.2 30.1 0.0 173.4 -21.0 bm
3.2 12.1 0.0 173.4 -26.0 bm
3.2 15.0 4.9 230.3 -26.7 bm
3.2 18.5 -4.6 298.0 -14.8 bm
3.2 18.5 -4.6 298.0 -19.8 bm
3.2 30.8 0.0 341.4 -21.0 bm
3.2 12.3 0.0 341.4 -26.0 bm
3.2 15.6 5.0 398.9 -26.8 bm
3.2 16.2 5.1 545.8 -26.9 bm
3.2 17.9 -4.5 614.2 -14.8 bm
3.2 17.9 -4.5 614.2 -19.8 bm
3.2 30.4 0.0 657.4 -21.0 bm
3.2 12.2 0.0 657.4 -26.0 bm
14.0 F1 46.1 -17.0 M (105) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.6 -59.0 hd 32.2 su -53.0 hl -59.0 hl
74.2 -41.0 hd 19.2 su
91.3 -35.0 r4
109.3 -35.0 r8
126.1 -35.0 hd 20.2 su
144.0 -44.0 hd -9.0 nt 24.7 su
169.9 -44.0 hd 23.0 su
182.0 -41.0 hd 20.0 su
200.0 -41.0 hd -9.0 nt 20.0 su
24.0 215.1 -47.0 bar
226.8 -59.0 hd 32.3 su -53.0 hl -59.0 hl
241.8 -41.0 hd 19.2 su
258.8 -35.0 r4
277.9 -35.0 r8
294.5 -35.0 hd 20.2 su
312.9 -44.0 hd -9.0 nt 24.6 su
337.9 -44.0 hd 23.0 su
350.2 -41.0 hd 20.0 su
368.7 -41.0 hd -9.0 nt 20.0 su
24.0 383.7 -47.0 bar
395.4 -59.0 hd 32.2 su -53.0 hl -59.0 hl
411.1 -41.0 hd 19.2 su
427.0 -41.0 hd 2 21.0 sfu
451.5 -41.0 hd 13.0 3 dt -9.0 nt 1 20.0 sfu
476.6 -38.0 hd 1 20.0 sfu
496.1 -35.0 r8
511.8 -35.0 r4
24.0 530.8 -47.0 bar
542.3 -59.0 hd 32.1 su -53.0 hl -59.0 hl
558.5 -41.0 hd 19.2 su
574.8 -35.0 r4
593.7 -35.0 r8
610.7 -35.0 hd 20.2 su
628.6 -44.0 hd -9.0 nt 24.7 su
653.9 -44.0 hd 23.0 su
666.0 -41.0 hd 20.0 su
684.3 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
162.5 -52.1 151.4 -52.1 148.1 -48.7 0 -0.2 150.9 -51.1 163.1 -51.1 165.9 -48.5 148.1 -48.5 SL
330.7 -52.1 320.1 -52.1 316.9 -48.7 0 -0.2 319.6 -51.1 331.2 -51.1 333.9 -48.5 316.9 -48.5 SL
421.7 -48.7 416.3 -48.7 414.7 -45.5 0 -0.2 416.1 -47.7 422.0 -47.7 423.3 -45.3 414.7 -45.3 SL
646.6 -52.1 635.9 -52.1 632.6 -48.7 0 -0.2 635.3 -51.1 647.2 -51.1 649.9 -48.5 632.6 -48.5 SL
476.6 -44.00 emb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 586 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo032.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo032.abc (32)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 32 ((notitle)) ---
0 -25.34 T
3.2 14.9 4.9 62.1 -26.7 bm
3.2 17.9 -4.5 126.2 -14.8 bm
3.2 17.9 -4.5 126.2 -19.8 bm
3.2 29.7 0.0 169.2 -21.0 bm
3.2 11.8 0.0 169.2 -26.0 bm
3.2 14.3 4.7 224.9 -26.5 bm
3.2 18.4 -4.6 289.2 -14.8 bm
3.2 18.4 -4.6 289.2 -19.8 bm
3.2 30.4 0.0 331.8 -21.0 bm
3.2 11.9 0.0 331.8 -26.0 bm
3.2 14.9 4.9 388.2 -26.7 bm
3.2 18.6 -4.6 452.5 -14.8 bm
3.2 18.6 -4.6 452.5 -19.8 bm
3.2 31.3 0.0 494.6 -21.0 bm
3.2 12.2 0.0 494.6 -26.0 bm
3.2 14.4 5.1 551.2 -17.9 bm
-3.2 17.5 -4.4 609.2 -50.8 bm
-3.2 17.5 -4.4 609.2 -45.8 bm
-3.2 31.0 2.5 651.1 -55.5 bm
-3.2 12.6 1.0 651.1 -50.5 bm
14.0 F1 209.9 -16.0 M (110) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.6 -59.0 hd 32.3 su -53.0 hl -59.0 hl
73.5 -41.0 hd 19.2 su
89.8 -35.0 r4
106.7 -35.0 r8
122.7 -35.0 hd 20.2 su
140.7 -44.0 hd -9.0 nt 24.7 su
165.7 -44.0 hd 23.0 su
177.5 -41.0 hd 20.0 su
195.5 -41.0 hd -9.0 nt 20.0 su
24.0 209.9 -47.0 bar
221.4 -59.0 hd 32.5 su -53.0 hl -59.0 hl
235.7 -41.0 hd 19.2 su
251.9 -35.0 r4
269.9 -35.0 r8
285.7 -35.0 hd 20.2 su
304.1 -44.0 hd -9.0 nt 24.6 su
328.3 -44.0 hd 23.0 su
340.2 -41.0 hd 20.0 su
358.7 -41.0 hd -9.0 nt 20.0 su
24.0 373.0 -47.0 bar
384.7 -59.0 hd 32.3 su -53.0 hl -59.0 hl
399.6 -41.0 hd 19.2 su
415.4 -35.0 r4
434.2 -35.0 r8
449.0 -35.0 hd 20.2 su
467.6 -44.0 hd -9.0 nt 24.6 su
491.1 -44.0 hd 23.0 su
503.3 -41.0 hd 20.0 su
522.4 -41.0 hd -9.0 nt 20.0 su
24.0 536.2 -47.0 bar
547.7 -50.0 hd 32.1 su
562.1 -32.0 hd 19.2 su
579.1 -35.0 r4
597.0 -35.0 r8
612.7 -26.0 hd 24.8 sd
630.2 -35.0 hd -9.0 nt 20.2 sd
654.6 -35.0 hd 20.5 sd
667.2 -32.0 hd 22.5 sd
685.6 -32.0 hd -9.0 nt 21.0 sd
24.0 699.3 -47.0 bar
158.5 -52.1 147.9 -52.1 144.7 -48.7 0 -0.2 147.4 -51.1 159.0 -51.1 161.7 -48.5 144.7 -48.5 SL
321.3 -52.0 311.1 -52.0 308.1 -48.7 0 -0.2 310.7 -51.0 321.8 -51.0 324.3 -48.5 308.1 -48.5 SL
484.2 -52.0 474.5 -52.0 471.5 -48.7 0 -0.2 474.0 -51.0 484.7 -51.0 487.2 -48.5 471.5 -48.5 SL
647.5 -27.0 637.2 -27.0 634.2 -30.3 0 0.2 636.8 -28.0 648.0 -28.0 650.6 -30.5 634.2 -30.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 587 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo033.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo033.abc (33)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 33 ((notitle)) ---
0 -25.34 T
3.2 16.5 5.7 62.1 -18.5 bm
-3.2 17.9 -4.5 127.0 -50.7 bm
-3.2 17.9 -4.5 127.0 -45.7 bm
-3.2 30.6 2.5 171.8 -55.5 bm
-3.2 12.6 1.0 171.8 -50.5 bm
3.2 15.9 4.8 237.3 -17.6 bm
3.2 16.3 -1.6 283.5 -24.2 bm
3.2 6.0 -0.6 293.8 -30.2 bm
3.2 21.2 0.0 336.9 -34.8 bm
3.2 16.1 5.1 386.3 -26.9 bm
3.2 16.3 5.1 538.8 -26.9 bm
3.2 18.8 -4.6 611.0 -14.8 bm
3.2 18.8 -4.6 611.0 -19.8 bm
3.2 31.1 0.0 655.8 -21.0 bm
3.2 13.2 0.0 655.8 -26.0 bm
14.0 F1 370.8 -16.0 M (115) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.6 -50.0 hd 31.5 su
75.1 -32.0 hd 19.2 su
93.3 -35.0 r4
112.6 -35.0 r8
130.5 -26.0 hd 24.7 sd
148.5 -35.0 hd -9.0 nt 20.2 sd
175.3 -35.0 hd 20.5 sd
187.9 -32.0 hd 22.5 sd
206.0 -32.0 hd -9.0 nt 21.0 sd
24.0 222.0 -47.0 bar
233.8 -44.0 hd 26.4 su
249.7 -32.0 hd 19.2 su
265.9 -35.0 r16
280.0 -44.0 hd 19.8 su
296.3 -47.0 hd 21.2 su
311.5 -35.0 r4
333.4 -56.0 hd 21.2 su -53.0 hl
354.6 -56.0 hd -9.0 ft 21.2 su -53.0 hl
24.0 370.8 -47.0 bar
382.8 -59.0 hd 32.1 su -53.0 hl -59.0 hl
399.0 -41.0 hd 19.2 su
416.5 -41.0 hd 2 21.0 sfu
439.6 -41.0 hd 13.0 3 dt -9.0 nt 1 20.0 sfu
467.4 -38.0 hd 1 20.0 sfu
485.9 -35.0 r8
504.8 -35.0 r4
24.0 523.7 -47.0 bar
535.3 -59.0 hd 32.1 su -53.0 hl -59.0 hl
551.5 -41.0 hd 19.2 su
570.8 -35.0 r4
590.5 -35.0 r8
607.5 -35.0 hd 20.2 su
626.3 -44.0 hd -9.0 nt 24.6 su
652.3 -44.0 hd 23.0 su
665.5 -41.0 hd 20.0 su
683.4 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
167.7 -26.9 156.1 -26.9 152.5 -30.3 0 0.2 155.5 -27.9 168.3 -27.9 171.3 -30.5 152.5 -30.5 SL
410.9 -48.8 404.6 -48.8 402.7 -45.6 0 -0.2 404.3 -47.8 411.2 -47.8 412.8 -45.4 402.7 -45.4 SL
644.9 -52.1 633.7 -52.1 630.3 -48.7 0 -0.2 633.2 -51.1 645.5 -51.1 648.3 -48.5 630.3 -48.5 SL
467.4 -44.00 emb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 587 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo034.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo034.abc (34)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 34 ((notitle)) ---
0 -25.34 T
3.2 14.9 4.9 62.1 -26.7 bm
3.2 17.9 -4.5 126.2 -14.8 bm
3.2 17.9 -4.5 126.2 -19.8 bm
3.2 29.7 0.0 169.2 -21.0 bm
3.2 11.8 0.0 169.2 -26.0 bm
3.2 14.3 4.7 224.9 -26.5 bm
3.2 18.4 -4.6 289.2 -14.8 bm
3.2 18.4 -4.6 289.2 -19.8 bm
3.2 30.4 0.0 331.8 -21.0 bm
3.2 11.9 0.0 331.8 -26.0 bm
3.2 14.9 4.9 388.2 -26.7 bm
3.2 18.6 -4.6 452.5 -14.8 bm
3.2 18.6 -4.6 452.5 -19.8 bm
3.2 31.3 0.0 494.6 -21.0 bm
3.2 12.2 0.0 494.6 -26.0 bm
3.2 14.4 4.8 551.2 -26.6 bm
3.2 17.5 -4.4 616.2 -14.8 bm
3.2 17.5 -4.4 616.2 -19.8 bm
3.2 31.0 0.0 658.1 -21.0 bm
3.2 12.6 0.0 658.1 -26.0 bm
14.0 F1 536.2 -16.0 M (120) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.6 -59.0 hd 32.3 su -53.0 hl -59.0 hl
73.5 -41.0 hd 19.2 su
89.8 -35.0 r4
106.7 -35.0 r8
122.7 -35.0 hd 20.2 su
140.7 -44.0 hd -9.0 nt 24.7 su
165.7 -44.0 hd 23.0 su
177.5 -41.0 hd 20.0 su
195.5 -41.0 hd -9.0 nt 20.0 su
24.0 209.9 -47.0 bar
221.4 -59.0 hd 32.5 su -53.0 hl -59.0 hl
235.7 -41.0 hd 19.2 su
251.9 -35.0 r4
269.9 -35.0 r8
285.7 -35.0 hd 20.2 su
304.1 -44.0 hd -9.0 nt 24.6 su
328.3 -44.0 hd 23.0 su
340.2 -41.0 hd 20.0 su
358.7 -41.0 hd -9.0 nt 20.0 su
24.0 373.0 -47.0 bar
384.7 -59.0 hd 32.3 su -53.0 hl -59.0 hl
399.6 -41.0 hd 19.2 su
415.4 -35.0 r4
434.2 -35.0 r8
449.0 -35.0 hd 20.2 su
467.6 -44.0 hd -9.0 nt 24.6 su
491.1 -44.0 hd 23.0 su
503.3 -41.0 hd 20.0 su
522.4 -41.0 hd -9.0 nt 20.0 su
24.0 536.2 -47.0 bar
547.7 -59.0 hd 32.4 su -53.0 hl -59.0 hl
562.1 -41.0 hd 19.2 su
579.1 -35.0 r4
597.0 -35.0 r8
612.7 -35.0 hd 20.2 su
630.2 -44.0 hd -9.0 nt 24.8 su
654.6 -44.0 hd 23.0 su
667.2 -41.0 hd 20.0 su
685.6 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
158.5 -52.1 147.9 -52.1 144.7 -48.7 0 -0.2 147.4 -51.1 159.0 -51.1 161.7 -48.5 144.7 -48.5 SL
321.3 -52.0 311.1 -52.0 308.1 -48.7 0 -0.2 310.7 -51.0 321.8 -51.0 324.3 -48.5 308.1 -48.5 SL
484.2 -52.0 474.5 -52.0 471.5 -48.7 0 -0.2 474.0 -51.0 484.7 -51.0 487.2 -48.5 471.5 -48.5 SL
647.5 -52.0 637.2 -52.0 634.2 -48.7 0 -0.2 636.8 -51.0 648.0 -51.0 650.6 -48.5 634.2 -48.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 587 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo035.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo035.abc (35)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 35 ((notitle)) ---
0 -25.34 T
3.2 14.8 4.8 61.6 -26.6 bm
3.2 18.1 -4.5 126.6 -14.8 bm
3.2 18.1 -4.5 126.6 -19.8 bm
3.2 30.2 0.0 169.0 -21.0 bm
3.2 11.4 0.0 169.0 -26.0 bm
3.2 14.9 4.9 225.3 -26.7 bm
3.2 18.9 -4.6 288.8 -14.8 bm
3.2 18.9 -4.6 288.8 -19.8 bm
3.2 30.6 0.0 331.5 -21.0 bm
3.2 12.7 0.0 331.5 -26.0 bm
3.2 14.3 4.7 388.6 -26.5 bm
3.2 18.1 -4.5 452.6 -14.8 bm
3.2 18.1 -4.5 452.6 -19.8 bm
3.2 30.2 0.0 495.2 -21.0 bm
3.2 12.4 0.0 495.2 -26.0 bm
3.2 14.4 5.1 551.3 -17.9 bm
-3.2 18.6 -4.6 608.7 -50.6 bm
-3.2 18.6 -4.6 608.7 -45.6 bm
-3.2 30.1 2.4 651.5 -55.5 bm
-3.2 12.1 1.0 651.5 -50.5 bm
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
58.1 -59.0 hd 32.4 su -53.0 hl -59.0 hl
72.9 -41.0 hd 19.2 su
89.6 -35.0 r4
107.0 -35.0 r8
123.1 -35.0 hd 20.2 su
141.1 -44.0 hd -9.0 nt 24.7 su
165.5 -44.0 hd 23.0 su
176.9 -41.0 hd 20.0 su
195.7 -41.0 hd -9.0 nt 20.0 su
24.0 209.9 -47.0 bar
221.8 -59.0 hd 32.3 su -53.0 hl -59.0 hl
236.7 -41.0 hd 19.2 su
252.9 -35.0 r4
270.9 -35.0 r8
285.3 -35.0 hd 20.2 su
304.2 -44.0 hd -9.0 nt 24.6 su
328.0 -44.0 hd 23.0 su
340.7 -41.0 hd 20.0 su
358.6 -41.0 hd -9.0 nt 20.0 su
24.0 373.0 -47.0 bar
385.1 -59.0 hd 32.5 su -53.0 hl -59.0 hl
399.4 -41.0 hd 19.2 su
415.7 -35.0 r4
433.8 -35.0 r8
449.1 -35.0 hd 20.2 su
467.2 -44.0 hd -9.0 nt 24.7 su
491.7 -44.0 hd 23.0 su
504.1 -41.0 hd 20.0 su
521.9 -41.0 hd -9.0 nt 20.0 su
24.0 536.2 -47.0 bar
547.8 -50.0 hd 32.1 su
562.2 -32.0 hd 19.2 su
578.8 -35.0 r4
596.2 -35.0 r8
612.2 -26.0 hd 24.6 sd
630.8 -35.0 hd -9.0 nt 20.2 sd
655.0 -35.0 hd 20.5 sd
667.1 -32.0 hd 22.5 sd
685.1 -32.0 hd -9.0 nt 21.0 sd
24.0 699.3 -47.0 bar
158.5 -52.0 148.2 -52.0 145.1 -48.7 0 -0.2 147.7 -51.0 158.9 -51.0 161.5 -48.5 145.1 -48.5 SL
321.0 -52.0 311.1 -52.0 308.2 -48.7 0 -0.2 310.7 -51.0 321.5 -51.0 324.0 -48.5 308.2 -48.5 SL
484.6 -52.0 474.3 -52.0 471.2 -48.7 0 -0.2 473.8 -51.0 485.1 -51.0 487.7 -48.5 471.2 -48.5 SL
648.0 -27.0 637.8 -27.0 634.8 -30.3 0 0.2 637.3 -28.0 648.4 -28.0 651.0 -30.5 634.8 -30.5 SL
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 586 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-credo036.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-credo036.abc (36)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:00 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
% --- 36 ((notitle)) ---
0 -25.34 T
3.2 16.6 5.7 75.1 -18.5 bm
-3.2 18.1 -4.5 142.7 -50.7 bm
-3.2 18.1 -4.5 142.7 -45.7 bm
-3.2 31.4 2.5 187.3 -55.5 bm
-3.2 12.5 1.0 187.3 -50.5 bm
3.2 16.9 5.0 254.2 -17.8 bm
3.2 15.3 -1.6 301.9 -24.2 bm
3.2 6.0 -0.6 311.2 -30.2 bm
3.2 22.7 0.0 355.0 -34.8 bm
3.2 17.3 5.3 405.7 -27.1 bm
14.0 F1 48.6 -17.0 M (125) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0 40.0 -44.0 ft0
71.6 -50.0 hd 31.5 su
88.2 -32.0 hd 19.2 su
107.4 -35.0 r4
127.8 -35.0 r8
146.2 -26.0 hd 24.7 sd
164.3 -35.0 hd -9.0 nt 20.2 sd
190.8 -35.0 hd 20.5 sd
203.3 -32.0 hd 22.5 sd
222.2 -32.0 hd -9.0 nt 21.0 sd
24.0 238.3 -47.0 bar
250.7 -44.0 hd 26.2 su
267.5 -32.0 hd 19.2 su
283.9 -35.0 r16
298.4 -44.0 hd 19.8 su
313.7 -47.0 hd 21.2 su
329.7 -35.0 r4
351.5 -56.0 hd 21.2 su -53.0 hl
374.2 -56.0 hd -9.0 ft 21.2 su -53.0 hl
24.0 390.1 -47.0 bar
402.2 -59.0 hd 31.9 su -53.0 hl -59.0 hl
419.4 -41.0 hd 19.2 su
436.6 -41.0 hd 2 21.0 sfu
460.2 -41.0 hd 13.0 3 dt -9.0 nt 1 20.0 sfu
487.6 -38.0 hd 13.0 0 dt 1 20.0 sfu
516.9 -35.0 hd 13.0 3 dt -9.0 ft 1 20.0 sfu
548.9 -35.0 hd -9.0 nt 1 20.0 sfu
24.0 567.8 -47.0 bar
583.2 -32.0 Hd 9.0 0 dt 20.0 sd
623.6 -35.0 r4
24.0 643.0 -47.0 bar
659.6 -38.0 HD
24.0 699.3 -47.0 fbar2
183.3 -26.9 171.8 -26.9 168.3 -30.3 0 0.2 171.2 -27.9 183.9 -27.9 186.7 -30.5 168.3 -30.5 SL
431.1 -48.8 425.0 -48.8 423.1 -45.5 0 -0.2 424.7 -47.8 431.4 -47.8 432.9 -45.3 423.1 -45.3 SL
659.6 -21.00 dnb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1836 6215 a Fc(7)p eop end
%%Page: 8 8
TeXDict begin 8 7 bop 1513 -307 a Fd(Sanctus)-387 706
y @beginspecial 0 @llx 0 @lly 516 @urx 115 @ury 5160
@rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 115
%%Title: jazzmesse-vc-sanctus001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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 115.5 T
0.75 dup scale
37.8 0 T
% --- 1 ((notitle)) ---
0 -25.34 T
3.2 35.6 8.0 81.2 -53.4 bm
3.2 35.4 8.0 176.1 -53.4 bm
-3.2 35.4 8.2 263.7 -105.8 bm
3.2 58.0 -7.0 363.9 -48.4 bm
106.5 -84.0 88.5 -98.8 83.1 -93.6 0 -0.2 87.7 -97.8 107.4 -83.0 111.9 -71.8 83.1 -93.4 SL
145.0 -52.5 133.5 -51.1 130.0 -55.4 0 0.2 132.9 -52.1 145.5 -53.5 148.4 -57.7 130.0 -55.6 SL
201.2 -84.0 183.3 -98.8 178.0 -93.6 0 -0.2 182.5 -97.8 202.0 -83.0 206.5 -71.8 178.0 -93.4 SL
240.1 -52.5 229.0 -51.1 225.7 -55.4 0 0.2 228.5 -52.1 240.7 -53.5 243.5 -57.7 225.7 -55.6 SL
291.8 -50.2 274.0 -67.1 268.6 -80.6 0 0.2 273.1 -68.1 292.7 -51.2 297.2 -56.2 268.6 -80.8 SL
333.3 -46.5 321.5 -45.0 318.0 -49.4 0 0.2 321.0 -46.0 333.9 -47.5 336.9 -51.7 318.0 -49.6 SL
403.0 -96.0 371.7 -86.6 362.7 -75.7 0 -0.2 370.2 -85.6 404.5 -95.0 412.0 -89.1 362.7 -75.5 SL
469.9 -91.5 462.2 -93.0 459.8 -88.7 0 -0.2 461.8 -92.0 470.2 -90.5 472.2 -86.4 459.8 -88.5 SL
545.1 -91.8 538.3 -94.7 536.3 -90.8 0 -0.2 538.0 -93.7 545.4 -90.8 547.1 -86.4 536.3 -90.6 SL
14.0 F3 69.7 -38.4 M (Solo) gcshow
573.5 -38.4 M (Tutti) gcshow
14.0 F1 446.7 -54.6 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 -85.61 M 661.50 staff
12.0 -85.6 bclef
30.0 -79.6 ft0
51.0 -85.6 csig
77.7 -88.6 hd 35.2 su
89.1 -76.6 hd 25.8 su
101.7 -67.6 hd 19.6 su
113.3 -64.6 hd 19.2 su
127.7 -61.6 hd 8.0 3 dt 20.0 sd
149.3 -64.6 hd 1 20.0 sfd
24.0 161.2 -85.6 bar
172.6 -88.6 hd 35.2 su
184.3 -76.6 hd 25.9 su
196.7 -67.6 hd 19.7 su
207.9 -64.6 hd 19.2 su
223.3 -61.6 hd 8.0 3 dt 20.0 sd
244.3 -64.6 hd 1 20.0 sfd
24.0 256.1 -85.6 bar
267.2 -88.6 hd 17.2 sd
279.4 -76.6 hd 26.4 sd
290.8 -67.6 hd 32.8 sd
302.6 -61.6 hd 36.0 sd
315.6 -55.6 hd 8.0 3 dt 20.0 sd -55.6 hl
337.8 -58.6 hd 1 20.0 sfd
24.0 348.9 -85.6 bar
360.4 -67.6 hd 19.2 su
380.2 -73.6 hd -9.0 ft 22.8 su
398.5 -79.6 hd -9.0 ft 26.6 su
418.3 -82.6 hd -9.0 ft 27.2 su
430.7 -85.6 Hd 20.0 su
24.0 446.7 -85.6 bar
457.7 -82.6 hd 20.0 su
472.8 -79.6 hd 20.0 su
488.2 -76.6 Hd 20.0 su
24.0 503.4 -85.6 bar
516.1 -88.6 Hd 20.0 su
532.7 -85.6 hd 20.0 su
547.7 -79.6 hd 20.0 su
24.0 560.7 -85.6 bar
581.5 -67.6 Hd 20.0 sd
600.2 -70.6 Hd 20.0 sd
24.0 615.4 -85.6 bar
627.3 -73.6 Hd 20.0 sd
646.2 -76.6 Hd 20.0 su
24.0 661.5 -85.6 bar
(mf) 77.7 -128.61 pf
77.7 -51.40 dnb
-62.6 333.8 -128.61 cresc
23.7 520.1 -128.61 cresc
(p) 581.5 -128.61 pf
581.5 -59.61 dnb
0 -128.61 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 818 x @beginspecial 0 @llx 0 @lly 544 @urx
99 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 99
%%Title: jazzmesse-vc-sanctus002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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 99.0 T
0.75 dup scale
% --- 2 ((notitle)) ---
0 -25.34 T
3.2 12.5 4.1 166.6 -43.9 bm
3.2 20.3 5.5 211.0 -39.3 bm
-3.2 12.0 4.0 264.9 -81.2 bm
-3.2 12.1 4.0 313.9 -78.2 bm
-3.2 13.2 3.1 372.3 -75.2 bm
-3.2 43.7 0.0 422.3 -65.0 bm
-3.2 45.9 4.4 489.7 -74.1 bm
3.2 38.4 8.3 613.4 -36.1 bm
187.5 -37.9 175.7 -28.5 172.1 -32.1 0 0.2 175.1 -29.5 188.0 -38.9 191.0 -46.0 172.1 -32.3 SL
236.4 -31.0 220.4 -28.3 215.6 -33.3 0 0.2 219.7 -29.3 237.2 -32.0 241.2 -37.5 215.6 -33.5 SL
285.6 -34.3 273.2 -45.0 269.5 -53.8 0 0.2 272.6 -46.0 286.2 -35.3 289.3 -38.4 269.5 -54.0 SL
339.8 -28.0 323.6 -38.6 318.7 -47.5 0 0.2 322.8 -39.6 340.6 -29.0 344.7 -32.1 318.7 -47.7 SL
393.6 -36.0 380.7 -42.6 376.8 -48.8 0 0.2 380.1 -43.6 394.3 -37.0 397.5 -39.4 376.8 -49.0 SL
461.0 -30.1 438.3 -24.9 431.5 -31.8 0 0.2 437.2 -25.9 462.1 -31.1 467.8 -39.6 431.5 -32.0 SL
526.1 -28.6 502.2 -33.1 495.0 -42.4 0 0.2 501.0 -34.1 527.3 -29.6 533.3 -36.0 495.0 -42.6 SL
640.9 -66.5 621.3 -81.2 615.4 -76.1 0 -0.2 620.3 -80.2 641.8 -65.5 646.7 -54.3 615.4 -75.9 SL
682.7 -34.8 670.1 -33.4 666.4 -37.7 0 0.2 669.5 -34.4 683.3 -35.8 686.4 -40.0 666.4 -37.9 SL
14.0 F3 155.1 -17.4 M (Solo) gcshow
14.0 F1 93.5 -37.0 M (10) showb 589.5 -30.1 M (15) showb
0 -68.01 M 699.30 staff
12.0 -68.0 bclef
30.0 -62.0 ft0
49.5 -62.0 Hd 20.0 su
75.8 -65.0 Hd -9.0 nt 20.0 su
24.0 93.5 -68.0 bar
106.7 -56.0 Hd 20.0 sd
126.9 -68.0 Hd 20.0 su
24.0 144.0 -68.0 bar
163.1 -71.0 hd -9.0 sh 27.1 su
175.6 -59.0 hd 19.2 su
192.0 -53.0 hd 20.0 sd
207.5 -65.0 hd 25.7 su
227.8 -53.0 hd -9.0 ft 19.2 su
242.5 -47.0 hd 20.0 sd
24.0 256.8 -68.0 bar
268.4 -62.0 hd 19.2 sd
280.4 -50.0 hd 27.2 sd
294.4 -44.0 hd 20.0 sd
317.4 -59.0 hd -9.0 sh 19.2 sd
329.5 -47.0 hd 27.2 sd
350.0 -41.0 hd -9.0 ft 20.0 sd
24.0 364.5 -68.0 bar
375.8 -56.0 hd 19.2 sd
388.9 -50.0 hd 22.1 sd
402.6 -44.0 hd 20.0 sd
425.8 -41.0 hd -9.0 nt 23.9 sd
444.5 -41.0 hd -9.0 ft 23.9 sd
457.7 -44.0 hd 20.9 sd
469.5 -47.0 hd 17.9 sd
24.0 482.3 -68.0 bar
493.2 -50.0 hd 24.1 sd
513.4 -53.0 hd -9.0 ft 19.2 sd
526.3 -47.0 hd 24.0 sd
539.1 -41.0 hd 28.7 sd
558.6 -32.0 hd -9.0 ft 24.0 sd -38.0 hl -32.0 hl
575.3 -56.0 r4
24.0 589.5 -68.0 bar
609.9 -71.0 hd 34.9 su
622.9 -59.0 hd 25.7 su
634.9 -50.0 hd 19.3 su
648.3 -47.0 hd 19.2 su
663.9 -44.0 hd 8.0 3 dt 20.0 sd
687.4 -47.0 hd 1 20.0 sfd
24.0 699.3 -68.0 bar
163.1 -41.91 dnb
-138.5 384.9 -106.60 cresc
82.5 517.4 -106.60 cresc
609.9 -34.11 dnb
(mf) 609.9 -106.60 pf
0 -106.60 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 742 x @beginspecial 0 @llx 0 @lly 544 @urx
90 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 90
%%Title: jazzmesse-vc-sanctus003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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 89.8 T
0.75 dup scale
% --- 3 ((notitle)) ---
0 -25.34 T
3.2 36.1 -5.8 52.2 -27.2 bm
-3.2 35.3 8.1 179.9 -84.6 bm
-3.2 12.0 4.0 276.5 -71.6 bm
-3.2 12.1 4.3 316.5 -74.6 bm
-3.2 12.5 4.1 365.3 -77.6 bm
3.2 12.6 4.1 411.3 -40.3 bm
3.2 11.2 3.8 463.2 -37.0 bm
3.2 12.4 4.1 504.2 -34.3 bm
73.9 -72.4 55.6 -63.8 50.1 -54.0 0 -0.2 54.7 -62.8 74.8 -71.4 79.4 -66.4 50.1 -53.8 SL
137.6 -70.3 129.6 -71.7 127.2 -67.5 0 -0.2 129.2 -70.7 138.0 -69.3 140.0 -65.2 127.2 -67.3 SL
207.9 -28.7 190.1 -45.6 184.8 -59.1 0 0.2 189.3 -46.6 208.8 -29.7 213.2 -34.7 184.8 -59.3 SL
298.9 -20.3 285.1 -21.3 281.0 -26.2 0 0.2 284.5 -22.3 299.6 -21.3 303.0 -25.0 281.0 -26.4 SL
336.5 -23.8 324.6 -36.5 321.0 -46.9 0 0.2 324.0 -37.5 337.1 -24.8 340.1 -28.5 321.0 -47.1 SL
384.7 -28.0 373.2 -40.8 369.7 -51.2 0 0.2 372.6 -41.8 385.2 -29.0 388.1 -32.8 369.7 -51.4 SL
429.5 -29.1 416.6 -30.0 412.7 -34.9 0 0.2 416.0 -31.0 430.1 -30.1 433.4 -33.7 412.7 -35.1 SL
481.8 -30.0 470.3 -27.9 466.8 -32.0 0 0.2 469.7 -28.9 482.4 -31.0 485.3 -35.3 466.8 -32.2 SL
522.8 -26.9 511.2 -24.9 507.7 -29.1 0 0.2 510.6 -25.9 523.3 -27.9 526.3 -32.2 507.7 -29.3 SL
562.8 -39.1 555.3 -40.5 553.1 -45.4 0 0.2 555.0 -41.5 563.2 -40.1 565.1 -43.5 553.1 -45.6 SL
603.9 -26.0 588.2 -27.9 583.5 -33.1 0 0.2 587.5 -28.9 604.7 -27.0 608.6 -30.5 583.5 -33.3 SL
675.3 -23.3 645.5 -26.2 636.7 -35.6 0 0.2 644.0 -27.2 676.8 -24.3 684.1 -31.6 636.7 -35.8 SL
14.0 F3 272.0 -17.4 M (Tutti) gcshow
14.0 F1 357.7 -33.4 M (20) showb
0 -64.39 M 699.30 staff
12.0 -64.4 bclef
30.0 -58.4 ft0
48.7 -46.4 hd 19.2 su
60.2 -52.4 hd 23.3 su
73.1 -55.4 hd 24.3 su
84.8 -61.4 hd 28.4 su
97.9 -64.4 Hd 20.0 su
24.0 114.0 -64.4 bar
125.0 -61.4 hd 20.0 su
140.7 -58.4 hd 20.0 su
156.0 -55.4 Hd 20.0 su
24.0 171.7 -64.4 bar
183.4 -67.4 hd 17.2 sd
194.8 -55.4 hd 26.6 sd
207.3 -46.4 hd 32.7 sd
218.7 -40.4 hd 36.1 sd
231.8 -34.4 hd 20.0 sd -34.4 hl
247.0 -52.4 r4
24.0 259.8 -64.4 bar
280.0 -52.4 hd 19.2 sd
292.0 -40.4 hd 27.2 sd
305.0 -31.4 hd 21.0 sd -34.4 hl
320.0 -55.4 hd 19.2 sd
332.1 -40.4 hd 29.9 sd
345.1 -34.4 hd 20.0 sd -34.4 hl
24.0 357.7 -64.4 bar
368.8 -58.4 hd 19.2 sd
381.3 -46.4 hd 27.1 sd
393.1 -37.4 hd 20.0 sd
407.8 -67.4 hd 27.1 su
420.3 -55.4 hd 19.2 su
435.3 -40.4 hd 20.0 sd
24.0 448.2 -64.4 bar
459.7 -64.4 hd 27.4 su
471.0 -52.4 hd 19.2 su
486.2 -43.4 hd 20.0 sd
500.7 -61.4 hd 27.1 su
513.1 -49.4 hd 19.2 su
527.2 -40.4 hd 20.0 sd
24.0 540.8 -64.4 bar
552.5 -52.4 hd 20.0 sd
567.2 -49.4 hd 20.0 sd
582.4 -40.4 hd 8.0 3 dt 20.0 sd
611.8 -40.4 hd -9.0 ft 1 20.0 sfd
24.0 622.9 -64.4 bar
634.6 -43.4 hd 20.0 sd
649.1 -46.4 hd 20.0 sd
663.9 -49.4 hd 20.0 sd
686.2 -55.4 hd -9.0 sh 20.0 su
24.0 699.3 -64.4 bar
(mf) 280.0 -94.39 pf
280.0 -38.39 dnb
0 -94.39 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 892 x @beginspecial 0 @llx 0 @lly 544 @urx
108 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 108
%%Title: jazzmesse-vc-sanctus004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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 107.5 T
0.75 dup scale
% --- 4 ((notitle)) ---
0 -25.34 T
3.2 37.8 8.2 350.4 -35.4 bm
-3.2 37.8 8.4 444.4 -87.6 bm
3.2 58.9 -7.0 550.4 -30.2 bm
-3.2 39.4 8.0 243.7 -87.6 bm
79.8 -29.6 58.2 -36.2 51.7 -44.8 0 0.2 57.1 -37.2 80.9 -30.6 86.3 -35.4 51.7 -45.0 SL
145.5 -76.1 131.0 -74.7 126.6 -69.6 0 -0.2 130.3 -73.7 146.2 -75.1 149.8 -71.5 126.6 -69.4 SL
203.6 -80.0 188.4 -79.5 183.9 -74.6 0 -0.2 187.7 -78.5 204.3 -79.0 208.2 -75.1 183.9 -74.4 SL
377.4 -65.8 358.2 -80.6 352.4 -75.5 0 -0.2 357.3 -79.6 378.3 -64.8 383.2 -53.7 352.4 -75.3 SL
418.7 -34.2 406.4 -32.8 402.7 -37.1 0 0.2 405.8 -33.8 419.3 -35.2 422.4 -39.4 402.7 -37.3 SL
474.4 -31.8 455.2 -48.7 449.4 -62.2 0 0.2 454.3 -49.7 475.3 -32.8 480.2 -37.8 449.4 -62.4 SL
517.7 -28.2 505.4 -26.8 501.8 -31.1 0 0.2 504.9 -27.8 518.3 -29.2 521.4 -33.4 501.8 -31.3 SL
590.3 -77.8 558.5 -68.4 549.3 -57.4 0 -0.2 556.9 -67.4 591.8 -76.8 599.4 -70.8 549.3 -57.2 SL
662.6 -73.3 654.5 -74.8 652.0 -70.5 0 -0.2 654.1 -73.8 663.0 -72.3 665.1 -68.2 652.0 -70.3 SL
275.8 -94.1 255.1 -98.5 248.9 -91.5 0 -0.2 254.1 -97.5 276.8 -93.1 282.0 -84.9 248.9 -91.3 SL
314.0 -75.0 301.1 -73.6 297.2 -68.6 0 -0.2 300.5 -72.6 314.6 -74.0 317.8 -70.5 297.2 -68.4 SL
14.0 F3 239.2 -17.4 M (Solo) gcshow
14.0 F1 106.0 -36.4 M (25) showb 534.4 -27.4 M (30) showb
0 -67.40 M 699.30 staff
12.0 -67.4 bclef
30.0 -61.4 ft0
50.0 -55.4 hd 20.0 sd
65.8 -58.4 hd 20.0 su
89.0 -61.4 Hd -9.0 nt 20.0 su
24.0 106.0 -67.4 bar
125.5 -61.4 Hd -9.0 ft 20.0 su
152.4 -64.4 Hd -9.0 ft 20.0 su
24.0 169.4 -67.4 bar
182.8 -67.4 Hd 20.0 su
209.7 -67.4 Hd -9.0 ft 20.0 su
24.0 226.7 -67.4 bar
247.2 -70.4 hd 20.0 su
274.0 -31.4 r4
300.3 -37.4 r2 -37.4 hl
24.0 334.4 -67.4 bar
346.9 -70.4 hd 35.0 su
359.5 -58.4 hd 25.7 su
372.1 -49.4 hd 19.5 su
384.7 -46.4 hd 19.2 su
400.3 -43.4 hd 8.0 3 dt 20.0 sd
423.3 -46.4 hd 1 20.0 sfd
24.0 435.4 -67.4 bar
447.9 -70.4 hd 17.2 sd
460.5 -58.4 hd 26.4 sd
473.1 -49.4 hd 32.6 sd
485.7 -43.4 hd 35.8 sd
499.3 -37.4 hd 8.0 3 dt 20.0 sd -37.4 hl
522.3 -40.4 hd 1 20.0 sfd
24.0 534.4 -67.4 bar
546.9 -49.4 hd 19.2 su
566.5 -55.4 hd -9.0 ft 22.9 su
586.2 -61.4 hd -9.0 ft 26.5 su
605.8 -64.4 hd -9.0 ft 27.2 su
620.0 -67.4 Hd 20.0 su
24.0 637.0 -67.4 bar
649.9 -64.4 hd 20.0 su
665.7 -61.4 hd 20.0 su
682.3 -58.4 Hd 20.0 su
24.0 699.3 -67.4 bar
/x 247.2 def /y -70.4 def 17.2 sd
261.4 -58.4 hd 26.3 sd
274.0 -49.4 hd 32.7 sd
286.6 -46.4 hd 33.2 sd
300.3 -43.4 hd 8.0 3 dt 20.0 sd
323.3 -46.4 hd 1 20.0 sfd
20.0 186.8 -118.01 cresc
(mf) 247.2 -118.01 pf
247.2 -41.40 dnb
-66.4 518.3 -118.01 cresc
0 -118.01 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 701 x @beginspecial 0 @llx 0 @lly 544 @urx
85 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 85
%%Title: jazzmesse-vc-sanctus005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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.6 T
0.75 dup scale
% --- 5 ((notitle)) ---
0 -25.34 T
3.2 13.1 4.2 364.3 -27.4 bm
3.2 19.3 5.3 412.4 -22.6 bm
-3.2 14.0 4.4 468.9 -64.6 bm
-3.2 13.6 4.3 520.3 -61.6 bm
-3.2 14.6 3.3 582.4 -58.6 bm
-3.2 47.1 0.0 635.5 -48.4 bm
86.2 -57.7 77.7 -60.6 75.2 -56.7 0 -0.2 77.3 -59.6 86.6 -56.7 88.7 -52.3 75.2 -56.5 SL
386.3 -21.3 373.7 -12.0 369.9 -15.6 0 0.2 373.1 -13.0 386.9 -22.3 390.0 -29.4 369.9 -15.8 SL
438.6 -14.7 422.1 -11.9 417.1 -16.7 0 0.2 421.3 -12.9 439.4 -15.7 443.5 -21.0 417.1 -16.9 SL
491.9 -17.7 477.8 -28.4 473.5 -37.3 0 0.2 477.1 -29.4 492.5 -18.7 496.1 -21.9 473.5 -37.5 SL
548.4 -11.4 530.5 -22.1 525.2 -30.9 0 0.2 529.7 -23.1 549.2 -12.4 553.7 -15.5 525.2 -31.1 SL
14.0 F3 118.2 -17.4 M (Tutti) gcshow
14.0 F1 224.1 -20.4 M (35) showb
0 -51.40 M 699.30 staff
12.0 -51.4 bclef
30.0 -45.4 ft0
49.4 -54.4 Hd 20.0 su
71.5 -51.4 hd 20.0 su
89.4 -45.4 hd 20.0 su
24.0 104.9 -51.4 bar
126.2 -33.4 Hd 20.0 sd
149.4 -36.4 Hd 20.0 sd
24.0 168.5 -51.4 bar
181.5 -39.4 Hd 20.0 sd
205.1 -42.4 Hd 20.0 su
24.0 224.1 -51.4 bar
237.1 -45.4 Hd 20.0 su
267.5 -48.4 Hd -9.0 nt 20.0 su
24.0 285.9 -51.4 bar
298.9 -39.4 Hd 20.0 sd
321.3 -51.4 Hd 20.0 su
24.0 341.4 -51.4 bar
360.8 -54.4 hd -9.0 sh 27.0 su
373.9 -42.4 hd 19.2 su
391.1 -36.4 hd 20.0 sd
408.9 -48.4 hd 25.9 su
428.2 -36.4 hd -9.0 ft 19.2 su
444.8 -30.4 hd 20.0 sd
24.0 460.6 -51.4 bar
472.4 -45.4 hd 19.2 sd
486.4 -33.4 hd 26.8 sd
501.2 -27.4 hd 20.0 sd
523.8 -42.4 hd -9.0 sh 19.2 sd
537.4 -30.4 hd 26.9 sd
559.1 -24.4 hd -9.0 ft 20.0 sd
24.0 574.8 -51.4 bar
585.9 -39.4 hd 19.2 sd
600.6 -33.4 hd 21.9 sd
615.4 -27.4 hd 20.0 sd
639.0 -24.4 hd -9.0 nt 23.9 sd
658.9 -24.4 hd -9.0 ft 23.9 sd
672.2 -27.4 hd 20.9 sd
686.2 -30.4 hd 17.9 sd
24.0 699.3 -51.4 bar
32.0 53.4 -87.40 cresc
(p) 126.2 -87.40 pf
360.8 -25.40 dnb
-147.8 596.6 -87.40 cresc
0 -87.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 817 x @beginspecial 0 @llx 0 @lly 544 @urx
99 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 99
%%Title: jazzmesse-vc-sanctus006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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 99.3 T
0.75 dup scale
% --- 6 ((notitle)) ---
0 -25.34 T
-3.2 45.9 4.4 46.5 -62.5 bm
3.2 39.1 8.4 274.6 -24.6 bm
-3.2 39.1 8.5 436.7 -76.6 bm
-3.2 39.1 8.5 533.6 -76.6 bm
-3.2 40.6 8.1 165.0 -76.6 bm
302.6 -54.9 282.7 -69.7 276.7 -64.5 0 -0.2 281.7 -68.7 303.6 -53.9 308.6 -42.7 276.7 -64.3 SL
345.3 -23.2 332.6 -21.8 328.8 -26.1 0 0.2 332.0 -22.8 346.0 -24.2 349.2 -28.4 328.8 -26.3 SL
389.0 -62.4 380.4 -63.8 377.8 -59.5 0 -0.2 380.0 -62.8 389.4 -61.4 391.6 -57.2 377.8 -59.3 SL
467.7 -20.8 447.8 -37.6 441.8 -51.2 0 0.2 446.8 -38.6 468.7 -21.8 473.7 -26.8 441.8 -51.4 SL
564.7 -20.8 544.7 -37.6 538.7 -51.2 0 0.2 543.7 -38.6 565.6 -21.8 570.7 -26.8 538.7 -51.4 SL
198.0 -83.1 176.6 -87.6 170.1 -80.5 0 -0.2 175.5 -86.6 199.0 -82.1 204.4 -73.8 170.1 -80.3 SL
237.6 -64.1 224.3 -62.6 220.3 -57.6 0 -0.2 223.7 -61.6 238.3 -63.1 241.6 -59.5 220.3 -57.4 SL
14.0 F3 160.5 -17.4 M (Solo) gcshow
14.0 F1 37.5 -26.4 M (40) showb 524.6 -25.4 M (45) showb
0 -56.40 M 699.30 staff
12.0 -56.4 bclef
30.0 -50.4 ft0
50.0 -38.4 hd 24.1 sd
69.8 -41.4 hd -9.0 ft 19.2 sd
82.9 -35.4 hd 23.9 sd
95.9 -29.4 hd 28.7 sd
116.7 -20.4 hd -9.0 ft 24.0 sd -26.4 hl -20.4 hl
133.4 -44.4 r4
24.0 148.0 -56.4 bar
168.5 -59.4 hd 20.0 su
196.0 -20.4 r4
223.3 -26.4 r2 -26.4 hl
24.0 258.6 -56.4 bar
271.1 -59.4 hd 34.8 su
284.1 -47.4 hd 25.6 su
297.1 -38.4 hd 19.4 su
310.2 -35.4 hd 19.2 su
326.3 -32.4 hd 8.0 3 dt 20.0 sd
350.1 -35.4 hd 1 20.0 sfd
24.0 362.7 -56.4 bar
375.6 -53.4 hd 20.0 su
392.3 -50.4 hd 20.0 su
409.7 -47.4 Hd 20.0 su
24.0 427.7 -56.4 bar
440.2 -59.4 hd 17.2 sd
453.2 -47.4 hd 26.4 sd
466.2 -38.4 hd 32.5 sd
479.3 -32.4 hd 35.7 sd
493.3 -26.4 hd 20.0 sd -26.4 hl
510.0 -44.4 r4
24.0 524.6 -56.4 bar
537.1 -59.4 hd 17.2 sd
550.2 -47.4 hd 26.4 sd
563.2 -38.4 hd 32.5 sd
576.2 -32.4 hd 35.7 sd
590.2 -26.4 hd 20.0 sd -26.4 hl
606.9 -44.4 r4
24.0 621.5 -56.4 bar
636.0 -59.4 HD
24.0 658.9 -56.4 bar
673.3 -44.4 r1
24.0 699.3 -56.4 dbar
/x 168.5 def /y -59.4 def 17.2 sd
183.0 -47.4 hd 26.3 sd
196.0 -38.4 hd 32.7 sd
209.1 -35.4 hd 33.1 sd
223.3 -32.4 hd 8.0 3 dt 20.0 sd
247.1 -35.4 hd 1 20.0 sfd
(mf) 168.5 -107.10 pf
84.6 73.8 -107.10 cresc
168.5 -30.40 dnb
673.3 -30.40 hld
0 -107.10 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 843 x @beginspecial 0 @llx 0 @lly 544 @urx
102 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 102
%%Title: jazzmesse-vc-sanctus007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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
% --- 7 ((notitle)) ---
0 -25.34 T
14.0 F3 128.0 -79.4 M (\(Osanna\)) gcshow 128.0 -94.8 M (\(senza sordino\)) gcshow
14.0 F1 181.5 -31.0 M (50) showb 469.9 -31.0 M (55) showb
15.0 F2 70.6 -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 bclef
30.0 -56.0 ft0
24.0 61.2 -62.0 fbar1 71.2 -62.0 rdots
(5) (8) 82.6 -62.0 tsig
(2) 136.0 -62.0 mrest
24.0 181.5 -62.0 bar
196.9 -50.0 r1
24.0 224.1 -62.0 bar
236.7 -50.0 r4 8.0 3 dt
270.3 -41.0 hd 20.0 sd
24.0 287.0 -62.0 bar
299.4 -44.0 hd 20.0 sd
318.4 -41.0 hd 1 20.0 sfd
333.9 -47.0 hd 20.0 sd
24.0 350.7 -62.0 bar
362.6 -47.0 hd 1 20.0 sfd
378.1 -50.0 hd 20.0 sd
398.4 -50.0 hd 20.0 sd
24.0 414.3 -62.0 bar
426.6 -53.0 hd 20.0 su
445.4 -53.0 hd 8.0 0 dt 20.0 su
24.0 469.9 -62.0 bar
482.5 -53.0 hd 8.0 0 dt 20.0 su
508.5 -53.0 hd 20.0 su
24.0 550.1 -62.0 bar
(2) 597.6 -62.0 mrest
24.0 643.1 -62.0 bar
655.8 -50.0 r4 8.0 3 dt
683.0 -32.0 hd 20.0 sd -32.0 hl
24.0 699.3 -62.0 bar
472.8 -61.5 455.2 -61.5 449.9 -57.9 0 -0.2 454.3 -60.5 473.6 -60.5 478.1 -57.7 449.9 -57.7 SL
501.1 -61.1 489.9 -61.1 486.6 -57.7 0 -0.2 489.4 -60.1 501.7 -60.1 504.5 -57.5 486.6 -57.5 SL
(f) 270.3 -84.00 pf
270.3 -36.00 upb
398.4 -36.00 dnb
533.1 -35.00 brth
683.0 -28.00 dnb
0 -110.20 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 642 x @beginspecial 0 @llx 0 @lly 544 @urx
78 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 78
%%Title: jazzmesse-vc-sanctus008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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.8 T
0.75 dup scale
% --- 8 ((notitle)) ---
0 -25.34 T
14.0 F3 604.6 -17.4 M (1.Vl.:) gcshow
14.0 F1 104.6 -24.4 M (60) showb 350.6 -24.4 M (65) showb
0 -55.40 M 699.30 staff
12.0 -55.4 bclef
30.0 -49.4 ft0
50.0 -28.4 hd 20.0 sd
70.2 -28.4 hd 1 20.0 sfd
86.9 -31.4 hd 20.0 sd
24.0 104.6 -55.4 bar
117.5 -43.4 hd 1 20.0 sfd
134.1 -46.4 hd 20.0 su
154.8 -46.4 hd 20.0 su
24.0 172.5 -55.4 bar
186.0 -37.4 hd 20.0 sd
207.0 -37.4 hd 8.0 3 dt 20.0 sd
24.0 234.7 -55.4 dbar
(3) (4) 250.0 -55.4 tsig
(3) 304.0 -55.4 mrest
24.0 350.6 -55.4 bar
(2) (4) 363.8 -55.4 tsig
382.6 -43.4 r1
24.0 412.1 -55.4 bar
(3) (4) 425.4 -55.4 tsig
444.1 -43.4 r1
24.0 473.7 -55.4 bar
(7) (8) 486.9 -55.4 tsig
505.6 -43.4 r1
24.0 535.2 -55.4 bar
(3) (4) 548.4 -55.4 tsig
567.2 -43.4 r1
24.0 596.7 -55.4 bar
630.4 -55.4 stclef
646.4 -43.4 shd 8.0 3 dt 20.0 su
674.7 -49.4 shd 8.0 3 dt 20.0 su
24.0 699.3 -55.4 bar
646.4 -61.4 r1
0 -78.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1765 6215 a Fc(8)p eop end
%%Page: 9 9
TeXDict begin 9 8 bop -317 319 a @beginspecial 0 @llx
0 @lly 544 @urx 87 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 87
%%Title: jazzmesse-vc-sanctus009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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
% --- 9 ((notitle)) ---
0 -25.34 T
3.2 27.9 3.9 63.8 -12.1 bm
3.2 34.2 0.0 440.5 -27.2 bm
14.0 F3 163.0 -17.4 M (Vc.) gcshow
14.0 F1 37.7 -21.4 M (70) showb 484.6 -20.4 M (75) showb
0 -51.40 M 699.30 staff
12.0 -51.4 tclef
30.0 -39.4 ft0
60.3 -36.4 shd 24.3 su
74.3 -33.4 shd 23.3 su
88.2 -27.4 shd 19.2 su
103.4 -27.4 shd 20.0 su
121.4 -33.4 shd 1 20.0 sfu
143.4 -51.4 sbclef
24.0 157.5 -51.4 bar
171.0 -63.4 hd 8.0 3 dt 24.0 su -57.4 hl -63.4 hl
203.3 -63.4 hd 8.0 3 dt -9.0 sh 24.0 su -57.4 hl -63.4 hl
24.0 226.2 -51.4 bar
239.4 -60.4 hd 21.0 su -57.4 hl
263.7 -60.4 hd -9.0 sh 1 21.0 sfu -57.4 hl
282.9 -57.4 hd 8.0 3 dt 20.0 su -57.4 hl
24.0 305.9 -51.4 bar
319.4 -54.4 hd 8.0 0 dt 20.0 su
351.5 -54.4 hd -9.0 sh 20.0 su
369.8 -51.4 hd 20.0 su
24.0 385.8 -51.4 bar
405.3 -48.4 hd 8.0 0 dt -9.0 ft 20.0 su
437.0 -48.4 hd -9.0 nt 21.2 su
450.9 -45.4 hd 18.2 su
471.2 -45.4 hd -9.0 nt 18.2 su
24.0 484.6 -51.4 bar
505.1 -63.4 hd 8.0 3 dt 24.0 su -57.4 hl -63.4 hl
531.0 -42.4 hd 8.0 0 dt 20.0 su
24.0 553.9 -51.4 bar
(2) (4) 567.1 -51.4 tsig
585.1 -63.4 hd 24.0 su -57.4 hl -63.4 hl
603.3 -42.4 hd 20.0 su
24.0 619.3 -51.4 bar
(3) (4) 632.5 -51.4 tsig
650.5 -63.4 hd 8.0 3 dt 24.0 su -57.4 hl -63.4 hl
676.4 -42.4 hd 8.0 0 dt 20.0 su
24.0 699.3 -51.4 bar
60.3 -51.4 r1
-271.9 446.9 -90.40 cresc
(ff) 505.1 -90.40 pf
0 -90.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1369 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-sanctus010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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
% --- 10 ((notitle)) ---
0 -25.34 T
3.2 27.8 2.5 409.8 -34.3 bm
-3.2 28.4 4.8 446.0 -58.2 bm
14.0 F1 162.2 -17.0 M (80) showb 570.6 -17.0 M (85) showb
0 -48.00 M 699.30 staff
12.0 -48.0 bclef
30.0 -42.0 ft0
47.8 -60.0 hd 24.0 su -54.0 hl -60.0 hl
66.8 -39.0 hd 20.0 su
85.6 -60.0 hd 24.0 su -54.0 hl -60.0 hl
24.0 100.9 -48.0 bar
113.4 -60.0 hd 8.0 3 dt 24.0 su -54.0 hl -60.0 hl
140.0 -39.0 hd 8.0 0 dt 20.0 su
24.0 162.2 -48.0 bar
(2) (4) 175.3 -48.0 tsig
191.8 -60.0 hd 24.0 su -54.0 hl -60.0 hl
209.7 -39.0 hd 20.0 su
24.0 226.0 -48.0 bar
(3) (4) 239.2 -48.0 tsig
255.5 -60.0 hd 8.0 3 dt 24.0 su -54.0 hl -60.0 hl
282.1 -39.0 hd 8.0 0 dt 20.0 su
24.0 304.6 -48.0 bar
316.3 -60.0 hd 24.0 su -54.0 hl -60.0 hl
335.8 -39.0 hd 20.0 su
354.7 -6.0 hd 32.0 sd -18.0 hl -12.0 hl -6.0 hl 354.7 -18.0 hd
24.0 394.3 -48.0 bar
406.3 -60.0 hd 25.7 su -54.0 hl -60.0 hl
420.1 -57.0 hd 24.0 su -54.0 hl
434.1 -51.0 hd 19.2 su
449.5 -39.0 hd 19.2 sd
464.5 -30.0 hd 25.7 sd
477.9 -27.0 hd 26.4 sd
24.0 491.5 -48.0 bar
(5) (8) 504.6 -48.0 tsig
521.2 -18.0 hd 1 20.0 sfd -18.0 hl
536.8 -36.0 r4
555.2 -36.0 r4
24.0 570.6 -48.0 bar
(3) (8) 583.8 -48.0 tsig
601.1 -27.0 hd 32.0 sd 601.1 -39.0 hd
617.5 -36.0 r8
24.0 630.5 -48.0 bar
(3) (4) 643.7 -48.0 tsig
659.9 -36.0 r4
679.2 -39.0 Hd 20.0 su
24.0 699.3 -48.0 bar
377.6 -21.00 brth
0 -71.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1635 x @beginspecial 0 @llx 0 @lly 544 @urx
104 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus011.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 104
%%Title: jazzmesse-vc-sanctus011.abc (11)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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 103.9 T
0.75 dup scale
% --- 11 ((notitle)) ---
0 -25.34 T
14.0 F3 65.8 -38.4 M ( Fine) gcshow
151.9 -38.4 M (Tutti, pizz.) gcshow
223.1 -97.8 M (\(Benedictus\)) gcshow
14.0 F1 297.1 -49.4 M (90) showb 527.6 -49.4 M (95) showb
15.0 F2 120.9 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 96) show
0 -80.40 M 699.30 staff
12.0 -80.4 bclef
30.0 -74.4 ft0
48.0 -83.4 hd 8.0 0 dt 20.0 su
73.8 -62.4 hd 8.0 3 dt 20.0 sd
24.0 117.7 -80.4 dbar
(3) (4) 132.9 -80.4 tsig
159.9 -68.4 hd 20.0 sd
231.1 -68.4 r2
24.0 246.2 -80.4 bar
266.0 -71.4 hd -9.0 sh 20.0 su
281.7 -68.4 r2
24.0 297.1 -80.4 bar
308.1 -68.4 hd 20.0 sd
324.9 -68.4 r2
24.0 340.0 -80.4 bar
359.5 -71.4 hd -9.0 sh 20.0 su
374.8 -68.4 r2
24.0 390.9 -80.4 bar
402.2 -68.4 hd 20.0 sd
417.4 -68.4 r2
24.0 433.8 -80.4 bar
453.9 -71.4 hd -9.0 sh 20.0 su
468.2 -68.4 r2
24.0 484.7 -80.4 bar
496.5 -71.4 hd 20.0 su
512.6 -68.4 r2
24.0 527.6 -80.4 bar
539.3 -71.4 hd 20.0 su
555.0 -68.4 r2
24.0 570.6 -80.4 bar
582.2 -65.4 hd 20.0 sd
598.1 -68.4 r2
24.0 613.5 -80.4 bar
625.2 -56.4 hd 20.0 sd
640.9 -68.4 r2
24.0 656.4 -80.4 bar
668.0 -68.4 hd 20.0 sd
683.0 -68.4 r2
24.0 699.3 -80.4 bar
73.8 -54.40 hld
99.0 -53.40 brth
(mf) 159.9 -110.40 pf
0 -113.20 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1469 x @beginspecial 0 @llx 0 @lly 544 @urx
84 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus012.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 84
%%Title: jazzmesse-vc-sanctus012.abc (12)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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.4 T
0.75 dup scale
% --- 12 ((notitle)) ---
0 -25.34 T
647.9 -31.7 632.7 -25.1 628.1 -28.3 0 0.2 632.0 -26.1 648.6 -32.7 652.4 -38.1 628.1 -28.5 SL
14.0 F3 610.9 -17.4 M (Solo, arco) gcshow
14.0 F1 76.4 -33.3 M (100) showb 300.4 -33.3 M (105) showb 521.0 -33.3 M (110) showb
0 -64.25 M 699.30 staff
12.0 -64.3 bclef
30.0 -58.3 ft0
48.1 -43.3 hd 20.0 sd
63.0 -52.3 r2
24.0 76.4 -64.3 bar
87.9 -55.3 hd 20.0 su
102.2 -52.3 r2
24.0 115.6 -64.3 bar
127.1 -46.3 hd 20.0 sd
141.1 -52.3 r2
24.0 154.8 -64.3 bar
165.5 -49.3 hd 20.0 sd
179.1 -52.3 r8
190.4 -52.3 hd 20.0 sd
202.8 -52.3 r8
24.0 213.8 -64.3 bar
233.0 -55.3 hd -9.0 sh 20.0 su
246.7 -52.3 r2
24.0 261.2 -64.3 bar
272.8 -52.3 hd 20.0 sd
285.8 -52.3 r2
24.0 300.4 -64.3 bar
320.2 -55.3 hd -9.0 sh 20.0 su
334.5 -52.3 r2
24.0 347.8 -64.3 bar
359.2 -52.3 hd 20.0 sd
373.3 -52.3 r2
24.0 387.0 -64.3 bar
406.7 -55.3 hd -9.0 sh 20.0 su
420.8 -52.3 r2
24.0 434.4 -64.3 bar
445.8 -52.3 hd 20.0 sd
460.0 -52.3 r2
24.0 473.6 -64.3 bar
493.2 -55.3 hd -9.0 sh 20.0 su
506.6 -52.3 r2
24.0 521.0 -64.3 bar
532.4 -55.3 hd 20.0 su
546.8 -52.3 r2
24.0 560.2 -64.3 bar
571.2 -55.3 hd 20.0 su
585.8 -52.3 r2
24.0 599.4 -64.3 bar
618.9 -67.3 hd -9.0 sh 20.0 su
632.1 -55.3 hd 20.0 su
653.7 -49.3 hd -9.0 ft 20.0 sd
24.0 665.0 -64.3 bar
677.5 -40.3 Hd 9.0 3 dt 20.0 sd
24.0 699.3 -64.3 bar
618.9 -38.25 dnb
0 -87.25 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1369 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus013.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-sanctus013.abc (13)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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
% --- 13 ((notitle)) ---
0 -25.34 T
78.7 -13.8 59.8 -13.8 54.2 -18.6 0 0.2 58.9 -14.8 79.6 -14.8 84.3 -18.8 54.2 -18.8 SL
197.1 -11.0 181.1 -11.0 176.2 -15.7 0 0.2 180.3 -12.0 197.9 -12.0 201.9 -15.9 176.2 -15.9 SL
299.5 -8.0 283.6 -8.0 278.8 -12.7 0 0.2 282.8 -9.0 300.3 -9.0 304.3 -12.9 278.8 -12.9 SL
430.4 -21.5 415.5 -14.9 411.1 -18.1 0 0.2 414.8 -15.9 431.1 -22.5 434.8 -27.9 411.1 -18.3 SL
518.4 -6.5 483.6 -4.6 473.7 -9.3 0 0.2 481.9 -5.6 520.1 -7.5 528.3 -12.3 473.7 -9.5 SL
627.4 -62.1 582.5 -62.1 570.5 -52.2 0 -0.2 580.5 -61.1 629.5 -61.1 639.4 -52.0 570.5 -52.0 SL
14.0 F1 99.6 -16.0 M (115) showb 356.5 -16.0 M (120) showb 592.5 -16.0 M (125) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0
48.9 -44.0 hd 20.0 su
71.5 -32.0 hd -9.0 ft 20.0 sd
85.6 -26.0 hd 20.0 sd
24.0 99.6 -47.0 bar
135.0 -17.0 Hd 9.0 3 dt 20.0 sd -17.0 hl
24.0 159.2 -47.0 bar
171.1 -41.0 hd 20.0 su
188.3 -29.0 hd 20.0 sd
203.0 -23.0 hd 20.0 sd
24.0 216.7 -47.0 bar
229.2 -14.0 Hd 9.0 0 dt 21.0 sd -17.0 hl
24.0 253.9 -47.0 bar
273.6 -38.0 hd -9.0 sh 20.0 su
290.0 -26.0 hd 20.0 sd
305.5 -20.0 hd 20.0 sd
24.0 319.3 -47.0 bar
332.2 -11.0 Hd 9.0 3 dt 24.0 sd -17.0 hl -11.0 hl
24.0 356.5 -47.0 bar
368.9 -35.0 Hd 9.0 3 dt 20.0 sd
24.0 393.7 -47.0 bar
405.9 -23.0 hd 20.0 sd
420.9 -29.0 hd 20.0 sd
436.0 -35.0 hd 20.0 sd
24.0 449.2 -47.0 bar
469.2 -35.0 Hd 9.0 3 dt -9.0 ft 20.0 sd
24.0 493.2 -47.0 bar
505.6 -35.0 hd 8.0 3 dt 20.0 sd
527.8 -38.0 hd 8.0 0 dt 20.0 su
24.0 548.6 -47.0 bar
567.5 -41.0 Hd 9.0 3 dt -9.0 nt 20.0 su
24.0 592.5 -47.0 bar
603.8 -41.0 hd 20.0 su
626.4 -41.0 hd -9.0 ft 20.0 su
642.4 -44.0 hd 20.0 su
24.0 655.3 -47.0 bar
674.7 -44.0 Hd 9.0 0 dt -9.0 ft 20.0 su
24.0 699.3 -47.0 bar
496.0 -26.5 478.8 -26.5 473.7 -30.1 0 0.2 478.0 -27.5 496.8 -27.5 501.2 -30.3 473.7 -30.3 SL
594.2 -49.5 577.1 -49.5 572.0 -45.9 0 -0.2 576.3 -48.5 595.1 -48.5 599.4 -45.7 572.0 -45.7 SL
692.2 -52.0 681.8 -52.0 678.7 -48.7 0 -0.2 681.3 -51.0 692.7 -51.0 695.3 -48.5 678.7 -48.5 SL
469.2 -21.00 dnb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1836 6215 a Fc(9)p eop end
%%Page: 10 10
TeXDict begin 10 9 bop -387 811 a @beginspecial 0 @llx
0 @lly 544 @urx 146 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-sanctus014.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 146
%%Title: jazzmesse-vc-sanctus014.abc (14)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Oct 20 23:22 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 146.4 T
0.75 dup scale
% --- 14 ((notitle)) ---
0 -25.34 T
410.8 -40.7 394.7 -39.2 389.8 -43.7 0 0.2 393.9 -40.2 411.6 -41.7 415.7 -46.0 389.8 -43.9 SL
552.6 -81.1 546.0 -87.7 544.0 -84.7 0 -0.2 545.7 -86.7 553.0 -80.1 554.6 -74.9 544.0 -84.5 SL
604.1 -38.9 588.4 -45.5 583.6 -51.7 0 0.2 587.6 -46.5 604.9 -39.9 608.9 -42.3 583.6 -51.9 SL
14.0 F3 252.0 -32.8 M (Solo) gcshow
252.0 -154.4 M (Tutti, arco con sordino) gcshow
515.4 -17.4 M (Dal Osanna al Fine) gcshow 521.9 -32.8 M ( ) gcshow
14.0 F1 170.6 -46.0 M (130) showb 370.1 -39.8 M (135) showb 628.2 -46.0 M (140) showb
0 -135.04 M 699.30 staff
0 -77.04 M 699.30 staff
82.0 0.0 -135.0 bar
82.0 0.0 -53.0 brace
12.0 -77.0 bclef
30.0 -71.0 ft0
62.5 -74.0 Hd 9.0 0 dt -9.0 ft 20.0 su
82.0 87.6 -135.0 bar
107.3 -65.0 Hd 9.0 3 dt -9.0 ft 20.0 sd
82.0 132.4 -135.0 bar
145.5 -65.0 Hd 9.0 3 dt 20.0 sd
82.0 170.6 -135.0 bar
183.6 -68.0 Hd 9.0 0 dt 20.0 su
82.0 208.8 -135.0 bar
221.8 -68.0 Hd 9.0 0 dt 20.0 su
82.0 247.0 -135.0 bar
260.0 -59.0 Hd 9.0 3 dt 20.0 sd
82.0 285.2 -135.0 bar
298.2 -59.0 Hd 9.0 3 dt 20.0 sd
82.0 323.3 -135.0 bar
336.4 -65.0 r2
356.1 -80.0 hd 20.0 su
82.0 370.1 -135.0 bar
383.2 -68.0 hd 20.0 su
401.0 -59.0 hd 20.0 sd
416.9 -53.0 hd 20.0 sd
82.0 430.9 -135.0 bar
443.9 -47.0 Hd 9.0 3 dt 20.0 sd -47.0 hl
82.0 469.1 -135.0 bar
483.3 -65.0 r1
82.0 510.4 -135.0 bar
523.4 -65.0 r4
539.4 -80.0 hd 20.0 su
555.3 -68.0 hd 20.0 su
82.0 569.3 -135.0 bar
582.3 -59.0 hd 20.0 sd
598.2 -53.0 hd 20.0 sd
614.1 -47.0 hd 20.0 sd -47.0 hl
82.0 628.2 -135.0 bar
666.0 -38.0 Hd 9.0 0 dt 27.0 sd -47.0 hl -41.0 hl
82.0 699.3 -135.0 fbar2 689.3 -135.0 rdots 689.3 -77.0 rdots
56.4 -81.9 48.6 -81.9 46.3 -78.6 0 -0.2 48.3 -80.9 56.7 -80.9 58.7 -78.4 46.3 -78.4 SL
135.5 -56.5 117.3 -56.5 111.8 -60.1 0 0.2 116.4 -57.5 136.3 -57.5 140.9 -60.3 111.8 -60.3 SL
288.2 -50.5 270.0 -50.5 264.5 -54.1 0 0.2 269.1 -51.5 289.1 -51.5 293.7 -54.3 264.5 -54.3 SL
12.0 -135.0 bclef
30.0 -129.0 ft0 35.0 -120.0 ft0
62.5 -132.0 Hd 9.0 0 dt -9.0 ft 20.0 su
107.3 -123.0 Hd 9.0 3 dt -9.0 ft 20.0 sd
145.5 -123.0 Hd 9.0 3 dt 20.0 sd
183.6 -126.0 Hd 9.0 0 dt 20.0 su
221.8 -126.0 Hd 9.0 0 dt 20.0 su
260.0 -117.0 Hd 9.0 3 dt 20.0 sd
298.2 -117.0 Hd 9.0 3 dt 20.0 sd
336.4 -117.0 Hd 9.0 3 dt 20.0 sd
383.2 -117.0 Hd 9.0 3 dt 20.0 sd
443.9 -117.0 Hd 9.0 3 dt 20.0 sd
483.3 -117.0 Hd 9.0 3 dt 20.0 sd
523.4 -117.0 Hd 9.0 3 dt 20.0 sd
582.3 -117.0 Hd 9.0 3 dt 20.0 sd
666.0 -117.0 Hd 9.0 3 dt 20.0 sd
56.4 -139.9 48.6 -139.9 46.3 -136.6 0 -0.2 48.3 -138.9 56.7 -138.9 58.7 -136.4 46.3 -136.4 SL
135.5 -114.5 117.3 -114.5 111.8 -118.1 0 0.2 116.4 -115.5 136.3 -115.5 140.9 -118.3 111.8 -118.3 SL
288.2 -108.5 270.0 -108.5 264.5 -112.1 0 0.2 269.1 -109.5 289.1 -109.5 293.7 -112.3 264.5 -112.3 SL
326.4 -108.5 308.2 -108.5 302.7 -112.1 0 0.2 307.3 -109.5 327.3 -109.5 331.8 -112.3 302.7 -112.3 SL
371.3 -108.2 348.2 -108.2 341.2 -111.9 0 0.2 347.1 -109.2 372.4 -109.2 378.3 -112.1 341.2 -112.1 SL
473.1 -108.5 454.2 -108.5 448.5 -112.1 0 0.2 453.3 -109.5 474.0 -109.5 478.7 -112.3 448.5 -112.3 SL
513.0 -108.4 493.7 -108.4 487.9 -112.0 0 0.2 492.8 -109.4 514.0 -109.4 518.8 -112.2 487.9 -112.2 SL
568.1 -107.7 537.7 -107.7 528.8 -111.7 0 0.2 536.2 -108.7 569.6 -108.7 577.0 -111.9 528.8 -111.9 SL
647.6 -106.8 600.8 -106.8 588.3 -111.2 0 0.2 598.6 -107.8 649.7 -107.8 660.0 -111.4 588.3 -111.4 SL
107.3 -51.04 upb
107.3 -109.04 upb
260.0 -51.04 dnb
260.0 -109.04 dnb
356.1 -51.04 dnb
443.9 -109.04 upb
539.4 -51.04 dnb
582.3 -109.04 dnb
666.0 -34.04 hld
666.0 -109.04 hld
0 -169.84 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1744 6215 a Fc(10)p eop end
%%Page: 11 11
TeXDict begin 11 10 bop 1488 -306 a Fd(Agn)l(us)52 b(Dei)-317
522 y @beginspecial 0 @llx 0 @lly 516 @urx 95 @ury 5160
@rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 95
%%Title: jazzmesse-vc-dona001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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
14.0 F3 67.8 -38.4 M (senza sordino) gcshow
14.0 F1 270.2 -47.4 M (5) showb 474.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 bclef
30.0 -72.4 ft0 35.0 -63.4 ft0
56.0 -78.4 csig
75.8 -66.4 r2
101.5 -57.4 Hd 20.0 sd
24.0 116.3 -78.4 bar
129.2 -54.4 Hd 9.0 3 dt 20.0 sd
153.6 -66.4 r4
24.0 176.4 -78.4 bar
189.0 -66.4 r2
206.1 -57.4 Hd 20.0 sd
24.0 220.5 -78.4 bar
232.4 -54.4 Hd 9.0 3 dt 20.0 sd
258.0 -66.4 r4
24.0 270.2 -78.4 bar
282.3 -66.4 r2
299.1 -60.4 Hd 20.0 sd
24.0 314.3 -78.4 bar
326.5 -54.4 Hd 20.0 sd
344.0 -45.4 Hd 21.0 sd -48.4 hl
24.0 358.2 -78.4 bar
381.3 -45.4 HD -12.0 ft -48.4 hl1
24.0 398.9 -78.4 bar
412.4 -48.4 HD -48.4 hl1
24.0 430.5 -78.4 bar
442.7 -66.4 r2
460.3 -57.4 Hd 20.0 sd
24.0 474.6 -78.4 bar
486.2 -54.4 Hd 20.0 sd
503.0 -66.4 r4
24.0 515.7 -78.4 bar
528.2 -66.4 r2
545.7 -57.4 Hd 20.0 sd
24.0 559.7 -78.4 bar
572.6 -54.4 Hd 9.0 3 dt 20.0 sd
597.2 -66.4 r4
24.0 609.4 -78.4 bar
621.5 -66.4 r2
647.1 -51.4 Hd 32.0 sd 647.1 -63.4 Hd -10.0 nt
24.0 661.5 -78.4 bar
(p) 101.5 -100.40 pf
101.5 -52.40 upb
206.1 -52.40 upb
299.1 -52.40 upb
460.3 -52.40 upb
545.7 -52.40 upb
647.1 -47.40 dnb
0 -101.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 670 x @beginspecial 0 @llx 0 @lly 544 @urx
84 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 84
%%Title: jazzmesse-vc-dona002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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.8 T
0.75 dup scale
% --- 2 ((notitle)) ---
0 -25.34 T
361.8 -60.4 353.3 -58.9 350.7 -54.0 0 -0.2 352.8 -57.9 362.2 -59.4 364.3 -55.9 350.7 -53.8 SL
404.4 -66.4 395.8 -64.9 393.3 -60.0 0 -0.2 395.4 -63.9 404.8 -65.4 406.9 -61.9 393.3 -59.8 SL
542.3 -67.9 529.0 -67.9 525.1 -63.2 0 -0.2 528.4 -66.9 543.0 -66.9 546.3 -63.0 525.1 -63.0 SL
14.0 F1 84.4 -16.0 M (15) showb 295.7 -16.0 M (20) showb 502.2 -16.0 M (25) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0
53.5 -35.0 r2
70.2 -23.0 Hd 20.0 sd
24.0 84.4 -47.0 bar
96.9 -35.0 r2
113.0 -23.0 Hd 32.0 sd 113.0 -35.0 Hd
24.0 126.6 -47.0 bar
138.7 -35.0 r2
155.3 -26.0 Hd 20.0 sd
24.0 168.9 -47.0 bar
180.7 -35.0 r2
196.7 -26.0 Hd 20.0 sd
24.0 211.2 -47.0 bar
222.9 -35.0 r2
238.9 -29.0 Hd 20.0 sd
24.0 253.5 -47.0 bar
264.9 -35.0 r2
281.3 -29.0 Hd 20.0 sd
24.0 295.7 -47.0 bar
307.7 -44.0 Hd 20.0 su
323.9 -35.0 r2
24.0 338.0 -47.0 bar
350.1 -47.0 Hd 20.0 su
366.5 -50.0 Hd 20.0 su
24.0 380.3 -47.0 bar
392.6 -53.0 Hd 20.0 su -53.0 hl
409.1 -56.0 Hd 21.0 su -53.0 hl
24.0 422.5 -47.0 bar
443.7 -59.0 HD -53.0 hl1 -59.0 hl1
24.0 471.8 -47.0 bar
485.8 -35.0 r1
24.0 502.2 -47.0 bar
524.1 -56.0 Hd 21.0 su -53.0 hl
547.2 -53.0 Hd -9.0 nt 20.0 su -53.0 hl
24.0 560.8 -47.0 bar
574.6 -56.0 HD -53.0 hl1
24.0 591.3 -47.0 bar
604.8 -47.0 HD 604.8 -35.0 HD
24.0 621.7 -47.0 bar
634.4 -47.0 HD 634.4 -35.0 HD
24.0 660.2 -47.0 fbar2 650.2 -47.0 rdots
682.5 -26.0 HD
24.0 699.3 -47.0 bar
626.2 -55.2 613.0 -55.2 609.0 -51.8 0 -0.2 612.3 -54.2 626.9 -54.2 630.2 -51.6 609.0 -51.6 SL
626.5 -26.8 614.2 -26.8 610.5 -30.2 0 0.2 613.6 -27.8 627.1 -27.8 630.2 -30.4 610.5 -30.4 SL
70.2 -19.00 upb
113.0 -19.00 dnb
281.3 -21.00 dnb
-51.0 405.1 -86.42 cresc
(Dimin.) 443.7 -86.42 crdc
(p) 524.1 -86.42 pf
(pp) 682.5 -86.42 pf
682.5 -21.00 dnb
0 -86.42 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 778 x @beginspecial 0 @llx 0 @lly 544 @urx
97 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 97
%%Title: jazzmesse-vc-dona003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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.8 T
0.75 dup scale
% --- 3 ((notitle)) ---
0 -25.34 T
-3.2 12.8 -2.0 554.4 -71.2 bm
-3.2 13.0 -2.1 580.6 -77.2 bm
-3.2 13.2 2.1 650.8 -82.3 bm
353.2 -41.6 327.4 -39.2 319.7 -43.6 0 0.2 326.1 -40.2 354.4 -42.6 360.9 -47.3 319.7 -43.8 SL
430.0 -41.4 417.3 -39.5 413.5 -43.7 0 0.2 416.7 -40.5 430.6 -42.4 433.8 -46.7 413.5 -43.9 SL
514.7 -36.7 501.4 -37.6 497.4 -42.6 0 0.2 500.7 -38.6 515.3 -37.7 518.7 -41.4 497.4 -42.8 SL
14.0 F3 338.8 -38.4 M (swing) gcshow
14.0 F1 40.6 -50.7 M (30) showb 225.0 -49.7 M (35) showb 609.1 -49.7 M (40) showb
15.0 F2 334.2 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 120) show
0 -80.74 M 699.30 staff
12.0 -80.7 bclef
30.0 -74.7 ft0 35.0 -65.7 ft0
54.6 -59.7 HD
24.0 77.9 -80.7 bar
92.0 -59.7 HD
24.0 114.6 -80.7 bar
129.7 -59.7 HD
24.0 151.4 -80.7 bar
166.1 -59.7 HD
24.0 188.2 -80.7 bar
202.6 -59.7 HD
24.0 225.0 -80.7 bar
239.6 -59.7 HD
24.0 261.7 -80.7 bar
274.7 -59.7 Hd 9.0 0 dt 20.0 sd
301.4 -68.7 r8
315.3 -68.7 hd 1 20.0 sfd
24.0 331.0 -80.7 dbar
346.8 -59.7 hd 20.0 sd
362.8 -59.7 hd 20.0 sd
386.1 -62.7 hd 8.0 3 dt -9.0 sh 20.0 sd
410.5 -68.7 hd 1 20.0 sfd
24.0 422.9 -80.7 bar
434.8 -53.7 hd 8.0 0 dt 20.0 sd
458.5 -56.7 hd 1 20.0 sfd
472.7 -56.7 hd 8.0 3 dt 20.0 sd
496.4 -68.7 hd 1 20.0 sfd
24.0 508.4 -80.7 bar
520.6 -47.7 hd 21.0 sd -50.7 hl
538.1 -47.7 hd 21.0 sd -50.7 hl
557.9 -50.7 hd 20.5 sd -50.7 hl
570.7 -53.7 hd 19.5 sd
584.1 -56.7 hd 20.5 sd
597.1 -59.7 hd 19.5 sd
24.0 609.1 -80.7 bar
620.2 -68.7 r8
633.1 -56.7 hd 1 20.0 sfd
654.3 -62.7 hd -9.0 sh 19.5 sd
667.6 -59.7 hd 20.5 sd
681.3 -59.7 Hd 20.0 sd
24.0 699.3 -80.7 bar
265.3 -51.3 248.9 -51.3 244.0 -54.8 0 0.2 248.1 -52.3 266.1 -52.3 270.2 -55.0 244.0 -55.0 SL
467.8 -49.1 463.4 -49.1 462.1 -52.3 0 0.2 463.2 -50.1 468.0 -50.1 469.1 -52.5 462.1 -52.5 SL
676.5 -52.1 672.3 -52.1 671.1 -55.3 0 0.2 672.1 -53.1 676.7 -53.1 677.7 -55.5 671.1 -55.5 SL
274.7 -52.74 hld
315.3 -54.74 dnb
346.8 -52.74 emb
362.8 -52.74 emb
410.5 -54.74 dnb
496.4 -54.74 dnb
633.1 -52.74 dnb
0 -103.74 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 570 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-dona004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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
% --- 4 ((notitle)) ---
0 -25.34 T
-3.2 13.0 3.1 179.4 -54.2 bm
3.2 13.5 3.2 452.3 -25.0 bm
3.2 13.7 -3.2 523.6 -21.8 bm
3.2 13.9 3.2 550.5 -19.0 bm
14.0 F1 419.6 -9.0 M (45) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0
53.0 -29.0 hd 1 20.0 sfd
66.7 -35.0 r8
80.9 -35.0 r8
94.7 -29.0 hd 1 20.0 sfd
115.2 -32.0 hd -9.0 nt 1 20.0 sfd
128.7 -35.0 r8
142.7 -35.0 r4
24.0 158.0 -47.0 bar
168.6 -35.0 r8
182.9 -35.0 hd 19.2 sd
195.9 -29.0 hd 22.1 sd
209.9 -23.0 hd 1 20.0 sfd
225.3 -35.0 r2
24.0 244.5 -47.0 bar
256.4 -29.0 hd 20.0 sd
280.0 -29.0 hd -9.0 sh 20.0 sd
297.5 -26.0 hd 20.0 sd
321.5 -26.0 hd -9.0 sh 20.0 sd
24.0 336.4 -47.0 bar
349.0 -23.0 hd 8.0 3 dt 20.0 sd
373.4 -35.0 hd 1 20.0 sfd
386.7 -35.0 hd 20.0 sd
405.3 -38.0 hd 20.0 su
24.0 419.6 -47.0 bar
432.1 -41.0 hd 20.0 su
448.8 -47.0 hd 22.0 su
462.3 -41.0 hd 19.2 su
476.4 -35.0 hd 20.0 su
492.7 -38.0 hd 20.0 su
24.0 508.5 -47.0 bar
520.1 -41.0 hd 19.2 su
533.8 -47.0 hd 22.0 su
547.0 -41.0 hd 22.0 su
560.8 -35.0 hd 19.2 su
574.4 -35.0 hd 20.0 su
593.0 -38.0 hd 20.0 su
24.0 607.4 -47.0 bar
619.6 -41.0 hd 20.0 su
643.0 -41.0 hd -9.0 nt 20.0 su
661.1 -38.0 hd 20.0 su
684.2 -38.0 hd -9.0 sh 20.0 su
24.0 699.3 -47.0 bar
382.0 -27.4 378.1 -27.4 377.0 -30.5 0 0.2 378.0 -28.4 382.2 -28.4 383.2 -30.7 377.0 -30.7 SL
569.7 -42.6 565.6 -42.6 564.4 -39.5 0 -0.2 565.4 -41.6 569.9 -41.6 570.9 -39.3 564.4 -39.3 SL
53.0 -21.00 upb
94.7 -21.00 upb
115.2 -21.00 dnb
182.9 -21.00 dnb
256.4 -21.00 dnb
373.4 -21.00 upb
405.3 -16.00 dnb
432.1 -19.00 upb
476.4 -13.00 dnb
-167.5 609.6 -71.00 cresc
619.6 -19.00 dnb
0 -71.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 587 x @beginspecial 0 @llx 0 @lly 544 @urx
74 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 74
%%Title: jazzmesse-vc-dona005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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 73.6 T
0.75 dup scale
% --- 5 ((notitle)) ---
0 -25.34 T
72.5 -18.8 58.0 -18.8 53.6 -23.5 0 0.2 57.3 -19.8 73.2 -19.8 76.9 -23.7 53.6 -23.7 SL
157.3 -7.8 145.2 -3.3 141.6 -6.9 0 0.2 144.6 -4.3 157.9 -8.8 160.9 -13.7 141.6 -7.1 SL
197.4 -18.8 182.9 -18.8 178.6 -23.6 0 0.2 182.3 -19.8 198.1 -19.8 201.7 -23.8 178.6 -23.8 SL
364.5 -8.8 349.4 -8.8 344.8 -13.5 0 0.2 348.6 -9.8 365.3 -9.8 369.1 -13.7 344.8 -13.7 SL
405.8 -18.8 390.9 -18.8 386.4 -23.5 0 0.2 390.2 -19.8 406.5 -19.8 410.2 -23.7 386.4 -23.7 SL
14.0 F1 216.5 -18.8 M (50) showb
0 -49.75 M 699.30 staff
12.0 -49.8 bclef
30.0 -43.8 ft0 35.0 -34.8 ft0
52.6 -37.8 hd 20.0 sd
77.9 -37.8 hd -9.0 sh 20.0 sd
104.5 -34.8 Hd -9.0 nt 20.0 sd
24.0 123.7 -49.8 bar
136.6 -25.8 hd 8.0 3 dt 20.0 sd
162.0 -25.8 hd 1 20.0 sfd
177.6 -37.8 hd 8.0 3 dt 20.0 sd
202.7 -37.8 hd 1 20.0 sfd
24.0 216.5 -49.8 bar
241.8 -28.8 hd 8.0 0 dt 20.0 sd
273.7 -34.8 hd -9.0 nt 1 20.0 sfd
288.6 -34.8 hd 20.0 sd
307.1 -34.8 hd 20.0 sd
24.0 324.0 -49.8 bar
343.8 -25.8 hd 8.0 3 dt 20.0 sd
370.2 -25.8 hd 1 20.0 sfd
385.4 -37.8 hd 8.0 3 dt 20.0 sd
411.3 -37.8 hd 1 20.0 sfd
24.0 424.7 -49.8 bar
437.4 -28.8 hd 8.0 0 dt 20.0 sd
469.5 -34.8 hd -9.0 nt 1 20.0 sfd
484.9 -34.8 hd 20.0 sd
502.2 -34.8 hd 20.0 sd
24.0 519.1 -49.8 bar
532.2 -46.8 hd 8.0 0 dt 20.0 su
558.1 -46.8 hd 1 20.0 sfu
576.8 -46.8 hd 20.0 su
595.5 -46.8 hd 20.0 su
24.0 611.1 -49.8 bar
623.8 -37.8 hd 8.0 3 dt 20.0 sd
648.6 -37.8 hd 1 20.0 sfd
664.8 -37.8 hd 20.0 sd
683.9 -37.8 hd 20.0 sd
24.0 699.3 -49.8 bar
283.6 -27.1 278.7 -27.1 277.3 -30.3 0 0.2 278.5 -28.1 283.8 -28.1 285.0 -30.5 277.3 -30.5 SL
479.8 -27.0 474.7 -27.0 473.2 -30.2 0 0.2 474.4 -28.0 480.0 -28.0 481.3 -30.4 473.2 -30.4 SL
571.0 -54.6 563.9 -54.6 561.8 -51.3 0 -0.2 563.6 -53.6 571.3 -53.6 573.1 -51.1 561.8 -51.1 SL
659.5 -30.0 653.9 -30.0 652.2 -33.2 0 0.2 653.6 -31.0 659.8 -31.0 661.2 -33.4 652.2 -33.4 SL
52.6 -28.75 emb
77.9 -28.75 emb
136.6 -18.75 emb
136.6 -16.75 dnb
162.0 -18.75 emb
177.6 -28.75 emb
202.7 -28.75 emb
241.8 -23.75 dnb
273.7 -23.75 upb
307.1 -23.75 upb
(cresc.) 343.8 -71.75 crdc
343.8 -18.75 emb
370.2 -18.75 emb
385.4 -28.75 emb
411.3 -28.75 emb
437.4 -23.75 dnb
469.5 -23.75 upb
502.2 -23.75 upb
532.2 -23.75 dnb
558.1 -23.75 upb
595.5 -23.75 dnb
623.8 -23.75 upb
648.6 -23.75 dnb
683.9 -23.75 upb
0 -72.75 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 620 x @beginspecial 0 @llx 0 @lly 544 @urx
78 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 78
%%Title: jazzmesse-vc-dona006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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.6 T
0.75 dup scale
% --- 6 ((notitle)) ---
0 -25.34 T
570.2 -8.2 559.4 -3.7 556.2 -7.2 0 0.2 558.9 -4.7 570.7 -9.2 573.4 -14.0 556.2 -7.4 SL
600.9 -53.6 591.6 -53.6 588.8 -49.0 0 -0.2 591.2 -52.6 601.3 -52.6 603.7 -48.8 588.8 -48.8 SL
649.5 -10.2 636.2 -10.2 632.2 -14.8 0 0.2 635.5 -11.2 650.1 -11.2 653.5 -15.0 632.2 -15.0 SL
681.1 -59.6 672.4 -59.6 669.8 -55.0 0 -0.2 672.0 -58.6 681.5 -58.6 683.7 -54.8 669.8 -54.8 SL
14.0 F1 42.3 -17.0 M (55) showb 457.3 -16.0 M (60) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0
64.9 -47.0 hd 8.0 3 dt 20.0 su
89.4 -47.0 hd 1 20.0 sfu
107.5 -47.0 hd 20.0 su
122.8 -47.0 hd 20.0 su
24.0 137.4 -47.0 bar
148.9 -44.0 hd 8.0 0 dt 20.0 su
173.2 -44.0 hd 1 20.0 sfu
191.1 -35.0 r2
24.0 209.4 -47.0 bar
230.1 -44.0 hd 20.0 su
246.0 -44.0 hd 20.0 su
262.0 -44.0 hd 20.0 su
279.3 -44.0 hd 20.0 su
24.0 293.3 -47.0 bar
305.0 -44.0 hd 20.0 su
321.9 -44.0 hd 20.0 su
337.3 -44.0 hd 20.0 su
353.4 -44.0 hd 20.0 su
24.0 368.4 -47.0 bar
380.7 -29.0 hd 20.0 sd
403.7 -29.0 hd -9.0 sh 20.0 sd
420.5 -26.0 hd 20.0 sd
443.0 -26.0 hd -9.0 sh 20.0 sd
24.0 457.3 -47.0 bar
469.1 -23.0 hd 20.0 sd
485.3 -26.0 hd 20.0 sd
508.8 -29.0 hd -9.0 sh 20.0 sd
525.1 -35.0 hd 20.0 sd
24.0 539.3 -47.0 bar
551.2 -26.0 hd 8.0 0 dt 20.0 sd
574.3 -26.0 hd 1 20.0 sfd
588.2 -38.0 hd 20.0 su
604.3 -38.0 hd 20.0 su
24.0 619.3 -47.0 bar
631.3 -29.0 hd 8.0 3 dt 20.0 sd
654.4 -29.0 hd 1 20.0 sfd
669.2 -41.0 hd 20.0 su
684.3 -41.0 hd 20.0 su
24.0 699.3 -47.0 bar
101.8 -54.8 95.1 -54.8 93.1 -51.6 0 -0.2 94.8 -53.8 102.1 -53.8 103.8 -51.4 93.1 -51.4 SL
64.9 -21.00 dnb
89.4 -21.00 upb
122.8 -21.00 upb
-64.1 138.9 -78.17 cresc
148.9 -21.00 dnb
173.2 -21.00 upb
(f) 230.1 -78.17 pf
230.1 -21.00 dnb
551.2 -19.00 emb
551.2 -17.00 dnb
574.3 -19.00 emb
588.2 -44.00 emb
604.3 -44.00 emb
631.3 -20.00 emb
654.4 -20.00 emb
669.2 -50.00 emb
684.3 -50.00 emb
28.9 664.4 -78.17 cresc
0 -78.17 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 620 x @beginspecial 0 @llx 0 @lly 544 @urx
78 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 78
%%Title: jazzmesse-vc-dona007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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.9 T
0.75 dup scale
% --- 7 ((notitle)) ---
0 -25.34 T
82.3 -16.1 67.3 -16.1 62.8 -20.8 0 0.2 66.6 -17.1 83.0 -17.1 86.8 -21.0 62.8 -21.0 SL
116.2 -56.2 108.1 -58.6 105.7 -54.5 0 -0.2 107.7 -57.6 116.6 -55.2 118.6 -50.8 105.7 -54.3 SL
172.5 -15.8 153.7 -15.8 148.1 -20.6 0 0.2 152.8 -16.8 173.4 -16.8 178.2 -20.9 148.1 -20.9 SL
207.8 -63.7 197.2 -63.7 194.0 -59.1 0 -0.2 196.7 -62.7 208.3 -62.7 211.0 -58.9 194.0 -58.9 SL
14.0 F1 227.0 -12.0 M (65) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0
61.8 -32.0 hd 8.0 0 dt -9.0 nt 20.0 sd
87.8 -32.0 hd 1 20.0 sfd
102.6 -44.0 hd 20.0 su
119.3 -44.0 hd 20.0 su
24.0 135.0 -47.0 bar
146.8 -35.0 hd 8.0 3 dt 20.0 sd
179.5 -35.0 hd 1 20.0 sfd
193.3 -47.0 hd 20.0 su
211.8 -47.0 hd 20.0 su
24.0 227.0 -47.0 bar
246.2 -44.0 hd 8.0 0 dt -9.0 ft 20.0 su
270.6 -44.0 hd 1 20.0 sfu
290.4 -44.0 hd 20.0 su
307.5 -44.0 hd 20.0 su
24.0 323.0 -47.0 bar
346.2 -44.0 HD -12.0 ft
24.0 381.6 -47.0 bar
410.4 -44.0 hd -9.0 ft 20.0 su
434.1 -38.0 hd -9.0 ft 20.0 su
460.1 -35.0 hd -9.0 ft 20.0 su
479.0 -32.0 hd 20.0 sd
24.0 494.2 -47.0 bar
514.5 -44.0 hd -9.0 ft 20.0 su
537.9 -38.0 hd -9.0 ft 20.0 su
561.9 -35.0 hd -9.0 ft 20.0 su
581.2 -32.0 hd 20.0 sd
24.0 596.7 -47.0 bar
616.5 -44.0 hd -9.0 ft 20.0 su
640.7 -38.0 hd -9.0 ft 20.0 su
664.3 -35.0 hd -9.0 ft 20.0 su
683.3 -32.0 hd 20.0 sd
24.0 699.3 -47.0 bar
284.3 -51.9 276.7 -51.9 274.4 -48.6 0 -0.2 276.3 -50.9 284.7 -50.9 286.6 -48.4 274.4 -48.4 SL
61.8 -26.00 emb
87.8 -26.00 emb
102.6 -51.00 emb
92.5 44.3 -78.55 cresc
146.8 -26.00 emb
(p) 179.5 -78.55 pf
179.5 -26.00 emb
193.3 -54.00 emb
211.8 -54.00 emb
246.2 -21.00 dnb
270.6 -21.00 upb
307.5 -21.00 upb
346.2 -21.00 dnb
375.8 -20.00 brth
(p) 410.4 -78.55 pf
410.4 -21.00 dnb
0 -78.55 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 570 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-dona008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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
14.0 F1 40.3 -17.0 M (70) showb 589.9 -16.0 M (75) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0
61.8 -44.0 hd -9.0 ft 20.0 su
89.1 -38.0 hd -9.0 ft 20.0 su
114.8 -35.0 hd -9.0 ft 20.0 su
134.9 -32.0 hd 20.0 sd
24.0 152.4 -47.0 bar
171.0 -44.0 hd -9.0 ft 20.0 su
197.9 -38.0 hd -9.0 ft 20.0 su
222.3 -35.0 hd -9.0 ft 20.0 su
244.8 -32.0 hd 20.0 sd
24.0 261.8 -47.0 bar
281.0 -44.0 hd -9.0 ft 20.0 su
306.0 -38.0 hd -9.0 ft 20.0 su
333.1 -35.0 hd -9.0 ft 20.0 su
353.9 -32.0 hd 20.0 sd
24.0 371.1 -47.0 bar
391.2 -44.0 hd -9.0 ft 20.0 su
415.5 -38.0 hd -9.0 ft 20.0 su
441.0 -35.0 hd -9.0 ft 20.0 su
464.0 -32.0 hd 20.0 sd
24.0 480.5 -47.0 bar
500.3 -44.0 hd -9.0 ft 20.0 su
526.7 -38.0 hd -9.0 ft 20.0 su
551.4 -35.0 hd -9.0 ft 20.0 su
572.8 -32.0 hd 20.0 sd
24.0 589.9 -47.0 bar
609.3 -44.0 hd -9.0 ft 20.0 su
635.4 -38.0 hd -9.0 ft 20.0 su
661.0 -35.0 hd -9.0 ft 20.0 su
682.0 -32.0 hd 20.0 sd
24.0 699.3 -47.0 bar
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 629 x @beginspecial 0 @llx 0 @lly 544 @urx
79 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 79
%%Title: jazzmesse-vc-dona009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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
% --- 9 ((notitle)) ---
0 -25.34 T
14.0 F1 479.4 -16.0 M (80) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0
61.8 -44.0 hd -9.0 ft 20.0 su
88.2 -38.0 hd -9.0 ft 20.0 su
113.0 -35.0 hd -9.0 ft 20.0 su
132.0 -32.0 hd 20.0 sd
24.0 148.5 -47.0 bar
167.1 -44.0 hd -9.0 ft 20.0 su
193.1 -38.0 hd -9.0 ft 20.0 su
216.7 -35.0 hd -9.0 ft 20.0 su
238.0 -32.0 hd 20.0 sd
24.0 253.9 -47.0 bar
273.2 -44.0 hd -9.0 ft 20.0 su
297.4 -38.0 hd -9.0 ft 20.0 su
323.4 -35.0 hd -9.0 ft 20.0 su
343.1 -32.0 hd 20.0 sd
24.0 359.4 -47.0 bar
389.7 -53.0 hd -9.0 nt 20.0 su -53.0 hl
413.0 -47.0 hd -9.0 sh 20.0 su
437.3 -44.0 hd -9.0 sh 20.0 su
463.8 -41.0 hd -9.0 nt 20.0 su
24.0 479.4 -47.0 bar
499.1 -53.0 hd -9.0 nt 20.0 su -53.0 hl
524.7 -47.0 hd -9.0 sh 20.0 su
548.5 -44.0 hd -9.0 sh 20.0 su
573.2 -41.0 hd -9.0 nt 20.0 su
24.0 589.3 -47.0 bar
608.7 -53.0 hd -9.0 nt 20.0 su -53.0 hl
633.9 -47.0 hd -9.0 sh 20.0 su
658.7 -44.0 hd -9.0 sh 20.0 su
683.0 -41.0 hd -9.0 nt 20.0 su
24.0 699.3 -47.0 bar
(f) 389.7 -80.00 pf
0 -80.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 595 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vc-dona010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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.6 T
0.75 dup scale
% --- 10 ((notitle)) ---
0 -25.34 T
635.9 -13.1 622.4 -5.1 618.4 -8.3 0 0.2 621.8 -6.1 636.5 -14.1 639.9 -20.1 618.4 -8.5 SL
679.0 -20.1 663.4 -20.1 658.8 -24.9 0 0.2 662.7 -21.1 679.7 -21.1 683.6 -25.1 658.8 -25.1 SL
14.0 F1 375.9 -20.1 M (85) showb
0 -51.12 M 699.30 staff
12.0 -51.1 bclef
30.0 -45.1 ft0 35.0 -36.1 ft0
61.8 -57.1 hd -9.0 nt 20.0 su -57.1 hl
89.5 -51.1 hd -9.0 sh 20.0 su
115.8 -48.1 hd -9.0 sh 20.0 su
140.3 -45.1 hd -9.0 nt 20.0 su
24.0 158.2 -51.1 bar
170.2 -60.1 hd 21.0 su -57.1 hl
197.1 -57.1 hd -9.0 nt 20.0 su -57.1 hl
221.8 -51.1 hd -9.0 nt 20.0 su
249.0 -45.1 hd -9.0 nt 20.0 su
24.0 266.4 -51.1 bar
285.7 -63.1 hd -9.0 sh 24.0 su -57.1 hl -63.1 hl
311.3 -57.1 hd -9.0 nt 20.0 su -57.1 hl
332.8 -51.1 hd 20.0 su
358.1 -45.1 hd -9.0 nt 20.0 su
24.0 375.9 -51.1 bar
396.0 -63.1 hd -9.0 nt 24.0 su -57.1 hl -63.1 hl
420.7 -57.1 hd -9.0 nt 20.0 su -57.1 hl
446.2 -51.1 hd -9.0 nt 20.0 su
474.1 -45.1 hd -9.0 nt 20.0 su
24.0 491.0 -51.1 bar
510.8 -45.1 hd -9.0 nt 20.0 su
537.4 -57.1 hd -9.0 nt 20.0 su -57.1 hl
556.9 -51.1 hd 20.0 su
582.9 -45.1 hd -9.0 nt 20.0 su
24.0 600.5 -51.1 bar
613.3 -27.1 hd 8.0 3 dt 20.0 sd
641.0 -27.1 hd 1 20.0 sfd
657.7 -39.1 hd 8.0 3 dt 20.0 sd
684.7 -39.1 hd 1 20.0 sfd
24.0 699.3 -51.1 bar
613.3 -20.12 emb
613.3 -18.12 dnb
657.7 -30.12 emb
684.7 -30.12 emb
0 -74.12 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1815 6215 a Fc(11)p eop end
%%Page: 12 12
TeXDict begin 12 11 bop -387 227 a @beginspecial 0 @llx
0 @lly 544 @urx 76 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona011.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 76
%%Title: jazzmesse-vc-dona011.abc (11)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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
% --- 11 ((notitle)) ---
0 -25.34 T
3.2 19.2 0.0 551.2 -24.7 bm
156.1 -13.7 145.5 -5.7 142.3 -8.9 0 0.2 145.0 -6.7 156.6 -14.7 159.3 -20.7 142.3 -9.1 SL
192.1 -20.8 178.8 -20.8 174.8 -25.5 0 0.2 178.2 -21.8 192.8 -21.8 196.1 -25.7 174.8 -25.7 SL
14.0 F1 209.0 -20.6 M (90) showb 578.7 -20.6 M (95) showb
0 -51.63 M 699.30 staff
12.0 -51.6 bclef
30.0 -45.6 ft0 35.0 -36.6 ft0
52.6 -30.6 hd 8.0 0 dt 20.0 sd
83.0 -36.6 hd -9.0 nt 1 20.0 sfd
97.2 -36.6 hd 20.0 sd
112.4 -36.6 hd 20.0 sd
24.0 126.1 -51.6 bar
137.4 -27.6 hd 8.0 3 dt 20.0 sd
160.2 -27.6 hd 1 20.0 sfd
173.9 -39.6 hd 8.0 3 dt 20.0 sd
197.1 -39.6 hd 1 20.0 sfd
24.0 209.0 -51.6 bar
220.4 -30.6 hd 8.0 0 dt 20.0 sd
250.4 -36.6 hd -9.0 nt 1 20.0 sfd
263.4 -36.6 hd 20.0 sd
280.0 -36.6 hd 20.0 sd
24.0 293.4 -51.6 bar
305.3 -48.6 hd 8.0 0 dt 20.0 su
328.8 -48.6 hd 1 20.0 sfu
346.4 -48.6 hd 20.0 su
362.0 -48.6 hd 20.0 su
24.0 375.1 -51.6 bar
394.5 -48.6 hd -9.0 ft 20.0 su
410.1 -39.6 r4
426.3 -39.6 r2
24.0 443.3 -51.6 bar
457.6 -39.6 r1
24.0 478.4 -51.6 bar
490.5 -39.6 r2
509.4 -39.6 r8
530.1 -51.6 hd 1 20.0 sfu
547.7 -45.6 hd 21.0 su
566.9 -45.6 hd -9.0 nt 21.0 su
24.0 578.7 -51.6 bar
589.7 -42.6 hd 1 20.0 sfu
606.4 -39.6 r8
619.7 -39.6 r4
635.7 -39.6 r2
24.0 653.2 -51.6 bar
666.9 -39.6 r1
24.0 699.3 -51.6 bar
92.3 -29.0 87.9 -29.0 86.6 -32.1 0 0.2 87.7 -30.0 92.5 -30.0 93.6 -32.3 86.6 -32.3 SL
258.8 -29.0 255.0 -29.0 253.9 -32.2 0 0.2 254.9 -30.0 258.9 -30.0 259.9 -32.4 253.9 -32.4 SL
340.8 -56.4 334.4 -56.4 332.5 -53.2 0 -0.2 334.1 -55.4 341.1 -55.4 342.7 -53.0 332.5 -53.0 SL
112.4 -25.63 upb
137.4 -20.63 emb
137.4 -18.63 dnb
173.9 -30.63 emb
197.1 -30.63 emb
280.0 -25.63 upb
305.3 -25.63 dnb
328.8 -25.63 upb
362.0 -25.63 upb
394.5 -25.63 dnb
(mp) 530.1 -75.63 pf
530.1 -25.63 upb
589.7 -48.63 emb
0 -75.63 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 646 x @beginspecial 0 @llx 0 @lly 544 @urx
79 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona012.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 79
%%Title: jazzmesse-vc-dona012.abc (12)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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.3 T
0.75 dup scale
% --- 12 ((notitle)) ---
0 -25.34 T
3.2 13.1 2.1 550.2 -23.9 bm
194.0 -17.4 171.3 -10.9 164.5 -14.2 0 0.2 170.2 -11.9 195.1 -18.4 200.9 -24.0 164.5 -14.4 SL
277.4 -13.3 264.5 -10.2 260.6 -14.1 0 0.2 263.9 -11.2 278.0 -14.3 281.3 -18.9 260.6 -14.3 SL
14.0 F1 270.2 -8.0 M (100) showb
0 -50.42 M 699.30 staff
12.0 -50.4 bclef
30.0 -44.4 ft0 35.0 -35.4 ft0
54.5 -38.4 r1
24.0 81.0 -50.4 bar
93.8 -38.4 r2
117.7 -38.4 r4
133.9 -38.4 r8
154.7 -47.4 hd 1 20.0 sfu
24.0 172.8 -50.4 bar
184.3 -38.4 hd 20.0 sd
202.6 -38.4 hd 20.0 sd
227.9 -41.4 hd 8.0 0 dt -9.0 sh 20.0 su
252.3 -47.4 hd 1 20.0 sfu
24.0 270.2 -50.4 bar
282.3 -32.4 hd 8.0 3 dt 20.0 sd
313.4 -35.4 hd -9.0 nt 1 20.0 sfd
329.7 -35.4 hd 20.0 sd
347.4 -38.4 hd 20.0 sd
24.0 363.2 -50.4 bar
384.5 -41.4 hd 8.0 0 dt 20.0 su
409.9 -41.4 hd 1 20.0 sfu
435.5 -44.4 hd 8.0 3 dt -9.0 nt 20.0 su
459.5 -44.4 hd 1 20.0 sfu
24.0 476.9 -50.4 bar
496.2 -47.4 hd 8.0 0 dt -9.0 sh 20.0 su
527.6 -44.4 hd -9.0 nt 1 20.0 sfu
546.7 -44.4 hd 20.5 su
559.8 -41.4 hd 19.5 su
582.2 -41.4 hd -9.0 sh 20.0 su
24.0 597.6 -50.4 bar
610.3 -38.4 hd 8.0 3 dt 20.0 sd
636.0 -38.4 hd 1 20.0 sfd
657.1 -41.4 hd 8.0 0 dt -9.0 sh 20.0 su
681.6 -41.4 hd 1 20.0 sfu
24.0 699.3 -50.4 bar
324.3 -27.7 318.8 -27.7 317.1 -30.9 0 0.2 318.5 -28.7 324.6 -28.7 326.0 -31.1 317.1 -31.1 SL
540.7 -52.3 533.5 -52.3 531.4 -49.0 0 -0.2 533.2 -51.3 541.1 -51.3 542.9 -48.8 531.4 -48.8 SL
(mf) 154.7 -80.42 pf
154.7 -24.42 dnb
184.3 -29.42 emb
202.6 -29.42 emb
252.3 -24.42 dnb
-143.1 337.4 -80.42 cresc
347.4 -24.42 upb
(f) 384.5 -80.42 pf
384.5 -19.42 dnb
409.9 -19.42 dnb
435.5 -22.42 upb
459.5 -22.42 upb
496.2 -24.42 dnb
610.3 -24.42 dnb
636.0 -24.42 dnb
657.1 -19.42 upb
681.6 -19.42 upb
0 -80.42 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 612 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona013.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vc-dona013.abc (13)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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
14.0 F1 134.1 -16.0 M (105) showb 573.7 -16.0 M (110) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0
61.2 -41.0 hd 8.0 3 dt -9.0 sh 20.0 su
93.6 -38.0 hd -9.0 sh 1 20.0 sfu
114.7 -38.0 Hd 20.0 su
24.0 134.1 -47.0 bar
147.4 -35.0 Hd 20.0 sd
170.5 -35.0 r2
24.0 191.5 -47.0 bar
202.2 -35.0 r8
217.8 -32.0 hd 8.0 0 dt 20.0 sd
244.0 -29.0 hd 20.0 sd
261.7 -26.0 hd 20.0 sd
24.0 278.4 -47.0 bar
297.4 -23.0 hd 8.0 3 dt -9.0 ft 20.0 sd
328.6 -23.0 hd -9.0 ft 1 20.0 sfd
351.4 -35.0 hd -9.0 ft 20.0 sd
369.4 -35.0 hd 20.0 sd
24.0 385.4 -47.0 bar
405.6 -26.0 hd 8.0 0 dt -9.0 ft 20.0 sd
431.2 -26.0 hd 1 20.0 sfd
452.6 -38.0 hd -9.0 ft 20.0 su
470.0 -38.0 hd 20.0 su
24.0 486.2 -47.0 bar
498.6 -29.0 hd 8.0 3 dt 20.0 sd
523.9 -29.0 hd 1 20.0 sfd
539.5 -41.0 hd 20.0 su
557.0 -41.0 hd 20.0 su
24.0 573.7 -47.0 bar
611.4 -32.0 hd 8.0 0 dt 20.0 sd
643.9 -32.0 hd 1 20.0 sfd
665.5 -44.0 hd -9.0 ft 20.0 su
683.5 -44.0 hd 20.0 su
24.0 699.3 -47.0 bar
108.4 -45.9 100.0 -45.9 97.5 -42.6 0 -0.2 99.6 -44.9 108.8 -44.9 110.9 -42.4 97.5 -42.4 SL
61.2 -19.00 dnb
217.8 -21.00 upb
297.4 -15.00 dnb
328.6 -15.00 dnb
351.4 -21.00 upb
369.4 -21.00 upb
405.6 -18.00 dnb
431.2 -21.00 dnb
452.6 -16.00 upb
470.0 -16.00 upb
498.6 -21.00 dnb
523.9 -21.00 dnb
539.5 -19.00 upb
557.0 -19.00 upb
160.2 441.2 -74.00 cresc
611.4 -21.00 dnb
(mp) 643.9 -74.00 pf
643.9 -21.00 dnb
665.5 -21.00 upb
683.5 -21.00 upb
0 -74.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 587 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona014.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-vc-dona014.abc (14)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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
% --- 14 ((notitle)) ---
0 -25.34 T
14.0 F1 367.1 -16.0 M (115) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0
61.5 -44.0 hd 8.0 0 dt -9.0 nt 20.0 su
85.7 -44.0 hd 1 20.0 sfu
105.0 -44.0 hd 20.0 su
121.2 -44.0 hd 20.0 su
24.0 135.7 -47.0 bar
157.1 -44.0 HD -12.0 nt
24.0 192.3 -47.0 bar
212.0 -44.0 hd 20.0 su
229.0 -38.0 hd 20.0 su
246.1 -35.0 hd 20.0 su
268.9 -32.0 hd -9.0 nt 20.0 sd
24.0 284.0 -47.0 bar
295.6 -44.0 hd 20.0 su
311.7 -38.0 hd 20.0 su
329.5 -35.0 hd 20.0 su
352.5 -32.0 hd -9.0 nt 20.0 sd
24.0 367.1 -47.0 bar
379.4 -44.0 hd 20.0 su
396.2 -38.0 hd 20.0 su
412.9 -35.0 hd 20.0 su
435.4 -32.0 hd -9.0 nt 20.0 sd
24.0 450.1 -47.0 bar
461.9 -44.0 hd 20.0 su
478.3 -38.0 hd 20.0 su
495.4 -35.0 hd 20.0 su
518.0 -32.0 hd -9.0 nt 20.0 sd
24.0 533.2 -47.0 bar
545.4 -44.0 hd 20.0 su
561.9 -38.0 hd 20.0 su
578.8 -35.0 hd 20.0 su
601.8 -32.0 hd -9.0 nt 20.0 sd
24.0 616.2 -47.0 bar
627.7 -44.0 hd 20.0 su
644.2 -38.0 hd 20.0 su
660.7 -35.0 hd 20.0 su
684.0 -32.0 hd -9.0 nt 20.0 sd
24.0 699.3 -47.0 bar
99.0 -51.8 91.7 -51.8 89.5 -48.6 0 -0.2 91.4 -50.8 99.4 -50.8 101.2 -48.4 89.5 -48.4 SL
61.5 -21.00 dnb
85.7 -21.00 upb
121.2 -21.00 upb
157.1 -21.00 dnb
186.6 -20.00 brth
(mp) 212.0 -69.00 pf
212.0 -21.00 dnb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 613 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona015.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-vc-dona015.abc (15)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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
14.0 F1 122.9 -16.0 M (120) showb 528.3 -16.0 M (125) showb
0 -47.00 M 699.30 staff
12.0 -47.0 bclef
30.0 -41.0 ft0 35.0 -32.0 ft0
53.6 -44.0 hd 20.0 su
70.3 -38.0 hd 20.0 su
85.5 -35.0 hd 20.0 su
108.3 -32.0 hd -9.0 nt 20.0 sd
24.0 122.9 -47.0 bar
134.6 -44.0 hd 20.0 su
150.3 -38.0 hd 20.0 su
166.6 -35.0 hd 20.0 su
189.3 -32.0 hd -9.0 nt 20.0 sd
24.0 204.0 -47.0 bar
216.1 -44.0 hd 20.0 su
231.7 -38.0 hd 20.0 su
248.5 -35.0 hd 20.0 su
271.0 -32.0 hd -9.0 nt 20.0 sd
24.0 285.1 -47.0 bar
297.3 -44.0 hd 20.0 su
312.7 -38.0 hd 20.0 su
328.2 -35.0 hd 20.0 su
351.6 -32.0 hd -9.0 nt 20.0 sd
24.0 366.1 -47.0 bar
377.5 -44.0 hd 20.0 su
393.7 -38.0 hd 20.0 su
409.2 -35.0 hd 20.0 su
432.4 -32.0 hd -9.0 nt 20.0 sd
24.0 447.2 -47.0 bar
459.1 -44.0 hd 20.0 su
475.2 -38.0 hd 20.0 su
491.2 -35.0 hd 20.0 su
514.3 -32.0 hd -9.0 nt 20.0 sd
24.0 528.3 -47.0 bar
549.2 -50.0 hd 20.0 su
565.0 -44.0 hd 20.0 su
588.6 -41.0 hd -9.0 nt 20.0 su
604.1 -38.0 hd 20.0 su
24.0 618.2 -47.0 bar
629.8 -50.0 hd 20.0 su
646.3 -44.0 hd 20.0 su
668.3 -41.0 hd -9.0 nt 20.0 su
685.8 -38.0 hd 20.0 su
24.0 699.3 -47.0 bar
(f) 549.2 -74.00 pf
0 -74.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 870 x @beginspecial 0 @llx 0 @lly 544 @urx
106 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona016.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 106
%%Title: jazzmesse-vc-dona016.abc (16)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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.0 T
0.75 dup scale
% --- 16 ((notitle)) ---
0 -25.34 T
695.5 -39.5 687.0 -40.1 684.5 -44.8 0 0.2 686.6 -41.1 695.9 -40.5 698.1 -44.2 684.5 -45.0 SL
14.0 F3 655.1 -17.4 M (Coro:) gcshow 655.1 -32.8 M (S,A:) gcshow
14.0 F1 270.8 -35.8 M (130) showb
0 -66.80 M 699.30 staff
12.0 -66.8 bclef
30.0 -60.8 ft0 35.0 -51.8 ft0
55.0 -69.8 hd 20.0 su
70.1 -63.8 hd 20.0 su
92.4 -60.8 hd -9.0 nt 20.0 su
107.5 -57.8 hd 20.0 su
24.0 120.8 -66.8 bar
133.6 -69.8 hd 20.0 su
148.7 -63.8 hd 20.0 su
171.0 -60.8 hd -9.0 nt 20.0 su
186.1 -57.8 hd 20.0 su
24.0 199.4 -66.8 bar
212.2 -72.8 hd 20.0 su -72.8 hl
227.3 -66.8 hd 20.0 su
242.3 -63.8 hd 20.0 su
257.4 -60.8 hd 20.0 su
24.0 270.8 -66.8 bar
305.6 -54.8 Hd 20.0 sd
322.8 -54.8 r8
335.6 -48.8 hd 1 20.0 sfd
355.9 -48.8 hd -9.0 sh 20.0 sd
24.0 369.2 -66.8 bar
382.5 -45.8 Hd 20.0 sd
399.6 -54.8 r8
412.4 -54.8 hd 1 20.0 sfd
432.7 -54.8 hd -9.0 ft 20.0 sd
24.0 446.1 -66.8 bar
459.3 -57.8 Hd 20.0 su
476.5 -54.8 r8
489.3 -57.8 hd 1 20.0 sfu
514.0 -57.8 hd -9.0 sh 20.0 su
24.0 527.3 -66.8 bar
540.9 -54.8 Hd 9.0 3 dt 20.0 sd
576.6 -54.8 r4
24.0 600.7 -66.8 bar
613.2 -54.8 r2
631.6 -54.8 r4
648.6 -66.8 stclef
663.1 -54.8 r8
679.9 -69.8 shd 1 20.0 sfu
24.0 699.3 -66.8 bar
13.0 F2 (Do) 670.5 -110.8 wd 692.2 -110.8 whf
679.9 -84.8 r8
305.6 -40.80 dnb
335.6 -39.80 emb
335.6 -37.80 dnb
412.4 -45.80 emb
412.4 -40.80 dnb
489.3 -35.80 dnb
540.9 -40.80 hld
0 -116.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 821 x @beginspecial 0 @llx 0 @lly 544 @urx
100 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona017.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 100
%%Title: jazzmesse-vc-dona017.abc (17)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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.2 T
0.75 dup scale
% --- 17 ((notitle)) ---
0 -25.34 T
292.4 -14.5 276.5 -27.2 271.8 -37.7 0 0.2 275.8 -28.2 293.1 -15.5 297.1 -19.3 271.8 -37.9 SL
52.2 -23.9 36.4 -23.3 31.7 -27.9 0 0.2 35.7 -24.3 52.9 -24.9 56.9 -28.9 31.7 -28.1 SL
14.0 F3 517.7 -26.0 M (Vc) gcshow
14.0 F1 41.5 -30.0 M (135) showb 584.7 -29.0 M (140) showb
0 -60.00 M 699.30 staff
12.0 -60.0 tclef
30.0 -48.0 ft0 35.0 -39.0 ft0
55.0 -54.0 shd 20.0 su
80.1 -54.0 shd 20.0 su
111.1 -57.0 shd 8.0 0 dt -9.0 sh 20.0 su
141.7 -63.0 shd 1 20.0 sfu
24.0 162.0 -60.0 bar
177.1 -54.0 shd 8.0 3 dt 26.0 su 177.1 -48.0 shd 8.0 3 dt
210.1 -57.0 shd 1 26.0 sfu 210.1 -51.0 shd
236.7 -57.0 shd 8.0 0 dt 26.0 su 236.7 -51.0 shd 8.0 0 dt
266.5 -63.0 shd 1 20.0 sfu
24.0 286.0 -60.0 bar
299.4 -48.0 shd 26.0 su 299.4 -42.0 shd
323.1 -48.0 shd 26.0 su 323.1 -42.0 shd
350.9 -51.0 shd 8.0 0 dt 26.0 su 350.9 -45.0 shd 8.0 0 dt
381.4 -63.0 shd 1 20.0 sfu
24.0 401.7 -60.0 bar
416.8 -48.0 shd 8.0 3 dt 33.0 su 416.8 -33.0 shd 8.0 0 dt
450.0 -51.0 shd 1 35.0 sfu 450.0 -36.0 shd -9.0 sh
470.4 -51.0 shd 8.0 0 dt 35.0 su 470.4 -36.0 shd 8.0 3 dt
510.3 -60.0 sbclef
524.8 -48.0 r8
24.0 539.5 -60.0 bar
555.2 -48.0 r1
24.0 584.7 -60.0 bar
619.6 -48.0 hd 20.0 sd
640.2 -48.0 hd 20.0 sd
660.9 -48.0 hd 20.0 sd
681.5 -48.0 hd 20.0 sd
24.0 699.3 -60.0 bar
229.4 -48.9 218.9 -48.9 215.7 -52.3 0 0.2 218.3 -49.9 229.9 -49.9 232.6 -52.5 215.7 -52.5 SL
229.4 -42.9 218.9 -42.9 215.7 -46.3 0 0.2 218.3 -43.9 229.9 -43.9 232.6 -46.5 215.7 -46.5 SL
464.5 -43.1 457.4 -43.1 455.3 -46.4 0 0.2 457.1 -44.1 464.8 -44.1 466.6 -46.6 455.3 -46.6 SL
464.5 -28.1 457.4 -28.1 455.3 -31.4 0 0.2 457.1 -29.1 464.8 -29.1 466.6 -31.6 455.3 -31.6 SL
13.0 F2 (o) 49.5 -103.0 wd 63.3 -103.0 whf (na) 72.2 -103.0 wd (no) 102.9 -103.0 wd 123.6 -103.0 whf (bis) 132.6 -103.0 wd (pa) 169.3 -103.0 wd 188.5 -103.0 whf (cem,) 196.9 -103.0 wd 16.6 226.1 -103.0 wln (do) 258.3 -103.0 wd 283.3 -103.0 whf 300.3 -103.0 whf (na) 315.2 -103.0 wd (no) 342.7 -103.0 wd 363.3 -103.0 whf (bis) 372.3 -103.0 wd (pa) 408.9 -103.0 wd 428.3 -103.0 whf (cem.) 436.8 -103.0 wd
55.0 -78.0 r1 -72.0 hl
177.1 -78.0 r1 -72.0 hl
299.4 -78.0 r1 -72.0 hl
416.8 -60.0 r2
470.4 -66.0 r4
493.8 -66.0 r8
470.4 -14.00 hld
(p) 619.6 -90.00 pf
619.6 -34.00 dnb
-28.4 693.3 -90.00 cresc
0 -108.20 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 820 x @beginspecial 0 @llx 0 @lly 544 @urx
100 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-vc-dona018.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 100
%%Title: jazzmesse-vc-dona018.abc (18)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:30 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 99.6 T
0.75 dup scale
% --- 18 ((notitle)) ---
0 -25.34 T
14.0 F3 259.3 -38.4 M (swing) gcshow
14.0 F1 302.4 -46.4 M (145) showb 557.0 -46.4 M (150) showb
15.0 F2 246.7 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 60) show
0 -77.40 M 699.30 staff
12.0 -77.4 bclef
30.0 -71.4 ft0 35.0 -62.4 ft0
53.6 -65.4 hd 20.0 sd
69.5 -65.4 hd 20.0 sd
83.9 -65.4 hd 20.0 sd
98.9 -65.4 hd 20.0 sd
24.0 112.8 -77.4 bar
124.4 -65.4 hd 20.0 sd
139.3 -65.4 hd 20.0 sd
154.8 -65.4 hd 20.0 sd
169.8 -65.4 hd 20.0 sd
24.0 183.7 -77.4 bar
205.5 -62.4 Hd 20.0 sd
224.1 -65.4 r2
24.0 243.5 -77.4 dbar
267.3 -74.4 Hd 20.0 su
286.2 -71.4 Hd 20.0 su
24.0 302.4 -77.4 bar
315.4 -68.4 Hd 20.0 su
334.2 -65.4 r2
24.0 350.6 -77.4 bar
362.0 -62.4 hd 8.0 0 dt 20.0 sd
384.6 -62.4 hd 1 20.0 sfd
398.3 -65.4 Hd 20.0 sd
24.0 415.1 -77.4 bar
426.5 -56.4 hd 20.0 sd
441.2 -65.4 r4
457.2 -68.4 Hd 20.0 su
24.0 474.3 -77.4 bar
487.0 -71.4 Hd 20.0 su
506.3 -74.4 Hd 20.0 su
24.0 522.5 -77.4 bar
536.5 -65.4 HD
24.0 557.0 -77.4 bar
569.6 -65.4 r2
587.2 -65.4 r8
615.1 -68.4 hd -9.0 sh 1 20.0 sfu
633.0 -65.4 hd 20.0 su
24.0 646.0 -77.4 bar
658.6 -77.4 Hd 20.0 su
677.7 -65.4 r2
24.0 699.3 -77.4 fbar2
-90.2 135.3 -107.40 cresc
(f) 205.5 -107.40 pf
205.5 -51.40 hld
(ff) 267.3 -107.40 pf
267.3 -51.40 dnb
362.0 -51.40 dnb
384.6 -51.40 dnb
(ff) 615.1 -107.40 pf
615.1 -46.40 dnb
658.6 -51.40 hld
0 -107.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial -144 5639 a Fb(Christian)33 b(Martin)g(Gabriel:)g
(Jazzmesse)i(\(Mai)e(2003\))e(f)1984 5643 y(\177)1981
5639 y(ur)i(Soli,)g(Chor)f(und)h(Streic)m(horc)m(hester,)j(Cello)p
3499 5652 217 4 v 107 5756 a(Besetzung:)e(Mezzosopran)g(\(Solo\),)e(T)
-8 b(enor)34 b(\(Solo\),)e(Chor)h(\(Sopran,)f(Alt,)h(T)-8
b(enor,)33 b(Ba\031\),)-346 5872 y(Streic)m(horc)m(hester)i(\(1.)e
(Violine,)g(2.)f(Violine,)i(Viola,)e(Violoncello,)i(Kon)m(traba\031\),)
e(P)m(auk)m(e,)i(Horn)f(o)s(d.)f(Sax.)h(ad)f(lib.)1651
5988 y Fa(\(10.6.04\))1744 6215 y Fc(12)p eop end
%%Trailer
userdict /end-hook known{end-hook}if
%%EOF