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
stroke
} bind def
+/draw_volta % w last
+{
+ /last exch def
+ /volta_w exch def
+ staffheight 2 div /volta_h exch def
+ volta_t setlinewidth
+ 0 0 moveto
+ 0 volta_h lineto
+ volta_w volta_h lineto
+ last 0 eq {
+ volta_w 0 lineto
+ } if
+ stroke
+} bind def
+
/draw_slur
{
stafflinethickness setlinewidth