%
% Functions for direct and embedded PostScript
-/blot-diameter { lilypondpaperblotdiameter } bind def
/set_tex_dimen {
cvr def
} bind def
+
+
/euclidean_length
{
1 copy mul exch 1 copy mul add sqrt
% Nice rectangle with rounded corners
/draw_box % breapth width depth height
{
- currentdict /testing known {
+% currentdict /testing known {
%% real thin lines for testing
/blot 0.005 def
- }{
- /blot blot-diameter def
- } ifelse
+% }{
+% /blot blot-diameter def
+% } ifelse
0 setlinecap
blot setlinewidth
} bind def
% Nice beam with rounded corners
-/draw_beam % slope width thick
+/draw_beam % slope width thick blot
{
- currentdict /testing known {
- %% real thin lines for testing
- /blot 0.005 def
- }{
- /blot blot-diameter def
- } ifelse
+ /blot exch def
blot setlinewidth
0 setlinecap
} bind def
+/draw_white_text % text scale font
+{
+ %font
+ findfont
+ %scale
+ exch scalefont setfont
+ 1 setgray
+ 0 0 moveto
+ %-0.05 -0.05 moveto
+ % text
+ show
+} bind def
+
/draw_ez_ball % ch letter_col ball_col font
{
% font
% this is for drawing slurs.
/draw_bezier_sandwich % thickness controls
-{
+{
+ % round ending and round beginning
+ 1 setlinejoin 1 setlinecap
setlinewidth
moveto
curveto
lineto
- curveto
+ curveto
+ closepath
gsave
fill
grestore
0 360 arc closepath fill stroke
} bind def
+/draw_white_dot % x1 y2 R
+{
+% 0 360 arc fill stroke
+ 0 360 arc closepath % fill stroke
+gsave
+ 1 setgray fill
+grestore
+% 0 360 arc closepath % fill stroke
+ 0.05 setlinewidth 0 setgray stroke
+} bind def
+
/draw_dashed_line % dash thickness dx dy
{
1 setlinecap
stroke
} bind def
+%end music-drawing-routines.ps