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
129 /traject_alpha exch def
130 traject_ds traject_alpha sin mul add
132 traject_ds traject_alpha cos mul add
143 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
144 bracket_alpha bracket_v -0.15 mul bracket_traject
147 0 bracket_v 0.5 mul bracket_traject
151 bracket_b bracket_h bracket_t sub
152 0 bracket_v 0.4 mul bracket_traject
154 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
155 bracket_alpha bracket_v -0.25 mul bracket_traject
157 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
159 bracket_b bracket_h bracket_t sub
178 /draw_bracket % height
180 2 div bracket_b add /bracket_h exch def
181 bracket_t setlinewidth
182 % urg: the only Level-2 PS, check effect in print
183 % true setstrokeadjust