1 %!PS-Adobe-1.0: lilyponddefs
4 /setgray { 1 add } bind def
8 /stafflinethickness 1 def
22 /setbold % '(' text ')'
27 /settext % '(' text ')'
31 /Times-Roman findfont 12 scalefont setfont
36 /setfinger % '(' text ')'
40 /feta-nummer5 findfont 12 scalefont setfont
45 /setitalic % '(' text ')'
49 /Times-Italic findfont 12 scalefont setfont
54 /vrule % width height depth
57 3 -1 roll setlinewidth
63 /draw_stem % kern width height depth
66 4 -1 roll neg 0 translate
75 stafflinethickness 0.8 mul setlinewidth
80 /widthbar % height width
84 2 div dup neg 0 exch moveto
92 stafflinethickness 2 mul widthbar
97 stafflinethickness 1.6 mul widthbar
115 /generalmeter % num den
120 /pianobrace % '(' char ')'
123 /feta-braces20 findfont 12 scalefont setfont%
138 /repeatbarstartrepeat
161 xoffset yoffset translate
167 0 0 moveto pathbbox exch pop sub exch pop
170 yoffset add /yoffset exch def
172 yoffset staffheight 8 mul sub /yoffset exch def
175 /unknown { (U) setbold } bind def
176 /empty { (E) setbold } bind def
178 /turnOnExperimentalFeatures { } bind def
180 /rulesym % thick length
188 (lily.ps) findlibfile
190 exch pop //systemdict /run get exec
193 /undefinedfilename signalerror
196 stafflinethickness setlinewidth
198 % see if we're there...
199 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke