1 %!PS-Adobe-1.0: lily.ps
3 staffrulethickness /stafflinethickness exch def
8 /draw_beam % width slope thick
10 2 div /beam_thick exch def
13 beam_slope beam_wd mul /beam_ht exch def
14 0 beam_thick neg moveto
15 beam_wd beam_ht rlineto
16 0 beam_thick 2 mul rlineto
23 stafflinethickness setlinewidth
28 cresc_wd cresc_cont moveto
31 cresc_wd cresc_cont neg moveto
38 stafflinethickness setlinewidth
44 cresc_wd cresc_ht lineto
46 0 cresc_cont neg moveto
47 cresc_wd cresc_ht neg lineto
53 1 copy mul exch 1 copy mul add sqrt
56 stafflinethickness 1.2 mul /plet_t exch def
60 % urg: the only Level-2 PS, check effect in print
61 % true setstrokeadjust
67 staffheight 2 div /plet_gapx exch def
68 plet_dy plet_dx div plet_gapx mul /plet_gapy exch def
69 staffheight 4 div dir mul /plet_h exch def
73 plet_dx plet_gapx sub 2 div
74 plet_dy plet_gapy sub 2 div plet_h add lineto
75 plet_dx plet_gapx add 2 div
76 plet_dy plet_gapy add 2 div plet_h add moveto
77 plet_dx plet_dy plet_h add lineto
78 plet_dx plet_dy lineto
84 stafflinethickness setlinewidth
106 staffheight 4 div /interline exch def
111 /traject_alpha exch def
112 traject_ds traject_alpha sin mul add
114 traject_ds traject_alpha cos mul add
118 interline 3 div /bracket_b exch def
119 interline 2 mul /bracket_w exch def
120 stafflinethickness 2 mul /bracket_t exch def
121 interline 1.5 mul /bracket_v exch def
122 bracket_v /bracket_u exch def
123 50 /bracket_alpha exch def
130 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
131 bracket_alpha bracket_v -0.15 mul bracket_traject
134 0 bracket_v 0.5 mul bracket_traject
138 bracket_b bracket_h bracket_t sub
139 0 bracket_v 0.4 mul bracket_traject
141 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
142 bracket_alpha bracket_v -0.25 mul bracket_traject
144 bracket_b bracket_v add bracket_h bracket_t sub bracket_u add
146 bracket_b bracket_h bracket_t sub
165 /draw_bracket % height
167 2 div bracket_b add /bracket_h exch def
168 bracket_t setlinewidth
169 % urg: the only Level-2 PS, check effect in print
170 % true setstrokeadjust