1 %!PS-Adobe-1.0: lilyponddefs
4 /setgray { 1 add } bind def
7 1 /stafflinethickness exch def
11 /staffrulethickness 1 def
25 /setbold % '(' text ')'
30 /settext % '(' text ')'
34 /Times-Roman findfont 12 scalefont setfont
39 /setfinger % '(' text ')'
43 /feta-nummer5 findfont 12 scalefont setfont
48 /setitalic % '(' text ')'
52 /Times-Italic findfont 12 scalefont setfont
57 /vrule % width depth height
60 3 -1 roll setlinewidth
63 neg 0 exch lineto stroke
67 /draw_stem % breapth width depth height
70 4 -1 roll neg 0 translate
79 stafflinethickness 0.8 mul setlinewidth
84 /widthbar % height width
88 2 div dup neg 0 exch moveto
96 stafflinethickness 2 mul widthbar
101 stafflinethickness 1.6 mul widthbar
119 /generalmeter % num den
124 /pianobrace % '(' char ')'
127 /feta-braces20 findfont 12 scalefont setfont%
142 /repeatbarstartrepeat
165 xoffset yoffset translate
171 0 0 moveto pathbbox exch pop sub exch pop
174 yoffset add /yoffset exch def
176 yoffset staffheight 8 mul sub /yoffset exch def
179 /unknown { (U) setbold } bind def
180 /empty { (E) setbold } bind def
182 /turnOnExperimentalFeatures { } bind def
184 /rulesym % thick length
192 (lily.ps) findlibfile
194 exch pop //systemdict /run get exec
197 /undefinedfilename signalerror
200 stafflinethickness setlinewidth
202 % see if we're there...
203 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke