1 %!PS-Adobe-3.0: lilyponddefs
4 /setgray { 1 add } bind def
8 /staffrulethickness 1 def
28 /Times-Roman findfont 12 scalefont setfont
33 /vrule % width height depth
36 3 -1 roll setlinewidth
42 /draw_stem % kern width height depth
45 4 -1 roll neg 0 translate
50 /widthbar % height width
54 2 div dup neg 0 exch moveto
62 stafflinethickness 2 mul widthbar
67 stafflinethickness 1.6 mul widthbar
87 /feta-braces20 findfont 12 scalefont setfont%
99 xoffset yoffset translate
105 0 0 moveto pathbbox exch pop sub exch pop
108 yoffset add /yoffset exch def
110 yoffset staffheight 8 mul sub /yoffset exch def
115 /turnOnExperimentalFeatures { } bind def
117 /rulesym % thick length
127 2 div /beam_thick exch def
130 beam_slope beam_wd mul /beam_ht exch def
131 0 beam_thick neg moveto
132 beam_wd beam_ht rlineto
133 0 beam_thick 2 mul rlineto
140 staffrulethickness setlinewidth
145 cresc_wd cresc_cont moveto
148 cresc_wd cresc_cont neg moveto
149 0 cresc_ht neg lineto
155 staffrulethickness setlinewidth
161 cresc_wd cresc_ht lineto
163 0 cresc_cont neg moveto
164 cresc_wd cresc_ht neg lineto
169 1 copy mul exch 1 copy mul add sqrt
171 staffrulethickness 1.2 mul /plet_t exch def
181 staffheight 2 div /plet_gapx exch def
182 plet_dy plet_dx div plet_gapx mul /plet_gapy exch def
183 staffheight 4 div dir mul /plet_h exch def
187 plet_dx plet_gapx sub 2 div
188 plet_dy plet_gapy sub 2 div plet_h add lineto
189 plet_dx plet_gapx add 2 div
190 plet_dy plet_gapy add 2 div plet_h add moveto
191 plet_dx plet_dy plet_h add lineto
192 plet_dx plet_dy lineto
198 staffrulethickness setlinewidth
220 staffheight 4 div /interline exch def
225 /traject_alpha exch def
226 traject_ds traject_alpha sin mul add
228 traject_ds traject_alpha cos mul add
233 % interline 2 div /bracket_b exch def
234 interline 3 div /bracket_b exch def
235 interline 2 mul /bracket_w exch def
236 staffrulethickness /stafflinethickness exch def
237 stafflinethickness 2 mul /bracket_t exch def
238 interline 1.5 mul /bracket_v exch def
239 bracket_v /bracket_u exch def
240 50 /bracket_alpha exch def
247 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
248 bracket_alpha bracket_v -0.15 mul bracket_traject
251 0 bracket_v 0.5 mul bracket_traject
255 bracket_b bracket_h bracket_t sub
256 0 bracket_v 0.4 mul bracket_traject
258 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
259 bracket_alpha bracket_v -0.25 mul bracket_traject
261 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
263 bracket_b bracket_h bracket_t sub
284 2 div bracket_b add /bracket_h exch def
285 bracket_t setlinewidth
301 stafflinethickness setlinewidth
303 % see if we're there...
304 % 10 setlinewidth 0 0 moveto 400 800 lineto stroke