} bind def
% this is for drawing slurs and barre-indicators.
-/draw_bezier_sandwich % thickness controls
+/draw_bezier_sandwich % x5 y5 x6 y6 x7 y7
+ % x4 y4
+ % x1 y1 x2 y2 x3 y3
+ % x0 y0
+ % linewidth draw_bezier_sandwich
{
gsave
currentpoint translate
- % round ending and round beginning
- 1 setlinejoin 1 setlinecap
+ % round ending and round beginning
+ 1 setlinejoin 1 setlinecap
setlinewidth
moveto
curveto
grestore
} bind def
-/print_glyphs % dx dy glyph print_glyphs
+/print_glyphs % w dx dy glyph print_glyphs
{
{
- currentpoint %dx dy glyph x0 y0
- 3 2 roll %dx dy x0 y0 glyph
- glyphshow % dx dy x0 y0
- moveto % dx dy
- rmoveto
+ currentpoint %w dx dy glyph x0 y0
+ 5 2 roll %w x0 y0 dx dy glyph
+ 3 1 roll %w x0 y0 glyph dx dy
+ rmoveto %w x0 y0 glyph
+ glyphshow %w x0 y0
+ moveto %w
+ 0 rmoveto
}repeat
}bind def
%end music-drawing-routines.ps