Added raggedright to a whole bunch of places.

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

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 5d39f3305d3c0ff56dc3214c8910045094a0c96d..7ee1498305514a3c91fb72cc3fe783d1eac16a97 100644 (file)
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -153,6 +153,19 @@
 } 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
@@ -228,6 +241,17 @@
        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