* scm/fret-diagrams.scm (draw-dots): default values for dot size

[lilypond.git] / ps / music-drawing-routines.ps

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 25b3f2db7b1503916e6390be800114325952b249..72724ec111f66cce4be7c746bfeb37c19e38391e 100644 (file)
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -153,6 +153,16 @@
 } bind def
 
 
+/draw_white_text % text font
+{
+  %font
+  findfont 0.8 scalefont setfont
+  1 setgray
+  0 0 moveto
+  % text
+  show
+} bind def
+
 /draw_ez_ball % ch letter_col ball_col font
 {
        % font