1 %!PS-Adobe-1.0: lilyponddefs
4 /setgray { 1 add } bind def
8 /staffrulethickness 1 def
22 /settext % '(' text ')'
26 /Times-Roman findfont 12 scalefont setfont
31 /setfinger % '(' text ')'
35 /feta-nummer5 findfont 12 scalefont setfont
40 /setitalic % '(' text ')'
44 /Times-Italic findfont 12 scalefont setfont
49 /vrule % width height depth
52 3 -1 roll setlinewidth
58 /draw_stem % kern width height depth
61 4 -1 roll neg 0 translate
66 /widthbar % height width
70 2 div dup neg 0 exch moveto
78 stafflinethickness 2 mul widthbar
83 stafflinethickness 1.6 mul widthbar
101 /generalmeter % num den
106 /pianobrace % '(' char ')'
109 /feta-braces20 findfont 12 scalefont setfont%
124 /repeatbarstartrepeat
142 xoffset yoffset translate
148 0 0 moveto pathbbox exch pop sub exch pop
151 yoffset add /yoffset exch def
153 yoffset staffheight 8 mul sub /yoffset exch def
156 /unknown { (U) show} bind def
157 /empty {(E) show} bind def
159 /turnOnExperimentalFeatures { } bind def
161 /rulesym % thick length
169 (lily.ps) findlibfile
171 exch pop //systemdict /run get exec
174 /undefinedfilename signalerror
177 stafflinethickness setlinewidth
179 % see if we're there...
180 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke