1 %!PS-Adobe-3.0: lilyponddefs
4 /setgray { 1 add } bind def
8 /staffrulethickness 1 def
29 /Times-Roman findfont 12 scalefont setfont
34 /vrule % width height depth
37 3 -1 roll setlinewidth
43 /draw_stem % kern width height depth
46 4 -1 roll neg 0 translate
51 /widthbar % height width
55 2 div dup neg 0 exch moveto
63 stafflinethickness 2 mul widthbar
68 stafflinethickness 1.6 mul widthbar
81 /generalmeter % num den
89 /feta-braces20 findfont 12 scalefont setfont%
101 xoffset yoffset translate
107 0 0 moveto pathbbox exch pop sub exch pop
110 yoffset add /yoffset exch def
112 yoffset staffheight 8 mul sub /yoffset exch def
115 /unknown { (U) show} bind def
116 /empty {(E) show} bind def
118 /turnOnExperimentalFeatures { } bind def
120 /rulesym % thick length
130 2 div /beam_thick exch def
133 beam_slope beam_wd mul /beam_ht exch def
134 0 beam_thick neg moveto
135 beam_wd beam_ht rlineto
136 0 beam_thick 2 mul rlineto
143 staffrulethickness setlinewidth
148 cresc_wd cresc_cont moveto
151 cresc_wd cresc_cont neg moveto
152 0 cresc_ht neg lineto
158 staffrulethickness setlinewidth
164 cresc_wd cresc_ht lineto
166 0 cresc_cont neg moveto
167 cresc_wd cresc_ht neg lineto
172 1 copy mul exch 1 copy mul add sqrt
174 staffrulethickness 1.2 mul /plet_t exch def
184 staffheight 2 div /plet_gapx exch def
185 plet_dy plet_dx div plet_gapx mul /plet_gapy exch def
186 staffheight 4 div dir mul /plet_h exch def
190 plet_dx plet_gapx sub 2 div
191 plet_dy plet_gapy sub 2 div plet_h add lineto
192 plet_dx plet_gapx add 2 div
193 plet_dy plet_gapy add 2 div plet_h add moveto
194 plet_dx plet_dy plet_h add lineto
195 plet_dx plet_dy lineto
201 staffrulethickness setlinewidth
223 staffheight 4 div /interline exch def
228 /traject_alpha exch def
229 traject_ds traject_alpha sin mul add
231 traject_ds traject_alpha cos mul add
236 % interline 2 div /bracket_b exch def
237 interline 3 div /bracket_b exch def
238 interline 2 mul /bracket_w exch def
239 staffrulethickness /stafflinethickness exch def
240 stafflinethickness 2 mul /bracket_t exch def
241 interline 1.5 mul /bracket_v exch def
242 bracket_v /bracket_u exch def
243 50 /bracket_alpha exch def
250 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
251 bracket_alpha bracket_v -0.15 mul bracket_traject
254 0 bracket_v 0.5 mul bracket_traject
258 bracket_b bracket_h bracket_t sub
259 0 bracket_v 0.4 mul bracket_traject
261 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
262 bracket_alpha bracket_v -0.25 mul bracket_traject
264 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
266 bracket_b bracket_h bracket_t sub
287 2 div bracket_b add /bracket_h exch def
288 bracket_t setlinewidth
304 stafflinethickness setlinewidth
306 % see if we're there...
307 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke