1 %!PS-Adobe-1.0: lily.ps
3 % 2 setlanguagelevel % hmm. auto_resize_dicts doesn't help either.
7 /draw_beam % width slope thick
9 2 div /beam_thick exch def
12 beam_slope beam_wd mul /beam_ht exch def
13 0 beam_thick neg moveto
14 beam_wd beam_ht rlineto
15 0 beam_thick 2 mul rlineto
20 /draw_decrescendo % width height cons
22 stafflinethickness setlinewidth
27 cresc_wd cresc_cont moveto
30 cresc_wd cresc_cont neg moveto
35 /draw_crescendo % width height cons
37 stafflinethickness setlinewidth
43 cresc_wd cresc_ht lineto
45 0 cresc_cont neg moveto
46 cresc_wd cresc_ht neg lineto
52 1 copy mul exch 1 copy mul add sqrt
58 % urg: the only Level-2 PS, check effect in print
59 % true setstrokeadjust
65 staffheight 2 div /tuplet_gapx exch def
66 tuplet_dy tuplet_dx div tuplet_gapx mul /tuplet_gapy exch def
67 staffheight 4 div dir mul /tuplet_h exch def
71 tuplet_dx tuplet_gapx sub 2 div
72 tuplet_dy tuplet_gapy sub 2 div tuplet_h add lineto
73 tuplet_dx tuplet_gapx add 2 div
74 tuplet_dy tuplet_gapy add 2 div tuplet_h add moveto
75 tuplet_dx tuplet_dy tuplet_h add lineto
76 tuplet_dx tuplet_dy lineto
84 staffheight 2 div /volta_h exch def
86 % urg: the only Level-2 PS, check effect in print
87 % true setstrokeadjust
92 volta_w volta_h lineto
101 stafflinethickness setlinewidth
128 /traject_alpha exch def
129 traject_ds traject_alpha sin mul add
131 traject_ds traject_alpha cos mul add
142 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
143 bracket_alpha bracket_v -0.15 mul bracket_traject
146 0 bracket_v 0.5 mul bracket_traject
150 bracket_b bracket_h bracket_t sub
151 0 bracket_v 0.4 mul bracket_traject
153 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
154 bracket_alpha bracket_v -0.25 mul bracket_traject
156 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
158 bracket_b bracket_h bracket_t sub
177 /draw_bracket % height
179 2 div bracket_b add /bracket_h exch def
180 bracket_t setlinewidth
181 % urg: the only Level-2 PS, check effect in print
182 % true setstrokeadjust