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
88 volta_w volta_h lineto
97 stafflinethickness setlinewidth
124 /traject_alpha exch def
125 traject_ds traject_alpha sin mul add
127 traject_ds traject_alpha cos mul add
138 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
139 bracket_alpha bracket_v -0.15 mul bracket_traject
142 0 bracket_v 0.5 mul bracket_traject
146 bracket_b bracket_h bracket_t sub
147 0 bracket_v 0.4 mul bracket_traject
149 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
150 bracket_alpha bracket_v -0.25 mul bracket_traject
152 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
154 bracket_b bracket_h bracket_t sub
173 /draw_bracket % height
175 2 div bracket_b add /bracket_h exch def
176 bracket_t setlinewidth
177 % urg: the only Level-2 PS, check effect in print
178 % true setstrokeadjust