| 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-co.ps |
%!PS-Adobe-2.0
%%Creator: dvips(k) 5.95a Copyright 2005 Radical Eye Software
%%Title: jazzmesse-co.dvi
%%Pages: 6
%%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-co.ps jazzmesse-co
%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 46 /period put
dup 48 /zero put
dup 49 /one put
dup 50 /two put
dup 51 /three put
dup 58 /colon put
dup 65 /A put
dup 66 /B put
dup 67 /C put
dup 71 /G put
dup 72 /H put
dup 74 /J put
dup 75 /K put
dup 77 /M put
dup 80 /P put
dup 83 /S put
dup 84 /T put
dup 86 /V put
dup 97 /a put
dup 98 /b put
dup 99 /c put
dup 100 /d put
dup 101 /e put
dup 102 /f put
dup 103 /g put
dup 104 /h put
dup 105 /i put
dup 107 /k put
dup 108 /l put
dup 109 /m put
dup 110 /n put
dup 111 /o put
dup 112 /p put
dup 114 /r put
dup 115 /s put
dup 116 /t put
dup 117 /u put
dup 120 /x put
dup 122 /z put
dup 127 /dieresis put
readonly def
/FontBBox{-34 -251 988 750}readonly def
currentdict end
currentfile eexec
D9D66F633B846A97B686A97E45A3D0AA052A014267B7904EB3C0D3BD0B83D891
016CA6CA4B712ADEB258FAAB9A130EE605E61F77FC1B738ABC7C51CD46EF8171
9098D5FEE67660E69A7AB91B58F29A4D79E57022F783EB0FBBB6D4F4EC35014F
D2DECBA99459A4C59DF0C6EBA150284454E707DC2100C15B76B4C19B84363758
469A6C558785B226332152109871A9883487DD7710949204DDCF837E6A8708B8
2BDBF16FBC7512FAA308A093FE5CF4E9D2405B169CD5365D6ECED5D768D66D6C
68618B8C482B341F8CA38E9BB9BAFCFAAD9C2F3FD033B62690986ED43D9C9361
3645B82392D5CAE11A7CB49D7E2E82DCD485CBA04C77322EB2E6A79D73DC194E
59C120A2DABB9BF72E2CF256DD6EB54EECBA588101ABD933B57CE8A3A0D16B28
51D7494F73096DF53BDC66BBF896B587DF9643317D5F610CD9088F9849126F23
DDE030F7B277DD99055C8B119CAE9C99158AC4E150CDFC2C66ED92EBB4CC092A
AA078CE16247A1335AD332DAA950D20395A7384C33FF72EAA31A5B89766E635F
45C4C068AD7EE867398F0381B07CB94D29FF097D59FF9961D195A948E3D87C31
821E9295A56D21875B41988F7A16A1587050C3C71B4E4355BB37F255D6B237CE
96F25467F70FA19E0F85785FF49068949CCC79F2F8AE57D5F79BB9C5CF5EED5D
9857B9967D9B96CDCF73D5D65FF75AFABB66734018BAE264597220C89FD17379
26764A9302D078B4EB0E29178C878FD61007EEA2DDB119AE88C57ECFEF4B71E4
140A34951DDC3568A84CC92371A789021A103A1A347050FDA6ECF7903F67D213
1D0C7C474A9053866E9C88E65E6932BA87A73686EAB0019389F84D159809C498
1E7A30ED942EB211B00DBFF5BCC720F4E276C3339B31B6EABBB078430E6A09BB
377D3061A20B1EB98796B8607EECBC699445EAA866C38E00420B0477533ADB13
FC3B396C065B09769DAF0871076FB7FD0DC228CF3EE115446C7159B03F19BC6B
8FDA91BAF28AD303E26F885EE238874B11FEE84C47AF37E871AB5A85B043190E
E860B6443C43E27EA122F1E49241CA0D3B9F12495B0944DAB562A85D084312AC
8A5FB7C4DADB70C8D6CB46D3A904810C8A2370F4DB0B95DE9F7CC2A3A3010A92
CEC7D33F2EBC1ECEDA19CBB9A1B6B585AD17F92473794BDBDEAF6039C28138E3
D86BFE8DA8607817AEE030753FCE8C7825450B44B1C8CFA47A5E83D34F2F4813
D5FE101EDBEB0942B0767E98BC85CE69D7B35CE94A22CCCC0BB1EEAD52185ACB
3BB5FD548FF31561B7C03033EB3D779B19B35BBAD0D641960A83D1DA9F633188
B9B97C88792901E5D5D2B50478C33A79D544F0E0F486CB9B44DFAD1D289668FD
0664CD1C3DDD91FE78D1EC367E6246B14B67107C5E5F7AFA2782B80131B95C85
02CE7A6F23AE368AC50DF59470662ECC1A8EC64055E1C95D7D7B8C2C06A62DE5
471FCCAF0C7A0CC8272438DBB489040AEC9C3A7050915C69B22976E70817F8FF
0AE2207F10A6226E78DD3E5E2FE9C07A6920C72F4D09828337028A2DCB9126FA
1C8E936B4716DFB331E405AC463D001D7D0F5A4115A5F973251DDE5E8FBA8EAA
CD2FD893562338A837B79AEB29E23955A0E3295B298872F8D3937C8D8F82711F
06D2C97055C7049498A3002EA376769814F52D5F15C7DF483E3A3EBB657A6BCB
3D05E4258FCBD755D14D65995B2C5989CC62C9B6D533EB5FEAC853BBB39A1F92
7E60AECA0C407613B0A98C55F6B5908FBD21F8DAB04A2222BFD3A4590E97340F
2AB6B92150EA91F337D622FD10204E76D8BAD50B99BF13440CED7284F1FD1E6A
FF58E5818232F5885D6CBA24CD91A22455323D176AACCD6F8BB3A7C5C9A770EF
C1238C1FFDCAA2CA705785B7A56A69485C440924A1F7EC440246AEC7741147A8
5A5D2FBEA22FE0F8A0D64B0014A6E8CA10B6E904873EFD96CF02F4B833DF85CA
01E5A8A5006AC8A972F67BF9EFE2520A9AD35A6A011490C6CFE071D856923AE6
D0C56110A715963A7118529A082CEE1288A441295FFE52B516C4A295F7EF5779
8030D581DC325C82FC6B53F5A15C36C696A980BA010D6D327BC4FBE7719DE863
797A999F30C0A346C0D0C84A059DC041AC0F71DE7C3B1052F0EF43690C3F9C8A
27AE750AAE9E511742B21438C3A5ACE2AE2551F2A32BD646EAD29D578540A202
00314DE5A9352922DF84C8E365A48DBFE2A01E241DCF2355CAD4E33AD7573892
200B6DDF187F1201A821C43AFC1DC259F7D068090CF28A19CEC8553B0EAD5EDB
D91CA775728AEC793FC04E53722FD8AB89AAB15475AA462578AEE36BFD5A9892
2ABAB65A9194313E501E7EAD79C6E76B8E18BB5BA1ECD09CB8584C936E42F449
F3567A0EE6BEB300D8B8E6973EFE71FA5FCF4E360638B4855B16E68B13CBD4C0
6A2ADB67C9B04D667B97AAAE4F9B5AC09BB168D9A6E2A7CA3DAD3FE07DA4187D
62F4B692C1E0FF1CA41FA5500B7FEBEE43D64051CDAC93777429815C98AE1A85
561F3E901423F07CE335F1B85659662CCEA7D261790A8D2968B8D8A82B9C11D4
AF9B2FA4C49265FC22A8197165EB98FD40B2E6BB3C8B09C15D5B24DB61771E40
247ACA8A3628ECE59E2296B628B0D195026B638D7A770C839D27C3B83389A917
9859F02F7E91564D4161300D5425C57BFC95688F702D60DD83699A34B54D65D5
930D07512BF0C93E2B022B27C6D17A2B3DF8365E45A698BD2A3C57475F8D9C25
A287D3BC248CA65D826F9431A4D4DC113DF1874CAE1CDAAA286A775C0DFFA6FB
1945A61550E9C31930D60D38C1D2847F231AFB95056604AB105FF3428280FD81
CE691D3A5855E5BA072427DDB4E5B14E32AB73D59ECEECD0BF710CB4219D5053
69B2FB50141CD71167AB6034B1BDE9629B2773C53E7CC175B233421F07EC2ED3
A4F13AC6D0A32D90F82FB089A0A499B2B9255E14AF305E7D49528A354B687AF2
4319BF76654DB4510C67ACE9C7710228C6576D900A55100CBB103AE6FFD46170
5713C4367F28B077360FB2109051CE6240C499D620659AD84B1CE688F91B58D6
C6E38791BF0C09889F236E2972205472A9E95493D7704BCBE13AE6CE560F948A
EAF6D6EC2A54A68CF2767BC5D701FCACDA4E5BCF86A098FA4FA07F7E51984D09
893B13E11B68AC5C8AE29E7FC15E6C65FA4C653354F8B31D389947DD8EB3EA45
EFCAC9229FEED9BC4F67D97FF645DF5577FB9E5E35385D12ADF8C98A13C47705
C2C936BE67CB6941C739ED37E6A2DEE9E3AC11D780598AE1D84935DAAEE5E826
EC766883341747DD12B1DF28D0A1698DC3E5BFC3570800BE8AD3FDBA0DEF7D5A
05B7F940231C3A0DFCDE4BBD649C59E47797F0462192AC4073F08D13D3A80628
83193B1B0E701DBBBC91B598508FCC2D07BA5AA5B5BC168CB8DC019FB03F77D5
BA59FAEB0B581B1472FA1500B63832CDE109F06A2251C71C77559642A1E2D710
1BC31770022AC0B061F4049651F693DE87EAFB5E843817D6C8FB98E021DC33C2
798A6F4FB76F6CC4DB23A9F7E9CE3DEA4C8AE036D9B892F046B9424DA3279329
0FDFA233B18E497C059477C2AA989A04D61AA4B8413EFA4DC7D7309EA6860D54
CC5521E998967ED92A1FAF642B192CC0722C387233C0130B5A207D0E581AE2EF
A0C25D52D5AE57B30B5D34945A0ECEE73C0989420117D0B3DAFC7681273ED234
4C7D163D330A037B55560BCDED60BEF5FE74E98AD8E75A40885599A98A9C0038
2455C436BDE216650A01D69846B58D56204F27C545823FC953B32ADDC5D0D8C8
9EA2C596A7871FB201357DEA834FA5BF38BF862148B4CFACF2EE3C976E37E467
A7D251C774988B8C0990E9806FA1B39CBF8CFB85C8803DC489A6E81648681F04
C6D230AEC04E60CBE9A07E0E1B1764ED21A1354C826F0F270BE7D6D3A2804E67
F567C8B2769B3D5237BF27694F58CB6BA51830465C98587D883F8EC736099B69
7B2871D1EEA621D7DBF800D05781FC583CB326FF10B8886608E972E73DCF3B04
F25122256989D668DF027DF0898F0EA7119D45D483328893F2EC2D6CF531AE03
A52C7A68650D0125C8A206EFFFDDDCEEAD75B1AB9F90367400E0E3867D26E27A
4C554A44D836DAC0AC21BE404748A83F599DB4F9FEFD83A93D39D2841D1CAF77
3055CB5BD855D5EFDA590F33FABC9E5C9A86D547E59E049B5D7BBC8F987012A8
C880BA60E252E26382AAB80224F3E844D593397A9EE36BA6BA1D69AD35E9985E
3715E574A618089DFF93DD86203C37C1FFCB0F9D95B455EDF4CEAB3B9D8EEB95
92A41AE7CC59F046610C43F52B4B02BDFEFFAC75D2384E6A352946A43CF2187C
E4BE24EC4C9C2E5B714130BD26D2EC351D23FDA1E96877F48A0EA4335F3E4767
92CFADFB205D3489C1DBEB161D0F31D64F6F4150B7AFFA3C8FC443E187CC4271
8ACAE057491D39EDE9CDC0FB48077B306A670DCAE863C81F107337468305CDBB
4D4FC52660B3EEF3B5F9D09AD13898823ECD719B419AB0341FFE4D1D00E8B466
24A49FE13015497A544741DC90FD7697B337B6A37491E48EB5DADB76F636AD24
B54BF5838D8B01518BED34576FE5C2A5690EF8D25EBD8E86C84738E75ED4A01C
EF9D4128A52271DF8A476D03E43D37E9EA2CEDA2671DCD4D064B27B3E4527F76
4B534D91031BF9D4294EC6A1E019D06DE63ED426AB13573270DE58EBD120BC28
981D1E4C20FBAB3ACA7B87B767BAD89749C1B887143E3FC06027AB293F5A6853
C57E3CC3328AA8DCFA76C3804A2B8323C1B7B9E4DD3C52188DB6BA6C12DF332A
4B0502CF8756E0908DE115B72DB44689DAFDCA7D485C478DADF0E7E89CF28594
545D27601A140091D87AF261887DA353941911C6FC983C306E68C40AE6540EF7
CAE0D1682E5BD81A26925A3EF17638A37D0617559F2E9BADBBB1CD0B70148410
CD3E51E5C8B8FF426958C994E3123B597E0D2E8476A3891DAAD95EB26E497832
826E22472B9F4DE10B20B8BC93028A866FEE74774D0593A1A4E01F879D787945
1B521309C3095A01C60C887E42B29F6CA78B21CEFCF9901F0495D275CBFCD0B1
3C447EC137A82240636E182ABBD1D0622201D95D56F75F45BB688DB61D33AAF9
A1D3A4B7C2FD628A84BDC90FE455B749DB44B70275F591E3DFD9C8937B4A9895
AE5ABB632BACE5B8DF00D3A7483D90BCEC22DF3632F1FAFC5A92031B9FA20CD4
2577C90A370AEB8B4E65F40E72235721F43BE603A52E98086CD49362292998C1
48D6B4DAFA14C360AA7D61DAD983BF439D3182A8B2837481A84AA6450F44BBEB
9F76538E5225C0129822EE7DAD4A2E34AD401C4487EEE681B89B48946F3A3EF7
51090334D3817E150A83A27CA90CC3F7C1A399F4719F8C5741B254D93A047BC0
0A952771C0B0BE36A5126AB82C1986995155DE77925F6B83A26A6199D54641AB
E2CD46A3488FF2285EA781638C8BEE2787415BCCE4DF7C2BD13A2D4063E69C35
C5B1DF48FE5FBF054098D372A4E51007744E63B38044B538AEFA72000262DAF4
219F56ADD21AE59E3A164B5F994B3CC2FAC4AEEF1BB31BC288C8D8F594B4DEC4
944F7C7D280F33052DA18177F4D4FB4F7F41DD415AC4ADA2C698B6065F6389B4
45E5138C01A2A81F27CC8CCEB496957DE714B01C5DB2ACA8D45A0209F14A6471
1027E941572E59583A9C0B3052CDC91F1C67A0BF8BEE55B040D6FAA4526C4403
4188F3433C9E8F5B29DB9302335C70F667294B405FC4EA3FC9149495A314504A
9D281E0D89AC6DF9CA7DF6E6C19DFC870B28ED9E137730D184E8ACDE0A44B444
1551B28182BB5E863494D18B5C68B0B7847052CB6105BC94389301AEBD359B29
A7A2A776EE9224F4060CA8A00CC9EBD75F436279336A064C9F4075A37054CC06
9BDF3738BE095E037AA4B07E96321413480ECE01003183B1E81D0B8877B4312F
0DA574ED2EFDD4AF38A2182A079AF4FC831D11D17B9BF05A93F152AE75F43563
503A262C177CF797E4AA2D88CCF046064710F722F1545A71016AF5D140C772BA
C8ED748FAEAA97EEB7C2C528BFF250565B5113A322E48896324FF60E367B931D
CF09FD72C8ED671EFCDAC97CF5FAF4082BFC3AABA855567DF3FA3CDD4908A069
D04E0CBADFE5D9C92C2D16E382782CB418A06C6C0C9C46AC383362626B7115C4
8BE9FA907FDD587C3336C0C36399E49B0D4F172B9B165CB83282B4CC385F8D33
0565EB97F05A1101D1CFF05A8EED5E76EB6BF91608F358D9023BC4AC9F36F37C
FDC5F27282E68F936992141FDAD005432C6E7D3F37F46BCDC03C776BCCD9A11B
219D20AF1D6EF2C804241CAF1851E984610A7A12316BEEE897B7FB1EB06B7B8A
CBC7E07D7AEC36CAE286467AE5D1144653BA25C18FBF36D9AC8ADACEEA69A634
20446987CECC1DC2B461CBDD4EC5CF2C938C540EF856879A1EFB7DCEDADA189D
FCC559F13200B7A81A576E136389E2FA3F5614BE71DE5DF660B42B9A0A67697E
B2C36D885A5BEE25D7B248617BA680465102DFC66F6166090AA9B922E4E2F8E1
56F348D14708DCD567257AA0C5E445C51020B8FCDF3159CC428AD31C34113163
7F3706C524D0057BF43BD807F3D7D69FDE6F14B69A4C26A18C250FC4BAA460A2
DE6416DD92982334AD8D9020099A121932996FA53D29BBB4A3322CA85DAC7765
34DACB97A66706F591C43FC7608D369CACDF85C0DF104154909A26DD8FBF70BF
F61B6BEF28D2771BD9454A7B911A94D385D5296B56FC937C7AA7988336EAD251
FBA6E7B391CCD53EC062647F3429AB0E987D7C2DEB504A6116B899C4CCA862A4
91C7CF4E83B2DDEDFF28BF37DA24D5D4F90FD71B74489D1E2573536BB7C21EA0
99BA4DF2CD6B179852D9DCEE363B6F01F7ACF8548CFB24489432B29367718817
9E5EA56DEF8DCBD8F374E726A591FA3E8ECDBBFAE460A7816697D1D3F39C47CF
7F5173178095A5BB35A805783269BD35D60E6CCE7D510C63D957E8EF1187C9ED
93D034EDA50B0A38CA336D529B7EAE2CFAC197F380887633E85D2BF799551086
0AD6BDD088085D602D550D587E33E722D8B99D76623C0F403902664D4499CBB6
428C9038895165054C2DB09EA83B964A22B9BC7EF9B09791DCB207856B832B45
2CA9A2462E7957E3EAA4A40AE6CD8465D1DC9F17D719F86E3AA575C69E2A9FEE
D8EE986D30A205DEF459C8719E869F254DF8703E9CAC166E2AD96F9DCB345020
E62C002C3328AE43967E464F06A92F2F69DAD94504CD1D69E870216D37F8B19A
75C37C00899D588D87AB00F5EA99237FE3BE6BD295097AD062DD111C567171D0
D7A9815AD0780BBCCDF0B0436E0F3B8F013AEA908F09DF092DB9971592187C9A
DBB3C955ADB21EE72907A42B05321A19396E22C990E7663DFAA0160AB405ED6B
DEDA41907AAA7724F8ACA33BF65E6FBECB93DE6FA9ABD96325CD92F801398EDC
712FED8C09A3881ECA81B6A9F7AD697FD847746586974D243D3358400F6C15C4
91803287DE73B04CD6FB426A8B579C83F1A84EA0870B7ABF9BCEFB675DB4DB85
CDDC3C40AF663834D813C65B96D66DABE209D27992CC38D53395FDAF6637551C
7DDF10A883B7C40E4966E22857E5BFAF6436052579DE4BB4EF53C9B9217E0AF4
BBC3824269AF89D46A8A8D9794737EBD438968BCCDDF7992FA1957D45F2E7A15
AA61AF61665AE14A3337121720A07FD2FC8450BDCE47BCF591A4280F9F5FBEAC
2FD434CAB252E6F2D9A19B08A7E0C37AC945EB1402FF3E388959596902DF68FC
B6DDEC1A14B20BCFCC73931F9899F848BCBBB2705D69C7A0BAAF5C3C593440BB
B9869E5A1437AA804011DE8D9FA1CA6704449E9588F8EE3511F44A64A074CE84
675A6D6A1E07003CA5E0358E5265B9971C17711C5213E696EFF82264F3636A9D
6A1AE2FAE8F8199D53B1BFBA4426EA44013CC4D9CA925ED82B5278E14F23EC6A
3808A4DE82B64E2237FE39F42B5AC1D0384D74DC3A0EAA1C74BC05B4E7B7182B
766F196104EC6EE0B3B28BD1B5C8C748C1B0F4FB6398DDCC7B5202B055A29B0A
6F69AE9809394E08D9C128F4F4E5A77D3D4D9945232C43A0B1AA13583F0029A0
143BE3F399A755893490C3406E59EB35EDD5252ADAF2960E79313DAE56641797
31DD558F12AB68EF0A1D59FF4A83622DFAC8560E7AEDE592E6DB5DAFCFD6BD65
70296224D973438B669C64910D763459486A31DDC749FF3A53C433A0F691508B
B2E528FFAFA86370DEBB851A7F41279D917B293DB84BD73A96659AF0A75393CE
FA354323FB7FEFC72E3694605FFF2DC36951F8151D4FE518633713F3CFBC8F8C
E97C74042BA713A46737121065895A1DFFEAD54D2A8F3ED8B71833EA25624ECE
0FCF9238F7682D674075AB4A429B050F67ABE343B89BF04F815037C0F04305A1
F5266F2537D3DABD55B7837F71F41AFA538303D417DF94F698F973812600EA95
67868C25816D869132359C00B1AB93501FE9E02C5400BDCB8F343857BEAE1A3E
C8C75605C6F48138B20B15D2DDAD636AF4041B50B956A2A7CDAD063135E3DB4B
04E43088AA13505163EACDE44C140B07D876DBD5CDD5A89C161907C9E1E75506
3FC224DD6568F671B41391E906463885D48389006E8B207A02E2070DD4A1FD25
5FA15BDD5C5050D4E66CDAF82CA6BB64BD33041A8D6FC485B303797079412828
5D3257974404B414FF2B5B1131E8607B04853A7A7341C3B30A89658C88204130
9B6187149248337EB684E2B7BB88BA1C0526CE3697B6AA6BCE7AB156D3BE11B9
0B1C9841C2E5D55BB52C1A6B76C39CD939E69C277C6D5D05F5825C610FCE6C72
E1B51B711690A707D00D7FFE10FAF307ADC421485EAD0A7518987A6266BE7145
501E6A111962F88CA0165DBB556B6C3EEF8BB202A5D2306D93BC25C99D04F339
3E319460EE5E4E72CA193D8BBF7F62989065B514F024C1EE2CE4332D726DBC41
FEBE597D734A1D18398FE94975216C6DDDBF159E79D18A35255BED506395E081
4C4E22006935E649887440C36B39CDB1E41FF7FD5823D9788468BBCFA234D334
AB53B4B796AC12975DA45B58F960FDADF63E5CB1C1FFEA31297D97BDB39DF18E
C4445737B783565ADD9A8638F3BBCA45B5FFADBDDB1294DF89D5A392BFAC2B5E
B4DFC76E226BF33F1BB78F832AAFE15C789BF81B7558A10879BBCE4449B1A21D
E516FCAD25C950DE2AE3FA1F8C49AA24CD469256AA4FE760E833A152572A5BBD
A400A8287A22632E12BAF6D4FCB5560A8BA95300E86696E9F13F3424968EBEF0
03B5F3AFABA5CBA61B8B3A8FE2970CE719D5FE9448B670A92885DEA06025C519
D3B87A87823F8396D626132458E621C6DBEB60D6643AF0C8AA27309FCC56E50E
A39AD65E73F5CD07EE17A89786F6DDE1B8BC22EBA1F82203DAADC647BA438EC9
DA14F2B6395EB608D304AF482EF4BDC095597A57953EC324096A6835B8C7969C
0BA029BEE745079E369DF5A9C4052D99BAE7ABB5DC18C80E67226BCE152C85B6
B74F68F81A40623F68D7FFF309A685142928FB12C4186B96E03BF6F7A15CBCE9
A247B8043F53EBF68455C53469125AD4C46E5B4AB055C1E833CD1A6BD789F779
ED2E01BAB26D708B5AA53B7A7DF2C71195639C4F41BA85E436C27209C2873150
05A1E942EEF66886F22652184AE886EDFB86208BBEB490C8725205E51EA6A97C
F0EE980F365545C82234634C1ED3E8ACB9AA3570D9C8C0FF22143D0FF1647883
858EE9846AC4EC75E2BB0AA97DF7840412A34E5F4C304279305667E85E0CCACD
68AAFC760018C99EE7DE0E00E4FBE658BFC44A89FCC686CA21D83BD6FD0CA864
C59DCE4DA2708D58B13EAD03DE6C606E5D31AD2869A7949EE453AAB6FF879417
FB35B0CB088CD9D22DD48F30C1CEF65E2C9950FA9743C30D1BCB3EBDB90A8A3F
2F14D9FAFE0DF02404263729AFFE43C294508E18633ABC63B40E9B9BE3828911
16ECC276BDFB8C2260646131F713AF6AFF9313A571D62728FE9786590D45BF27
9B78C146EC893862DA934E2651EB8D73E7D38E2C952456AB7F2CB863D81178AE
D4610F78901AC9CFCA63314F713ECEF3C19FF14953819844ECDDB5951A965E5D
98CBA4BCD7FB5BA1D3E00B86E857CA1BBFC131E5C22E20EE2B74157B8E914383
32B157276F4BB78DB99413368FF54C369CFA72B1AF0906F8690184C2FBFBE585
5F8528542A54B131E05A8CA7CF7241D12C88A5A0F0CBC305F3429E0220718F45
BE3AC9BE2A69F9F0F10067DF2C254DF6314C9FA8F049133C04E0398A8E14DCAA
3DEA33CF892E6FEB72A2D2F462C9A0CD72D26B193308F41B1BE4A31DE990291E
37CBE903D938BF226E5442D45560B21168EE3A3092F37DCF02C1FC73AD0062A2
D207034D74AD09062953FC4E0B6371F11C7A517E0E1C1BFAE676767C2F121FFF
D081B72557E76D1E3B767F3DD97D48923017A821BCDF280B98065A5DA5B6F1FB
41375764A2E1BBF2AB1CB07D4C3AB8A6BCA663C40204F0DAC1A5008B3A69638E
540B2C3611A227ED4A4C8AAD94541C95AA6B07A0DDD93DD780837DBD5843E8CB
F48EE7D6590441872D8579A395D256D1B1D24BD6805940262342ACA170514D9A
51E271896C5B224EFF9C5AB2E512D799168002F2C98232F63F26107536073D5A
471FCE4FCB35330A1186E02377A07D6BEC5835DAF8B098C5E6F1B169D7A83675
E49818CC4D9105C118B5B6C956BF61B7DA429B1C6FA681FAE46640E6CDDEC238
21702E98807A3B7F08905151AD108CEFED57BC62D097AD33F4348F207BB1C728
5EBA4D24F26B290B462E6A83A7FA00B1F63958985594BC65162122975F5CA9DA
3758F4921B8D6206E88D277D8FA2DAFBBA4D3EF5EB9F0BA555E2648744CA57D9
408B1C5B89C7492B38CC10738EBE8A414EA9171A1484F5AF9F5DAA29FE1890BE
F3354513FA21EF5D91106D6D09BE09167838543D9098938C2459FF3F7205AFA6
DCC1650245CF6A39B2CA58E2DC4C754A2DC01B48C5D5E09F0C0C5A9DDA5BDEA8
A27934A2DE2FBECA08EFF128B2BAAAAA8A4B7F5F020DA8608B8101A88EB31A47
439DFE94A9C5F207BF2BF78E7EB9E0FABEBC1CE565226410F5D6CE128B63566D
47D055C685A49D9BC10AF66DDB92CE8F7986536397D7956239EB79288B53B8D3
A74D63E0326F301D03ADAA7FFDFB648552C90B3CEC92ED248F8306FF0D02CF19
6F8258D905D87612D919AB4A7749C58A81E8CD4B25633B24467FB0D3F2E3E8C9
5F322C952018779DFC4D5C71F3012F1020D93A14754E46AABDEB27955CAAD66F
8326D26D2E1399F347DE645A732942AC89
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark
%%EndFont
%%BeginFont: 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 72 /H put
dup 110 /n put
dup 111 /o put
dup 114 /r put
readonly def
/FontBBox{-33 -250 945 749}readonly def
currentdict end
currentfile eexec
D9D66F633B846A97B686A97E45A3D0AA052A014267B7904EB3C0D3BD0B83D891
016CA6CA4B712ADEB258FAAB9A130EE605E61F77FC1B738ABC7C51CD46EF8171
9098D5FEE67660E69A7AB91B58F29A4D79E57022F783EB0FBBB6D4F4EC35014F
D2DECBA99459A4C59DF0C6EBA150284454E707DC2100C15B76B4C19B84363758
469A6C558785B226332152109871A9883487DD7710949204DDCF837E6A8708B8
2BDBF16FBC7512FAA308A093FE5F075EA0A10A15B0ED05D5039DA41B32B16E95
A3CE9725A429B35BAD796912FC328E3A28F96FCADA20A598E247755E7E7FF801
BDB00E9B9B086BDBE6EDCF841A3EAFC6F5284FED3C634085BA4EE0FC6A026E96
96D55575481B007BF93CA452EE3F71D83FAAB3D9DEDD2A8F96C5840EAE5BE5DC
9322E81DFF5E250DEB386E12A49FC9FBF9B4C25C3283F3CEA74B8278A1B09DA7
E9AE4FBAAF23EDF5A3E07D39385D521547C3AAAB8EB70549756EBA8EF445AF4A
497CA924ACCC3DD5456F8E2C7E36946A5BF14E2E959895F7C94F49137256BE46
4A238684D52792234869EAE1A6D8ADF4E138B79472D2A90A6CA99E2394CC20CD
3841733046175B20CEBE372327BF13428EED6A3E2FDF84C2DBA4B0AD584EE9DF
B51828D3B8F385846158C29C9AC3496CB9692DD10219697B2ED4D425C3957FD8
C4600D76E045C561216EF05D38177243C314877A69A1C22E3BEC611A2EE5A216
9B7C264CF6D1839DBBD78A40610F2C0D7C2FE09FFA9822FF55035AD52546970F
83EED2D30EABB1F303091EBC11A5379B12BB3F405E371519A53EA9D66174ED25
A2E55463EC71A97BE4C04B39E68112956117C8252DB6FB14AB64534B4BCD568B
246DB833982B38CDE7268BBF74B6B0C18091E1B1F87D32D66F4DD023D1F10D2A
7736A960F72AC01F733A11023832CD68FB6288A5977743F781214D8FA9C0C3F7
80001321D4397771F728FD9EE57CFE7D9192B887EC883EB1505068261DC40089
7B7D2820F06515CD74513521F6397FEAB3AD3572D9A8269430E407E357422461
1785FC2782047F4C0339D79B16862D939F3A37F78E4E2174E4FBF132539CB760
207999FF86F6A3EBE48EB0A1CA635450FDEEF79EB16D853F3BF4B0D37EBFFEE1
9E7A64D3313B6B7963057DCC5819A595AE252A603B5BCAFB16A258A9A645F484
6E3BDE44FF617135971D6EAF424BB413E9476F287021298EDDAB4557F91649A0
50423A557FC10781D51C2073977FD73AE788F2E02C60FEC0A1A6B0B7CC4FD655
AB70095EECA9A8EA8C34934E320319277C3A4477B15024C44279CE7099C71951
6F37EF812166E15C0E084FA71D0D625462735888FAC42A2B1CA4C00FC4A8D083
1BC7ED9B465EA54FB21DAE7E8D6AA61C7EBEE1271298652F0F3D151BB998687F
8CB2E217770F2BD9902A3F5FC4E08FCA54B0B64155969B6D804FF7CF984F69A1
0482BD81907C2B687EAD9685EEEB0C17F2580C01A932AC4A33B34E13452C0C52
16717B8581AC5B959824FF7044DF7B7045DEC23FD529D0F9C1066E02BD101A51
4099A17A7F7B08B5B5A212AB8FADD894C8E3C1A053E3ADEC4CA2021D1F6AC4B7
656BE7059EA1B0943FE2AABA462EE2EA178F52801E3F09030741516E069CACCF
2BDE410505B03C462E98627088EA11BCFA1803E78A8E47BA212028134FB26A69
78900A648692E9B7E2D4E0611FC6654AFB1B3CACCA4DBF44A76C9108283C788B
D409F44AE867A5838547B4B9C674B87DE3A83A3EA571CA86DB8C8455A02FE8E2
79F0DC7A17B2FB1BD838E6B7F099D61AD737FF0D06764EB7262B76FCA07B4AB6
D8E964256E63302326EB3E78A1474F77D062FC2E2BC78443D9322CB63C3E62F9
CDC78BBA63E3DC336F33D92CEAAABC716CE74DC238F7712739F38CD39688EB7F
A55928F75B1ECC5FB963C9636A72CA4D2198A2AF5F6569D34F5EB4A21A1E41EB
ECC84CA70762F5B9FA90BCD5DBD86090793FD48CDAADE56DDCC9D95FBEE579A0
DA137E5E286D234B94603425F4859A3A3F006A7D697B9368CA5B7BE48A9BF573
AE4A5DC65E09C0657CAF91A148C8FD0190A2C86428BAFAD378A70ECBAC31DD9F
4661769ABC6BC3FF4F6F38E887BF6C24567EEAE93E4565A3E7B2C9D6AA22BB08
A1A5C8568FE08D5AFE12AF3397FDE8D5FEC6FEB315A79DD720D2C85921591B5F
4DC18347BCD5952095A75FBD4ACC8A535340D6
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
dup 54 /six 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
7D1888B284904301450CE0BC15EEEA00E48CCD6388F3FC3901F92CC2EC9BC842
5EE578CF06846C7078E026DFCB18AD4D78023652F0165DE17C183E43752132BB
19F361414774D5C13AD718B01F47E61745009D823C3996FB208C3A9D4B4F116E
4D38E56725461BBA1FE17CDC27CD99AC7D748CF7750CA2C6E1EC5E4746AC85F5
E8274DA59750A144AD5AEBE6C9A7CE843BD6837FE2A88078124AA1A94EFC1C50
B811EAEB2679AD57294AB13E45AEEB8C6EA105696E341E4C14ECF573EEBB83E6
F9DE39BD6CC376158231CA2A83D91F721ABD116A40698F26610853E7FD075472
ED40CCE32031FCFAE2737B412807F7C9E6494D0B73B7AB13AFD20D5219A71562
12A7B57DD9965B15AFB38BEDA28D35D73282D4F1F9A15C4403B7C69C7E80DF54
C112D7813F7271A5474438A7CC380735F029CFDF4C0C30C3901A7E30F8B3B017
B1A663CC9481C79B903806F30AF37522828FD5DE3EC220C719B63A90FB3CE105
3D5E0F56440F1657C4D99760B010A26A6B8411D2FC60C28C4E885AD14A379244
841B408BEDC905276B7C9BE5BDFC5675334396F3715517D7A61C24BE35125DBD
E1F7E59DABE44B1155B5AD46DB008CFEFC55199AA3C109B9E8CB20C27483AD63
EEA01A4E84E7D17631144F1F24B4B1864047E1FFD3AAC17EF92DC3567F66DEDA
A47A0A9B59F3703ABCD08C592C654013063F9274AEAEFB3AF08C60159D834495
5CCB7AC6233F19424729A60D4DE89BC5FB4B356DA22701D9654B9FAB411D0711
A09247F852E3FA20245D4E9064D92BAED7C23AD21A09AAF09F4BFD20FF0B2BB7
6720E624EF9B6B8EE2FF020E0C2995E236C7C5E3BD9F43F044C0C90BA3BE9D40
B3F3DB25345B0B79C8587ADA006002B3B87E1567F5A3441C9C9DD1E80E0AA709
B2870C995AF82E7E8DA5AF8CEAB2F4C53024B03DDF03D49FDD4D8EC1E140DA30
F013232C94E7DC014E8AE24C47F693295A0124678989968736287F3F240A48F4
68D694921FD09304E96DDD0EF3D6ED2A5E7D1BCAEE720E9E26162321E7EEDAA4
F60C46179849A7FF437E4E760DA618EC310BB373C79BDF77DBDB2C8DC3506454
C84A084CD32A310A5B9C53D17183FF9348424C4703563E39C7E72EA1FF3E8CD6
26AAD04AC26F5F3D82B0AFF6DFCE69CF6A2B80C851692A361A0373EC97C7670E
75779E8ADAB55C5882E227B8A77EED0842FD8F64ECE33DAECDD125E99258ED86
610A5B326ECD44E272FFC7CB7C5329508F288C0B56C64B2B88C3F90770A53DD9
5AB6188061EF70A78857C498EB73E27E5C349682BF104F8B9C0ADE7BFDB8CF3E
D777DF991172B17F90F5EB09E054B7847BBEA260E4ECA36ADA3E89BAA1CE0776
793B2A8E9F6F85D92BE7C596A183E99F757D607D840182E8D2052A35AF7CE66D
DB2F50CBD8D40A857F0A0284D2177F0162D2161DBBECF72D86D085E3F4BCCF13
17D3317BF65C87B307FC6A857E58555736F46F957CEBFD08A04236A2E18C0C86
3E55EF783469FF5C15C7CAE01CA054961E9359C243A41CBF210AA69ED2EE4134
08021C295367D20A17872099262A0362DC364BD720BA2F61D28626FC1004435D
7C2CB3309B41EADC1EBFB2F2E9ABDF6ABD6879DFE17F1F8D527E5CBA9CEC328E
CCBDE7D2F10728C99D9B62DA34EDCC42AD0011F8369EF9498F79F46753073464
7D7E8C362ED7105BA39D30FECFB8C281A4880C46AF32EF2FB81B5E3B24E8E01D
5F173B88E7E1DF1D917796B4373197BB682985F2A4B9D588865BF2C1A7336819
72A9E1EBCCDB25703E0089CC2CEFCB4024ED41EAB81E265B6F911F164CA24710
7500D1B19385F7EDAA98BB29F72D96A277A62918DD18A5D1E87E1D7C966C2AAC
A8CFCF26DE9EC9D60DBF8C5968204265CD68212517F8E43E6C665C0A7D2639AA
D5655363127857A67A36EB7B60FE762D505D880B7998C4D1C583D0E609087881
30183626EEA5C4E59889AD88E8C3DF79854671AA0C9D7666135B844130A9DD87
E31FC8BF519F30B553D927C7A3B81B8D08D6BFBF3CFE97C0370CF838B67B01BC
A9ABE1DCB0E9ED6A49A953C3950871DE0D7BA24839FCF0666F5583F639279597
BF6649E453DAD403B59D44E211A67180FD36BA0B89D5E8F1B4B88F1F8DEC9DFB
5B5225D1FC4ED7F9A0937F52798954E3D8E354CD0EDEE924B56EF95107BEA498
24892CF3C814E031A331BF6A011D0697E885E4EABC364624385EBA0708024B7C
BB0A6F8E326C0BB47DA80734A7C580BF611B8D71EC860569BBC5D18EC9A06ACB
B3823A877420C9481A6CD8BD6152D68CF2C9625DCCA06BCE53A3BAF23FE934CE
9149C2D2EB647CE66B286C13213B75740A9ED1CEA56C91
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
cleartomark
%%EndFont
TeXDict begin 39139632 55387786 1000 600 600 (jazzmesse-co.dvi)
@start /Fa 201[35 1[35 2[35 35 1[20 4[27 27 40[{}7 66.4176
/CMR8 rf /Fb 128[49 4[43 1[51 2[54 38 38 38 1[54 49 54
81 27 51 1[27 54 49 30 43 54 43 54 49 10[73 1[70 54 2[66
2[89 1[76 50 1[73 77 3[70 69 73 6[27 6[49 49 49 49 1[27
1[27 2[38 38 14[49 25[{}44 99.6264 /CMR12 rf /Fc 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 141[51 2[66
73 37[99 72[{}4 143.462 /CMR17 rf /Fe 201[42 42 42 42
42 42 49[{}6 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 1384 a Fh(Christian)46 b(Martin)f(Gabriel)
1342 2124 y Fg(Jazzmesse)602 2578 y Fh(f)647 2584 y(\177)643
2578 y(ur)g(Soli,)h(Chor,)f(Streic)l(horc)l(hester)h(und)e(P)l(auk)l(e)
866 2770 y(\(Horn)i(o)t(der)e(Alt-Saxophon)h(ad)g(lib.\))p
1677 3403 359 4 v 1677 3534 4 132 v 1706 3509 a(Horn)p
2033 3534 V 1677 3537 359 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 3613 -193 346 4 v 3613 -45 4 148
v 3641 -70 a Fd(Horn)p 3956 -45 V 3613 -42 346 4 v 1167
77 a Ff(Christian)38 b(Martin)g(Gabriel)1178 240 y Fc(Jazzmesse)53
b(\(2003\))1279 703 y(Kyrie)g(|)i(tacet)1565 1193 y(Gloria)-387
1978 y @beginspecial 0 @llx 0 @lly 516 @urx 79 @ury 5160
@rwi @setspecial
%%BeginDocument: jazzmesse-co-gloria001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 79
%%Title: jazzmesse-co-gloria001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:39 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 164.2 -23.0 M (10) showb 287.7 -23.0 M (20) showb 411.1 -23.0 M (30) showb 534.5 -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 ( = 144) show
0 -57.00 M 661.50 staff
12.0 -57.0 tclef
35.0 -57.0 csig
(9) 103.7 -57.0 mrest
24.0 164.2 -57.0 bar
(10) 227.1 -57.0 mrest
24.0 287.7 -57.0 bar
(10) 350.6 -57.0 mrest
24.0 411.1 -57.0 bar
(10) 474.0 -57.0 mrest
24.0 534.5 -57.0 bar
(9) 597.4 -57.0 mrest
24.0 661.5 -57.0 dbar
0 -80.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 591 x @beginspecial 0 @llx 0 @lly 544 @urx
83 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-gloria002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 83
%%Title: jazzmesse-co-gloria002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:39 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
% --- 2 ((notitle)) ---
0 -25.34 T
(1) 67.8 623.5 -12.0 end2
14.0 F1 83.4 -28.0 M (50) showb 189.5 -28.0 M (55) showb 411.3 -28.0 M (60) showb 517.4 -28.0 M (70) showb
15.0 F2 306.7 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 20 su grestore 15.40 0 rmoveto ( = 88) show
0 -62.00 M 699.30 staff
12.0 -62.0 tclef
35.4 -50.0 r1
24.0 83.4 -62.0 bar
(5) 137.5 -62.0 mrest
24.0 189.5 -62.0 bar
(2) 243.6 -62.0 mrest
24.0 296.7 -62.0 fbar1 306.7 -62.0 rdots
(3) 359.4 -62.0 mrest
24.0 411.3 -62.0 bar
(10) 465.5 -62.0 mrest
24.0 517.4 -62.0 bar
(2) 571.6 -62.0 mrest
24.0 623.5 -62.0 bar
643.5 -50.0 r1
24.0 699.3 -62.0 fbar2 689.3 -62.0 rdots
0 -85.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 675 x @beginspecial 0 @llx 0 @lly 544 @urx
93 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-gloria003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 93
%%Title: jazzmesse-co-gloria003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:39 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
% --- 3 ((notitle)) ---
0 -25.34 T
(2) 80.0 47.6 -25.0 end2
14.0 F1 212.9 -41.0 M (75) showb 318.2 -41.0 M (80) showb 423.4 -41.0 M (90) showb 528.6 -41.0 M (100) showb 633.8 -44.0 M (110) showb
15.0 F2 68.0 -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
24.0 47.6 -75.0 bar
(6) (8) 61.0 -75.0 tsig
80.5 -63.0 r1
24.0 127.0 -75.0 bar
142.6 -63.0 r4 8.0 3 dt
181.5 -63.0 r4 8.0 3 dt
24.0 212.9 -75.0 bar
(5) 266.6 -75.0 mrest
24.0 318.2 -75.0 bar
(10) 371.8 -75.0 mrest
24.0 423.4 -75.0 bar
(10) 477.0 -75.0 mrest
24.0 528.6 -75.0 bar
(10) 582.2 -75.0 mrest
24.0 633.8 -75.0 bar
652.8 -63.0 r1
24.0 699.3 -75.0 bar
142.6 -49.00 hld
181.5 -49.00 hld
0 -98.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 500 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-gloria004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-co-gloria004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:39 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale
% --- 4 ((notitle)) ---
0 -25.34 T
14.0 F1 133.5 -13.0 M (120) showb 245.6 -13.0 M (130) showb 360.9 -13.0 M (135) showb 475.2 -13.0 M (140) showb 587.2 -13.0 M (150) showb
0 -47.00 M 699.30 staff
12.0 -47.0 tclef
(9) 78.6 -47.0 mrest
24.0 133.5 -47.0 bar
(10) 190.6 -47.0 mrest
24.0 245.6 -47.0 bar
(5) 302.7 -47.0 mrest
24.0 360.9 -47.0 dbar
(5) 420.2 -47.0 mrest
24.0 475.2 -47.0 bar
(10) 532.3 -47.0 mrest
24.0 587.2 -47.0 bar
(2) 644.4 -47.0 mrest
24.0 699.3 -47.0 bar
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 659 x @beginspecial 0 @llx 0 @lly 544 @urx
91 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-gloria005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 91
%%Title: jazzmesse-co-gloria005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:40 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
% --- 5 ((notitle)) ---
0 -25.34 T
14.0 F3 130.7 -38.4 M (Celli,Kb) gcshow
577.6 -38.4 M (Celli,Kb) gcshow
14.0 F1 376.8 -38.4 M (155) showb 473.1 -38.4 M (160) showb
15.0 F2 105.7 -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
48.5 -60.4 r1
24.0 83.4 -72.4 dbar
98.7 -72.4 csig
122.7 -72.4 sbclef
138.7 -60.4 r4
161.6 -69.4 shd 20.0 su
194.2 -69.4 shd 20.0 su
226.8 -69.4 shd 20.0 su
24.0 245.6 -72.4 bar
259.3 -69.4 shd 20.0 su
292.7 -69.4 shd 20.0 su
325.3 -69.4 shd 20.0 su
357.9 -69.4 shd 20.0 su
24.0 376.8 -72.4 bar
(5) 425.8 -72.4 mrest
24.0 473.1 -72.4 bar
(3) 522.1 -72.4 mrest
24.0 569.5 -72.4 bar
634.4 -60.4 r1
24.0 699.3 -72.4 bar
138.7 -84.4 r1 -78.4 hl
259.3 -84.4 r1 -78.4 hl
585.6 -69.4 shd 20.0 sd
606.4 -78.4 r8
623.5 -63.4 shd 1 20.0 sfd
641.1 -63.4 shd 20.0 sd
668.3 -63.4 shd -9.0 sh 20.0 sd
634.2 -71.2 628.8 -71.2 627.2 -68.0 0 -0.2 628.6 -70.2 634.5 -70.2 635.9 -67.8 627.2 -67.8 SL
48.5 -46.40 hld
0 -95.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 583 x @beginspecial 0 @llx 0 @lly 544 @urx
82 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-gloria006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 82
%%Title: jazzmesse-co-gloria006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:40 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 81.6 T
0.75 dup scale
% --- 6 ((notitle)) ---
0 -25.34 T
14.0 F3 34.3 -17.4 M (Corno:) gcshow
14.0 F1 130.0 -26.4 M (165) showb 380.9 -26.4 M (170) showb 473.4 -29.4 M (180) showb
0 -60.40 M 699.30 staff
12.0 -60.4 tclef
42.3 -51.4 hd 20.0 su
61.4 -48.4 r4
78.4 -48.4 r8
94.2 -51.4 hd 20.0 su
112.8 -51.4 hd 1 20.0 sfu
24.0 130.0 -60.4 bar
(3) 177.3 -60.4 mrest
24.0 222.5 -60.4 bar
234.8 -51.4 hd 20.0 su
253.6 -48.4 r4
270.3 -48.4 r8
285.9 -51.4 hd 20.0 su
305.6 -51.4 hd 1 20.0 sfu
24.0 322.2 -60.4 bar
335.3 -51.4 Hd 20.0 su
359.4 -48.4 r2
24.0 380.9 -60.4 bar
(10) 428.2 -60.4 mrest
24.0 473.4 -60.4 bar
519.1 -51.4 hd 20.0 su
538.6 -48.4 r4
556.0 -48.4 r8
571.4 -51.4 hd 20.0 su
590.1 -51.4 hd 1 20.0 sfu
24.0 606.8 -60.4 bar
(3) 654.1 -60.4 mrest
24.0 699.3 -60.4 bar
327.2 -59.6 313.8 -59.6 309.8 -56.2 0 -0.2 313.2 -58.6 327.8 -58.6 331.2 -56.0 309.8 -56.0 SL
(ff) 42.3 -82.40 pf
42.3 -29.40 accent
234.8 -29.40 accent
(ff) 519.1 -82.40 pf
519.1 -29.40 accent
0 -83.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 583 x @beginspecial 0 @llx 0 @lly 544 @urx
82 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-gloria007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 82
%%Title: jazzmesse-co-gloria007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:40 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 81.6 T
0.75 dup scale
% --- 7 ((notitle)) ---
0 -25.34 T
14.0 F3 235.4 -17.4 M (stringendo) gcshow
14.0 F1 108.9 -29.4 M (185) showb 366.3 -29.4 M (190) showb
0 -60.40 M 699.30 staff
12.0 -60.4 tclef
32.7 -51.4 hd 20.0 su
49.0 -48.4 r4
63.3 -48.4 r8
77.0 -51.4 hd 20.0 su
92.2 -51.4 hd 1 20.0 sfu
24.0 108.9 -60.4 bar
121.9 -51.4 Hd 20.0 su
142.6 -48.4 r2
24.0 159.0 -60.4 bar
172.8 -48.4 r1
24.0 194.8 -60.4 bar
208.7 -51.4 HD
24.0 230.7 -60.4 bar
243.4 -51.4 Hd 9.0 0 dt 12.5 0 dt 20.0 su
273.5 -51.4 hd 1 20.0 sfu
24.0 290.7 -60.4 bar
302.1 -51.4 hd 1 20.0 sfu
319.5 -48.4 r8
332.4 -48.4 r4
349.2 -48.4 r2
24.0 366.3 -60.4 bar
401.9 -51.4 Hd 9.0 0 dt 12.5 0 dt 20.0 su
432.0 -51.4 hd 1 20.0 sfu
24.0 449.2 -60.4 bar
460.8 -51.4 hd 1 20.0 sfu
477.1 -48.4 r8
491.5 -48.4 r4
508.3 -48.4 r2
24.0 524.8 -60.4 bar
537.4 -51.4 Hd 9.0 0 dt 12.5 0 dt 20.0 su
569.0 -51.4 hd 1 20.0 sfu
24.0 584.8 -60.4 bar
596.5 -51.4 hd 1 20.0 sfu
613.6 -48.4 r8
626.3 -48.4 r4
643.5 -48.4 r2
24.0 660.4 -60.4 bar
674.6 -48.4 r1
24.0 699.3 -60.4 dbar
113.7 -59.6 100.4 -59.6 96.4 -56.2 0 -0.2 99.7 -58.6 114.3 -58.6 117.7 -56.0 96.4 -56.0 SL
294.1 -59.6 281.5 -59.6 277.7 -56.2 0 -0.2 280.9 -58.6 294.7 -58.6 297.9 -56.0 277.7 -56.0 SL
452.8 -59.6 440.0 -59.6 436.1 -56.2 0 -0.2 439.4 -58.6 453.4 -58.6 456.7 -56.0 436.1 -56.0 SL
588.7 -59.5 576.7 -59.5 573.1 -56.2 0 -0.2 576.1 -58.5 589.3 -58.5 592.4 -56.0 573.1 -56.0 SL
32.7 -29.40 accent
243.4 -29.40 accent
273.5 -29.40 accent
401.9 -29.40 accent
432.0 -29.40 accent
537.4 -29.40 accent
569.0 -29.40 accent
0 -83.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 592 x @beginspecial 0 @llx 0 @lly 544 @urx
83 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-gloria008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 83
%%Title: jazzmesse-co-gloria008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:40 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
% --- 8 ((notitle)) ---
0 -25.34 T
14.0 F1 39.0 -32.0 M (195) showb 149.5 -28.0 M (200) showb 377.3 -28.0 M (205) 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 ( = 84) show
0 -62.00 M 699.30 staff
12.0 -62.0 tclef
(2) (2) 35.0 -62.0 tsig
(5) 96.1 -62.0 mrest
24.0 149.5 -62.0 bar
(3) 205.1 -62.0 mrest
24.0 259.6 -62.0 fbar1 269.6 -62.0 rdots
(2) 323.9 -62.0 mrest
24.0 377.3 -62.0 bar
(2) 432.9 -62.0 mrest
24.0 494.0 -62.0 fbar1 24.0 496.0 -62.0 fbar2 504.0 -62.0 rdots 486.0 -62.0 rdots
523.3 -50.0 r4
558.3 -53.0 hd 1 20.0 sfu
581.0 -50.0 r8
603.7 -50.0 r8
627.7 -53.0 hd 1 20.0 sfu
652.3 -50.0 r8
677.4 -53.0 hd 1 20.0 sfu
24.0 699.3 -62.0 bar
692.8 -60.9 683.9 -60.9 681.3 -57.6 0 -0.2 683.5 -59.9 693.2 -59.9 695.4 -57.4 681.3 -57.4 SL
(ff) 558.3 -84.00 pf
558.3 -59.00 emb
627.7 -59.00 emb
0 -85.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 194 a @beginspecial 0 @llx
0 @lly 544 @urx 72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-gloria009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-co-gloria009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:40 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 286.8 -16.0 M (210) showb
0 -47.00 M 699.30 staff
12.0 -47.0 tclef
32.5 -38.0 hd 1 20.0 sfu
55.3 -32.0 hd 20.0 sd
74.9 -35.0 hd 1 20.0 sfd
92.6 -35.0 hd 1 20.0 sfd
109.5 -38.0 hd 1 20.0 sfu
129.0 -35.0 r4
24.0 147.8 -47.0 bar
160.4 -35.0 r4
181.4 -38.0 hd 1 20.0 sfu
200.1 -35.0 r8
215.5 -35.0 r8
232.7 -38.0 hd 1 20.0 sfu
252.4 -35.0 r8
267.9 -38.0 hd 1 20.0 sfu
24.0 286.8 -47.0 bar
299.0 -38.0 hd 1 20.0 sfu
321.5 -32.0 hd 20.0 sd
341.2 -35.0 hd 1 20.0 sfd
359.1 -35.0 hd 1 20.0 sfd
375.0 -38.0 hd 1 20.0 sfu
395.6 -35.0 r4
24.0 422.4 -47.0 fbar2 412.4 -47.0 rdots
441.3 -32.0 hd -9.0 sh 20.0 sd
463.2 -35.0 r4
485.3 -35.0 r4 8.0 3 dt
518.4 -32.0 hd -9.0 sh 1 20.0 sfd
24.0 533.9 -47.0 bar
561.1 -32.0 hd 20.0 sd
581.8 -35.0 r4
604.4 -38.0 hd 20.0 su
631.3 -32.0 hd -9.0 sh 20.0 sd
24.0 649.3 -47.0 bar
665.0 -26.0 HD
24.0 699.3 -47.0 dbar
26.4 -45.9 18.6 -45.9 16.3 -42.6 0 -0.2 18.2 -44.9 26.7 -44.9 28.7 -42.4 16.3 -42.4 SL
87.0 -27.2 80.6 -27.2 78.6 -30.4 0 0.2 80.3 -28.2 87.3 -28.2 88.9 -30.6 78.6 -30.6 SL
290.5 -46.3 276.4 -46.3 272.1 -42.8 0 -0.2 275.7 -45.3 291.2 -45.3 294.7 -42.6 272.1 -42.6 SL
353.4 -27.2 346.9 -27.2 344.9 -30.4 0 0.2 346.6 -28.2 353.7 -28.2 355.4 -30.6 344.9 -30.6 SL
550.2 -23.3 529.4 -23.3 523.1 -26.9 0 0.2 528.4 -24.3 551.2 -24.3 556.4 -27.1 523.1 -27.1 SL
109.5 -44.00 emb
181.4 -44.00 emb
232.7 -44.00 emb
375.0 -44.00 emb
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 723 x @beginspecial 0 @llx 0 @lly 544 @urx
91 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-gloria010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 91
%%Title: jazzmesse-co-gloria010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:40 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.3 T
0.75 dup scale
% --- 10 ((notitle)) ---
0 -25.34 T
14.0 F3 53.5 -38.4 M (swing) gcshow
14.0 F1 141.2 -41.4 M (215) showb 580.1 -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 -54.4 hd 20.0 sd
87.4 -57.4 hd -9.0 sh 20.0 sd
105.1 -60.4 hd 20.0 sd
125.2 -60.4 hd 20.0 sd
24.0 141.2 -72.4 bar
152.8 -60.4 r8
167.7 -54.4 hd 20.0 sd
192.6 -57.4 hd -9.0 sh 1 20.0 sfd
208.3 -60.4 hd 20.0 sd
227.1 -60.4 hd 20.0 sd
24.0 243.9 -72.4 bar
254.8 -60.4 r8
270.7 -54.4 hd 20.0 sd
296.1 -57.4 hd -9.0 sh 1 20.0 sfd
310.6 -60.4 hd 20.0 sd
330.5 -60.4 hd 20.0 sd
24.0 346.6 -72.4 bar
362.5 -63.4 HD
24.0 400.6 -72.4 bar
413.0 -63.4 hd 8.0 0 dt 20.0 su
440.1 -63.4 hd 1 20.0 sfu
458.6 -63.4 hd 20.0 su
477.7 -63.4 hd 20.0 su
24.0 494.2 -72.4 bar
506.1 -63.4 hd 20.0 su
525.5 -63.4 hd 20.0 su
544.8 -63.4 hd 20.0 su
563.2 -63.4 hd 20.0 su
24.0 580.1 -72.4 bar
595.3 -63.4 HD
24.0 622.2 -72.4 bar
634.0 -63.4 hd 20.0 su
653.7 -60.4 r4
673.9 -60.4 r2
24.0 699.3 -72.4 fbar2
(ff) 61.5 -96.40 pf
394.8 -45.40 brth
634.0 -41.40 hld
0 -96.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1643 2061 a Fc(Credo)-317 2846 y @beginspecial
0 @llx 0 @lly 516 @urx 79 @ury 5160 @rwi @setspecial
%%BeginDocument: jazzmesse-co-credo001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 79
%%Title: jazzmesse-co-credo001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:19 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 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 565 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-credo002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-co-credo002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:19 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale
% --- 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 731 x @beginspecial 0 @llx 0 @lly 544 @urx
92 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-credo003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 92
%%Title: jazzmesse-co-credo003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:19 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 91.8 T
0.75 dup scale
% --- 3 ((notitle)) ---
0 -25.34 T
14.0 F3 74.5 -17.4 M (Mezzo-) gcshow 74.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
82.5 -54.8 shd -9.0 ft 1 20.0 sfd
110.1 -54.8 shd 2 22.0 sfd
133.3 -54.8 shd 1 20.0 sfd
159.8 -54.8 shd 2 22.0 sfd
179.4 -54.8 r8
202.7 -54.8 r16
225.9 -54.8 shd 8.0 3 dt 1 20.0 sfd
259.1 -57.8 shd 1 20.0 sfu
286.3 -57.8 shd -9.0 ft 1 20.0 sfu
24.0 311.9 -66.8 bar
328.5 -60.8 shd 20.0 su
367.2 -60.8 shd 1 20.0 sfu
391.8 -54.8 r8
425.2 -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) 74.6 -91.8 wd 93.3 -91.8 whf (ius) 101.0 -91.8 wd (reg) 123.6 -91.8 wd 145.9 -91.8 whf (ni) 152.9 -91.8 wd (non) 214.9 -91.8 wd (e) 253.9 -91.8 wd 268.3 -91.8 whf (rit) 278.7 -91.8 wd (fi) 322.5 -91.8 wd 342.8 -91.8 whf (nis.) 356.8 -91.8 wd
0 -97.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 757 x @beginspecial 0 @llx 0 @lly 544 @urx
95 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-credo004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 95
%%Title: jazzmesse-co-credo004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:19 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 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 598 x @beginspecial 0 @llx 0 @lly 544 @urx
76 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-credo005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 76
%%Title: jazzmesse-co-credo005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:19 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 75.6 T
0.75 dup scale
% --- 5 ((notitle)) ---
0 -25.34 T
14.0 F3 28.4 -17.4 M (Corno:) gcshow
99.3 -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.4 -39.4 r8
71.6 -51.4 stclef
107.3 -33.4 hd 1 20.0 sfd
124.6 -39.4 r4
147.2 -39.4 r4
166.5 -39.4 r8
187.8 -36.4 hd -9.0 sh 1 20.0 sfd
24.0 203.1 -51.4 bar
214.4 -39.4 r8
231.0 -33.4 hd 1 20.0 sfd
249.4 -39.4 r4
270.0 -39.4 r4
289.1 -39.4 r8
312.3 -36.4 hd -9.0 sh 1 20.0 sfd
24.0 327.2 -51.4 bar
338.2 -39.4 r8
356.2 -33.4 hd 1 20.0 sfd
372.3 -39.4 r4
393.9 -39.4 r4
414.0 -39.4 r8
436.4 -36.4 hd -9.0 sh 1 20.0 sfd
24.0 451.2 -51.4 bar
462.4 -39.4 r8
478.8 -33.4 hd 1 20.0 sfd
497.1 -39.4 r4
518.8 -39.4 r4
538.0 -39.4 r8
560.8 -36.4 hd -9.0 sh 1 20.0 sfd
24.0 575.3 -51.4 bar
586.4 -39.4 r8
603.1 -33.4 hd 1 20.0 sfd
621.0 -39.4 r4
641.8 -39.4 r4
662.6 -39.4 r8
684.5 -36.4 hd -9.0 sh 1 20.0 sfd
24.0 699.3 -51.4 bar
(mp) 107.3 -75.40 pf
0 -75.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 564 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-credo006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-co-credo006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Mar 28 23:19 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale
% --- 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.7 -35.0 r8
53.2 -29.0 hd 1 20.0 sfd
74.6 -35.0 r4
103.7 -35.0 r4
128.2 -35.0 r8
151.3 -32.0 hd -9.0 sh 1 20.0 sfd
24.0 170.0 -47.0 bar
181.7 -35.0 r8
202.1 -29.0 hd 1 20.0 sfd
224.8 -35.0 r4
251.4 -35.0 r4
275.7 -35.0 r8
301.2 -32.0 hd -9.0 sh 1 20.0 sfd
24.0 319.3 -47.0 bar
330.8 -35.0 r8
352.8 -29.0 hd 1 20.0 sfd
372.8 -35.0 r4
400.7 -35.0 r4
426.1 -35.0 r8
450.7 -32.0 hd -9.0 sh 1 20.0 sfd
24.0 468.7 -47.0 bar
486.3 -35.0 r1
24.0 528.3 -47.0 bar
(4) 580.4 -47.0 mrest
24.0 630.4 -47.0 bar
651.5 -38.0 HD
24.0 699.3 -47.0 fbar2
(p) 651.5 -69.00 pf
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1836 6215 a Fe(3)p eop end
%%Page: 4 4
TeXDict begin 4 3 bop 1204 -307 a Fc(Sanctus)52 b(|)i(tacet)1765
6215 y Fe(4)p eop end
%%Page: 5 5
TeXDict begin 5 4 bop 1488 -306 a Fc(Agn)l(us)52 b(Dei)-317
388 y @beginspecial 0 @llx 0 @lly 516 @urx 79 @ury 5160
@rwi @setspecial
%%BeginDocument: jazzmesse-co-dona001.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 516 79
%%Title: jazzmesse-co-dona001.abc (1)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:41 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 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 776 x @beginspecial 0 @llx 0 @lly 544 @urx
106 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-dona002.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 106
%%Title: jazzmesse-co-dona002.abc (2)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:41 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 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 602 x @beginspecial 0 @llx 0 @lly 544 @urx
85 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-dona003.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 85
%%Title: jazzmesse-co-dona003.abc (3)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:41 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 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 651 x @beginspecial 0 @llx 0 @lly 544 @urx
91 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-dona004.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 91
%%Title: jazzmesse-co-dona004.abc (4)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:41 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 90.7 T
0.75 dup scale
% --- 4 ((notitle)) ---
0 -25.34 T
3.2 50.5 0.0 52.0 -13.4 bm
3.2 22.1 -4.6 317.1 -33.2 bm
3.2 22.1 -4.6 541.6 -33.2 bm
91.6 -2.7 62.9 -2.7 54.5 -7.7 0 0.2 61.5 -3.7 93.0 -3.7 100.0 -7.9 54.5 -7.9 SL
14.0 F3 262.1 -18.4 M (Corno:) gcshow
14.0 F1 240.6 -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
99.0 -40.4 shd 27.0 su 99.0 -34.4 shd
125.8 -43.4 shd -16.0 ft 1 26.0 sfu 125.8 -37.4 shd -9.0 ft
153.0 -43.4 shd 26.0 su 153.0 -37.4 shd
176.5 -40.4 r8
200.3 -52.4 shd -9.0 ft 1 20.0 sfu
226.4 -52.4 stclef
24.0 240.6 -52.4 bar
270.1 -52.4 Hd 9.0 3 dt -9.0 ft 20.0 su
313.6 -52.4 hd 19.2 su
335.7 -61.4 hd -9.0 ft 23.6 su -58.4 hl
24.0 353.3 -52.4 bar
372.8 -52.4 Hd -9.0 ft 20.0 su
407.0 -52.4 hd 1 20.0 sfu
433.7 -31.4 hd -9.0 ft 20.0 sd
457.2 -40.4 r8
24.0 474.8 -52.4 bar
494.6 -52.4 Hd 9.0 3 dt -9.0 ft 20.0 su
538.1 -52.4 hd 19.2 su
560.2 -61.4 hd -9.0 ft 23.6 su -58.4 hl
24.0 577.8 -52.4 bar
597.3 -52.4 Hd -9.0 ft 20.0 su
631.6 -52.4 hd 1 20.0 sfu
658.2 -31.4 hd -9.0 ft 20.0 sd
681.7 -40.4 r8
24.0 699.3 -52.4 bar
145.6 -35.3 134.7 -35.3 131.4 -38.7 0 0.2 134.1 -36.3 146.1 -36.3 148.9 -38.9 131.4 -38.9 SL
145.6 -29.3 134.7 -29.3 131.4 -32.7 0 0.2 134.1 -30.3 146.1 -30.3 148.9 -32.9 131.4 -32.9 SL
397.9 -60.8 381.9 -60.8 377.1 -57.3 0 -0.2 381.2 -59.8 398.6 -59.8 402.7 -57.1 377.1 -57.1 SL
622.4 -60.8 606.4 -60.8 601.6 -57.3 0 -0.2 605.7 -59.8 623.2 -59.8 627.2 -57.1 601.6 -57.1 SL
13.0 F2 (pa) 40.6 -90.4 wd 64.8 -90.4 whf 81.5 -90.4 whf 98.1 -90.4 whf (cem.) 112.6 -90.4 wd 14.2 141.8 -90.4 wln (Do) 190.9 -90.4 wd 212.6 -90.4 whf
48.5 -64.4 r1 -58.4 hl
(f) 270.1 -77.40 pf
433.7 -23.40 accent
658.2 -23.40 accent
0 -95.60 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 493 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-dona005.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-co-dona005.abc (5)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:41 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale
% --- 5 ((notitle)) ---
0 -25.34 T
3.2 22.8 -4.7 84.9 -27.8 bm
3.2 21.7 -4.6 299.8 -27.8 bm
14.0 F1 120.2 -16.0 M (80) showb 548.3 -13.0 M (85) showb 646.6 -16.0 M (90) showb
0 -47.00 M 699.30 staff
12.0 -47.0 tclef
40.8 -47.0 Hd 9.0 3 dt -9.0 ft 20.0 su
81.4 -47.0 hd 19.2 su
104.2 -56.0 hd -9.0 ft 23.5 su -53.0 hl
24.0 120.2 -47.0 bar
138.8 -47.0 Hd -9.0 ft 20.0 su
170.0 -47.0 hd 1 20.0 sfu
198.0 -26.0 hd -9.0 ft 20.0 sd
219.5 -35.0 r8
24.0 235.8 -47.0 bar
254.8 -47.0 Hd 9.0 3 dt -9.0 ft 20.0 su
296.3 -47.0 hd 19.2 su
318.0 -56.0 hd -9.0 ft 23.6 su -53.0 hl
24.0 334.3 -47.0 bar
354.4 -47.0 Hd -9.0 ft 20.0 su
385.8 -47.0 hd 1 20.0 sfu
412.0 -26.0 hd -9.0 ft 20.0 sd
432.9 -35.0 r8
24.0 449.9 -47.0 bar
(2) 500.1 -47.0 mrest
24.0 548.3 -47.0 bar
(5) 598.5 -47.0 mrest
24.0 646.6 -47.0 bar
664.3 -35.0 r1
24.0 699.3 -47.0 bar
161.5 -55.3 147.3 -55.3 143.0 -51.8 0 -0.2 146.6 -54.3 162.1 -54.3 165.7 -51.6 143.0 -51.6 SL
377.3 -55.3 363.0 -55.3 358.7 -51.8 0 -0.2 362.3 -54.3 378.0 -54.3 381.6 -51.6 358.7 -51.6 SL
198.0 -18.00 accent
412.0 -18.00 accent
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 584 x @beginspecial 0 @llx 0 @lly 544 @urx
83 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-dona006.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 83
%%Title: jazzmesse-co-dona006.abc (6)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:41 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 83.2 T
0.75 dup scale
% --- 6 ((notitle)) ---
0 -25.34 T
554.9 -15.6 535.8 -20.1 530.1 -26.0 0 0.2 534.9 -21.1 555.8 -16.6 560.6 -19.6 530.1 -26.2 SL
14.0 F3 461.7 -17.4 M (Coro: S,A) gcshow
14.0 F1 130.7 -17.4 M (100) showb 239.8 -17.4 M (110) showb 349.0 -20.4 M (115) showb
0 -51.40 M 699.30 staff
12.0 -51.4 tclef
(9) 76.7 -51.4 mrest
24.0 130.7 -51.4 bar
(10) 185.8 -51.4 mrest
24.0 239.8 -51.4 bar
(5) 295.0 -51.4 mrest
24.0 349.0 -51.4 bar
368.8 -39.4 r1
24.0 420.1 -51.4 bar
437.2 -39.4 r2
455.2 -51.4 stclef
469.7 -39.4 r4
499.3 -39.4 r8
524.6 -51.4 shd 1 20.0 sfu
24.0 548.0 -51.4 bar
563.1 -42.4 shd 20.0 su
597.7 -42.4 shd 20.0 su
635.2 -45.4 shd 8.0 3 dt -9.0 sh 20.0 su
676.0 -51.4 shd 1 20.0 sfu
24.0 699.3 -51.4 bar
13.0 F2 (Do) 515.2 -80.4 wd 545.1 -80.4 whf 568.5 -80.4 whf (na) 589.8 -80.4 wd (no) 627.0 -80.4 wd 652.8 -80.4 whf (bis) 666.9 -80.4 wd
437.2 -63.4 r1 -57.4 hl
563.1 -63.4 r1 -57.4 hl
0 -85.60 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 668 x @beginspecial 0 @llx 0 @lly 544 @urx
93 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-dona007.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 93
%%Title: jazzmesse-co-dona007.abc (7)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:41 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 92.6 T
0.75 dup scale
% --- 7 ((notitle)) ---
0 -25.34 T
3.2 21.5 -2.3 229.5 -18.2 bm
3.2 39.9 0.0 308.4 -16.9 bm
3.2 18.3 -4.3 550.6 -36.7 bm
163.6 -7.4 146.3 -20.1 141.1 -30.5 0 0.2 145.5 -21.1 164.4 -8.4 168.7 -12.1 141.1 -30.7 SL
246.4 -10.5 235.4 -9.3 232.2 -13.6 0 0.2 234.9 -10.3 246.9 -11.5 249.7 -15.7 232.2 -13.8 SL
339.5 -6.5 317.2 -6.5 310.4 -11.4 0 0.2 316.1 -7.5 340.6 -7.5 346.2 -11.6 310.4 -11.6 SL
14.0 F3 495.1 -21.9 M (Corno:) gcshow
14.0 F1 290.9 -8.0 M (120) showb
0 -55.91 M 699.30 staff
12.0 -55.9 tclef
36.0 -46.9 shd 8.0 0 dt 26.0 su 36.0 -40.9 shd 8.0 0 dt
73.1 -49.9 shd -9.0 sh 1 26.0 sfu 73.1 -43.9 shd
100.9 -49.9 shd 8.0 3 dt 26.0 su 100.9 -43.9 hd 8.0 3 dt
135.7 -55.9 shd 1 20.0 sfu
24.0 156.9 -55.9 bar
171.1 -40.9 shd 26.0 su 171.1 -34.9 shd
198.5 -43.9 r4
226.0 -43.9 shd 25.7 su 226.0 -37.9 shd
247.5 -46.9 shd 26.3 su 247.5 -40.9 shd
268.2 -43.9 r4
24.0 290.9 -55.9 bar
304.9 -43.9 shd 27.0 su 304.9 -37.9 shd
326.4 -40.9 shd 24.0 su 326.4 -34.9 shd
344.8 -43.9 shd 27.0 su 344.8 -37.9 shd
368.5 -46.9 shd 1 26.0 sfu 368.5 -40.9 shd
395.8 -46.9 shd 26.0 su 395.8 -40.9 shd
419.6 -43.9 r8
441.7 -55.9 shd 1 20.0 sfu
467.8 -55.9 stclef
24.0 482.1 -55.9 bar
503.1 -55.9 Hd 9.0 3 dt 20.0 su
547.1 -55.9 hd 19.2 su
565.4 -64.9 hd 23.9 su -61.9 hl
24.0 583.3 -55.9 bar
598.9 -55.9 Hd 20.0 su
633.7 -55.9 hd 1 20.0 sfu
657.6 -34.9 hd 20.0 sd
681.5 -43.9 r8
24.0 699.3 -55.9 bar
93.4 -41.8 82.1 -41.8 78.8 -45.2 0 0.2 81.6 -42.8 93.9 -42.8 96.7 -45.4 78.8 -45.4 SL
93.4 -35.8 82.1 -35.8 78.8 -39.2 0 0.2 81.6 -36.8 93.9 -36.8 96.7 -39.4 78.8 -39.4 SL
388.4 -38.8 377.4 -38.8 374.1 -42.2 0 0.2 376.9 -39.8 388.9 -39.8 391.7 -42.4 374.1 -42.4 SL
388.4 -32.8 377.4 -32.8 374.1 -36.2 0 0.2 376.9 -33.8 388.9 -33.8 391.7 -36.4 374.1 -36.4 SL
624.5 -64.3 608.2 -64.3 603.3 -60.8 0 -0.2 607.4 -63.3 625.2 -63.3 629.3 -60.6 603.3 -60.6 SL
13.0 F2 (pa) 28.1 -92.9 wd 49.5 -92.9 whf (cem,) 60.0 -92.9 wd 17.7 89.1 -92.9 wln (do) 127.5 -92.9 wd 153.8 -92.9 whf 187.0 -92.9 whf (na) 218.1 -92.9 wd 16.5 234.0 -92.9 wln (pa) 297.0 -92.9 wd 315.8 -92.9 whf 329.9 -92.9 whf 343.6 -92.9 whf (cem.) 355.3 -92.9 wd 14.3 384.5 -92.9 wln (Do) 432.3 -92.9 wd 454.0 -92.9 whf
36.0 -67.9 r1 -61.9 hl
171.1 -61.9 r1
304.9 -67.9 r1 -61.9 hl
(f) 503.1 -79.91 pf
657.6 -29.91 accent
0 -98.11 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 493 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-dona008.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-co-dona008.abc (8)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:41 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 72.4 T
0.75 dup scale
% --- 8 ((notitle)) ---
0 -25.34 T
3.2 14.9 -3.9 72.6 -29.0 bm
3.2 15.0 -3.9 249.1 -29.0 bm
3.2 16.1 -4.0 424.7 -29.0 bm
3.2 33.1 5.9 534.7 -19.9 bm
-3.2 21.3 -2.3 608.4 -53.5 bm
-3.2 15.4 2.2 645.4 -52.8 bm
(3) 551.2 -12.9 bnum
14.0 F1 195.3 -17.2 M (125) showb
0 -48.20 M 699.30 staff
12.0 -48.2 tclef
33.8 -48.2 Hd 9.0 3 dt 20.0 su
69.1 -48.2 hd 19.2 su
84.0 -57.2 hd 24.3 su -54.2 hl
24.0 99.3 -48.2 bar
113.3 -48.2 Hd 20.0 su
140.5 -48.2 hd 1 20.0 sfu
160.7 -27.2 hd 20.0 sd
179.8 -36.2 r8
24.0 195.3 -48.2 bar
209.8 -48.2 Hd 9.0 3 dt 20.0 su
245.6 -48.2 hd 19.2 su
260.6 -57.2 hd 24.3 su -54.2 hl
24.0 275.3 -48.2 bar
288.8 -48.2 Hd 20.0 su
314.8 -48.2 hd 1 20.0 sfu
337.3 -27.2 hd 20.0 sd
356.2 -36.2 r8
24.0 371.3 -48.2 bar
385.1 -48.2 Hd 9.0 3 dt 20.0 su
421.2 -48.2 hd 19.2 su
437.3 -57.2 hd 24.2 su -54.2 hl
24.0 451.4 -48.2 bar
465.0 -48.2 Hd 20.0 su
491.7 -48.2 hd 1 20.0 sfu
511.6 -48.2 hd 1 20.0 sfu
531.2 -42.2 hd 22.3 su
550.7 -36.2 hd -9.0 ft 19.8 su
564.2 -33.2 hd 19.2 su
24.0 578.6 -48.2 bar
591.1 -30.2 hd 20.0 sd
611.9 -33.2 hd 20.3 sd
633.2 -36.2 hd -9.0 ft 19.7 sd
648.9 -33.2 hd 19.6 sd
664.3 -30.2 hd 20.4 sd
681.4 -36.2 r4
24.0 699.3 -48.2 bar
132.9 -56.3 121.0 -56.3 117.4 -52.9 0 -0.2 120.4 -55.3 133.5 -55.3 136.5 -52.7 117.4 -52.7 SL
307.4 -56.3 296.2 -56.3 292.8 -52.9 0 -0.2 295.6 -55.3 308.0 -55.3 310.8 -52.7 292.8 -52.7 SL
484.1 -56.3 472.5 -56.3 469.0 -52.9 0 -0.2 472.0 -55.3 484.7 -55.3 487.6 -52.7 469.0 -52.7 SL
160.7 -22.20 accent
337.3 -22.20 accent
611.9 -27.20 emb
633.2 -27.20 emb
648.9 -27.20 emb
664.3 -21.20 emb
0 -71.20 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 493 x @beginspecial 0 @llx 0 @lly 544 @urx
72 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-dona009.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 72
%%Title: jazzmesse-co-dona009.abc (9)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:41 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 71.5 T
0.75 dup scale
% --- 9 ((notitle)) ---
0 -25.34 T
14.0 F1 19.9 -17.0 M (130) showb 513.0 -13.0 M (135) showb 606.2 -13.0 M (140) showb
0 -47.00 M 699.30 staff
12.0 -47.0 tclef
41.4 -35.0 hd -9.0 ft 1 20.0 sfd
58.0 -38.0 hd 20.0 su
75.9 -41.0 hd 1 20.0 sfu
95.0 -41.0 hd 20.0 su
116.0 -35.0 r4
24.0 132.3 -47.0 bar
151.5 -35.0 hd -9.0 ft 1 20.0 sfd
167.6 -38.0 hd 20.0 su
185.9 -41.0 hd 1 20.0 sfu
205.9 -41.0 hd 20.0 su
224.8 -35.0 r4
24.0 242.5 -47.0 bar
261.6 -35.0 hd -9.0 ft 1 20.0 sfd
277.8 -38.0 hd 20.0 su
296.3 -41.0 hd 1 20.0 sfu
316.0 -41.0 hd 20.0 su
335.8 -35.0 r4
24.0 352.8 -47.0 bar
364.9 -38.0 hd 8.0 0 dt 20.0 su
391.3 -38.0 hd 1 20.0 sfu
410.6 -38.0 hd 20.0 su
441.3 -35.0 r4
24.0 470.1 -47.0 bar
485.8 -35.0 r1
24.0 513.0 -47.0 bar
(5) 560.6 -47.0 mrest
24.0 606.2 -47.0 bar
(3) 653.8 -47.0 mrest
24.0 699.3 -47.0 bar
89.1 -48.8 81.9 -48.8 79.7 -45.6 0 -0.2 81.5 -47.8 89.4 -47.8 91.3 -45.4 79.7 -45.4 SL
199.7 -48.9 192.0 -48.9 189.7 -45.6 0 -0.2 191.6 -47.9 200.1 -47.9 202.1 -45.4 189.7 -45.4 SL
310.0 -48.9 302.4 -48.9 300.1 -45.6 0 -0.2 302.0 -47.9 310.3 -47.9 312.2 -45.4 300.1 -45.4 SL
404.6 -45.8 397.3 -45.8 395.0 -42.6 0 -0.2 396.9 -44.8 405.0 -44.8 406.8 -42.4 395.0 -42.4 SL
41.4 -26.00 emb
151.5 -26.00 emb
261.6 -26.00 emb
410.6 -16.00 hld
0 -70.00 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 651 x @beginspecial 0 @llx 0 @lly 544 @urx
91 @ury 5440 @rwi @setspecial
%%BeginDocument: jazzmesse-co-dona010.eps
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 91
%%Title: jazzmesse-co-dona010.abc (10)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:41 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 91.3 T
0.75 dup scale
% --- 10 ((notitle)) ---
0 -25.34 T
14.0 F3 129.8 -38.4 M (swing) gcshow
14.0 F1 205.6 -41.4 M (145) showb 587.6 -41.4 M (150) showb
15.0 F2 124.5 -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
45.1 -60.4 r2
68.0 -60.4 r4
83.1 -60.4 r8
104.4 -54.4 hd 1 20.0 sfd
24.0 121.2 -72.4 dbar
137.8 -54.4 hd 20.0 sd
154.8 -54.4 hd 20.0 sd
172.7 -54.4 hd 20.0 sd
189.7 -54.4 hd 20.0 sd
24.0 205.6 -72.4 bar
230.3 -54.4 hd 20.0 sd
247.2 -54.4 hd 20.0 sd
266.0 -60.4 r2
24.0 285.6 -72.4 bar
297.6 -57.4 hd 20.0 sd
314.6 -57.4 hd 20.0 sd
338.9 -57.4 hd -9.0 sh 20.0 sd
356.8 -57.4 hd 20.0 sd
24.0 372.3 -72.4 bar
383.7 -54.4 hd 20.0 sd
401.2 -60.4 r4
418.6 -54.4 hd 20.0 sd
437.1 -54.4 hd 20.0 sd
24.0 452.4 -72.4 bar
464.7 -54.4 hd 20.0 sd
481.4 -54.4 hd 20.0 sd
498.8 -54.4 hd 20.0 sd
517.1 -54.4 hd 20.0 sd
24.0 532.6 -72.4 bar
545.9 -54.4 Hd 20.0 sd
568.9 -54.4 Hd 20.0 sd
24.0 587.6 -72.4 bar
615.0 -54.4 HD
24.0 639.1 -72.4 bar
652.4 -54.4 Hd 20.0 sd
674.6 -60.4 r2
24.0 699.3 -72.4 fbar2
45.1 -46.40 hld
(f) 104.4 -96.40 pf
652.4 -46.40 hld
0 -96.40 T
showpage
end
cleartomark origstate restore grestore
%%EndDocument
@endspecial 1836 6215 a Fe(5)p eop end
%%Page: 6 6
TeXDict begin 6 5 bop -143 -323 a Fb(Christian)34 b(Martin)f(Gabriel:)f
(Jazzmesse)j(\(Mai)e(2003\))f(f)1986 -319 y(\177)1983
-323 y(ur)g(Soli,)h(Chor)g(und)g(Streic)m(horc)m(hester,)i(Horn)p
3500 -310 215 4 v 107 -207 a(Besetzung:)f(Mezzosopran)g(\(Solo\),)e(T)
-8 b(enor)34 b(\(Solo\),)e(Chor)h(\(Sopran,)f(Alt,)h(T)-8
b(enor,)33 b(Ba\031\),)-346 -90 y(Streic)m(horc)m(hester)i(\(1.)e
(Violine,)g(2.)f(Violine,)i(Viola,)e(Violoncello,)i(Kon)m(traba\031\),)
e(P)m(auk)m(e,)i(Horn)f(o)s(d.)f(Sax.)h(ad)f(lib.)1651
26 y Fa(\(10.6.04\))1765 6215 y Fe(6)p eop end
%%Trailer
userdict /end-hook known{end-hook}if
%%EOF