* input/regression/markup-syntax.ly: remove \score.

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

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 8627ea5e11a982e3e33090b6a1f28aaabb3f106b..53dc007fc203865aa17e193a8befa7435565423d 100644 (file)
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -284,12 +284,15 @@ bind def
        0 360 arc closepath fill stroke
 } bind def
 
-/draw_circle % R T
+/draw_circle % R T F
 {
+       /filled exch def
        setlinewidth
        dup 0 moveto
        0 exch 0 exch
-       0 360 arc closepath stroke
+       0 360 arc closepath
+       gsave stroke grestore
+       filled { fill } if 
 } bind def
 
 /draw_white_dot % x1 y2 R