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_volta % w last
+/draw_volta % w thick last
{
/last exch def
+ setlinewidth
/volta_w exch def
staffheight 2 div /volta_h exch def
- volta_t setlinewidth
+% 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
stroke
} bind def
-/draw_slur
+% this is for drawing slurs.
+/draw_bezier_sandwich
{
stafflinethickness setlinewidth
moveto
1 setlinejoin
setdash
setlinewidth
+ 8 -2 roll
moveto
curveto
stroke