%!PS-Adobe-1.0: lily.ps
+% 2 setlanguagelevel % hmm. auto_resize_dicts doesn't help either.
% round cappings
1 setlinecap
closepath fill
} bind def
-/draw_decrescendo % cont height width
+/draw_decrescendo % width height cons
{
stafflinethickness setlinewidth
/cresc_cont exch def
stroke
} bind def
-/draw_crescendo % cont height width
+/draw_crescendo % width height cons
{
stafflinethickness setlinewidth
/cresc_cont exch def
1 copy mul exch 1 copy mul add sqrt
} bind def
-/draw_tuplet
+/draw_tuplet % dx dy thick dir
{
- tuplet_t setlinewidth
% urg: the only Level-2 PS, check effect in print
% true setstrokeadjust
+ /dir exch def
+ setlinewidth
1 setlinecap
1 setlinejoin
- /dir exch def
/tuplet_dy exch def
/tuplet_dx exch def
staffheight 2 div /tuplet_gapx exch def
stroke
} bind def
-/draw_slur
+/draw_volta % w thick last
+{
+ /last exch def
+ setlinewidth
+ /volta_w exch def
+ staffheight 2 div /volta_h exch def
+% urg: the only Level-2 PS, check effect in print
+% true setstrokeadjust
+ 1 setlinecap
+ 1 setlinejoin
+ 0 0 moveto
+ 0 volta_h lineto
+ volta_w volta_h lineto
+ last 0 eq {
+ volta_w 0 lineto
+ } if
+ stroke
+} bind def
+
+% this is for drawing slurs.
+/draw_bezier_sandwich
{
stafflinethickness setlinewidth
moveto
1 setlinejoin
setdash
setlinewidth
+ 8 -2 roll
moveto
curveto
stroke