b4_Inc_state restore
} bind def
-/set_tex_dimen
-{
- cvr def
-} bind def
-
/stroke_and_fill {
gsave
stroke
closepath fill
} bind def
-% this is for drawing slurs.
-/draw_bezier_sandwich % thickness controls
+% this is for drawing slurs and barre-indicators.
+/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
ifelse
} bind def
+/draw_oval % filled? x-radius y-radius thickness draw_ellipse
+{
+ setlinewidth % f? x-r y-r
+ /yrad exch def
+ /xrad exch def
+ xrad 0 rmoveto
+ 0 yrad -2 xrad mul dup yrad exch 0 rcurveto
+ 0 yrad neg dup 2 xrad mul dup 3 1 roll 0 rcurveto
+ closepath
+ { stroke_and_fill}
+ { stroke }
+ ifelse
+} bind def
+
+/draw_ellipse % filled? x-radius y-radius thickness draw_ellipse
+{
+ setlinewidth % f? x-r y-r
+ /savematrix matrix currentmatrix def
+ scale % f?
+ currentpoint
+ 1 0 rmoveto
+ 1 0 360 arc closepath
+ savematrix setmatrix
+ { stroke_and_fill}
+ { stroke }
+ ifelse
+} bind def
/draw_line % dx dy x1 y1 thickness draw_line
{