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
63 % FIXME. translate to middle of box.
66 /draw_box % breapth width depth height
78 neg 0 exch lineto stroke
87 stafflinethickness 0.8 mul setlinewidth
92 /widthbar % height width
96 2 div dup neg 0 exch moveto
104 stafflinethickness 2 mul widthbar
109 stafflinethickness 1.6 mul widthbar
127 /generalmeter % num den
132 /pianobrace % '(' char ')'
135 /feta-braces20 findfont 12 scalefont setfont%
150 /repeatbarstartrepeat
173 xoffset yoffset translate
179 0 0 moveto pathbbox exch pop sub exch pop
182 yoffset add /yoffset exch def
184 yoffset staffheight 8 mul sub /yoffset exch def
187 /unknown { (U) setbold } bind def
188 /empty { (E) setbold } bind def
190 /turnOnExperimentalFeatures { } bind def
192 /rulesym % thick length
200 (lily.ps) findlibfile
202 exch pop //systemdict /run get exec
205 /undefinedfilename signalerror
208 stafflinethickness setlinewidth
210 % see if we're there...
211 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke