| 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-sax.ps |
%!PS-Adobe-2.0
%%Creator: dvips(k) 5.95a Copyright 2005 Radical Eye Software
%%Title: jazzmesse-sax.dvi
%%Pages: 5
%%PageOrder: Ascend
%%BoundingBox: 0 0 595 842
%%DocumentFonts: CMBX12 CMR10 CMR17 CMR12 CMR8
%%DocumentPaperSizes: a4
%%EndComments
%DVIPSWebPage: (www.radicaleye.com)
%DVIPSCommandLine: dvips -O -1in,-1in -o jazzmesse-sax.ps jazzmesse-sax
%DVIPSParameters: dpi=600
%DVIPSSource: TeX output 2007.10.20:2325
%%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 45 /hyphen 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
D86BFE8DA8607817AEE030753FCE8C7825450B44B1C8CFA47A5E80A785F88635
EA4C371C2F018CE0F3D4DD8543AD2AC9D702F04E38FE23D54802884877D0CE9D
DB7A339EA89B495387DA2488B83232056F58AEBF75FCAA2BBA5A73B4D96733F5
F9A3118B7FE49BB41B5DA727CA62671E7EE4D2655D05BEE1A063DE5B2DC657FE
47D82B8951BDD97133AE304E6BB428DA4B7A9FFF1EE96B6CCB4700E68973E7E1
73C7A5DF8F5E7476153660C55A43FCD1555BDCB6A5B6185B20757EE9845E576F
2002AD5F604B47FE20A17ED479B8D97A298F37728DFD6D3DB17E7AB1B4C22E3E
F307E63792AC509574FD2F17599459AB249E6E81A11755611AD2ACA1286BD852
9756A04B272462C3C0C0C8C2E73721959E0752665E1468A2463DF611551F9FF7
22EAFBC7E03536094FBEBF62D5419400E6CABDBDFA434711C217F38BBFB8414B
BA9F393AF7855B109E08D4D21179C3A95701278E74C6387E8BA3E14FAADA8EB5
0379A595A009AC482E36CD0D6EC42AAA9F67B7B230410858512B7BFC7CD61F6C
F5BCA6D229B7C525D41F4CF8B342E6BB92A9B31A574C5F421F35CBC30BF4647C
01D6CF09F3498C423821FF64E730DFDAB4D8A5D3858EB6CD747182851B13933E
411D67F7FD50DCF0889EEC69CC23F2CED889EDA9FD4DE948D282144609281371
D5E5B63053A09B75B574D08E4F96EFE76BBCAA7482D14913130BD581C4C3B1EC
A7FAE107BD9D7F836B673FF18C1A07C139E3249A1B1F7CCADD017B62260A48E9
B2A3DF5EC91CF9A04DC7F25B84E774915CC9606C18D283FA18350A5F2F7B28C0
DF0B03E8C2F615EC7468CA811A99F2518DD25FBC213AD7BD6B4463385A3539F2
EC0E0CF351165968A8F09A92C2EB236ED5C7425A76D2BD57ADE754556B498624
A582968527FCA0C8971257DEFDC8BC36B00DA227149455BA8BBFAB97C50C66AB
176D26DF8EB3D9CE80E35C63978C5EB405359C5B4ABDC0DB8803F177D481D4FF
EEF3BD0E42F883B824B8B05AB1AD1D230F50BD2C1A514702D8BCCF68CDA8135C
1DF38DD1156E829E8BA2741B548A37FA04C08B0970DEAF9D01EBCD5FBC8D7DDD
02DDF7FBA62800E18229E0E66CF92FCC5F5794435FC3EA20AB8DCFA1F11586ED
A28C5C05E85B17ED122AAE9B5A21CDB6FDCC0ABB67458EF645DBE040A60B3675
775E60907722D01553B0EFAF3F4C11BD8D1628704610714C457516ACA1C318CF
B21723D46F9FCDD8E5DAB7AB6212F697A8C1E5516E4B964580E6FE2D93113691
FF582CCA3824CB2D408CA327DFC23E30A6BAE4D01D8510237C0BDEEC02374206
909C1B2C1B4840E09D9A1DA1DD12277CCD5CAC870481DE64E715BE835EB389EF
3918F50B6F36A70EEEDC516564C888E3E3CD9A9AC8339C18C8F47D6C77C30DC3
BCBB552218A45DE17EA817F729C117EEF63F186141EF70C4124480145045655D
C7CE2DA65F6703F68C8AAA164BC3B636B19AD42ABACC4F6F4CC2B6CDFF3B975F
8206CF41756905CE52F123E86F4C414B4E1104F654D73985195D26D051F7A8A4
7163F46495FE6D09EE8AD8611E2FD9ACE65EB6233B93328E3F5822EA8BB58028
350A525EE705F350EA41BEF8579C54DD95F9DE50394372E154D8964EFC29DC4D
DABB396A70C8D7AC3276243DDFFB62D5FE11B27244043E240A32E46BFF968AED
F70F018A5250DD98A66AD29370A0E6275B598F0920E92B18966559278A5B451D
CB6CC90079827A40E0314A33F976D197F31F043FFA577D06C19228E6B6288134
3D63371B97AAB7C2962ABC4380F2E34368719926DE3A10CFA889CEDEB53EA253
5E5ACF4F371B772312F6AC5B032EBC2ABB9AD6C5D5D7C9BAEFD711D63423C201
05573DBE04A35E6FC1A19CAAFB4926317B490C8B22D931531745B5F593765B9F
5D91A018B417266BE7198E2AAD4F77579699C9C1D75485EFA532AFB34F8217F8
CC0911F1225B8178A12627908E23E6B5E79DF32A2F8857B76AB0E2B432C77C20
60AEAEA561781CFE89600C0F7275C9E94238431C9F17B06DB6AD7173A97BECAF
600D310F70F2F2368A5C749723F9B249FFA98F77EA8AE83CF6A8B9E72334C714
07E9AFFEAA0B465DA60FECBF9983092C7F4B4209AE0CB4708C3A452D45FA05E8
37FF0A8A9C0A544536265AB641F11C821EF55DD74136B2CB9996E4807B066270
F3E267C6CA62BC5E20E35F68BCAD2831BD208E4DCADFFC9AA2353CA213BDB069
B6C00896799A80215AB7A024073AB88646B1797B7D2D6AA58AE85AE22F57C750
25B64F22293F65965E587035EBA2B7D343F0DF79B529C99C51E2BD8A6E1D207D
7B6AA6FF0DBEF19475453796042ADF839682C249A19C92BAD5A9FD53D75ED0E3
A3D2D4C1ADA2B367897E953A784D66F58D75682E9330AC566A99CD9104B9B11D
3D3770F0B80218D8BD3B6D3BFB5A6A8ABB5608679BF44B310073188678F1EB5C
36C615812C655E8FA345B129393ECB273B6EFF2107288318087348D48DB9C387
ABB1AACD80E5EC51B0F3B328C0A290E7F9BEB9F3B33FF3D9BC421CBDAC1F08ED
613A2568C627909791F66CACD367DA5D093022E724E7F5A7322A1670CB6B4AA3
8829DDFDAF13D9862BBBA733B40E5E79204F7DCBC9A60677E93D42D72C305014
927911CE90552DFD9CA58EFECA252BEC586D04C1F372A2A57C50F5487EE6CCEF
83EB81D54ECAE9A117746836A95CB49FEDB68AAA42129A8B91792B61DEF9CCD1
C9371FC9CE3B588A10A7AD45918604EC9DB0A6079251750636ACDADA14114FC8
081FC7D6B53B9D953486559A7463E22917345608AD5E0161B4EFDD16085DAEB8
4A5CC99AE2B61BAC6AC084B94C8A6E3BAA266F757B390D9CEE0F178620B29D13
A823E7EF845356B4EF0734AF35855BBC11CA35F81B9AA3CB68DA99A18571BA7D
64BC05026268110A4CE976B8EA7F54E3B0ED05A892458BD4D81A25FAC9B10906
DA81A720418224A1B393F354F13FC3C616C2FA6D58F364C78CE8476FE3779137
C29213306561B016E90CF79A76B1255E3F4DDFDEBAF7B3EB0ED5F656A735C560
188E7EB06C30EE70D9CFEF1BAD4CEDAA8BA8765979189E383D980387633FD7D0
012D25C06E776F2391641F0B790707A90577C8DC05022ADA5A93BB91FA4AF463
9F4DE5B61FD487A63AFF3C5CBD04327007906A8B75FC432EEEA265D68B24EFAF
0816DD9DC6F3117CB628B02CD6C4798092CFE940ADAF3115EC5EC1010CBAD10A
2ABA2A90222FA358811DE09674F0DD5386D4B1D77B5C4177EA2ADAF197EFE2B6
0F8C574754A5286AA6BFC3FB65F6EA38B01286670D302875CC3CC501ABE1158A
CA3FD626CC335E99FF641C6B9F58C7DF40D2AF7F796007F13B6A408CD4630172
3E0E75E10880BE5FB458DB654982F688644D8EB8F76C7CD3A8FD28D59B458811
9742BFE0F0B4FB857787EDEAE1E61CF634E6CB85C9E53B42EBEB4EF191B6A863
B9836C20A760E4F7514E2BF4D0D9B40495BE25D644F2546897000B071829574A
1D7FD6E572593195579F08BCA520FF7F964412A4E71864DD9D1AA85E7CFD9BF3
28F2566E79808E32B93947EC74AF4EA6BB02E826BF06DCCB682B959D8378B64E
D475A0190421E6E51FECB8AA5993C6F3AAABDFC2290328FF793868F89E5BE478
EBE1355B056BD5F4B1DA18287910B8873E275E8C8205591F4F873132BF1A6303
AF25000C8313DBF901EC60DAC211AF934C8A07E46DDBDD65ECDACF7FFFA8D9E9
4FFFDC05AECC7BB369F6FAA9E2BC12AD85FCB7407596AFB4C84C70A8D7D4F524
B30D7A2B0F3B5BE2A0A2EBDB001CC17FE0C6C3611EB7A0AD6DBFC489AA33333B
E3FF0EDFBED794EC51153EF6BA7003163DAE411BF597D01D2D47494AF32900DE
946BE9B27F8712A159DB1AA916402090706516F538D6ECC21C30C07CF69E6CB4
440236BDEEBE22EABE0C1B49CA11D3B9FDB5874D109AE9C51FC782B1389E7AF7
41D2D0B242A77DB606E6B1039C5E3289F8DA70787E8EE708E3066678FEF0852B
C8C6B07457AF0508906EAB0C0A22FA265284244D4DFE99BBB5CC1C8B1C429485
0C74A609FA1EC96BD72D58539CBA1C7FF97128C27091F2228F20C01714631515
3F88907394C6A4E1B2FDFC6C28E8E41ACE5525EAF262C4DA46608AF519B2F8C6
ABA33D4ECEA928EF3F81903EC403DADF8DE118A6486133F2CA003331EA13860B
F5E68EE2C154EBA6C6B028907F44D7A4C6F2610850B70A05719EFF884E050996
66A2547B1C0B1C7AD3B4667B6714893F1E8567F3066B9A73B04ECFFC8013D75D
99F7CB040F968DE29072AD3091EF225262BEADB105DCD450301202252F9E4922
1412ABCB0BE08657E3C1C4B3EBAF93E55F183379F48D1011F0A4F8BBDD56C8FF
E49A247E91C67276AA2F3A6749BD54BEA7553E5A9E55DE0BFBE95652CF8191D1
20AC5D6AEEDD1226A3AFB1551203B08847C499D8E794B64F8357CCB827609DDA
8F983993949155FAC050B1815D403F4C1A3513D66742617FC99F8A0504A620D5
4C54178F0B1194D67B4708619E19FF8337EB8A2BA0A3E8700DE2A4BD7E51A64C
1EAF14268675B228CC3D15A043CF588DDC32CBE14284F415A8ABD91ED1411BEC
065CD4860A6F57E981F98CD8E5921CC389AEB63D1174DCC19D0978AD6C79EC32
6A5E30E851F664858DD9B2F3459BE4F973B0FAB3E5FA71DE4BC2889974252EA0
00C78ED2A7034A3632506E6564616058AE8A46CE25F1999739B6D7454ECC8F6D
5A57331EBC7478CCB0E0E918D8B6A660B244EAB2937B35842C9686710A058805
DC29D87D55E97B2C50BD36E5473C6E02EA3741F5C8B4BD479A5EEBF1BDE37C9F
8DE3F672CF62E846EBC5E759211BD0AC7E147EC765DBF4D0E14D3A887E707FCC
92150DBE9B019EBE23696DAE39C8B5FB4FE664FC041EB4317BBD208ABA4CB350
401187968E64FEA0928708B9C16BCD089A6D7A58B3F4A969EE11A2662B9208FE
8AA4100A96AFA96A85A6393D4B887E4A1262267C1881A3821235339989BC986D
E19B2D4A7A73B46B193186B541656F9434883D422B72999EBD641543692BFA86
98D82441C025B3423D0915F40DA1D1627E4DCB88BE9957246B0711B04690021A
F8987538E842E078857A6CB19A119F2E0219E3FE65481F99AE45596BDA91E741
0CAB3EA75C19B6BD63486AB1A2007327D2574553E17FD192662945CE34D94D6E
E353F57DEA12DF268BF9D714A3703A2AC28A28EF17CDDB5A3B58F05CC3AC92B1
D52DEBAC034993875D4587BF2BCA4582B1B5A84411EDAA283A44C76C9D979875
96AA56F5031DFC1A4E8106CC025B01BB05FD78F9A7CFDA3CD4A296BA37B2893F
7C249F9873A301617821270899C3BC66235C6975A66D66AD3757681FABF7DC63
76C1C2B1C431BB1F93170F94009944AB0EC8FC03DCE5AADE49CC9C75BC79B013
0D4762BA97AB979CAF04411342A8A732EDF016A17EE8469D5ACD342789179C9F
223135A30075BF61F1754CDF54A45699E6DC3E22A727A68327ABDC02307E0FDF
5DA1B93ADACC69C56433C2E84F55B41381862BE3CBE9339DC986AD1F7EABE860
8CA5CA650039EEA007F6E623F3B449D83E040EA58718878E89D3E3150ED2A0BA
D42EF4CF3634DEBB8F5CF4388FE8CC693967B2348C5261ECD64EC6FC1142BFDF
1C182E23FB1A403CB7A86F506E249897B74707A2C617FDE2D1DE3ADEB1539753
30A0C6FDE4FCDC9C44AC91DEA88F951D6358A99EADDE8E9B25747D3356B68196
F5D637E4BD18B8C27AF4C250DBDD61840B991EA93ED118E6AE68678AA48BCB03
F03B87219C0181487A642566097FF261A6968F3C0F1BD988A79CB41F78E67560
7639244599843D2F989AD7A7C29C12F8D003D34605F870D70A3CF0A31AD708A6
22F44F957EF8953CE930AA809B60C29388E3521EF704559DC6D0A2E6C81B9DDA
AFE4939D83035B1B6DAAB0C7C9FD816978684299D765B7226B1D721097313324
915976BD7D6E1B5672DD4EE57BD03B8B4E991F3AF21495D4C3D4EAEE3729415D
29FC37728DD6E7495D3EA2E5A0851DF65B524EC78FFA55A93E183000E88ADE14
A39E43FCCA34939B42D2B6937EC1B9B2F3083F2DFB538E8B88831F42339FC63A
B425CA27826CAE01F81B825D0303D948CBF26C00008163A54450B0E3C8F97BD6
8E8838A9FCE0994D53CEE986B30DFD761DA0FF70D8C25F3FFE09E0B5DFCF5ACF
99ADADFBA7F6C25CDD4B0C8A908E749EA4DD8BAE1B0B513CE7EE11616AECA708
12CC109C3DAF7A90E92C7FBC49BDD10F43F8478B6D0B3B6B60CF84525B33F0F2
9E58D5E86B1F67F08DEBFFE6E9106D34CD68003AAB03C8641486AC0D3C4DDC14
C035850D7A961B23AABAB97E43CE1F0FC1626A3BA47D5BB15F74E54F51EC9F5D
D9A84EDA368DE74205B375EB331C8B28AA814E2DADBC87B5C085083FBDB9A5EA
9C367686C7D933DB8B215BE9081F9966E960561FDD504F08DFB6D3599E8EFD04
44086B6BB9E128F2648262A144629E1FD9E71666828CE154956144FD1B0D13DC
04659D1AF6AC124848D18CE10A5CAF1D0015034C8DCB7E4237F3C662F85A154E
8EC7795CE36B13C9E03A90650C484321B1F87E9C7621C811DFB50BD0A495F892
FC73442712F880CD985CC71C99A323C8F53694A04F81B257E2983DCA9FAD0715
B96AA1D2DD9F88F402E1EC586FA08DE6FB2F2FB8AA6E23F05EDBBD61FEE32AA6
0971A7B6810110B088D73E2DE885B0ABCF3A871AAFAEBD7E4508B088A57CF10D
2DFA3B3E7FEAD497C7F1547A2C30BDE349FB9085CD7439F0B28678A9B257E1E8
376256325BF78EB92BB90FF44B46DCD0B8AA87508E28D08E83700FA148880467
EDCB9448209AA3A4D04EB2ED8BB5013F83664F827B46621DCF185D9F0A0AC84F
6CF75DA03802B6BFC807488E62906B1610F1692BA041305FF634D70044E06160
D7FBAF30EB32383774F0957603B816B765A5FD7FCE95A0FD30C7A4E6FDEA05E9
8B5686F9606A5FCDFFE4D2002FDD2E877D9149742FD794D1FBFA903B139553FC
D3D9F714FBCB3A5B78C6FF842E8A0A76392278B414C97FDEDB35B80F49AB04DC
F72D9C531BBE1A70956F9A9A60AD685FDA19A8B1BEEE1C2A72308D8F60761224
DF773BB162AC3976F001735AE82EA45F8EB5C20A23B35AB922336482B55F557C
AC12EBB537B2397D9360FAD62D1A7AEB44BCF0E80BD179940C138998A6A6300E
F2EE0F38A9BFC178615952C1C3A9F946BB794CFBD6A1DD7CA0D6A01C85828C50
F856128AB3DA8A6BD009DFF9C807836B1D5707453AF8965171DF4A5D60447843
F3B7188CE79C8179E9B94B65F4F760842311871FB296380D21778B0294590CEE
0F63032CA6DD925592B60818EB40A31B5E2E8930983D8EE225E582484DAD64BD
2B5CAE8A687C78D37EA09C0908BE14B711E171E2E1340FF96B5DD6214DCF43A3
7490FC2965505B178BA6DCEB7E57F7891CC078F2D9E8AF56F01FBD9A9BD32D1A
B4838E32D12DA5C50A1386C2316CD9E00B9E4AE66522128125E80E169E2A4DEA
4037B8D4D4B92E0C16EBA30EE0FF1E6E1A9622BEEDF235F1262DF9045E1C593C
179751DD6511B4CFCAECE1C490BAF445342A71093D1033FC593E6C1B4C71B145
E90233446E09A8303498CE87719D1016569C51DE5D17A14586E05B7089E8F3E8
84B7B80FD6B56B6A9B26268939FBA8E3D3849BBB73A50F485204D9AD83425608
54D20642C16D279699748BA125AC64CBB5DE4F209D85AD56DB6725A3D13FDAE9
4094A3586A65A3138F8793188A900351FDEB1FF6F1C3298964EC9BC15BA535FB
956780726B93B401BD693432D1DD8946A3C2DE68C645DEF1D14C837D7A16EA04
33B3F8F9E96D8651BC92B02AE9E7692CF63BCC36DCF3ED183D5A7C0F9C4B5AC1
66BF7D65323B3E75FA0136C7BEE97B3B52D3DD02B511B60B15D6F973A3FA7C42
5C6E87486F7F24D1EA1FDD8317B526095238EC3F2D1E5FBBE8104D7E1E3E9800
AE8847B26988922882AC99AB9A88539A424EE9AC3B4D05BBEC4C1004517B891C
85AB265B8D021BA2F5A44680C1EC0E5A77271D19D2BCB3DF292C1343990F5B4B
5C9FEFD85B80344D41A408F325B614B05CDC7E2436480BAF22C1B70D2779417C
85CBA49B4191D1EFE492BDDDA9FCFF2B4A75F66C0270A8A313A721230F1B3628
48CBF22F93B8594B6D2F5A6B3CB44AEBA6BCBFB91920B3DEE9C4613F5876F7EF
94555AF7B75E6CFDA6D269557693C8C4D5419F5F01CF09BA80E8D674B39162E8
1E220AC7B67C4F2373926E44D7FE155F0202B6E5ACCCE1F74C6AE00EDAB892AD
63E2BAD48214FA89700E393EB68C1E15D07E02EC7F3F214862359A7F675860E4
8FA65A0BF4D0300DD77EA5C9473C94842FDCA91054FB89129CA06BB5D40F5F06
4F0CD01BAD431406C8D14175B3D0ED873738AD6F29AB892BE770D08D8A15F9BC
F687AFDB6B1E180FD19974270E491129B910C9C269FDADE8AE4CD1864772DFAB
9C530009974501B8DB239A02468833349B472DDB05EA4B5DEE530D7798851F8B
A85A1444214C148E6B6FB235B1CBCB20E72A2B41660E1A7B35CCE1C307DD6489
991C257BC5ECAD254D03C4D6894CD15B65A66A90A74C6E35334E0B6FBFF195CF
E8DB9F72903E0CA9DB15F662FD12648592E18EB53715D9F68794BB31DEEC1D7F
BA709A141EDF909626F77686E3F074F7452CBB709235DA97F10C576062B83BC0
F2906A55371C647F00814DCDCC3DF204A8D871D0D8E5CC3406A12D6A4711DCE0
B69FDC39C83231C6D472BDB9678D1DA0D7F0B1F5E07C96971BB24B8DC5B64712
EB9E10E9C34136CA5728876EAF49A2722FBD19BCF918E86C67C8A9D2AF4FAE84
4444E9BEECA89045925BDFD61A11CBE4B3A977DF779BE84C45CC3B7AC9E71C8B
1027A811379953B83D542BB14065FFCECFF04ACC66C01BF454A24E724C987119
E7D049E6C2352A338403DE3108B0CE7B8BB8665D256B4268F1378DD8CE318942
B611A6B0240570D78143AD5826F6FA80D099A75489105F827F6B0D94D0AAF433
4A4AAEC3BBFBC43CE721B9567139B10875B785A31193B32A71BF1437EEFEA1D3
95413D5F39A02DC740828CBD29C7E8E62849E65381C9EA2939530F8857DDBBCC
F7D8B3E98A6A30033A0CF0D4A206540AE901F38808B5C061B9AB7AF1AD9F7F1D
25876BAA44920C2BAEC557B2D89BD73FB77E44009CFE7C3051C76E28164FE741
ACD244DCB956976F5DF41D9386773B598F0E4C8A9944259488C8ED0792E984FA
26256A4281B91A7417FCA5677F9D1128C504D1D11D867AA41E60D6E10C5115B1
C1A548B48461C9F23DE127BA2CF9D62FFE21C8030D3E59319CC0021F898C317C
09A4BF6DCC7DC48A2929026E4E48F9E1CDA3F0DD7A90532415F43B198E233106
AD09A800FF015E2DA46EDED93CEBD2F73C96982E12FA83556CBABD398E5BB540
1618A641AB953B68B9D7E8BCA733004A1B7D5FB48EB917076A8E59F0FFAAF90B
709E027669404469AF493B40B57DEB0AD3EA0616B51B61F4633ECB7CF1139C96
450D94D9E83D9A64223256A23AF9A08A0EE104BCE3F26DB25B5200C54F3D2248
88624A9695FC4B23691F6C9376316DB6921F19C53CEB82042F47D8718A782154
85C336D1EF036AD2EF80A2E6728240E19B2187E4A265F0E0C820DF9AB6E83AFA
1E5DDF5809FB9DE45178DFBFF502AF07D4F87BEC6B6656AAE475D7902B720987
84C138ED2FF6052A58415673C04801CD6F7FED8811C135469E2485B20C62FF25
9951B4D2F5D5AC1185C08D63BC83EFB4DDBF46D112A36F43C18195026D47EA68
BB16B9BD5FE84249418D28A21F170B13DD3F7DD730C0538D75BB5F402939C018
90F4BF067C3BFFE483657ACC2B2C5DE44B7870D3316C25A14310FFD1367BEF88
E709F62E01B1086E71C01EA1A69DC41567E8C5C4564D4EFA2704A0649239FCBD
30D8CE1DF581DD5EEBD0103D09806393F20860FB8F3AE536DD920FA6C510F0B0
EE8CEEF236B8966FDE68E13C5BE8FDC4516C115997911FB4956B72546FD19003
852A8BF58EE279A82D90E4021CB9B8F9DD76367562D5A0F5635573945200AD4A
7F32306C8647DC636EE6C164889730010C4D8DBDE166494D556E49E19C58B5BE
397AC3698ACCC9FA30A7F881327233E6703684C97A5E1FEF7774DF46B3F7EE20
545A16635D6672
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark
%%EndFont
%%BeginFont: CMBX12
%!PS-AdobeFont-1.1: CMBX12 1.0
%%CreationDate: 1991 Aug 20 16:34:54
% Copyright (C) 1997 American Mathematical Society. All Rights Reserved.
11 dict begin
/FontInfo 7 dict dup begin
/version (1.0) readonly def
/Notice (Copyright (C) 1997 American Mathematical Society. All Rights Reserved) readonly def
/FullName (CMBX12) readonly def
/FamilyName (Computer Modern) readonly def
/Weight (Bold) readonly def
/ItalicAngle 0 def
/isFixedPitch false def
end readonly def
/FontName /CMBX12 def
/PaintType 0 def
/FontType 1 def
/FontMatrix [0.001 0 0 0.001 0 0] readonly def
/Encoding 256 array
0 1 255 {1 index exch /.notdef put} for
dup 40 /parenleft put
dup 41 /parenright put
dup 44 /comma put
dup 45 /hyphen put
dup 46 /period put
dup 48 /zero put
dup 50 /two put
dup 51 /three put
dup 65 /A put
dup 67 /C put
dup 68 /D put
dup 71 /G put
dup 72 /H put
dup 74 /J put
dup 75 /K put
dup 77 /M 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 103 /g put
dup 104 /h put
dup 105 /i put
dup 107 /k put
dup 108 /l put
dup 109 /m put
dup 110 /n put
dup 111 /o put
dup 112 /p put
dup 114 /r put
dup 115 /s put
dup 116 /t put
dup 117 /u put
dup 120 /x put
dup 121 /y put
dup 122 /z put
dup 124 /emdash put
dup 127 /dieresis put
readonly def
/FontBBox{-53 -251 1139 750}readonly def
currentdict end
currentfile eexec
D9D66F633B846A97B686A97E45A3D0AA052A014267B7904EB3C0D3BD0B83D891
016CA6CA4B712ADEB258FAAB9A130EE605E61F77FC1B738ABC7C51CD46EF8171
9098D5FEE67660E69A7AB91B58F29A4D79E57022F783EB0FBBB6D4F4EC35014F
D2DECBA99459A4C59DF0C6EBA150284454E707DC2100C15B76B4C19B84363758
469A6C558785B226332152109871A9883487DD7710949204DDCF837E6A8708B8
2BDBF16FBC7512FAA308A093FE5F0364CD5660F74BEE96790DE35AFA90CCF712
B1805DA88AE375A04D99598EADFC625BDC1F9C315B6CF28C9BD427F32C745C99
AEBE70DAAED49EA45AF94F081934AA47894A370D698ABABDA4215500B190AF26
7FCFB7DDA2BC68605A4EF61ECCA3D61C684B47FFB5887A3BEDE0B4D30E8EBABF
20980C23312618EB0EAF289B2924FF4A334B85D98FD68545FDADB47F991E7390
B10EE86A46A5AF8866C010225024D5E5862D49DEB5D8ECCB95D94283C50A363D
68A49071445610F03CE3600945118A6BC0B3AA4593104E727261C68C4A47F809
D77E4CF27B3681F6B6F3AC498E45361BF9E01FAF5527F5E3CC790D3084674B3E
26296F3E03321B5C555D2458578A89E72D3166A3C5D740B3ABB127CF420C316D
F957873DA04CF0DB25A73574A4DE2E4F2D5D4E8E0B430654CF7F341A1BDB3E26
77C194764EAD58C585F49EF10843FE020F9FDFD9008D660DE50B9BD7A2A87299
BC319E66D781101BB956E30643A19B93C8967E1AE4719F300BFE5866F0D6DA5E
C55E171A24D3B707EFA325D47F473764E99BC8B1108D815CF2ACADFA6C4663E8
30855D673CE98AB78F5F829F7FA226AB57F07B3E7D4E7CE30ED3B7EB0D3035C5
148DA8D9FA34483414FDA8E3DC9E6C479E3EEE9A11A0547FC9085FA4631AD19C
E936E0598E3197207FA7BB6E55CFD5EF72AEC12D9A9675241C7B00AD58FAF645
1297991B5D01701E82228D0313FC7C66B263BC79ACDDF9AAC48A3CBF42B96E38
583E1D059953076D68148DC8B6C9527B3A74CE7DEF788A11531F44120BDF0F61
0B2F3ED94EEBCDE4ACD23834C242AA4314B9EF98E4BE72DB76EBDD0A028CEA9D
B4C38C1F2D24B8FDE686832FE96204552C820E45B6BAF0C3308742AE2E064C03
13C2E5064E4FB036548B136509EAD0D8EC36329A3286F0F9389AFD02B960B44E
453307A7E8C906FB24F8082FC33DA26820724E20E8D0B8B772D828DE5298AE49
8F7F75B441000B3966C5B9659C362DE2B6840880B7C5E37E50DD11FE07C11A20
BFEAE46BF19C96C301B83F24B582D07B27E8E8EC5BB02A808F2B90D782863D18
9216A5F759442E1455CBB5EAE7E789D332F25F6FCEC972C68C23B85D1982BE17
C2ADCFF587351A2FB5790FB1B3CD857CCC415FD8D3A8E2FAEC18D71873850A66
98BD890E53DD6A3A68A9452FAC3D611DE8997842332F1D96BB409EDF10A314C2
7E410692F1107970451374447E4F567535EEF2DD170DDA7AE4E6221169C24FAA
F94BEFAE53F5106971A76189AE7ADEF5BF1E2ECB8DF858F6B2D338D193AD4155
CF543E89D9994E9656DA0C356260AD8A9B3230F8527C5B5E17E4D98F7BE0E723
DB5D850E75B3F060D88F3D431D90F30AAA3780A9D73F28B5257D4BECE98A3682
68B7E00C09E42ACE6948D6DA9C27E1A71CD60B377E5D168A877E454F826A70E7
13A74B3FBD51FD9AF43E868DD8DE252AE82014608839B1DA8CC6C48BC2672A5C
BA45DA3E8903CBC518CECA33046C68740C00BA18A94308FFB0FB7D053F841547
72C9DAA53E3BAC11D22309071EA59A6ABE04D1F1A8110190128991B4C85E0F0D
4E74F041C9C31FB07C8F6803A38E4AE35B9BA0D782CFA1555A0425C4B4B75297
A9EBC19A345E8D8B10CCE7BFB7C8985338C172A35196A21E8CA340F2DACFBB14
56778C6980C0E639DF0B2CAE51F1DC22A6E3867968D1DC64BE382925BF1E8648
B15B7B309F6CC5EEB298CDFB1D27A7CE3DE984679CC61B4412EC6D811C93A231
E914A1C778342554CCA70DD09F8B8B4E892F15439896465827398A36454E4283
C233BA3C87A864BE594BDD5F126BF8475C060F55090FFC89DB54CDB57543F093
168F8CC0B9880E07CA6D77CA01CDAAD173415FD7ECEB79BD56D2C664A6E96E61
869EE6315D40C7043D88AE0F6B29C1BBDF4969E131CB3195E055B1E90F5C9243
36641E2B43370426DB18852D70181FBE6B66E5202F10CF099D8192BB47644AB6
6B5B42FAA7478FBB8E5D3A219BB80A82994625B9A45074EDE6E5AB6C3B6F5E02
58E3D4CCB472FDBFFE9D0B9465CB6BA1A39AC212FB8CA3B3EAA6D39629426A3D
D8016A305F00377EBDDFC8EFE91ADF33AB8C3A0F1357F545B980032BEA1B737E
C8168AB1E20C14922C329CA394143368E489C43BBAE99431FADB04DB6B5D99F4
A0E57283AB924735F14EC32A16F9C357F40918699B728650BC12AE535BBE8DE9
4D0D8D7709E280EDA0B8DEF8E3DEBE33DB31C9C837A7D7EB772DBFD9706A1909
223DBA61B13C0522D1405C5F6250E0264B401E9C4D664DCBF0E36D79943057DC
D75F9DF33A73EA8ECABFCEB739274BF0965470D645C5A7BD96A46329B1C0C11D
9793DB1A3D9F221E45793FEFA8615F6D2B1FCCCC4C0F3B53A8D1104639705ADD
CDEF4F6BBE9F37DA981BD7A6BA719C450E461737CB4DAB77D475ACE595551154
8B2DD620C6D95D6C2B397F5B78F3BF9EC972C02927D1DE8B674FD40A82F8FDC0
CFE8886AAD73605D67EF2CC5D6A43A11D60E4C24252D2BA92E85B09D687F3575
9E5F43B104DB554297DCB77B1EE14AA5E0080D3D8D5AEFAA948DAA2EBFE3FCE0
B9863DBE19D24AA4B3891B3092012BB83F65247FD52583380DEC517A3829F35F
E6DA36D7AD7FD6A6F48849F009DEFD9295B97A38A3F5675DE10C3C0EF59985DA
677733D1EFEF5ECD3FA759319524CBD5D42A552E9E749BC57E1FEB4BD9DDAEAF
1AD6B46A7B1EA04185F60C09DAF3B4DDF448E29CF82300D7072127906E46DC5C
60066D5CB3CFB564AD3A64786B38BCB61B6C2AE60F58D0629CABA961074C4F77
71B544E4225A66A26D19B895A59FC83F9AFA0C3258006A0E8D0D03D537E6EA91
97D5E9125C79E949023623B0DCBF6F83682CFAC0FD9C0819037ECF2BF3921984
113E25781B6476FF63E96FA8ABC07EC1F11147DF3D0E7DDC1CDD08840FF9DA5A
250F641551C6F07EACB8F5179ED3C9E25843AC50FBC5C23C7515ACB572DCD82F
04E26FFC71F8A287E92A779D6C642449FF239636DA7861598B6A115A4ECA57F6
BB4BA8B720938D78A1E6FE73923AF09C825CA4063445BE6EFF7214C93D976778
931D7FD5A8665E58231EFF3B3C7CB186CFF3FAB1BE1FF032FE817F805E11C1FA
0A0F1A9C7ECC7FF999A5E0327EDBE6B5B11DAB62D70B94CE1C359C4AED40BCE8
788A5AE0F02595903F9FDFD307967A4CC722E11F7AC323CA28B34B1379ECCCFF
D487B0D13C4F38E70E62D63C458B274CFDACF1B48B7574FE06ED81A21065D826
274904548E8F32FBA9459ABD6FDF368CCCB127B3815F128541A4FD049E1BEA12
9F592989C2F79422CBEB4513FC988CD362705E5AD126E75B834FD2A16B40B891
78B462A6E14D4E5F4351A23AC22244A1E4604D70C2C0B215B319012C92D0A7B6
31DA7F0E6289EF1AA9E96B2CDB0F1E46BF1633D8FD6DE2BA0BEFED8671CDEC0F
3849AAE5BA8CE446E1192513AD25B9DAC454516C61074354FA6CBB9F37278149
00A84F22AF682AFC302ED9C58639F956F19EC8E782B6B2FC88C79AD27208A444
6C340195F348EF903A31EC28132B54D9E0AA50B734E1369E571D1F2EAD4E8C23
8159216A471E74F53CDF30DE860E899946C54CA702A445ED37B6E9E289FA8017
5BB886D158F592654E2E19BAFBFC80D699789D66BDA9FD395F43167F7C1EDE4C
43ADC44E2984E1EE594C2B88782434CDE2C391636F366E3EAA90D941712923DB
DE2079F0A677EA012EE0DF048AAE37DCDB25380E115EB53F567A10CE2DE21096
6AC9E9AA1B7DFDBB4EFD26D1EC1559555DD97D0E0571F4650865780E3C33C0E7
BD94F319DF99BB33D7723B813B54D4266A01AD990B540E989280EF31FFC3B9A5
A58182036B5758A771AAD568C0A2E76A23F1C0544520F3ABA2E949D5C3B4ABEA
78714CAF3DB43F07BED74F2B539E0EC844EBC07987EEEEF6D6227F53956D62EA
C310DF47317E6D1066A5E60A04B128F7D723A16A5B303B3F4B53A965CF6AE5C6
8765131661974229A5087B67E7E49AE31E3452804C6C0DAE874ACC3582973187
E8137BF2EC2C6F258872A1042551AE8893314243D4855C166612720BECA633FF
D432730D5A632EB1CB3B785D8C25083D4C8EC1E67435A117BF053DF531637AEF
1E645D5C75A219F604B95EA9D80B223B744615A5070096A0AF6CC8E7B5C4DCE7
0B97D9CA22B4BE57E2F27815DB29BF49E6549D9051B03F29D89A1FC296322ABC
8E56936208029B6529BB2303AAB0BD9F74BFAD88198AD993B8A4684B3A360EEF
54596EFE434C8AAA8AFA4F22196E2506117B61CB975A76A074BF11AB4C6BACF1
2D9FFEBAD392610647CA2BD1640EAE135FA1B8EDF00EE66195E822A065D58F63
4B718D106FA066B9EAB702F97492710495A74C4E465B181BC979774125BD1278
17661D15789F26AF6E70FDDFADFA37C8F6E51BDB7BF068B038344F8EDC2BF9B5
2B86CCBC25100D829CEDE84B80A725CB6D5F4E72C609F14E26BED6FB0DFF5101
EAD582802235C710494E655A8AB049A130EB764B839257E8FDCF95F17CF3F026
ED8CCFA56B58ED3CF587A16164F19EA1E9A9F9BF9959C0F076A44458584A618F
809B21EC33781F114038687319BBCFFF2A4A991E9DCDCB1FC53AA30525C5B7E9
0CC35918FDC34D25374AFA2B69A5448B81AE4A037513609C5DF43BEE98F466F4
199BCBC4A743AEDD8529319C31FED257157DB20FB510702DB282B689FABE204A
3950004B9151C9A2CAB7373D5636F98D3F6B4386F9B902EF356693005239694C
379FFE598261F1B6DE3F81E0E8E2E5756BB35EF5EB7EF3CA7C7EE18B487F47E0
13380615562C773F893BA8EE529D7CFFCB433053DE81DF688F3E55FAA69C5CE7
2A508DB6C36AC9000F35FA1BFBCB92C506B5E64D81BBF5D17183B3D59D5B5E9F
BA25BBCACCED04E4752D4E5CE92BF0840995D1341A8D85D7296CBF37E5F96DBF
BD2181611B182600BB834D7F98BF1B8ADFE2EBF66F6E7296202282BB8ABC4808
16730A2F59322584C72960661A86E07E6DB8521E85686BF6854AE5F5C9B0092A
AAB70E215659B5D85788D34A9661D717009FE4FE409340FB2AA8B272565BD04F
1180912A50E626E636ACF7BBACAF2CD107B5EE47703E8BC1FD0EA1F7D016B673
BCFAEF28EFB6EA1481346CBF40F1F1F231E4E282D575BE4AF6CD360171D0DCB0
11EF690C1FACC75077EDD948FDEEB4BA9B9B415AC364F93DFD893E96D06BCA96
352C101EDEE721582B68DFF2269EE8663F20CA62959E346AAEC3DBF4576BA4CC
D89E9A418D37F2FAB3EB9263676EA9864110236EF3E332BBD848CE588E88E208
B6B5064F34F25E36F960BD1B168DFA2EA6EF82E2BC357915F376F66567A422B7
ADB133B929DE471C10297CA137A4550922F823E3E458195CA78887F94490913C
3EEF5F13E3E56017627758C0F9D33700805B3772FA1BBB3E358CF24EF4309217
4104466EA694B0DC2AF5A87A0C21A781CE42DAD3E5F207A3CDE2D10999A37008
E7C1E81BC6569B4346D8E53F0E2789C5A63B537AE13A9263C62BE901FC67F9A1
DCA50B0B354BC10EEBED08930037D9A22047767AD765F4227EB6001F441C53A2
15BDA16C8DB110FA0E883133B0B7067C847683D9F4AEC49B47793A16D98D3FCA
D047D6F9DD6613107F88B639596FB29808B06E827DCE896FCD2C8F210A389544
402667988F88269AE793AEE5268ACD7A193A92A619B1817C2163CAF92FF41F8B
B189CF68F93EB8750F447B5BE7369335AD494226B6EB6C4D85636CE840CDCED6
F062384E98B6FC54B506D2FA7FCB5818A2D8E965B0DA8231752F0D7CF36BFCC8
EEE0C8DB39304B3C011967892A1A708DB9F82CC5B02E517F4006E6CD0B599B44
0D52CD6CD699511FFF7BE2BC379ADAE26C5FF9FA08CCF12E6E561D28BEDDEF01
806DB2C34EA92C8291151D0D03A54E4588AFB04874C67A3B5928129230F3445D
6F018C18F328E0C73F4DA85B0AF13A5F2AB757503CAE1BF2F8DDE13B38C81D23
9827FC45BB3D6A6672514812B7833F6CE466BA160FD75B03B9306E3CA26D5E92
153B1524BE9FAC7E6C0181F8DBF23B7B1064D78184CFF9A50F595512C67B6D27
B32C8BCBC91163A3E0B9C1105274FAAC0C47C487C3D6956C7E6E75C0F22FD723
C3AF4ACA04ADCCFC727E9BAF54C7287B65AD93C361CB2B6BB10B81290AB9F977
B51E48FB56F22D5BE48F2FC269DCEE0F5A1EB062A3BB76FC4D74BB68AFE74A16
7D4015C2E5676085BA5E3DB5C2F8DCB1EB9CEEBCF467A5E497780F5B8FA05D0C
CC363C20736CB1234AB64DF9D91DFCDCB96CB865E704C3804811A102D66E11AA
1889F205FC590F44B04946C9B4BF713D1AF7670411453F88970CBEADD610BFF9
F75829F91B35B32E2B8E527555A319786CAFC884AC3DE428E5C4C1C0AB1FADA7
2419CBB68404D2522B1524E6CDB71C426AA355F2177245E65CD4BCFDBE4921FA
C07DCEFC22E5BD03AE0E9EDFAB132C8EB20230B2C9B46CC3E5177212C2522012
CEE69A555E1FC933D07F60F690CB9171874A6B0FA348C2798B915ABC0681AEAA
9E8C7E57747AE7D14F5B8015460226EB2EB42FFA2CE5E4538B2F38AF32E0CC4E
30C9C1EE8A11A5ADC05430958C4290003D93810F97836BA0AC1720E03B43B99A
66B461267E7AA1191C72F04A76194A46A2000DF17157ECA1FA13CF348AABDFB8
6666844929F9DE6BD20DFB013A13CCBCF13DEC04DB949A119A2371ED1503F023
3B7E5CF7657CCC91822167E9C269FFEB60F832D8809B7234ADF409EE75581ED2
45BE7FCE1CCB237A96E26B5644B6A7E09A13B645DE93C226C427C48EE8975B29
E1621298D3EED7C3424BF3BEF729B8EADCFAA714535747B74CBE68AAAA042103
F33F1F28C7783A57094DE78DBEC0C9E6A1C559AD8DAC7529DEC6719533151ACE
548E4066A55BE6858DB7E5C7CE27FE9391F2B99FF1E972C16D6EE8A79BF0B61C
888B4B51ABCC3339C5C81B43A7AB3ED7D7DDE0AF56CA560A0A34BB36710531BC
3D1097212A2044681CAEDAE2CA1DC207F23ADB621DEDD8FBC843B40D7A35C0DA
4A3D99DA2DAE0AE7A252323F6C882813DFA85E91E67EE494709CE3B9C9C6F052
E49C206FACF41898BC2A3F981C3F853367A27ABA2DE5B706604716768DBF6444
2F4071BBE0F6D5E281B097964C233A5D0351BF1B57B3AD5C433827A3099E26EE
40621CA2EA44BF5B3B5B619BBFE6A8B6699DBF0D638D07F4FC7BC1F25EB0B043
2B7A8FEF55861F6B3A84DCBA6180CFFBB103ECEBB6690E66B210BEEFBE214BE0
7D1E428075AD2DEB38232A73002EB9767C9582CEE68AE6F8B32EFB5F9E1C5A5E
9A158986953700C4724A2064A01850E3C1BA7A45E154B852BE3EF2076EE3D81E
D95738AF9C30DE7A1FBD78148F93B9447F79415ED7F0FEE9B31E7F4F336EF742
9AF7AEC24CE016EC7CB852218994D78A6BF3D24292863B94D37EED9F76BDFE83
DA6013EB4C966912B41BD2863EA3506338032C563D3189638048D9601797745F
96B9987453C3C43F07D6402AD3E713CF3A300D1FE99B220CF17E87A98025F3B8
848883F4F2C5AA5CD458A33DB8613DD0B6AD6F8EBE66729C6D5A7FB975EBB802
432A1972457A27FE99BCED73C1606F7387B31CEA60985B14ECB9FF25329314AB
93B6026ADA3863B63E5AAFB67BB2AA746B4C1389E14A3D3388065528DE6FEC3E
C3C1397F1D2DBA74E6B2B5E49B1A707613546B8ACCA22FEC97EBAC2AFB2D7F99
6DA41638869975E901BCD56E0825FF8DD1F892ABA0D06D5C50CE0CDBD9AE368E
041E08AC513DAA8E495E1383178EF08A839B4991F857A76B37598F430F020EC6
5C47DA3250EE2F121755762AF6CA07161F5F3D2D460BB667A66E460EC1832CE6
6813EB000DA73000FC0B67AB338C316B7B97F5DBACCEAAF09D097ACC6A7BBFE5
5FD93E7793FBB6117ED212233512867B821AD18B53502FDBFDE60FB726CFF728
457B323869CD08C6EE3329F9F1CC847275575F7B9742E35E2E51C8016D2716E6
DCDC90D8FF7C92B7E193A4BC39AC628CEB07C52C27613224CE2E0C3FEEBE159C
8A2E285A9E13C2DBD147524EBA2B90BEE57781D96670B2D0F8C41CA76436FCBF
13D56770CE734386534626F69EB14BA2900E57F5CBB96B54077823626BA0BE7A
B18702BCA70641CF67831EC699950D38F0412601DD9578B35941C9C285AB2FB6
0170B82A5ECA307161791A490CF4BC644DDC87D419CF619B714A9ACE588832F3
4396719F8D8F744D6EC5EA9E15252941CD3E461463BF2380209C2A2235108828
E8435378EF2A90C68C4FA34C8F5E07A52AD8FF1C4BC99E5FC9A981262BA190DA
2EBAF1712CA8347261E30D0CACBB6583190F3D2F5264048BEFDD67BD8034A0B9
6EEE08AB13D2B7A85682AAD972049B8F49D6AA979E6FE85B59DF8FCC06E3B70A
6DDC3394C1D4B9F84041D35DEAE8A878842D5027E451F89A8D8A18CA4EE830A2
73E582B906CF7E424B652D8F215D1DFFA4828044A5CD77E5A929FACFB07ED511
6165BE4B15CF9B175C84CEFFCF9C07B65BB22ADC91B8A6A7C580F4EFCE4444F0
6E7D593174D5EB6FFC89142037C9391C20B9F0AD20D005358F5B03759FAB73A4
DAD32AFD8E97680EFDDC964C194C50EA0B0543EB860E74611CC0F8C06C590316
E95CFBEE747BB813B5F2BB9ED5EFA997DE9C153AF996601B1FDF58516BD64C4B
37BBE87923E11E4AABDB3A303BAFD432AC75BE59E7DD653FD1B097CA89DF116A
0D7FBCB63DBCD201949047D696B43E46F25806518305487D8F03E0B03EDA9CA9
85756579CF46CEEF4ED8BA262CE50B84CAA7279582AF247055D178E7287391FC
7CD892F7D4A03A065B1E1AE3379C53BFFCA58F38726C48B2E99EA9221AD36FB9
C61D31328096EE4E244640978FDBA13E0C998EB2BF8741EBADFFF881229ABF55
1CD3E611FC4B41C046920F3E4542F37C7196F0C9514CEDAD5F4F3A67335295B6
8F72063C4A2C369C2306EB20FFC306824D7C246F5DDC4AF68788474CF4A710CC
6ED2CCA29FFDA4F802180A553FC8599502910AB28AB983A20E5E001A7271A71D
4C2D9C5D0A8A33BCD056DE8B1FC43931C3E139871EBBF64245E73616CB06C1A4
8872B2434037AF894C74BE1FD2B42CA3171F5BDD2072C4D3FD4C9247019E8E3E
6CF95608F608058F0B41E8CC498FC32156021FC1D3000247481D5B22FCECE528
E5629918DDFB9181822609D3F34A4F5A580E0F72203307560010E6ABFAC6DD85
CD4850018DED453DDE68259AA03E01A61CA3D790C73264C2E47037B740AEE312
CF847B5CDC5AE32B6C4C1A67BDB348C33F113CFC5EC5F5317E3E167861E01C70
EB47FC6AB91344C600F8531D1C26FFB33DDCE3290C828A0135F2568E5B418004
385318219B5C9091D2CBF7F64FD1BA66259CBB696F34EE8BF5A5C23C0A7C8778
5892C7EA6D07FCBA815047E6E19FA0F98D3BEA9D304FA159DAA16981713600BD
D78E4C04A525894C47A5128BB887E038A3DEA108E1BD8304F0A86662E23D38B6
430937794E30DC8F93E08A21F87D9D0555BD1EF5E8C4B8087CC5A9621768C6D0
D724DA7827713F581E4F8CDE339BC318993A19EC29D213AB9CD5FF7E826B5B50
FF963CCC7E06CBECB98AAF00919289F769B926A54992BA54C5A38EEBFBAED4C3
42B63CF76F3FC9BDAFA2ABCC3D235C85B39B01AA9DA31E9F9F21EA5377827E
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 45 /hyphen put
dup 65 /A put
dup 83 /S put
dup 97 /a put
dup 104 /h put
dup 108 /l put
dup 110 /n put
dup 111 /o put
dup 112 /p put
dup 116 /t put
dup 120 /x 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
207999FF86F6A3EBE48EB0A1CA635450FDEEF79EB16D853F3BF4B41F7F62EF09
F8C97D7BE8E8040BCF71C61854FC4C78A15A9120F16B0EB3A37316829E342B32
9FB05C73D567ABA37CA101EC17AEBC8767ADA86F7EC21BA0478BC2BC9EDD3AF6
C4819EDEDDE1D094371852BD95B69618EA14B217B74EFE2A8D0F405D46592944
4EEA170EC672F1A3FDF9D4DC201E104D1EB8850252B4574540E1EC6F04C9D85E
A6ED431940FE6344B578304A0E17E37529965BA41187536004DE841BB544E889
DB86D6167996AA316738754688863A724837DE233FBB8A068C77FA1C87A3D00D
F3999581A1608C3548C7823914C4225E002EB0A3179A60A2257D6E77274F6C08
74176647D8A976CE34354AC1ECDBDE03CCC500F40F299BF2392C149E4D78C3C7
FF7A2A67D3DFAEB0D2A19B33057FECC2FB369633D84B45A2C1FBEF91DAA9F7A2
BF26AFC953C731C7F063972B020FE43AD09FF2F4F2F1B00926C42BCFCF5527A9
BA969A8D236CC54AE8C21DFBDEA24E65B8198EBFE59A409ED1285C6A926E56E3
E46A7633EBF912E99C116243882103881D2A56283B56A7CC508148942B4A94ED
DE6CFB61A5D5850DDBD806B56413971C4AD50BFD408482D6EB1FB489D9A63735
D602E526A40CE61E37A21E98E82E5DFEFCCF435D841E4B1F0EC125CBA9B0AFDE
098B378E995D8191933583C865237EC0C4F82EA7D97B67F05371D2DFB3F63DF7
9DEAEF83854D7323FA3E47DC88D01EF83EE43AAB44AFB3CD632EFA76D9DCBFFD
105FF723545761440B67DED4D87E4F95DDE46038CCCC24F988D953ABFC75CB1E
6F56233047075C592C72781EBAB719F904C068713AB8443422DBC0E1E9FBECEE
06AFC4A7D76806BB1B0729494C4CD5BC3B7CBB56429F10816F00AA40DF7488E6
0ACD305175A6171452ACFB85660EDFC268D513C8800EBBA5BD086AA88C7F85A2
F628EFF0445096F977A951A064465A635C9751B0ACFBD3993D1048E57170D451
D58EBAC54051E00AF38755C4404318F053CD8671E06EF73C554C61DAB883684F
F4F426786A6A15D3CB75F1BAB19EE256ED4483690CB82C278E20BF17DA129695
A3721CDCD8D48B8D5F73DFB82AA5B0A03E06FB0A51AD5A6DA039671A3BE19774
792EB0CF975A9FCF91E690026992C4155EF885C19173A38198DE2ECC6249E191
DF202C8DE4A797159B46E1A6023B70E7779938114DFA170FFDBA658B3F65B768
7E62E21CB8EC9A257243BCC1D4153D0ACE078056AFF938653430CE51685AB4C9
570D61C7D2703E7EC74F702F14C9761F71266862F83B680E128E6645195C91BC
158551265EF3E672F327E01042119467D5F3563C404E54AF3135ED4B8BE8A578
2F1D634FF1A4AC3A86E3EF16C1AB2486926C827730974A5C22FBACFB19B90A3D
B6163620F88FECECD958EB1E8153CD0A6C3816D500D9443CE39FB5B539F5CC88
5FDD692945BD3C4E19D6C1511424C46E2C1098806CF936915D7E0FC193374C36
96FB4D8C7296C71EB2A39E68D027E1A9D39590F8E7DCB1261C3442E9852BD711
5B409DB13CF0DDABF03EE4AC57FE6AAB0CC05E49AFD87D63D64C3C22177891F4
C0E256BF8321AB7B0CC84D1AB5218A9DEE78C2132365C01CB0D44C6204DA2D33
5710D137481D509D27B87E3344D6DD00010A996D40FC3E2326EF6E1FC80E3661
A9395E0E02E0C25125B1522D26BA6EBBF435447113A98BB3A929511A875A581F
00497A31C719DBBDBFF5A11F36EF698AF4979E0BD672C9E699A9B227DF3C33BB
B749D208068275A87EBBC6AAAE20FE9BFC432422615D8EA2912DC911336ED7BA
F5A4CB941C4D755AD6B1AA386A1FD411BA96FE67FB4725F85B5DEAF79FEC765F
774760B92BBE5CCEBBA222778B9320A1A00129CB671BBD3388CE420C9A01375D
43FDB743A9DA29A2B1DA973F2D9111FAFE7BC44A7D6961CA3E508B7CED0CA8A6
7F436266844B7E0A89DB8EB5B545D9DAE316D6CBB307109AF767D98558703C7C
19D4FE585D826493333154AE966C118915D7BF9FA00D65930C7C21A19ACE4DB3
73B0CE0D39C15A03CBF3151041E59B5B14C38DFE9839E090C9C1C1623119EDAE
1036302E584470892C499670E9537AEAFFBCA8CCEDAB9713119264D338A86B74
865A75A670D5F62937B53621772725092A45335EDC8C196A52E855178158E385
B0D09E956B3347EAE6630DD15EFA6DF37330583F3CB113F5B4E32BE65B17A28F
36C18C2136E2816841BB172C4D8BF3758570A6B4E37ADD1ECF6F49143E8D2070
3DC4DAB9E3ED11A1C93B5F1CB656055EEAFA292C5F3DD4B886C9B3A71D943D85
05163FE3B5CE978317A915E5DD67359B043119BAF1BD38CD6A7BCF5F45C9EDC2
74A277F37AD292E4DBF45AFC3875511F918630FD94747151CC546D1149444130
93AE30DEC38E9C11D5998B6AF91398D3AC330AC91EC4E53AE9EF56ECC40A784B
8EC93E1EC0BD2F1C1183647B127047DEFA80DDE3A21128044F0C7CCCF2D72214
FF66AE5CCA788A75355BF5283067BD57AAB7FD23D238191A3E91B1DE191A8F8D
1C641CBA2CC5C6EAA7DE942A29B9879179DDAF691FE6765658E5DCE315074C54
49055B3C851A9DEC15A7DF02F4E7C47A7DB0E95BB0BCC74A15F1F4D77C9C3620
A6D1CABC99E93A90A17D9BC09636DC962BF5ED841E
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 49 /one put
dup 50 /two put
dup 51 /three put
dup 52 /four put
dup 53 /five 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
7D1888B284904301450CE0BC15EEEA00E48CCD6388F3FC390E75D51F36C3E61E
E84B5AD036ADADEBD4F8D399AA559B34270D370DEDF077D1D49253F313C333CB
F22FD740EDE076FE3383503F159888E77132A06528CEBA5BB0E57C07D36B73D7
C81B71200D95D73A1AD33BBA5CA3E34B94447EAB8D27625CBFF13B56F87A9B74
4B52A09BAB0AABD5E398B1E5E9868BC080EFC7ECBDA4D6817C3255A51A814A04
0839172E2CCECB4F6E7B5B6B3B61D5858256AD27D93969EBB34C7EE68BF805D0
39CA6AC7DECCD1A395E7BA297AB0E97B3290EDAED775EAB0D7D553F222A3B014
FFA358EE448BBB24E1B44CE0BB474DFA01B0F4C4964248444FCA4DDEA8FDA9B8
82F96DCBEF94CAC9C8F48922899CB1E7D70F650E6471E5408C44554E72599D97
BC1D32360ECFB378192605E726A3DDA7E5B02736CEB7BE8A5C27AE952F4946D0
1DD1D65C1D50D0317984B781D64B6075D35EC1E3507FD4FE2E7097A0EE1168C7
D22E9769066BE1504D7D3A71CDC5FE4926DFA6BDE23C6D29100209A2CC884E16
B74314F04FB82F8CA5E93FC0296DE0B082D800FF24666254C5C11199EFE290E3
A47FE1B8DA2D50D3EA791C900E377B78459B2E73FAB74B44F8CF1F632E494CEB
5E4DCBBC6BA4986144B109CD150530A3EBF426CF33E2E7D56CAE143377694529
C588442EC74B0136939913F7DDCACDA5FA7E916224337231AC45D3E79488661D
188E38DED013B5AAB4F934387FBB6B562ACD88D573FA2A04C6ECE8116C99C5EC
489DD3C5A392407835D5CDA85E135585E4F6F499E76947815D20641454420E41
73005155012BF41EBC309F3944875308E9D05371A81E4F0C7391071452373E3B
1172C2BF1BB017D26DF7A29B0C10BDF6760D67C54A7920DBE72F80208446F5FA
500DF455DA10F091F81DEB57AA9CAF4706A56BEC2B973DC621ED76FBA4488002
DD43AA138EA9B71310565D2D147F51177BE48AB42ECEC82F2451F9ABCF8382EC
30F5621D4520CB2DA85E36EF4577A3D13A5983DDDFEF38EF0B31F7CF335EE2FB
725067BCBF8508AB9DF9CC7D38174DEB8F07218ADC1A9ADAA2C65A88CCC843FE
60986C541A96DF0196EA6BAB858FF881A02719939961DECF76DCEF7404D01E09
BB9E45BCE396ECC9071F0AE86E03523CD38E2C6FE82EE89398DDB606877F4021
C59A596983AD8C237720C1BB7E5D6027E373108A931F12CAB6CD9CC92078798B
3BD9347C966028D6054F61472732FC518643386F6BBD93116BD48D9671D9D33F
A0719FB1CFB8A84E33CF9B07901A8634D612162D0DA25D05D1ED6D41D12B703E
0E6B6D89609417F1B81ADD521ADB06E368ED567FE2296DA7C8C0146009688B71
809A5BAB9D2E5447413A8613F5F316760241450A5DF0612D0A5D129E8A79DACB
8404CDC454AC43212B0F01F6BD8C332E2B94836FCA24D39E02EE496FC40B0642
6E7E75994FFBF56132FADD120DFCF95FEB9EC27C436D46C281BD2FB7D1552733
E54438D4B7A0F227EFDB548B50677586D6813778ED29F85135098FC987E6F2FC
29C26309293B82461BCBE170916AAEE1FD05081D8404F56EB63DDF959C933C6E
0B26410CA9DA7AF0C8D8FBEBBE63F1EFED6F78E06FCDDF0443283BD3E0A1E3FE
049497FE132C464F5F3817A665DA6D631567A8E4B2D28D834ED680BF9AFDE1E1
194965CB73B3F48F9391496D6B5796F88DEBE643A2C27404CDF3B477D539FEDC
B39920B89A7DA53F625E9A7A9BD4154F77CB7353A5029B2076B1FB278F367350
F60E5212415301B55B97F5003CA856CC89A4F878322CE7FAEA4877BBCBE3DD8A
6CA0223DECD3B691960CFD48CA86ADA74057DE95160203381BE9B6D5A059DBA3
757B0CFB95B165A76448073BB614A90A914D6D3212E2ED8027C8132C675BF9B8
53103AA1E38BBF2B22F8730C73E7D91C1C78658A8CDE6440590785972DE3CF60
A21ECB91531D6B72CF6CC233E85AF605F788E9FF18FEA3B4F12B4FD03A665AD7
72FD8951E88997792B7EFE98B9B56851F8B11E7A9795
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark
%%EndFont
TeXDict begin 39139632 55387786 1000 600 600 (jazzmesse-sax.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
33 27 2[38 38 14[49 25[{}45 99.6264 /CMR12 rf /Fc 131[161
1[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[{}29 143.462 /CMBX12 rf /Fd 135[70 3[51
3[73 66 73 1[36 3[73 6[66 13[73 17[99 19[43 45[{}11 143.462
/CMR17 rf /Fe 202[42 42 42 42 42 49[{}5 83.022 /CMR10
rf /Ff 139[44 44 46 3[62 1[31 2[31 62 2[51 2[62 54 19[106
5[88 3[81 15[56 56 1[56 48[{}16 99.6264 /CMBX12 rf /Fg
133[103 6[92 5[194 7[106 3[113 22[120 74[{}6 206.559
/CMBX12 rf /Fh 128[67 6[71 2[75 52 53 55 1[75 67 75 1[37
71 1[37 75 1[41 61 75 60 75 65 13[75 2[92 2[128 4[105
106 3[97 1[102 18[37 45 37 2[52 52 40[{}31 119.552 /CMBX12
rf end
%%EndProlog
%%BeginSetup
%%Feature: *Resolution 600dpi
TeXDict begin
%%PaperSize: A4
end
%%EndSetup
%%Page: 1 1
TeXDict begin 1 0 bop 1114 1369 a Fh(Christian)46 b(Martin)f(Gabriel)
1342 2109 y Fg(Jazzmesse)602 2563 y Fh(f)647 2569 y(\177)643
2563 y(ur)g(Soli,)h(Chor,)f(Streic)l(horc)l(hester)h(und)e(P)l(auk)l(e)
866 2755 y(\(Horn)i(o)t(der)e(Alt-Saxophon)h(ad)g(lib.\))p
1426 3387 863 4 v 1426 3543 4 157 v 1454 3495 a(Alt-Saxophon)p
2284 3543 V 1426 3546 863 4 v 1630 5216 a Ff(Mai)38 b(2003)1836
6215 y Fe(1)p eop end
%%Page: 2 2
TeXDict begin 2 1 bop 3113 -193 846 4 v 3113 -16 4 178
v 3141 -69 a Fd(Alt-Saxophon)p 3956 -16 V 3113 -13 846
4 v 1167 112 a Ff(Christian)38 b(Martin)g(Gabriel)1178
275 y Fc(Jazzmesse)53 b(\(2003\))1279 738 y(Kyrie)g(|)i(tacet)1565
1229 y(Gloria)-387 2013 y @beginspecial 0 @llx 0 @lly
516 @urx 79 @ury 5160 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-gloria001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 79
%%Title: jazzmesse-sax-gloria001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:44 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
37.8 0 T
% --- 1 ((notitle)) ---
0 -25.34 T
14.0 F1 141.1 -23.0 M (10) showb 241.4 -23.0 M (20) showb 341.8 -23.0 M (30) showb 442.2 -23.0 M (40) showb 605.0 -26.0 M (50) showb
15.0 F2 23.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 144) show
0 -57.00 M 661.50 staff
12.0 -57.0 tclef
35.0 -57.0 csig
(9) 91.9 -57.0 mrest
24.0 141.1 -57.0 bar
(10) 192.3 -57.0 mrest
24.0 241.4 -57.0 bar
(10) 292.7 -57.0 mrest
24.0 341.8 -57.0 bar
(10) 393.1 -57.0 mrest
24.0 442.2 -57.0 bar
(9) 493.5 -57.0 mrest
24.0 545.8 -57.0 dbar
575.4 -45.0 r1
24.0 605.0 -57.0 bar
633.3 -45.0 r1
24.0 661.5 -57.0 bar
0 -80.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 667 x @beginspecial 0 @llx 0 @lly 544 @urx
93 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-gloria002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 93
%%Title: jazzmesse-sax-gloria002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:44 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
% --- 2 ((notitle)) ---
0 -25.34 T
(1) 61.6 550.6 -25.0 end1
(2) 77.2 622.1 -25.0 end2
14.0 F1 125.5 -41.0 M (55) showb 342.8 -41.0 M (60) showb 446.7 -41.0 M (70) showb
15.0 F2 240.3 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 88) show
642.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 tclef
(4) 74.6 -75.0 mrest
24.0 125.5 -75.0 bar
(2) 178.5 -75.0 mrest
24.0 230.4 -75.0 fbar1 240.4 -75.0 rdots
(3) 291.9 -75.0 mrest
24.0 342.8 -75.0 bar
(10) 395.8 -75.0 mrest
24.0 446.7 -75.0 bar
(2) 499.7 -75.0 mrest
24.0 550.6 -75.0 bar
568.2 -63.0 r1
24.0 622.1 -75.0 fbar2 612.1 -75.0 rdots
(6) (8) 635.5 -75.0 tsig
654.6 -63.0 r1
24.0 699.3 -75.0 bar
0 -98.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 491 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-gloria003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-sax-gloria003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:44 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
14.0 F1 95.8 -13.0 M (75) showb 196.4 -13.0 M (80) showb 297.0 -13.0 M (90) showb 397.6 -13.0 M (100) showb 498.1 -13.0 M (110) showb 598.7 -13.0 M (120) showb
0 -47.00 M 699.30 staff
12.0 -47.0 tclef
32.4 -35.0 r4 8.0 3 dt
65.9 -35.0 r4 8.0 3 dt
24.0 95.8 -47.0 bar
(5) 147.2 -47.0 mrest
24.0 196.4 -47.0 bar
(10) 247.8 -47.0 mrest
24.0 297.0 -47.0 bar
(10) 348.3 -47.0 mrest
24.0 397.6 -47.0 bar
(10) 448.9 -47.0 mrest
24.0 498.1 -47.0 bar
(10) 549.5 -47.0 mrest
24.0 598.7 -47.0 bar
(10) 650.1 -47.0 mrest
24.0 699.3 -47.0 bar
32.4 -21.00 hld
65.9 -21.00 hld
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 650 x @beginspecial 0 @llx 0 @lly 544 @urx
91 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-gloria004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 91
%%Title: jazzmesse-sax-gloria004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:44 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 90.6 T
0.75 dup scale
% --- 4 ((notitle)) ---
0 -25.34 T
14.0 F3 562.1 -38.4 M (Celli,Kb) gcshow
14.0 F1 29.6 -42.4 M (130) showb 126.6 -38.4 M (135) showb 231.2 -38.4 M (140) showb 333.7 -38.4 M (150) showb
15.0 F2 537.1 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 144) show
0 -72.40 M 699.30 staff
12.0 -72.4 tclef
(5) 73.6 -72.4 mrest
24.0 126.6 -72.4 dbar
(5) 180.7 -72.4 mrest
24.0 231.2 -72.4 bar
(10) 283.1 -72.4 mrest
24.0 333.7 -72.4 bar
(2) 385.6 -72.4 mrest
24.0 436.2 -72.4 bar
470.3 -60.4 r1
24.0 514.6 -72.4 dbar
530.1 -72.4 csig
554.1 -72.4 sbclef
570.1 -60.4 r4
598.3 -69.4 shd 20.0 su
637.1 -69.4 shd 20.0 su
676.0 -69.4 shd 20.0 su
24.0 699.3 -72.4 bar
570.1 -84.4 r1 -78.4 hl
470.3 -46.40 hld
0 -95.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 641 x @beginspecial 0 @llx 0 @lly 544 @urx
90 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-gloria005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 90
%%Title: jazzmesse-sax-gloria005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:44 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
% --- 5 ((notitle)) ---
0 -25.34 T
14.0 F3 363.9 -17.4 M (Celli,Kb) gcshow
494.0 -17.4 M (Sax.:) gcshow
14.0 F1 156.1 -21.4 M (155) showb 253.5 -21.4 M (160) showb 602.0 -21.4 M (165) showb
0 -55.40 M 699.30 staff
12.0 -55.4 bclef
34.9 -52.4 shd 20.0 su
69.3 -52.4 shd 20.0 su
102.9 -52.4 shd 20.0 su
136.6 -52.4 shd 20.0 su
24.0 156.1 -55.4 bar
(5) 205.6 -55.4 mrest
24.0 253.5 -55.4 bar
(3) 302.9 -55.4 mrest
24.0 350.8 -55.4 bar
371.9 -43.4 r1
474.1 -55.4 stclef
24.0 488.3 -55.4 bar
502.0 -43.4 hd 20.0 sd
525.0 -43.4 r4
545.6 -43.4 r8
563.8 -43.4 hd 20.0 sd
586.2 -43.4 hd 1 20.0 sfd
24.0 602.0 -55.4 bar
(3) 651.4 -55.4 mrest
24.0 699.3 -55.4 bar
34.9 -67.4 r1 -61.4 hl
371.9 -52.4 shd 20.0 sd
393.4 -61.4 r8
411.1 -46.4 shd 1 20.0 sfd
429.3 -46.4 shd 20.0 sd
457.1 -46.4 shd -9.0 sh 20.0 sd
422.3 -54.2 416.5 -54.2 414.8 -51.0 0 -0.2 416.3 -53.2 422.6 -53.2 424.0 -50.8 414.8 -50.8 SL
(ff) 371.9 -94.40 pf
502.0 -29.40 accent
0 -94.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 583 x @beginspecial 0 @llx 0 @lly 544 @urx
83 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-gloria006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 83
%%Title: jazzmesse-sax-gloria006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:44 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.1 T
0.75 dup scale
% --- 6 ((notitle)) ---
0 -25.34 T
14.0 F3 649.0 -17.4 M (stringendo) gcshow
14.0 F1 151.8 -21.4 M (170) showb 240.8 -24.4 M (180) showb 525.6 -24.4 M (185) showb
0 -55.40 M 699.30 staff
12.0 -55.4 tclef
32.5 -43.4 hd 20.0 sd
48.7 -43.4 r4
63.0 -43.4 r8
75.5 -43.4 hd 20.0 sd
91.4 -43.4 hd 1 20.0 sfd
24.0 102.9 -55.4 bar
115.7 -43.4 Hd 20.0 sd
134.4 -43.4 r2
24.0 151.8 -55.4 bar
(10) 197.3 -55.4 mrest
24.0 240.8 -55.4 bar
284.7 -43.4 hd 20.0 sd
299.5 -43.4 r4
314.5 -43.4 r8
327.5 -43.4 hd 20.0 sd
343.2 -43.4 hd 1 20.0 sfd
24.0 354.6 -55.4 bar
(3) 400.1 -55.4 mrest
24.0 443.5 -55.4 bar
455.6 -43.4 hd 20.0 sd
470.4 -43.4 r4
485.5 -43.4 r8
498.5 -43.4 hd 20.0 sd
513.7 -43.4 hd 1 20.0 sfd
24.0 525.6 -55.4 bar
538.1 -43.4 Hd 20.0 sd
558.7 -43.4 r2
24.0 574.5 -55.4 bar
588.5 -43.4 r1
24.0 609.5 -55.4 bar
623.6 -43.4 HD
24.0 644.5 -55.4 bar
657.0 -43.4 Hd 9.0 3 dt 12.5 3 dt 20.0 sd
687.9 -43.4 hd 1 20.0 sfd
24.0 699.3 -55.4 bar
108.7 -35.4 98.4 -35.4 95.3 -38.7 0 0.2 97.9 -36.4 109.2 -36.4 111.8 -38.9 95.3 -38.9 SL
531.0 -35.4 520.8 -35.4 517.7 -38.7 0 0.2 520.3 -36.4 531.5 -36.4 534.1 -38.9 517.7 -38.9 SL
695.0 -35.8 692.2 -35.8 691.3 -39.0 0 0.2 692.1 -36.8 695.1 -36.8 695.8 -39.2 691.3 -39.2 SL
32.5 -29.40 accent
(ff) 284.7 -85.40 pf
284.7 -29.40 accent
455.6 -29.40 accent
657.0 -29.40 accent
687.9 -29.40 accent
0 -85.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 583 x @beginspecial 0 @llx 0 @lly 544 @urx
83 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-gloria007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 83
%%Title: jazzmesse-sax-gloria007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:44 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
% --- 7 ((notitle)) ---
0 -25.34 T
14.0 F1 90.0 -31.0 M (190) showb 395.2 -31.0 M (195) showb 504.8 -28.0 M (200) showb
15.0 F2 417.4 -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 tclef
32.5 -50.0 hd 1 20.0 sfd
44.8 -50.0 r8
57.9 -50.0 r4
74.1 -50.0 r2
24.0 90.0 -62.0 bar
125.5 -50.0 Hd 9.0 3 dt 12.5 3 dt 20.0 sd
154.5 -50.0 hd 1 20.0 sfd
24.0 166.4 -62.0 bar
177.3 -50.0 hd 1 20.0 sfd
190.2 -50.0 r8
203.2 -50.0 r4
219.1 -50.0 r2
24.0 235.0 -62.0 bar
247.5 -50.0 Hd 9.0 3 dt 12.5 3 dt 20.0 sd
277.4 -50.0 hd 1 20.0 sfd
24.0 289.1 -62.0 bar
300.8 -50.0 hd 1 20.0 sfd
312.2 -50.0 r8
325.5 -50.0 r4
341.4 -50.0 r2
24.0 357.8 -62.0 bar
371.7 -50.0 r1
24.0 395.2 -62.0 dbar
(2) (2) 410.4 -62.0 tsig
(5) 461.6 -62.0 mrest
24.0 504.8 -62.0 bar
(3) 550.1 -62.0 mrest
24.0 594.4 -62.0 fbar1 604.4 -62.0 rdots
(4) 647.9 -62.0 mrest
24.0 699.3 -62.0 fbar2 689.3 -62.0 rdots
26.4 -42.1 18.6 -42.1 16.3 -45.4 0 0.2 18.3 -43.1 26.8 -43.1 28.7 -45.6 16.3 -45.6 SL
170.6 -42.0 161.2 -42.0 158.5 -45.3 0 0.2 160.8 -43.0 171.0 -43.0 173.3 -45.5 158.5 -45.5 SL
294.0 -42.0 284.2 -42.0 281.3 -45.3 0 0.2 283.8 -43.0 294.5 -43.0 296.9 -45.5 281.3 -45.5 SL
125.5 -36.00 accent
154.5 -36.00 accent
247.5 -36.00 accent
277.4 -36.00 accent
0 -85.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 533 x @beginspecial 0 @llx 0 @lly 544 @urx
77 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-gloria008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 77
%%Title: jazzmesse-sax-gloria008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:44 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
% --- 8 ((notitle)) ---
0 -25.34 T
14.0 F1 367.0 -16.0 M (210) showb
0 -47.00 M 699.30 staff
12.0 -47.0 tclef
24.0 44.0 -47.0 fbar1 54.0 -47.0 rdots
64.9 -35.0 r4
88.0 -35.0 hd 1 20.0 sfd
100.6 -35.0 r8
113.4 -35.0 r8
126.7 -35.0 hd 1 20.0 sfd
138.6 -35.0 r8
151.5 -35.0 hd 1 20.0 sfd
24.0 163.8 -47.0 bar
175.4 -35.0 hd 1 20.0 sfd
188.7 -29.0 hd 20.0 sd
211.0 -32.0 hd -9.0 sh 1 20.0 sfd
223.7 -32.0 hd 1 20.0 sfd
237.0 -35.0 hd 1 20.0 sfd
251.0 -35.0 r4
24.0 264.2 -47.0 bar
275.4 -35.0 r4
291.0 -35.0 hd 1 20.0 sfd
303.6 -35.0 r8
316.2 -35.0 r8
329.7 -35.0 hd 1 20.0 sfd
341.9 -35.0 r8
354.8 -35.0 hd 1 20.0 sfd
24.0 367.0 -47.0 bar
378.4 -35.0 hd 1 20.0 sfd
391.7 -29.0 hd 20.0 sd
414.0 -32.0 hd -9.0 sh 1 20.0 sfd
426.9 -32.0 hd 1 20.0 sfd
440.2 -35.0 hd 1 20.0 sfd
453.9 -35.0 r4
24.0 475.6 -47.0 fbar2 465.6 -47.0 rdots
495.5 -29.0 hd -9.0 sh 20.0 sd
510.2 -35.0 r4
526.2 -35.0 r4 8.0 3 dt
549.3 -29.0 hd 1 20.0 sfd
24.0 561.3 -47.0 bar
585.5 -29.0 hd 20.0 sd
601.0 -35.0 r4
615.5 -35.0 hd 20.0 sd
638.9 -29.0 hd -9.0 sh 20.0 sd
24.0 652.6 -47.0 bar
675.2 -23.0 HD -12.0 sh
24.0 699.3 -47.0 dbar
168.4 -27.0 158.4 -27.0 155.4 -30.3 0 0.2 158.0 -28.0 168.9 -28.0 171.4 -30.5 155.4 -30.5 SL
219.1 -24.4 215.6 -24.4 214.5 -27.5 0 0.2 215.4 -25.4 219.3 -25.4 220.1 -27.7 214.5 -27.7 SL
371.5 -27.0 361.7 -27.0 358.7 -30.3 0 0.2 361.2 -28.0 372.0 -28.0 374.4 -30.5 358.7 -30.5 SL
422.3 -24.4 418.6 -24.4 417.5 -27.5 0 0.2 418.4 -25.4 422.5 -25.4 423.4 -27.7 417.5 -27.7 SL
575.9 -20.5 558.9 -20.5 553.8 -24.1 0 0.2 558.1 -21.5 576.7 -21.5 581.0 -24.3 553.8 -24.3 SL
(ff) 88.0 -77.00 pf
88.0 -26.00 emb
126.7 -26.00 emb
237.0 -26.00 emb
291.0 -26.00 emb
329.7 -26.00 emb
440.2 -26.00 emb
0 -77.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1765 6215 a Fe(2)p eop end
%%Page: 3 3
TeXDict begin 3 2 bop -317 352 a @beginspecial 0 @llx
0 @lly 544 @urx 91 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-gloria009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 91
%%Title: jazzmesse-sax-gloria009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:44 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 90.6 T
0.75 dup scale
% --- 9 ((notitle)) ---
0 -25.34 T
14.0 F3 53.5 -38.4 M (swing) gcshow
14.0 F1 145.4 -41.4 M (215) showb 583.2 -41.4 M (220) showb
15.0 F2 42.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 80) show
0 -72.40 M 699.30 staff
12.0 -72.4 tclef
35.0 -72.4 csig
61.5 -51.4 hd 20.0 sd
86.2 -54.4 hd -9.0 sh 20.0 sd
110.9 -57.4 hd -9.0 sh 20.0 sd
129.8 -57.4 hd 20.0 sd
24.0 145.4 -72.4 bar
157.1 -60.4 r8
171.8 -51.4 hd 20.0 sd
195.6 -54.4 hd -9.0 sh 1 20.0 sfd
218.1 -57.4 hd -9.0 sh 20.0 sd
236.5 -57.4 hd 20.0 sd
24.0 252.2 -72.4 bar
263.5 -60.4 r8
278.3 -51.4 hd 20.0 sd
302.9 -54.4 hd -9.0 sh 1 20.0 sfd
325.3 -57.4 hd -9.0 sh 20.0 sd
342.3 -57.4 hd 20.0 sd
24.0 359.0 -72.4 bar
373.7 -60.4 HD
24.0 411.7 -72.4 bar
424.0 -60.4 hd 8.0 3 dt 20.0 sd
449.7 -60.4 hd 1 20.0 sfd
465.3 -60.4 hd 20.0 sd
483.4 -60.4 hd 20.0 sd
24.0 499.5 -72.4 bar
511.4 -60.4 hd 20.0 sd
530.3 -60.4 hd 20.0 sd
548.8 -60.4 hd 20.0 sd
567.0 -60.4 hd 20.0 sd
24.0 583.2 -72.4 bar
597.9 -60.4 HD
24.0 624.1 -72.4 bar
636.2 -60.4 hd 20.0 sd
655.1 -60.4 r4
674.6 -60.4 r2
24.0 699.3 -72.4 fbar2
(ff) 61.5 -94.40 pf
405.9 -45.40 brth
636.2 -46.40 hld
0 -95.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1643 1497 a Fc(Credo)-317 2281 y @beginspecial
0 @llx 0 @lly 516 @urx 79 @ury 5160 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-credo001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 79
%%Title: jazzmesse-sax-credo001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:26 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
37.8 0 T
% --- 1 ((notitle)) ---
0 -25.34 T
14.0 F1 165.0 -23.0 M (10) showb 289.1 -23.0 M (20) showb 413.2 -23.0 M (30) showb 537.4 -23.0 M (40) showb
15.0 F2 23.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 60) show
0 -57.00 M 661.50 staff
12.0 -57.0 tclef
35.0 -57.0 csig
(9) 104.1 -57.0 mrest
24.0 165.0 -57.0 bar
(10) 228.2 -57.0 mrest
24.0 289.1 -57.0 bar
(10) 352.4 -57.0 mrest
24.0 413.2 -57.0 bar
(10) 476.5 -57.0 mrest
24.0 537.4 -57.0 bar
(10) 600.6 -57.0 mrest
24.0 661.5 -57.0 bar
0 -80.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 471 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-credo002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-sax-credo002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:26 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
14.0 F1 45.4 -17.0 M (50) showb 156.0 -13.0 M (60) showb 291.8 -13.0 M (70) showb 427.7 -13.0 M (80) showb 563.5 -13.0 M (90) showb
0 -47.00 M 699.30 staff
12.0 -47.0 tclef
(10) 89.4 -47.0 mrest
24.0 156.0 -47.0 bar
(10) 225.2 -47.0 mrest
24.0 291.8 -47.0 bar
(10) 361.1 -47.0 mrest
24.0 427.7 -47.0 bar
(10) 496.9 -47.0 mrest
24.0 563.5 -47.0 bar
(5) 632.7 -47.0 mrest
24.0 699.3 -47.0 bar
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 637 x @beginspecial 0 @llx 0 @lly 544 @urx
92 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-credo003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 92
%%Title: jazzmesse-sax-credo003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:26 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 91.8 T
0.75 dup scale
% --- 3 ((notitle)) ---
0 -25.34 T
14.0 F3 73.5 -17.4 M (Mezzo-) gcshow 73.5 -32.8 M (soprano) gcshow
14.0 F1 25.5 -36.8 M (95) showb 584.1 -32.8 M (100) showb
0 -66.80 M 699.30 staff
12.0 -66.8 tclef
58.0 -66.8 stclef
81.5 -54.8 shd -9.0 ft 1 20.0 sfd
108.0 -54.8 shd 2 22.0 sfd
132.4 -54.8 shd 1 20.0 sfd
160.4 -54.8 shd 2 22.0 sfd
179.3 -54.8 r8
204.7 -54.8 r16
226.3 -54.8 shd 8.0 3 dt 1 20.0 sfd
258.8 -57.8 shd 1 20.0 sfu
287.1 -57.8 shd -9.0 ft 1 20.0 sfu
24.0 311.9 -66.8 bar
328.2 -60.8 shd 20.0 su
367.6 -60.8 shd 1 20.0 sfu
393.0 -54.8 r8
424.7 -54.8 r2
24.0 468.9 -66.8 bar
(3) 527.6 -66.8 mrest
24.0 584.1 -66.8 bar
(10) 642.8 -66.8 mrest
24.0 699.3 -66.8 bar
13.0 F2 (cu) 73.7 -91.8 wd 91.7 -91.8 whf (ius) 98.9 -91.8 wd (reg) 122.7 -91.8 wd 145.8 -91.8 whf (ni) 153.5 -91.8 wd (non) 215.4 -91.8 wd (e) 253.7 -91.8 wd 268.6 -91.8 whf (rit) 279.5 -91.8 wd (fi) 322.2 -91.8 wd 342.8 -91.8 whf (nis.) 357.1 -91.8 wd
0 -97.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 662 x @beginspecial 0 @llx 0 @lly 544 @urx
95 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-credo004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 95
%%Title: jazzmesse-sax-credo004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:26 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 95.2 T
0.75 dup scale
% --- 4 ((notitle)) ---
0 -25.34 T
14.0 F3 221.9 -17.4 M (Coro: T,B:) gcshow
14.0 F1 42.8 -43.4 M (110) showb 471.4 -42.4 M (115) showb
0 -73.40 M 699.30 staff
12.0 -73.4 tclef
(4) 86.8 -73.4 mrest
24.0 151.9 -73.4 bar
204.9 -73.4 sbclef
229.9 -49.4 shd -9.0 ft 24.0 su -43.4 hl 229.9 -43.4 shd
282.1 -49.4 shd 8.0 3 dt 1 26.0 sfu -43.4 hl 282.1 -43.4 shd 8.0 3 dt
325.2 -52.4 shd 2 27.0 sfu 325.2 -46.4 shd
354.4 -55.4 r4
405.9 -61.4 shd 1 20.0 sfu
443.4 -61.4 shd -9.0 ft 1 20.0 sfu
24.0 471.4 -73.4 bar
495.8 -64.4 sHdd 20.0 su
567.1 -64.4 shd 1 20.0 sfu
622.7 -61.4 r8
661.8 -61.4 r4
24.0 699.3 -73.4 bar
13.0 F2 (Cre) 219.3 -96.4 wd 255.5 -96.4 whf (do) 273.9 -96.4 wd (in...) 314.1 -96.4 wd (u) 400.4 -96.4 wd 418.1 -96.4 whf (num) 431.0 -96.4 wd (De) 486.7 -96.4 wd 528.3 -96.4 whf (um.) 556.0 -96.4 wd
229.9 -73.4 r1
495.8 -79.4 r1
0 -101.60 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 495 x @beginspecial 0 @llx 0 @lly 544 @urx
75 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-credo005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 75
%%Title: jazzmesse-sax-credo005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:26 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 74.8 T
0.75 dup scale
% --- 5 ((notitle)) ---
0 -25.34 T
14.0 F3 28.2 -17.4 M (Sax.:) gcshow
98.7 -17.4 M (secco) gcshow
14.0 F1 575.3 -20.4 M (120) showb
0 -51.40 M 699.30 staff
12.0 -51.4 bclef
36.2 -39.4 r8
71.6 -51.4 stclef
106.7 -30.4 hd 1 20.0 sfd
124.3 -39.4 r4
145.4 -39.4 r4
166.1 -39.4 r8
187.9 -33.4 hd -9.0 sh 1 20.0 sfd
24.0 203.1 -51.4 bar
215.1 -39.4 r8
231.8 -30.4 hd 1 20.0 sfd
248.3 -39.4 r4
269.4 -39.4 r4
290.8 -39.4 r8
312.6 -33.4 hd -9.0 sh 1 20.0 sfd
24.0 327.2 -51.4 bar
339.1 -39.4 r8
356.2 -30.4 hd 1 20.0 sfd
372.4 -39.4 r4
394.5 -39.4 r4
414.0 -39.4 r8
436.5 -33.4 hd -9.0 sh 1 20.0 sfd
24.0 451.2 -51.4 bar
463.1 -39.4 r8
479.1 -30.4 hd 1 20.0 sfd
495.9 -39.4 r4
518.4 -39.4 r4
537.9 -39.4 r8
560.6 -33.4 hd -9.0 sh 1 20.0 sfd
24.0 575.3 -51.4 bar
587.1 -39.4 r8
603.4 -30.4 hd 1 20.0 sfd
620.6 -39.4 r4
642.2 -39.4 r4
661.2 -39.4 r8
684.6 -33.4 hd -9.0 sh 1 20.0 sfd
24.0 699.3 -51.4 bar
(mp) 106.7 -73.40 pf
0 -74.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 471 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-credo006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-sax-credo006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:26 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
14.0 F1 528.3 -13.0 M (125) showb
0 -47.00 M 699.30 staff
12.0 -47.0 tclef
32.6 -35.0 r8
52.4 -26.0 hd 1 20.0 sfd
74.2 -35.0 r4
101.4 -35.0 r4
127.7 -35.0 r8
151.5 -29.0 hd -9.0 sh 1 20.0 sfd
24.0 170.0 -47.0 bar
182.4 -35.0 r8
203.1 -26.0 hd 1 20.0 sfd
223.5 -35.0 r4
250.7 -35.0 r4
277.7 -35.0 r8
301.6 -29.0 hd -9.0 sh 1 20.0 sfd
24.0 319.3 -47.0 bar
331.7 -35.0 r8
352.8 -26.0 hd 1 20.0 sfd
372.9 -35.0 r4
401.4 -35.0 r4
426.1 -35.0 r8
450.7 -29.0 hd -9.0 sh 1 20.0 sfd
24.0 468.7 -47.0 bar
487.5 -35.0 r1
24.0 528.3 -47.0 bar
(4) 580.4 -47.0 mrest
24.0 630.4 -47.0 bar
651.9 -35.0 HD
24.0 699.3 -47.0 fbar2
(p) 651.9 -69.00 pf
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1275 5689 a(Sanctus)52 b(|)i(tacet)1836
6215 y Fe(3)p eop end
%%Page: 4 4
TeXDict begin 4 3 bop 1417 -306 a Fc(Agn)l(us)52 b(Dei)-387
388 y @beginspecial 0 @llx 0 @lly 516 @urx 79 @ury 5160
@rwi @setspecial
%%BeginDocument: jazzmesse-sax-dona001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 79
%%Title: jazzmesse-sax-dona001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:45 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
37.8 0 T
% --- 1 ((notitle)) ---
0 -25.34 T
14.0 F1 168.6 -23.0 M (10) showb 296.2 -23.0 M (20) showb 530.2 -23.0 M (30) showb
15.0 F2 23.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 96) show
0 -57.00 M 661.50 staff
12.0 -57.0 tclef
35.0 -57.0 csig
(9) 106.0 -57.0 mrest
24.0 168.6 -57.0 bar
(10) 233.6 -57.0 mrest
24.0 296.2 -57.0 bar
(9) 361.2 -57.0 mrest
24.0 433.6 -57.0 fbar2 423.6 -57.0 rdots
481.9 -45.0 r1
24.0 530.2 -57.0 bar
(7) 595.3 -57.0 mrest
24.0 661.5 -57.0 dbar
0 -80.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 781 x @beginspecial 0 @llx 0 @lly 544 @urx
106 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-dona002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 106
%%Title: jazzmesse-sax-dona002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:45 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 105.7 T
0.75 dup scale
% --- 2 ((notitle)) ---
0 -25.34 T
693.9 -50.8 680.8 -51.4 676.9 -56.2 0 0.2 680.2 -52.4 694.5 -51.8 697.8 -55.6 676.9 -56.4 SL
14.0 F3 77.4 -38.4 M (swing) gcshow
584.5 -38.4 M (Coro: S,A) gcshow
14.0 F1 148.9 -47.4 M (40) showb 277.0 -47.4 M (50) showb 405.2 -47.4 M (60) showb 533.4 -50.4 M (70) showb
15.0 F2 23.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 120) show
0 -81.40 M 699.30 staff
12.0 -81.4 tclef
(3) 85.4 -81.4 mrest
24.0 148.9 -81.4 bar
(10) 213.5 -81.4 mrest
24.0 277.0 -81.4 bar
(10) 341.7 -81.4 mrest
24.0 405.2 -81.4 bar
(10) 469.8 -81.4 mrest
24.0 533.4 -81.4 bar
556.5 -69.4 r2
574.5 -81.4 stclef
592.5 -69.4 r4
636.4 -69.4 r8
672.0 -81.4 shd -9.0 ft 1 20.0 sfu
24.0 699.3 -81.4 bar
13.0 F2 (Do) 662.6 -110.4 wd 684.3 -110.4 whf
556.5 -93.4 r1 -87.4 hl
0 -115.60 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 605 x @beginspecial 0 @llx 0 @lly 544 @urx
85 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-dona003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 85
%%Title: jazzmesse-sax-dona003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:45 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.7 T
0.75 dup scale
% --- 3 ((notitle)) ---
0 -25.34 T
3.2 38.1 -2.6 588.6 -15.6 bm
469.8 -4.4 440.4 -17.3 431.8 -27.6 0 0.2 439.0 -18.3 471.2 -5.4 478.4 -9.2 431.8 -27.8 SL
618.6 -7.6 598.1 -6.3 592.0 -10.8 0 0.2 597.2 -7.3 619.6 -8.6 624.8 -13.0 592.0 -11.0 SL
41.7 -14.6 32.2 -14.1 29.3 -18.5 0 0.2 31.7 -15.1 42.2 -15.6 44.6 -19.6 29.3 -18.7 SL
0 -53.43 M 699.30 staff
12.0 -53.4 tclef
42.3 -44.4 shd -9.0 ft 20.0 su
94.8 -44.4 shd 20.0 su
148.2 -47.4 shd 8.0 3 dt 20.0 su
208.4 -53.4 shd -9.0 ft 1 20.0 sfu
24.0 236.3 -53.4 bar
265.2 -44.4 shd 8.0 0 dt -16.0 ft 26.0 su 265.2 -38.4 shd 8.0 0 dt -9.0 ft
325.6 -47.4 shd 1 26.0 sfu 325.6 -41.4 shd -9.0 ft
365.3 -47.4 shd 8.0 3 dt 26.0 su 365.3 -41.4 shd 8.0 3 dt
425.6 -53.4 shd -9.0 ft 1 20.0 sfu
24.0 453.4 -53.4 bar
481.6 -38.4 shd -16.0 ft 26.0 su 481.6 -32.4 shd -9.0 ft
534.1 -41.4 r4
585.1 -41.4 shd -16.0 ft 25.8 su 585.1 -35.4 shd -9.0 ft
623.2 -44.4 shd -16.0 ft 26.2 su 623.2 -38.4 shd -9.0 ft
661.9 -41.4 r4
24.0 699.3 -53.4 bar
355.3 -38.9 337.1 -38.9 331.7 -42.4 0 0.2 336.2 -39.9 356.2 -39.9 360.7 -42.6 331.7 -42.6 SL
355.3 -32.9 337.1 -32.9 331.7 -36.4 0 0.2 336.2 -33.9 356.2 -33.9 360.7 -36.6 331.7 -36.6 SL
13.0 F2 37.5 -82.4 whf (na) 86.9 -82.4 wd (no) 140.0 -82.4 wd 175.5 -82.4 whf (bis) 199.3 -82.4 wd (pa) 257.3 -82.4 wd 290.3 -82.4 whf (cem,) 312.4 -82.4 wd 29.8 341.5 -82.4 wln (do) 417.4 -82.4 wd 453.9 -82.4 whf 516.6 -82.4 whf (na) 577.2 -82.4 wd 33.1 593.1 -82.4 wln
42.3 -65.4 r1 -59.4 hl
265.2 -65.4 r1 -59.4 hl
481.6 -59.4 r1
0 -87.63 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 630 x @beginspecial 0 @llx 0 @lly 544 @urx
88 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-dona004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 88
%%Title: jazzmesse-sax-dona004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:45 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 88.5 T
0.75 dup scale
% --- 4 ((notitle)) ---
0 -25.34 T
3.2 48.5 0.0 52.0 -13.4 bm
3.2 16.2 -4.3 295.8 -30.2 bm
3.2 16.2 -4.3 483.4 -30.2 bm
3.2 16.2 -4.3 671.0 -30.2 bm
90.0 -2.8 62.5 -2.8 54.4 -7.8 0 0.2 61.2 -3.8 91.3 -3.8 98.1 -8.0 54.4 -8.0 SL
14.0 F3 246.3 -18.4 M (Sax.:) gcshow
14.0 F1 233.3 -8.0 M (75) showb
0 -52.40 M 699.30 staff
12.0 -52.4 tclef
48.5 -40.4 shd -16.0 ft 27.0 su 48.5 -34.4 shd -9.0 ft
80.8 -37.4 shd -16.0 ft 24.0 su 80.8 -31.4 shd -9.0 ft
97.0 -40.4 shd 27.0 su 97.0 -34.4 shd
123.5 -43.4 shd -16.0 ft 1 26.0 sfu 123.5 -37.4 shd -9.0 ft
150.0 -43.4 shd 26.0 su 150.0 -37.4 shd
170.5 -40.4 r8
193.0 -52.4 shd -9.0 ft 1 20.0 sfu
219.1 -52.4 stclef
24.0 233.3 -52.4 bar
254.3 -49.4 Hd 9.0 0 dt 20.0 su
292.3 -49.4 hd 19.2 su
308.4 -58.4 hd 23.9 su -58.4 hl
24.0 324.1 -52.4 bar
338.9 -49.4 Hd 20.0 su
367.9 -49.4 hd 1 20.0 sfu
390.2 -28.4 hd 20.0 sd
410.7 -40.4 r8
24.0 426.3 -52.4 bar
441.9 -49.4 Hd 9.0 0 dt 20.0 su
479.9 -49.4 hd 19.2 su
496.0 -58.4 hd 23.9 su -58.4 hl
24.0 511.7 -52.4 bar
526.5 -49.4 Hd 20.0 su
555.5 -49.4 hd 1 20.0 sfu
577.8 -28.4 hd 20.0 sd
598.3 -40.4 r8
24.0 613.9 -52.4 bar
629.5 -49.4 Hd 9.0 0 dt 20.0 su
667.5 -49.4 hd 19.2 su
683.6 -58.4 hd 23.9 su -58.4 hl
24.0 699.3 -52.4 bar
142.8 -35.3 132.2 -35.3 129.0 -38.7 0 0.2 131.7 -36.3 143.3 -36.3 146.0 -38.9 129.0 -38.9 SL
142.8 -29.3 132.2 -29.3 129.0 -32.7 0 0.2 131.7 -30.3 143.3 -30.3 146.0 -32.9 129.0 -32.9 SL
359.9 -57.6 346.9 -57.6 343.1 -54.2 0 -0.2 346.3 -56.6 360.5 -56.6 363.7 -54.0 343.1 -54.0 SL
547.5 -57.6 534.5 -57.6 530.7 -54.2 0 -0.2 533.9 -56.6 548.1 -56.6 551.4 -54.0 530.7 -54.0 SL
13.0 F2 (pa) 40.6 -87.4 wd 64.8 -87.4 whf 80.6 -87.4 whf 96.4 -87.4 whf (cem.) 110.3 -87.4 wd 13.6 139.4 -87.4 wln (Do) 183.6 -87.4 wd 205.3 -87.4 whf
48.5 -64.4 r1 -58.4 hl
(f) 254.3 -74.40 pf
390.2 -24.40 accent
577.8 -24.40 accent
0 -92.60 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-sax-dona005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-sax-dona005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:45 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 17.5 -4.4 178.9 -24.8 bm
14.0 F1 20.3 -17.0 M (80) showb 408.3 -13.0 M (85) showb 505.3 -13.0 M (90) showb 602.3 -13.0 M (100) showb
0 -47.00 M 699.30 staff
12.0 -47.0 tclef
33.3 -44.0 Hd 20.0 su
62.9 -44.0 hd 1 20.0 sfu
84.8 -23.0 hd 20.0 sd
106.2 -35.0 r8
24.0 122.1 -47.0 bar
136.7 -44.0 Hd 9.0 0 dt 20.0 su
175.4 -44.0 hd 19.2 su
192.9 -53.0 hd 23.8 su -53.0 hl
24.0 208.1 -47.0 bar
222.5 -44.0 Hd 20.0 su
251.4 -44.0 hd 1 20.0 sfu
275.2 -23.0 hd 20.0 sd
295.8 -35.0 r8
24.0 311.3 -47.0 bar
(2) 360.8 -47.0 mrest
24.0 408.3 -47.0 bar
(5) 457.8 -47.0 mrest
24.0 505.3 -47.0 bar
(10) 554.8 -47.0 mrest
24.0 602.3 -47.0 bar
(10) 651.8 -47.0 mrest
24.0 699.3 -47.0 bar
54.7 -52.2 41.4 -52.2 37.5 -48.8 0 -0.2 40.8 -51.2 55.3 -51.2 58.7 -48.6 37.5 -48.6 SL
243.4 -52.2 230.5 -52.2 226.6 -48.8 0 -0.2 229.9 -51.2 244.0 -51.2 247.2 -48.6 226.6 -48.6 SL
84.8 -19.00 accent
275.2 -19.00 accent
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 606 x @beginspecial 0 @llx 0 @lly 544 @urx
85 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-dona006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 85
%%Title: jazzmesse-sax-dona006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:45 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.7 T
0.75 dup scale
% --- 6 ((notitle)) ---
0 -25.34 T
3.2 21.5 -2.3 638.3 -15.7 bm
302.4 -17.6 284.7 -22.1 279.4 -27.9 0 0.2 283.8 -23.1 303.2 -18.6 307.7 -21.5 279.4 -28.1 SL
572.6 -4.8 555.4 -17.5 550.2 -27.9 0 0.2 554.6 -18.5 573.5 -5.8 577.8 -9.5 550.2 -28.1 SL
655.1 -8.0 644.2 -6.7 640.9 -11.0 0 0.2 643.7 -7.7 655.6 -9.0 658.4 -13.1 640.9 -11.2 SL
14.0 F3 220.2 -19.3 M (Coro: S,A) gcshow
14.0 F1 29.1 -23.3 M (110) showb 123.0 -22.3 M (115) showb
0 -53.34 M 699.30 staff
12.0 -53.3 tclef
(5) 73.1 -53.3 mrest
24.0 123.0 -53.3 bar
140.6 -41.3 r1
24.0 180.1 -53.3 bar
195.7 -41.3 r2
213.7 -53.3 stclef
228.2 -41.3 r4
251.9 -41.3 r8
274.0 -53.3 shd 1 20.0 sfu
24.0 295.9 -53.3 bar
310.1 -44.3 shd 20.0 su
338.7 -44.3 shd 20.0 su
372.7 -47.3 shd 8.0 3 dt -9.0 sh 20.0 su
408.0 -53.3 shd 1 20.0 sfu
24.0 429.7 -53.3 bar
445.4 -44.3 shd 8.0 0 dt 26.0 su 445.4 -38.3 shd 8.0 0 dt
482.5 -47.3 shd -9.0 sh 1 26.0 sfu 482.5 -41.3 shd
510.1 -47.3 shd 8.0 3 dt 26.0 su 510.1 -41.3 hd 8.0 3 dt
544.9 -53.3 shd 1 20.0 sfu
24.0 566.0 -53.3 bar
580.2 -38.3 shd 26.0 su 580.2 -32.3 shd
607.4 -41.3 r4
634.8 -41.3 shd 25.7 su 634.8 -35.3 shd
656.2 -44.3 shd 26.3 su 656.2 -38.3 shd
676.8 -41.3 r4
24.0 699.3 -53.3 bar
502.7 -39.2 491.4 -39.2 488.1 -42.6 0 0.2 490.9 -40.2 503.2 -40.2 506.0 -42.8 488.1 -42.8 SL
502.7 -33.2 491.4 -33.2 488.1 -36.6 0 0.2 490.9 -34.2 503.2 -34.2 506.0 -36.8 488.1 -36.8 SL
13.0 F2 (Do) 264.6 -82.3 wd 293.3 -82.3 whf 313.1 -82.3 whf (na) 330.9 -82.3 wd (no) 364.6 -82.3 wd 387.5 -82.3 whf (bis) 398.9 -82.3 wd (pa) 437.5 -82.3 wd 458.8 -82.3 whf (cem,) 469.3 -82.3 wd 17.7 498.4 -82.3 wln (do) 536.7 -82.3 wd 562.9 -82.3 whf 595.9 -82.3 whf (na) 626.9 -82.3 wd 16.5 642.8 -82.3 wln
195.7 -65.3 r1 -59.3 hl
310.1 -65.3 r1 -59.3 hl
445.4 -65.3 r1 -59.3 hl
580.2 -59.3 r1
0 -87.54 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 638 x @beginspecial 0 @llx 0 @lly 544 @urx
89 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-dona007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 89
%%Title: jazzmesse-sax-dona007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:45 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.2 T
0.75 dup scale
% --- 7 ((notitle)) ---
0 -25.34 T
3.2 41.4 0.0 39.5 -12.4 bm
3.2 22.6 -5.0 297.6 -29.2 bm
3.2 22.6 -5.0 533.5 -29.2 bm
71.7 -2.0 48.5 -2.0 41.6 -6.9 0 0.2 47.4 -3.0 72.9 -3.0 78.7 -7.1 41.6 -7.1 SL
14.0 F3 239.3 -17.4 M (Sax.:) gcshow
14.0 F1 20.1 -21.4 M (120) showb
0 -51.40 M 699.30 staff
12.0 -51.4 tclef
36.0 -39.4 shd 27.0 su 36.0 -33.4 shd
58.0 -36.4 shd 24.0 su 58.0 -30.4 shd
77.3 -39.4 shd 27.0 su 77.3 -33.4 shd
101.6 -42.4 shd 1 26.0 sfu 101.6 -36.4 shd
129.2 -42.4 shd 26.0 su 129.2 -36.4 shd
154.5 -39.4 r8
177.5 -51.4 shd 1 20.0 sfu
203.6 -51.4 stclef
24.0 217.8 -51.4 bar
247.3 -48.4 Hd 9.0 0 dt -9.0 sh 20.0 su
294.1 -48.4 hd 19.2 su
316.7 -57.4 hd -9.0 sh 23.2 su -57.4 hl
24.0 335.4 -51.4 bar
354.9 -48.4 Hd -9.0 sh 20.0 su
392.3 -48.4 hd 1 20.0 sfu
419.3 -27.4 hd -9.0 sh 20.0 sd
444.6 -39.4 r8
24.0 463.4 -51.4 bar
483.3 -48.4 Hd 9.0 0 dt -9.0 sh 20.0 su
530.0 -48.4 hd 19.2 su
552.6 -57.4 hd -9.0 sh 23.2 su -57.4 hl
24.0 571.3 -51.4 bar
590.8 -48.4 Hd -9.0 sh 20.0 su
628.2 -48.4 hd 1 20.0 sfu
655.2 -27.4 hd -9.0 sh 20.0 sd
680.6 -39.4 r8
24.0 699.3 -51.4 bar
121.7 -34.3 110.6 -34.3 107.2 -37.6 0 0.2 110.0 -35.3 122.3 -35.3 125.1 -37.8 107.2 -37.8 SL
121.7 -28.3 110.6 -28.3 107.2 -31.6 0 0.2 110.0 -29.3 122.3 -29.3 125.1 -31.8 107.2 -31.8 SL
382.5 -56.9 364.7 -56.9 359.4 -53.3 0 -0.2 363.9 -55.9 383.3 -55.9 387.8 -53.1 359.4 -53.1 SL
618.4 -56.9 600.6 -56.9 595.3 -53.3 0 -0.2 599.8 -55.9 619.2 -55.9 623.7 -53.1 595.3 -53.1 SL
13.0 F2 (pa) 28.1 -88.4 wd 47.1 -88.4 whf 61.8 -88.4 whf 76.1 -88.4 whf (cem.) 88.4 -88.4 wd 14.6 117.6 -88.4 wln (Do) 168.1 -88.4 wd 189.8 -88.4 whf
36.0 -63.4 r1 -57.4 hl
(f) 247.3 -75.40 pf
419.3 -19.40 accent
655.2 -19.40 accent
0 -93.60 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-sax-dona008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-sax-dona008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:45 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 21.3 -4.9 83.0 -24.8 bm
3.2 20.2 -4.8 290.7 -24.8 bm
-3.2 27.7 3.9 412.0 -57.2 bm
-3.2 16.2 -2.2 490.4 -49.4 bm
-3.2 16.4 2.2 524.4 -48.6 bm
(3) 425.9 -67.3 bnum
14.0 F1 20.3 -17.0 M (125) showb 582.8 -16.0 M (130) showb
0 -47.00 M 699.30 staff
12.0 -47.0 tclef
41.8 -44.0 Hd 9.0 0 dt -9.0 sh 20.0 su
79.5 -44.0 hd 19.2 su
100.8 -53.0 hd -9.0 sh 23.3 su -53.0 hl
24.0 117.0 -47.0 bar
135.6 -44.0 Hd -9.0 sh 20.0 su
166.1 -44.0 hd 1 20.0 sfu
192.8 -23.0 hd -9.0 sh 20.0 sd
211.8 -35.0 r8
24.0 228.4 -47.0 bar
247.7 -44.0 Hd 9.0 0 dt -9.0 sh 20.0 su
287.2 -44.0 hd 19.2 su
307.5 -53.0 hd -9.0 sh 23.4 su -53.0 hl
24.0 323.7 -47.0 bar
343.0 -44.0 Hd -9.0 sh 20.0 su
371.8 -44.0 hd 1 20.0 sfu
393.4 -44.0 hd 1 20.0 sfu
415.5 -38.0 hd 19.2 sd
428.7 -32.0 hd 23.4 sd
443.2 -29.0 hd 24.3 sd
24.0 459.3 -47.0 bar
471.8 -26.0 hd 20.0 sd
493.9 -29.0 hd 20.4 sd
510.1 -32.0 hd 19.6 sd
527.9 -29.0 hd 19.6 sd
544.3 -26.0 hd 20.4 sd
563.6 -35.0 r4
24.0 582.8 -47.0 bar
595.2 -32.0 hd 1 20.0 sfd
612.8 -35.0 hd 20.0 sd
635.2 -38.0 hd 1 20.0 sfu
655.8 -38.0 hd 20.0 su
680.6 -35.0 r4
24.0 699.3 -47.0 bar
157.7 -52.3 143.9 -52.3 139.8 -48.8 0 -0.2 143.3 -51.3 158.4 -51.3 161.8 -48.6 139.8 -48.6 SL
363.8 -52.2 351.0 -52.2 347.2 -48.8 0 -0.2 350.4 -51.2 364.4 -51.2 367.6 -48.6 347.2 -48.6 SL
649.6 -45.9 641.5 -45.9 639.0 -42.6 0 -0.2 641.1 -44.9 650.0 -44.9 652.0 -42.4 639.0 -42.4 SL
192.8 -15.00 accent
493.9 -20.00 emb
510.1 -26.00 emb
527.9 -20.00 emb
544.3 -19.00 emb
595.2 -26.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-sax-dona009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-sax-dona009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:45 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
14.0 F1 397.7 -13.0 M (135) showb 492.0 -13.0 M (140) showb
0 -47.00 M 699.30 staff
12.0 -47.0 tclef
32.5 -32.0 hd 1 20.0 sfd
49.1 -35.0 hd 20.0 sd
69.0 -38.0 hd 1 20.0 sfu
89.9 -38.0 hd 20.0 su
109.4 -35.0 r4
24.0 127.6 -47.0 bar
140.0 -32.0 hd 1 20.0 sfd
156.4 -35.0 hd 20.0 sd
176.5 -38.0 hd 1 20.0 sfu
195.7 -38.0 hd 20.0 su
217.0 -35.0 r4
24.0 234.5 -47.0 bar
247.9 -35.0 hd 8.0 3 dt 20.0 sd
275.2 -35.0 hd 1 20.0 sfd
291.4 -35.0 hd 20.0 sd
322.2 -35.0 r4
24.0 352.6 -47.0 bar
367.7 -35.0 r1
24.0 397.7 -47.0 bar
(5) 445.9 -47.0 mrest
24.0 492.0 -47.0 bar
(3) 540.2 -47.0 mrest
24.0 586.3 -47.0 bar
614.3 -35.0 r2
640.9 -35.0 r4
659.1 -35.0 r8
682.1 -26.0 hd 1 20.0 sfd
24.0 699.3 -47.0 dbar
83.6 -45.9 75.3 -45.9 72.8 -42.6 0 -0.2 74.9 -44.9 84.0 -44.9 86.1 -42.4 72.8 -42.4 SL
189.7 -45.8 182.4 -45.8 180.2 -42.6 0 -0.2 182.1 -44.8 190.1 -44.8 191.9 -42.4 180.2 -42.4 SL
286.1 -27.3 280.6 -27.3 278.9 -30.5 0 0.2 280.3 -28.3 286.4 -28.3 287.8 -30.7 278.9 -30.7 SL
32.5 -26.00 emb
140.0 -26.00 emb
291.4 -21.00 hld
614.3 -21.00 hld
(f) 682.1 -69.00 pf
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 656 x @beginspecial 0 @llx 0 @lly 544 @urx
91 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-sax-dona010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 91
%%Title: jazzmesse-sax-dona010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:45 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 90.6 T
0.75 dup scale
% --- 10 ((notitle)) ---
0 -25.34 T
14.0 F3 28.0 -38.4 M (swing) gcshow
14.0 F1 118.2 -41.4 M (145) showb 568.0 -41.4 M (150) showb
15.0 F2 23.0 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 60) show
0 -72.40 M 699.30 staff
12.0 -72.4 tclef
36.0 -51.4 hd 20.0 sd
57.3 -51.4 hd 20.0 sd
78.4 -51.4 hd 20.0 sd
100.5 -51.4 hd 20.0 sd
24.0 118.2 -72.4 bar
145.1 -51.4 hd 20.0 sd
167.7 -51.4 hd 20.0 sd
189.4 -60.4 r2
24.0 212.3 -72.4 bar
225.2 -54.4 hd 20.0 sd
245.7 -54.4 hd 20.0 sd
273.3 -54.4 hd -9.0 sh 20.0 sd
295.0 -54.4 hd 20.0 sd
24.0 312.6 -72.4 bar
325.4 -51.4 hd 20.0 sd
346.3 -60.4 r4
367.1 -51.4 hd 20.0 sd
388.4 -51.4 hd 20.0 sd
24.0 407.4 -72.4 bar
420.4 -51.4 hd 20.0 sd
441.8 -51.4 hd 20.0 sd
462.6 -51.4 hd 20.0 sd
484.5 -51.4 hd 20.0 sd
24.0 502.3 -72.4 bar
515.9 -51.4 Hd 20.0 sd
545.4 -51.4 Hd 20.0 sd
24.0 568.0 -72.4 bar
598.3 -51.4 HD
24.0 628.3 -72.4 bar
642.8 -51.4 Hd 20.0 sd
671.1 -60.4 r2
24.0 699.3 -72.4 fbar2
642.8 -46.40 hld
0 -95.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1765 6215 a Fe(4)p eop end
%%Page: 5 5
TeXDict begin 5 4 bop -258 -323 a Fb(Christian)34 b(Martin)f(Gabriel:)g
(Jazzmesse)i(\(Mai)d(2003\))g(f)1871 -319 y(\177)1868
-323 y(ur)g(Soli,)h(Chor)g(und)g(Streic)m(horc)m(hester,)j
(Alt-Saxophon)p 3386 -290 586 4 v 178 -207 a(Besetzung:)e(Mezzosopran)g
(\(Solo\),)e(T)-8 b(enor)33 b(\(Solo\),)g(Chor)g(\(Sopran,)f(Alt,)h(T)
-8 b(enor,)33 b(Ba\031\),)-275 -90 y(Streic)m(horc)m(hester)i(\(1.)d
(Violine,)i(2.)e(Violine,)i(Viola,)e(Violoncello,)h(Kon)m(traba\031\),)
f(P)m(auk)m(e,)j(Horn)d(o)s(d.)h(Sax.)g(ad)f(lib.)1721
26 y Fa(\(10.6.04\))1836 6215 y Fe(5)p eop end
%%Trailer
userdict /end-hook known{end-hook}if
%%EOF