| Current Path : /var/www/web-klick.de/dsh/90_akt/jazzmesse/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/90_akt/jazzmesse/jazzmesse-vc-gloria011.eps |
%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 544 93
%%Title: jazzmesse-vc-gloria011.abc (11)
%%Creator: abcm2ps 3.3.1
%%CreationDate: Apr 19 18:29 2007
%%LanguageLevel: 2
%%EndComments
gsave /origstate save def mark
100 dict begin
%%BeginSetup
/bdef {bind def} bind def
/T {translate} bdef
/M {moveto} bdef
/dlw {0.7 setlinewidth} bdef
/Times-Roman findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Roman-ISO exch definefont pop
/F0 { dup 0.8 mul /fh exch def
/Times-Roman-ISO exch selectfont } bdef
/Times-Italic findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Italic-ISO exch definefont pop
/F1 { dup 0.8 mul /fh exch def
/Times-Italic-ISO exch selectfont } bdef
/Times-Bold findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Times-Bold-ISO exch definefont pop
/F2 { dup 0.8 mul /fh exch def
/Times-Bold-ISO exch selectfont } bdef
/Helvetica findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict
end
/Helvetica-ISO exch definefont pop
/F3 { dup 0.8 mul /fh exch def
/Helvetica-ISO exch selectfont } bdef
/xymove {
2 copy /y exch def /x exch def M
} bdef
/cshow { % usage: str cshow - center at current pt
dup stringwidth pop 2 div neg 0 rmoveto show
} bdef
/lshow { % usage: str lshow - show left-aligned
dup stringwidth pop neg 0 rmoveto show
} bdef
/showb { % usage: str showb - show in box
dup currentpoint 3 -1 roll show
0.6 setlinewidth
exch 2 sub exch 3 sub 3 -1 roll
stringwidth pop 4 add fh 4 add rectstroke
} bdef
/wd { M show } bdef
/wln { % usage: l x y wln
M 0.8 setlinewidth 0 rlineto stroke
} bdef
/whf {3 add 3 3 1 roll wln} bdef
/tclef { % usage: x y tclef - treble clef
M
-1.9 3.7 rmoveto
-3.3 1.9 -3.1 6.8 2.4 8.6 rcurveto
7.0 0.0 9.8 -8.0 4.1 -11.7 rcurveto
-5.2 -2.4 -12.5 0.0 -13.3 6.2 rcurveto
-0.7 6.4 4.15 10.5 10.0 15.3 rcurveto
4.0 4.0 3.6 6.1 2.8 9.6 rcurveto
-2.3 -1.5 -4.7 -4.8 -4.5 -8.5 rcurveto
0.8 -12.2 3.4 -17.3 3.5 -26.3 rcurveto
0.3 -4.4 -1.2 -6.2 -3.8 -6.2 rcurveto
-3.7 -0.1 -5.8 4.3 -2.8 6.1 rcurveto
3.9 1.9 6.1 -4.6 1.4 -4.8 rcurveto
0.7 -1.2 4.6 -0.8 4.2 4.2 rcurveto
-0.2 10.3 -3.0 15.7 -3.5 28.3 rcurveto
0.0 4.1 0.6 7.4 5.0 10.6 rcurveto
2.3 -3.2 2.9 -10.0 1.0 -12.7 rcurveto
-2.4 -4.3 -11.5 -10.3 -11.8 -15.0 rcurveto
0.4 -7.0 6.9 -8.5 11.7 -6.1 rcurveto
3.9 3.0 1.3 8.8 -3.7 8.1 rcurveto
-4.0 -0.2 -4.8 -3.1 -2.7 -5.7 rcurveto
fill
} bdef
/stclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale tclef grestore
} bdef
/octu { % usage: x y octu - upper '8'
/Times-Roman 12 selectfont M -1.5 34 rmoveto (8) show
} bdef
/octl { % usage: x y octl - lower '8'
/Times-Roman 12 selectfont M -3.5 -19 rmoveto (8) show
} bdef
/bclef { % usage: x y bclef - bass clef
M
-8.8 3.5 rmoveto
6.3 1.9 10.2 5.6 10.5 10.8 rcurveto
0.3 4.9 -0.5 8.1 -2.6 8.8 rcurveto
-2.5 1.2 -5.8 -0.7 -5.9 -4.1 rcurveto
1.8 3.1 6.1 -0.6 3.1 -3.0 rcurveto
-3.0 -1.4 -5.7 2.3 -1.9 7.0 rcurveto
2.6 2.3 11.4 0.6 10.1 -8.0 rcurveto
-0.1 -4.6 -5.0 -10.2 -13.3 -11.5 rcurveto
15.5 17.0 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
0.0 -5.5 rmoveto
0.0 1.5 2.0 1.5 2.0 0.0 rcurveto
0.0 -1.5 -2.0 -1.5 -2.0 0.0 rcurveto
fill
} bdef
/sbclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 3 T bclef grestore
} bdef
/cchalf {
0 0 M 0.0 12.0 rmoveto
2.6 5.0 rlineto
2.3 -5.8 5.2 -2.4 4.7 1.6 rcurveto
0.4 3.9 -3.0 6.7 -5.1 4.0 rcurveto
4.1 0.5 0.9 -5.3 -0.9 -1.4 rcurveto
-0.5 3.4 6.5 4.3 7.8 -0.8 rcurveto
1.9 -5.6 -4.1 -9.8 -6.0 -5.4 rcurveto
-1.6 -3.0 rlineto
fill
} bdef
/cclef { % usage: x y cclef
gsave T
cchalf 0 24 T 1 -1 scale cchalf
-5.0 0 M 0 24 rlineto 3 0 rlineto 0 -24 rlineto fill
-0.5 0 M 0 24 rlineto 0.8 setlinewidth stroke grestore
} bdef
/scclef {
exch 0.85 div exch 0.85 div gsave 0.85 dup scale 0 2 T cclef grestore} bdef
/pclef { % usage: x y pclef
M 1.4 setlinewidth -2.7 2 rmoveto
0 20 rlineto 5.4 0 rlineto 0 -20 rlineto -5.4 0 rlineto stroke
} bdef
/bm { % usage: t dx dy x y bm - beam, depth t
M 3 copy rlineto neg 0 exch rlineto
neg exch neg exch rlineto 0 exch rlineto fill
} bdef
/bnum { % usage: str x y bnum - number on beam
M /Times-Italic 12 selectfont cshow
} bdef
/hbr { % usage: x1 y1 x2 y2 hbr - half bracket
M dlw lineto 0 -3 rlineto stroke
} bdef
/r00 { % usage: x y r00 - longa rest
xymove
-1 6 rmoveto 0 -12 rlineto 3 0 rlineto 0 12 rlineto fill
} bdef
/r0 { % usage: x y r0 - breve rest
xymove
-1 6 rmoveto 0 -6 rlineto 3 0 rlineto 0 6 rlineto fill
} bdef
/r1 { % usage: x y r1 - rest
xymove
-3 6 rmoveto 0 -3 rlineto 6 0 rlineto 0 3 rlineto fill
} bdef
/r2 { % usage: x y r2 - half rest
xymove
-3 0 rmoveto 0 3 rlineto 6 0 rlineto 0 -3 rlineto fill
} bdef
/r4 { % usage: x y r4 - quarter rest
xymove
-0.5 8.9 rmoveto
1.3 -3.4 rlineto
-2.0 -4.5 rlineto
3.1 -4.8 rlineto
-3.2 3.5 -5.8 -1.4 -1.4 -3.8 rcurveto
-1.9 2.0 -0.8 5.0 2.4 2.6 rcurveto
-2.2 4.2 rlineto
0.0 0.0 2.0 4.7 2.1 4.7 rcurveto
-3.3 5.0 rlineto
fill
} bdef
/r8e { % 1/8 .. 1/64 rest element
-1.5 -1.5 -2.4 -2.0 -3.6 -2.0 rcurveto
2.4 2.8 -2.8 4.0 -2.8 1.2 rcurveto
0.0 -2.7 4.3 -2.4 5.9 -0.6 rcurveto
fill
} bdef
/r8 { % usage: x y r8 - eighth rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-3.4 -9.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
} bdef
/r16 { % usage: x y r16 - 16th rest
xymove
0.5 setlinewidth 3.3 4.0 rmoveto
-4.0 -15.6 rlineto stroke
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r32 { % usage: x y r32 - 32th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-5.5 -21.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
} bdef
/r64 { % usage: x y r64 - 64th rest
xymove
0.5 setlinewidth 4.8 10.0 rmoveto
-7.0 -27.6 rlineto stroke
x y M 4.9 10.0 rmoveto r8e
x y M 3.4 4.0 rmoveto r8e
x y M 1.9 -2.0 rmoveto r8e
x y M 0.3 -8.0 rmoveto r8e
} bdef
/dt { % usage: dx dy dt - dot shifted by dx,dy
y add exch x add exch M currentpoint 1.2 0 360 arc fill
} bdef
/hld { % usage: x y hld - fermata
1.5 add 2 copy 1.5 add M currentpoint 1.3 0 360 arc
M -7.5 0 rmoveto
0 11.5 15 11.5 15 0 rcurveto
-0.25 0 rlineto
-1.25 9 -13.25 9 -14.50 0 rcurveto
fill
} bdef
/dnb { % usage: x y dnb - down bow
dlw M
-3.2 2.0 rmoveto
0.0 7.2 rlineto
6.4 0.0 rmoveto
0.0 -7.2 rlineto
currentpoint stroke M
-6.4 4.8 rmoveto
0.0 2.4 rlineto
6.4 0.0 rlineto
0.0 -2.4 rlineto
fill
} bdef
/upb { % usage: x y upb - up bow
dlw M -2.6 9.4 rmoveto
2.6 -8.8 rlineto
2.6 8.8 rlineto
stroke
} bdef
/grm { % usage: x y grm - gracing mark
M -5 2.5 rmoveto
5.0 8.5 5.5 -4.5 10.0 2.0 rcurveto
-5.0 -8.5 -5.5 4.5 -10.0 -2.0 rcurveto fill
} bdef
/stc { % usage: x y stc - staccato mark
M currentpoint 1.2 0 360 arc fill
} bdef
/emb { % usage: x y emb - emphasis bar
1.2 setlinewidth 1 setlinecap M
-2.5 0 rmoveto 5 0 rlineto stroke
} bdef
/cpu { % usage: x y cpu - roll sign above head
M -6 0 rmoveto
0.4 7.3 11.3 7.3 11.7 0 rcurveto
-1.3 6 -10.4 6 -11.7 0 rcurveto fill
} bdef
/sld { % usage: x y sld - slide
M -7.2 -4.8 rmoveto
1.8 -0.7 4.5 0.2 7.2 4.8 rcurveto
-2.1 -5.0 -5.4 -6.8 -7.6 -6.0 rcurveto fill
} bdef
/trl { % usage: x y trl - trill sign
/Times-BoldItalic 16 selectfont
M -4 2 rmoveto (tr) show
} bdef
/umrd { % usage: x y umrd - upper mordent
4 add M
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto fill
} bdef
/lmrd { % usage: x y lmrd - lower mordent
2 copy umrd 8 add M
0.6 setlinewidth 0 -8 rlineto stroke
} bdef
/fng { % usage: str x y fng - finger (0-5)
/Bookman-Demi 8 selectfont
M -3 1 rmoveto show
} bdef
/dacs { % usage: str x y dacs - D.C. / D.S.
/Times-Roman 16 selectfont
3 add M cshow
} bdef
/brth { % usage: x y brth - breath
/Times-BoldItalic 30 selectfont
6 add M (,) show
} bdef
/pf { % usage: str x y pf - p, f, pp, ..
/Times-BoldItalic 16 selectfont
5 add M cshow
} bdef
/sfz { % usage: str x y sfz
exch 4 sub exch 5 add M pop
/Times-Italic 14 selectfont (s) show
/Times-BoldItalic 16 selectfont (f) show
/Times-Italic 14 selectfont (z) show
} bdef
/coda { % usage: x y coda - coda
1 setlinewidth 2 add 2 copy M 0 20 rlineto
2 copy 10 add exch -10 add exch M 20 0 rlineto stroke
10 add 6 0 360 arc 1.7 setlinewidth stroke
} bdef
/sgno { % usage: x y sgno - segno
M 0 3 rmoveto currentpoint currentpoint currentpoint
1.5 -1.7 6.4 0.3 3.0 3.7 rcurveto
-10.4 7.8 -8.0 10.6 -6.5 11.9 rcurveto
4.0 1.9 5.9 -1.7 4.2 -2.6 rcurveto
-1.3 -0.7 -2.9 1.3 -0.7 2.0 rcurveto
-1.5 1.7 -6.4 -0.3 -3.0 -3.7 rcurveto
10.4 -7.8 8.0 -10.6 6.5 -11.9 rcurveto
-4.0 -1.9 -5.9 1.7 -4.2 2.6 rcurveto
1.3 0.7 2.9 -1.3 0.7 -2.0 rcurveto
fill
M 0.8 setlinewidth -6.0 1.2 rmoveto 12.6 12.6 rlineto stroke
7 add exch -6 add exch 1.2 0 360 arc fill
8 add exch 6 add exch 1.2 0 360 arc fill
} bdef
/cresc { % usage: w x y cresc - (de)crescendo
1.2 setlinewidth 6 add M
dup 4 rlineto neg 4 rlineto stroke
} bdef
/dplus { % usage: x y dplus - + decoration
1.2 setlinewidth M 0 0.5 rmoveto 0 6 rlineto
-3 -3 rmoveto 6 0 rlineto stroke
} bdef
/accent { % usage: x y accent - accent
1.2 setlinewidth M -4 2 rmoveto
8 2 rlineto -8 2 rlineto stroke
} bdef
/turn { % usage: x y turn - turn
M 5.2 8 rmoveto
1.4 -0.5 0.9 -4.8 -2.2 -2.8 rcurveto
-4.8 3.5 rlineto
-3.0 2.0 -5.8 -1.8 -3.6 -4.4 rcurveto
1.0 -1.1 2.0 -0.8 2.1 0.1 rcurveto
0.1 0.9 -0.7 1.2 -1.9 0.6 rcurveto
-1.4 0.5 -0.9 4.8 2.2 2.8 rcurveto
4.8 -3.5 rlineto
3.0 -2.0 5.8 1.8 3.6 4.4 rcurveto
-1.0 1.1 -2 0.8 -2.1 -0.1 rcurveto
-0.1 -0.9 0.7 -1.2 1.9 -0.6 rcurveto
fill
} bdef
/turnx { % usage: x y trnx - turn with line through it
2 copy turn M
0.6 setlinewidth 0 1.5 rmoveto 0 9 rlineto stroke
} bdef
/lphr { % usage: x y lphr - longphrase
1.2 setlinewidth M
0 -18 rlineto stroke
} bdef
/mphr { % usage: x y mphr - mediumphrase
1.2 setlinewidth M
0 -12 rlineto stroke
} bdef
/sphr { % usage: x y sphr - shortphrase
1.2 setlinewidth M
0 -6 rlineto stroke
} bdef
/ltr { % usage: len xleft y ltr - long trill
gsave 4 add T
0 6 3 -1 roll {
% first loop draws left half of squiggle; second draws right
0 1 1 {
0.0 0.4 M
2.0 1.9 3.4 2.3 3.9 0.0 curveto
2.1 0.0 lineto
1.9 0.8 1.4 0.7 0.0 -0.4 curveto
fill
pop 180 rotate -6 0 translate
} for
pop 6 0 translate % shift axes right one squiggle
} for
grestore
} bdef
/arp { % usage: len x ylow arp - arpeggio
gsave 90 rotate exch neg ltr grestore
} bdef
/wedge { % usage: x y wedge - wedge
1 add M -1.5 5 rlineto 3 0 rlineto -1.5 -5 rlineto fill
} bdef
/opend { % usage: x y opend - 'open' sign
dlw M currentpoint 3 add 2.5 -90 270 arc stroke
} bdef
/snap { % usage: x y snap - 'snap' sign
dlw M currentpoint -3 6 rmoveto
0 5 6 5 6 0 rcurveto
0 -5 -6 -5 -6 0 rcurveto
5 add M 0 -6 rlineto stroke
} bdef
/thumb { % usage: x y thumb - 'thumb' sign
dlw M currentpoint -2.5 7 rmoveto
0 6 5 6 5 0 rcurveto
0 -6 -5 -6 -5 0 rcurveto
2 add M 0 -4 rlineto stroke
} bdef
/hl { % usage: y hl - helper line at height y
0.8 setlinewidth x -6.5 add exch M
13 0 rlineto stroke
} bdef
/hl1 { % usage: y hl1 - longer helper line
0.8 setlinewidth x -8 add exch M
16 0 rlineto stroke
} bdef
% accidentals
/sh0 { % usage: x y sh0 - sharp sign
gsave T 0.9 setlinewidth
-1.2 -8.4 M 0 15.4 rlineto
1.4 -7.2 M 0 15.4 rlineto stroke
-2.6 -3 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
-2.6 3.4 M 5.4 1.6 rlineto 0 -2.2 rlineto -5.4 -1.6 rlineto 0 2.2 rlineto fill
grestore
} bdef
/sh { % usage: dx sh - sharp relative to head
x add y sh0 } bdef
/ft0 { % usage: x y ft0 - flat sign
gsave T 0.8 setlinewidth
-1.8 2.5 M
6.4 3.3 6.5 -3.6 0 -6.6 rcurveto
4.6 3.9 4.5 7.6 0 5.7 rcurveto
currentpoint fill M
0 7.1 rmoveto 0 -12.6 rlineto stroke
grestore
} bdef
/ft { % usage: dx ft - flat relative to head
x add y ft0 } bdef
/nt0 { % usage: x y nt0 - natural sign
gsave T 0.5 setlinewidth
-2 -4.3 M 0 12.2 rlineto
1.3 -7.8 M 0 12.2 rlineto stroke
2.1 setlinewidth
-2 -2.9 M 3.3 0.6 rlineto
-2 2.4 M 3.3 0.6 rlineto stroke
grestore
} bdef
/nt { % usage: dx nt - natural relative to head
x add y nt0 } bdef
/ftx { % usage: x y ftx - narrow flat sign
M -1.4 2.7 rmoveto
5.7 3.1 5.7 -3.6 0.0 -6.7 rcurveto
3.9 4.0 4.0 7.6 0.0 5.8 rcurveto
currentpoint fill M
dlw 0 7.1 rmoveto 0 -12.4 rlineto stroke
} bdef
/dft0 { % usage: x y dft0 ft - double flat sign
2 copy exch 2.5 sub exch ftx exch 1.5 add exch ftx } bdef
/dft { % usage: dx dft - double flat relative to head
x add y dft0 } bdef
/dsh0 { % usage: x y dsh0 - double sharp
2 copy M 0.7 setlinewidth
-2 -2 rmoveto 4 4 rlineto
-4 0 rmoveto 4 -4 rlineto stroke
0.5 setlinewidth 2 copy M 1.3 -1.3 rmoveto
2 -0.2 rlineto 0.2 -2 rlineto -2 0.2 rlineto -0.2 2 rlineto fill
2 copy M 1.3 1.3 rmoveto
2 0.2 rlineto 0.2 2 rlineto -2 -0.2 rlineto -0.2 -2 rlineto fill
2 copy M -1.3 1.3 rmoveto
-2 0.2 rlineto -0.2 2 rlineto 2 -0.2 rlineto 0.2 -2 rlineto fill
M -1.3 -1.3 rmoveto
-2 -0.2 rlineto -0.2 -2 rlineto 2 0.2 rlineto 0.2 2 rlineto fill
} bdef
/dsh { % usage: dx dsh - double sharp relative to head
x add y dsh0 } bdef
% accidentals in guitar chord
/tempstr 1 string def
/sharp_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 sh0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/flat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 5 ft0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/nat_glyph {
fh 0.4 mul 0 rmoveto currentpoint
gsave T fh 0.08 mul dup scale 0 7 nt0 grestore
fh 0.4 mul 0 rmoveto
} bdef
/gcshow { % usage: str gcshow - guitar chord
{ dup 129 eq
{pop sharp_glyph}
{ dup 130 eq
{pop flat_glyph}
{ dup 131 eq
{pop nat_glyph}
{tempstr exch 0 exch put tempstr show}
ifelse
}
ifelse
}
ifelse
}
forall
} bdef
/bar { % usage: h x y bar - single bar
M dlw 0 exch rlineto stroke
} bdef
/dbar { % usage: h x y dbar - thin double bar
M dlw dup 0 exch rlineto -3 0 rmoveto
0 exch neg rlineto stroke
} bdef
/fbar1 { % usage: h x y fbar1 - fat double bar at start
M dlw dup 0 exch rlineto 3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
3 0 rmoveto 0 exch rlineto stroke
} bdef
/fbar2 { % usage: h x y fbar2 - fat double bar at end
M dlw dup 0 exch rlineto -3 0 rlineto dup 0 exch neg rlineto
currentpoint fill M
-3 0 rmoveto 0 exch rlineto stroke
} bdef
/rdots { % usage: x y rdots - repeat dots
9 add M currentpoint 2 copy 1.2 0 360 arc
6 add M currentpoint 1.2 0 360 arc fill
} bdef
/csig { % usage: x y csig - C timesig
M
1.0 17.3 rmoveto
0.9 -0.0 2.3 -0.7 2.4 -2.2 rcurveto
-1.2 2.0 -3.6 -0.1 -1.6 -1.7 rcurveto
2.0 -1.0 3.8 3.5 -0.8 4.7 rcurveto
-2.0 0.4 -6.4 -1.3 -5.8 -7.0 rcurveto
0.4 -6.4 7.9 -6.8 9.1 -0.7 rcurveto
-2.3 -5.6 -6.7 -5.1 -6.8 0.0 rcurveto
-0.5 4.4 0.7 7.5 3.5 6.9 rcurveto
fill
} bdef
/ctsig { % usage: x y ctsig - C| timesig
dlw 2 copy csig 4 add M 0 16 rlineto stroke
} bdef
/tsig { % usage: (top) (bot) x y tsig - time signature
M gsave /Times-Bold 16 selectfont 1.2 1 scale
0 1 rmoveto currentpoint 3 -1 roll cshow
M 0 12 rmoveto cshow grestore
} bdef
/stsig { % usage: (meter) x y stsig - single time signature
M gsave /Times-Bold 18 selectfont 1.2 1 scale
0 6 rmoveto cshow grestore
} bdef
/staff { % usage: l staff - draw staff
dlw dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
dup 0 rlineto dup neg 6 rmoveto
0 rlineto stroke
} bdef
/sep0 { % usage: x1 x2 sep0 - hline separator
dlw 0 M 0 lineto stroke
} bdef
/hbrce {
-2.5 1.0 rmoveto
-4.5 -4.6 -7.5 -12.2 -4.4 -26.8 rcurveto
3.5 -14.3 3.2 -21.7 -2.1 -24.2 rcurveto
7.4 2.4 7.3 14.2 3.5 29.5 rcurveto
-2.7 9.5 -1.5 16.2 3.0 21.5 rcurveto
fill
} bdef
/brace { % usage: h x y brace
gsave T 0 0 M 0.01 mul 1.0 exch scale hbrce
0 -100 M 1 -1 scale hbrce grestore
} bdef
/bracket { % usage: h x y bracket
M dlw -5 2 rmoveto currentpoint
-1.7 2 rmoveto 10.5 -1 12 4.5 12 3.5 rcurveto
0 -1 -3.5 -5.5 -8.5 -5.5 rcurveto fill
3 setlinewidth M 0 2 rmoveto
0 exch neg -8 add rlineto currentpoint stroke
dlw M -1.7 0 rmoveto
10.5 1 12 -4.5 12 -3.5 rcurveto
0 1 -3.5 5.5 -8.5 5.5 rcurveto fill
} bdef
/mrest { % usage: nb_measures x y mrest
gsave T 1 setlinewidth
-20 6 M 0 12 rlineto 20 6 M 0 12 rlineto stroke
5 setlinewidth -20 12 M 40 0 rlineto stroke
/Times-Bold 15 selectfont 0 28 M cshow grestore
} bdef
/mrep { % usage: x y mrep - measure repeat
2 copy 2 copy
M -5 16 rmoveto currentpoint 1.4 0 360 arc
M 5 8 rmoveto currentpoint 1.4 0 360 arc
M -7 6 rmoveto 11 12 rlineto 3 0 rlineto -11 -12 rlineto -3 0 rlineto fill
} bdef
/mrep2 { % usage: x y mrep2 - measure repeat 2 times
2 copy 2 copy
M -5 18 rmoveto currentpoint 1.4 0 360 arc
M 5 6 rmoveto currentpoint 1.4 0 360 arc fill
M 1.8 setlinewidth
-7 4 rmoveto 14 10 rlineto -14 -4 rmoveto 14 10 rlineto stroke
} bdef
/end1 { % usage: str dx x y end1 - mark first ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto 0 -20 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/end2 { % usage: str dx x y end2 - mark second ending
gsave dlw T 0 -20 M
0 20 rlineto 0 rlineto stroke
4 -13 M /Times-Roman 13 selectfont 1.2 0.95 scale
show grestore
} bdef
/SL { % usage: pp2x pp1x p1 pp1 pp2 p2 p1 SL
M curveto rlineto curveto fill
} bdef
%-- text --
/dsp { dup stringwidth pop } bdef
/glue { 2 copy length exch length add string dup 4 2 roll 2 index 0 3 index
putinterval exch length exch putinterval } bdef
/TXT { /txt exch def } bdef
/rejoin { ( ) search pop exch glue } bdef
/measure { dsp txt stringwidth pop add textwidth 2 add gt } bdef
/join { txt exch glue TXT } bdef
/find { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } bdef
/spacecount { 0 exch ( ) { find } loop } bdef
/jproc { dsp textwidth exch sub exch dup spacecount } bdef
/popzero { dup 0 eq { pop }{ div } ifelse } bdef
/justify { jproc 1 sub 3 2 roll exch popzero 0 32 4 3 roll widthshow } def
/P1 { % usage: str lwidth P1
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt show grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/P2 { % usage: str lwidth P2
/textwidth exch def () TXT
dup spacecount {
rejoin measure { gsave txt justify grestore LF () TXT join } { join } ifelse
} repeat gsave txt show grestore LF () TXT pop
} def
/hd { % usage: x y hd - full head
xymove
3.5 2.0 rmoveto
-2.0 3.5 -9.0 -0.5 -7.0 -4.0 rcurveto
2.0 -3.5 9.0 0.5 7.0 4.0 rcurveto fill
} bdef
/Hd { % usage: x y Hd - open head for half
xymove
3.0 1.6 rmoveto
-1.0 1.8 -7.0 -1.4 -6.0 -3.2 rcurveto
1.0 -1.8 7.0 1.4 6.0 3.2 rcurveto
0.5 0.3 rmoveto
2.0 -3.8 -5.0 -7.6 -7.0 -3.8 rcurveto
-2.0 3.8 5.0 7.6 7.0 3.8 rcurveto
fill
} bdef
/HD { % usage: x y HD - open head for whole
xymove
-1.6 2.4 rmoveto
2.8 1.6 6.0 -3.2 3.2 -4.8 rcurveto
-2.8 -1.6 -6.0 3.2 -3.2 4.8 rcurveto
7.2 -2.4 rmoveto
0.0 1.8 -2.2 3.2 -5.6 3.2 rcurveto
-3.4 0.0 -5.6 -1.4 -5.6 -3.2 rcurveto
0.0 -1.8 2.2 -3.2 5.6 -3.2 rcurveto
3.4 0.0 5.6 1.4 5.6 3.2 rcurveto
fill
} bdef
/HDD { % usage: x y HDD - round breve
dlw HD
x y M -6 -4 rmoveto 0 8 rlineto
x y M 6 -4 rmoveto 0 8 rlineto stroke
} bdef
/breve { % usage: x y breve - square breve
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -5 rmoveto 0 10 rlineto stroke
} bdef
/longa { % usage: x y longa
xymove
2.5 setlinewidth -6 -2.7 rmoveto 12 0 rlineto
0 5.4 rmoveto -12 0 rlineto stroke
dlw x y M -6 -5 rmoveto 0 10 rlineto
x y M 6 -10 rmoveto 0 15 rlineto stroke
} bdef
/shd { % usage: x y shd
xymove
3 1.3 rmoveto
-1 2.5 -6.5 0 -5.5 -2.5 rcurveto
1 -2.5 6.5 0 5.5 2.5 rcurveto fill} bdef
/sHd{
xymove
3 1.3 rmoveto
-1 1.5 -5 -1.0 -4 -2.4 rcurveto
1 -1.8 7 1.4 6 3.2 rcurveto
0.5 0.3 rmoveto
2 -3.8 -5 -7.6 -7 -3.8 rcurveto
-2 3.8 5 7.6 7 3.8 rcurveto
fill} bdef
/sHD{
xymove
-1.2 1.8 rmoveto
2.1 1.2 4.5 -2.4 2.4 -3.6 rcurveto
-2.1 -1.2 -4.5 2.4 -2.4 3.6 rcurveto
5.4 -1.8 rmoveto
0 1.4 -1.7 2.4 -4.2 2.4 rcurveto
-2.6 0 -4.2 -1.1 -4.2 -2.4 rcurveto
0 -1.4 1.7 -2.4 4.2 -2.4 rcurveto
2.6 0 4.2 1.1 4.2 2.4 rcurveto
fill} bdef
/sHdd{ % usage: x y opchnot
xymove
-2.5 -2.3 rmoveto
/Times-Roman 12 selectfont (o) show} bdef
/su { % usage: len su - up stem
dlw x y M 3.5 1.0 rmoveto 1.0 sub 0 exch rlineto stroke
} bdef
/sd { % usage: len sd - down stem
dlw x y M -3.5 -1.0 rmoveto neg 1.0 add 0 exch rlineto stroke
} bdef
/sfu { % usage: n len sfu - stem and n flag up
dlw x y M 3.5 1.0 rmoveto
1.0 sub 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -5.6 9.6 -9.0 5.6 -18.4 rcurveto
1.6 6.0 -1.3 11.6 -5.6 12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 -3.7 9.1 -6.4 6.0 -12.4 rcurveto
1.0 5.4 -4.2 8.4 -6.0 8.4 rcurveto
fill -5.4 add M
} for
1.2 -3.2 9.6 -5.7 5.6 -14.6 rcurveto
1.6 5.4 -1.0 10.2 -5.6 11.4 rcurveto
fill
}
ifelse
} bdef
/sfd { % usage: n len sfd - stem and n flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 5.6 9.6 9.0 5.6 18.4 rcurveto
1.6 -6.0 -1.3 -11.6 -5.6 -12.8 rcurveto
fill
}
{
2 1 3 -1 roll {
pop currentpoint
0.9 3.7 9.1 6.4 6.0 12.4 rcurveto
1.0 -5.4 -4.2 -8.4 -6.0 -8.4 rcurveto
fill 5.4 add M
} for
1.2 3.2 9.6 5.7 5.6 14.6 rcurveto
1.6 -5.4 -1.0 -10.2 -5.6 -11.4 rcurveto
fill
}
ifelse
} bdef
/sfs { % usage: n len sfs - stem and n straight flag down
dlw x y M -3.5 -1.0 rmoveto
neg 1.0 add 0 exch rlineto currentpoint stroke
M 1 1 3 -1 roll {
pop currentpoint
7 3.2 rlineto
0 3.2 rlineto
-7 -3.2 rlineto
fill 5.4 add M
} for
} bdef
/ghd { % usage: x y ghd - grace note head
xymove
-1.3 1.5 rmoveto
2.4 2 5 -1 2.6 -3 rcurveto
-2.4 -2 -5 1 -2.6 3 rcurveto fill
} bdef
/gu { % usage: l gu - grace note stem
0.6 setlinewidth x y M
2.0 0 rmoveto 0 exch rlineto stroke
} bdef
/sgu { % usage: n len sgu - gnote stem and n flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
M dup 1 eq
{
pop
0.6 -3.4 5.6 -3.8 3.0 -10.0 rcurveto
1.2 4.4 -1.4 7.0 -3.0 7.0 rcurveto
fill
}
{
1 1 3 -1 roll {
pop currentpoint
1.0 -3.2 5.6 -2.8 3.2 -8.0 rcurveto
1.4 4.8 -2.4 5.4 -3.2 5.2 rcurveto
fill -3.5 add M
} for
}
ifelse
} bdef
/sgs { % usage: n len sgs - gnote stem and n straight flag up
0.6 setlinewidth x y M 2.0 0 rmoveto
0 exch rlineto currentpoint stroke
1.2 setlinewidth M 1 1 3 -1 roll {
pop currentpoint
4.5 -2.2 rlineto
stroke -3.5 add M
} for
} bdef
/ga { % usage: ga - acciaccatura
x y M -1 4 rmoveto 9 5 rlineto stroke
} bdef
/ghl { % usage: x y ghl - grace note helper line
0.6 setlinewidth x -3 add exch M
6 0 rlineto stroke
} bdef
/gsl { % usage: x1 y2 x2 y2 x3 y3 x0 y0 gsl
dlw M curveto stroke
} bdef
% grace note accidentals
/gsc { gsave x add y T 0.7 dup scale 0 0 } bdef
/gsh { % usage: x y gsh
gsc sh0 grestore
} bdef
/gnt { % usage: x y gnt
gsc nt0 grestore
} bdef
/gft { % usage: x y gft
gsc ft0 grestore
} bdef
/gdsh { % usage: x y gdsh
gsc dsh0 grestore
} bdef
/gdft { % usage: x y gdft
gsc dft0 grestore
} bdef
0 setlinecap 0 setlinejoin
/crdc {
/Times-Italic 15 selectfont
M -6 4 rmoveto show
} bdef
/apf {
M -6 5 rmoveto
/Times-Italic 16 selectfont (\() show
/Times-BoldItalic 16 selectfont show
/Times-Italic 16 selectfont (\)) show
} bdef
/opnot {
M -6 -3 rmoveto /Times-Roman 16 selectfont (\( \)) show
} bdef
/octava {
exch -9 add exch 2 copy
M 0 10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va) show
M 0 6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto currentpoint stroke M
[] 0 setdash 0 -6 rlineto stroke
} bdef
/octavab {
exch -10 add exch 2 copy
M 0 -10 rmoveto /Times-Roman 16 selectfont (8) show
/Times-Roman 12 selectfont (va basso) show
10 add M 0 -6 rlineto currentpoint stroke M
[6] 0 setdash 30 add 0 rlineto stroke
[] 0 setdash
} bdef
/repst {
M -3 -13 rmoveto 9 3 rlineto 0 -3 rlineto -9 -3 rlineto fill
} bdef
/bigl {
/Times-Bold 26 selectfont
4 add M cshow gsave
1 setlinewidth 1 -2 rmoveto
0 22 rlineto -22 0 rlineto
0 -22 rlineto 22 0 rlineto
stroke grestore
} bdef
/biglc {
2 copy 5 2 roll /Times-Bold 22 selectfont
6 add M cshow gsave
1 setlinewidth 13 add newpath
12 0 360 arc
stroke grestore
} bdef
/ped {
gsave 4 add exch -10 add exch T 26 dup scale
0.368 0.074 moveto
0.341 0.121 0.335 0.147 0.371 0.203 curveto
0.435 0.289 0.531 0.243 0.488 0.155 curveto
0.472 0.117 0.434 0.096 0.414 0.080 curveto
0.429 0.038 0.494 -0.006 0.541 0.075 curveto
0.559 0.123 0.558 0.224 0.663 0.252 curveto
0.603 0.354 0.449 0.393 0.461 0.405 curveto
0.902 0.262 0.705 -0.124 0.555 0.046 curveto
0.488 -0.032 0.417 0.021 0.389 0.055 curveto
0.303 -0.018 0.303 -0.020 0.248 0.040 curveto
0.218 0.108 0.191 0.062 0.164 0.047 curveto
0.010 -0.056 0.032 0.019 0.124 0.062 curveto
0.229 0.117 0.200 0.091 0.228 0.195 curveto
0.240 0.241 0.149 0.250 0.166 0.311 curveto
0.207 0.493 lineto
-0.041 0.441 0.049 0.261 0.126 0.387 curveto
0.138 0.381 lineto
-0.020 0.119 -0.100 0.472 0.220 0.507 curveto
0.548 0.486 0.399 0.171 0.254 0.374 curveto
0.264 0.384 lineto
0.338 0.259 0.521 0.449 0.228 0.488 curveto
0.198 0.356 lineto
0.181 0.304 0.273 0.294 0.262 0.241 curveto
0.229 0.101 lineto
0.273 0.070 0.282 -0.038 0.368 0.074 curveto
0.391 0.094 moveto
0.456 0.130 0.476 0.171 0.468 0.213 curveto
0.452 0.276 0.333 0.171 0.391 0.094 curveto
0.627 0.019 moveto
0.533 0.041 0.586 0.228 0.678 0.229 curveto
0.729 0.170 0.712 0.025 0.627 0.019 curveto
eofill
0.8 0.04 0.04 0 360 newpath arc fill
pop grestore
} bdef
/pedoff {
gsave 4 add exch -5 add exch T 26 dup scale
0.219 0.198 moveto
0.231 0.172 0.195 0.138 0.162 0.173 curveto
0.149 0.219 0.206 0.231 0.219 0.198 curveto
0.144 0.242 moveto
0.166 0.223 0.193 0.230 0.181 0.267 curveto
0.178 0.306 0.144 0.302 0.151 0.335 curveto
0.160 0.381 0.225 0.377 0.224 0.330 curveto
0.228 0.302 0.198 0.306 0.197 0.267 curveto
0.194 0.237 0.213 0.222 0.237 0.247 curveto
0.263 0.276 0.234 0.297 0.268 0.322 curveto
0.314 0.347 0.354 0.297 0.316 0.259 curveto
0.296 0.237 0.273 0.266 0.246 0.237 curveto
0.223 0.217 0.232 0.194 0.266 0.197 curveto
0.303 0.202 0.302 0.232 0.332 0.228 curveto
0.381 0.232 0.388 0.156 0.332 0.152 curveto
0.302 0.148 0.302 0.185 0.266 0.183 curveto
0.231 0.186 0.228 0.169 0.245 0.143 curveto
0.273 0.116 0.297 0.141 0.316 0.117 curveto
0.350 0.075 0.303 0.029 0.258 0.062 curveto
0.237 0.082 0.261 0.102 0.233 0.133 curveto
0.212 0.151 0.194 0.147 0.197 0.113 curveto
0.203 0.075 0.232 0.075 0.230 0.043 curveto
0.223 -0.004 0.159 -0.002 0.152 0.042 curveto
0.148 0.075 0.185 0.076 0.183 0.113 curveto
0.183 0.147 0.163 0.150 0.141 0.133 curveto
0.113 0.104 0.140 0.079 0.113 0.059 curveto
0.069 0.037 0.033 0.077 0.063 0.117 curveto
0.082 0.141 0.104 0.117 0.132 0.142 curveto
0.153 0.163 0.144 0.188 0.113 0.182 curveto
0.073 0.182 0.075 0.147 0.046 0.152 curveto
-0.003 0.152 -0.003 0.227 0.048 0.227 curveto
0.075 0.231 0.075 0.198 0.113 0.196 curveto
0.141 0.197 0.147 0.207 0.133 0.237 curveto
0.102 0.264 0.082 0.237 0.062 0.261 curveto
0.028 0.302 0.077 0.347 0.118 0.318 curveto
0.138 0.297 0.116 0.275 0.144 0.242 curveto
fill pop grestore
} bdef
/glistart {
/yg exch def 5 add /xg exch def
} bdef
/glistop {
gsave xg yg T
yg sub exch 5 add xg sub exch
2 copy exch atan dup rotate
exch pop cos div
10 0 T 0 0 M
26 sub 0 8 3 -1 roll {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/glissup {
gsave T 5 0 T
25 rotate 10 0 T 0 0 M
0 8 8 {
2 -1.15 2.30 150 30 arcn 4 0 T
2 1.15 2.30 -150 -30 arc 4 0 T pop
} for
stroke grestore
} bdef
/tr3 {
M 2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
2.2 2.2 rlineto 2.1 -2.9 rlineto 0.7 0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto
-2.2 -2.2 rlineto -2.1 2.9 rlineto -0.7 -0.7 rlineto fill
} bdef
/t2ub {
2 copy umrd 0.6 setlinewidth
M 5 4 rmoveto 0 6 rlineto stroke
} bdef
/t3tab {
4 add 2 copy exch 7.5 sub exch tr3 exch 7.5 add exch
2 copy 0.6 setlinewidth M 2 6 14 6 16 0 rcurveto
M 8 1 rmoveto 0 6 rlineto stroke
} bdef
/ubt3ta {
4 add 2 copy 0.6 setlinewidth
M -7.5 0 rmoveto 0 6 rlineto stroke
2 copy exch 7.5 sub exch tr3
M 7.5 0 rmoveto 2 6 14 6 16 0 rcurveto stroke
} bdef
/tbt3 {
exch 10 sub exch 6 add 2 copy 0.6 setlinewidth
M -8 0 rmoveto 2 -6 14 -6 16 0 rcurveto stroke
exch 8 add exch tr3
} bdef
/t2ta {
2 copy umrd
M 5 4 rmoveto 1 5 9 5 10 0 rcurveto stroke
} bdef
/t3b {
2 copy exch -7.5 add exch 4 add tr3 0.6 setlinewidth
M 2.5 0 rmoveto 0 8 rlineto stroke
} bdef
/sharp {
4 add gsave T 0.6 dup scale 0 0 sh0 grestore
} bdef
/flat {
4 add gsave T 0.6 dup scale 0 0 ft0 grestore
} bdef
/natural {
4 add gsave T 0.6 dup scale 0 0 nt0 grestore
} bdef
/octl {
/Times-Italic-Bold 16 selectfont M 5.5 -14 rmoveto (8vb) show
} bdef
%%EndSetup
0 92.5 T
0.75 dup scale
% --- 11 ((notitle)) ---
0 -25.34 T
3.2 16.0 4.2 124.5 -45.0 bm
(2) 80.0 70.3 -25.0 end2
14.0 F1 249.1 -44.0 M (75) showb 570.7 -44.0 M (80) showb
15.0 F2 90.5 -17.0 M gsave 0.70 dup scale 15 3 rmoveto currentpoint
hd 8.0 0 dt 20 su grestore 18.20 0 rmoveto ( = 56) show
0 -75.00 M 699.30 staff
12.0 -75.0 bclef
30.0 -69.0 ft0 35.0 -60.0 ft0 40.0 -72.0 ft0
24.0 70.3 -75.0 bar
(6) (8) 83.5 -75.0 tsig
99.8 -63.0 r8
121.0 -69.0 hd -9.0 nt 24.0 su
137.0 -60.0 hd 19.2 su
153.8 -54.0 hd 8.0 0 dt 20.0 sd
24.0 178.2 -75.0 bar
191.1 -54.0 hd 8.0 0 dt 20.0 sd
223.9 -54.0 hd 8.0 0 dt 20.0 sd
24.0 249.1 -75.0 bar
262.0 -66.0 hd 8.0 0 dt 20.0 su
288.6 -63.0 r4 8.0 3 dt
24.0 313.4 -75.0 bar
325.6 -63.0 hd 8.0 3 dt 20.0 sd
352.5 -63.0 r4 8.0 3 dt
24.0 377.7 -75.0 bar
391.0 -60.0 hd 8.0 0 dt 20.0 sd
417.5 -63.0 r4 8.0 3 dt
24.0 442.0 -75.0 bar
455.4 -72.0 hd 8.0 0 dt 20.0 su
481.5 -63.0 r4 8.0 3 dt
24.0 506.3 -75.0 bar
518.7 -63.0 hd 8.0 3 dt 20.0 sd
545.9 -63.0 r4 8.0 3 dt
24.0 570.7 -75.0 bar
583.4 -60.0 hd 8.0 0 dt 20.0 sd
610.4 -63.0 r4 8.0 3 dt
24.0 635.0 -75.0 bar
648.1 -54.0 hd 8.0 0 dt 20.0 sd
676.0 -63.0 r4 8.0 3 dt
24.0 699.3 -75.0 bar
181.3 -45.5 163.6 -45.5 158.3 -49.1 0 0.2 162.8 -46.5 182.1 -46.5 186.6 -49.3 158.3 -49.3 SL
121.0 -43.03 dnb
50.1 131.0 -97.00 cresc
191.1 -47.00 hld
(p) 223.9 -97.00 pf
223.9 -49.00 hld
0 -98.00 T
showpage
end
cleartomark origstate restore grestore