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
96 /generalmeter % num den
101 /pianobrace % '(' char ')'
104 /feta-braces20 findfont 12 scalefont setfont%
119 /repeatbarstartrepeat
137 xoffset yoffset translate
143 0 0 moveto pathbbox exch pop sub exch pop
146 yoffset add /yoffset exch def
148 yoffset staffheight 8 mul sub /yoffset exch def
151 /unknown { (U) show} bind def
152 /empty {(E) show} bind def
154 /turnOnExperimentalFeatures { } bind def
156 /rulesym % thick length
164 (lily.ps) findlibfile
166 exch pop //systemdict /run get exec
169 /undefinedfilename signalerror
172 stafflinethickness setlinewidth
174 % see if we're there...
175 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke