patch::: 1.3.133.jcn3

[lilypond.git] / ps / lily.ps

diff --git a/ps/lily.ps b/ps/lily.ps
index 5956635e65a84257bf09f92c1653d846e39c0925..de0f845dd0f4d0d579ebbf49aac907269225b088 100644 (file)
--- a/ps/lily.ps
+++ b/ps/lily.ps
@@ -77,7 +77,7 @@
        stroke 
 } bind def 
 
-/draw_ez_ball % ch letter_col ball_col font
+/difficult_draw_ez_ball % ch letter_col ball_col font
 {
        % font
        findfont 0.7 scalefont setfont 
@@ -100,6 +100,30 @@
        show
 } bind def
 
+% simple, but does it work everywhere?
+/draw_ez_ball % ch letter_col ball_col font
+{
+       % font
+       findfont 0.85 scalefont setfont
+       /origin { 0.45 0 } def
+       0 setgray
+       1.1 setlinewidth
+       origin moveto
+       origin lineto stroke
+       % ball_col
+       setgray
+       0.9 setlinewidth
+       origin moveto
+       origin lineto stroke
+       % letter_col
+       setgray
+       % 0.25 is empiric centering. Change to taste
+       origin moveto
+       -0.28 -0.30 rmoveto
+       % ch
+       show
+} bind def
+
 /draw_volta % h w thick vert_start vert_end 
 { 
        /vert_end exch def