(Multi_measure_rest_engraver): init bar_seen_ to true. Notice

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 8789ab096ae92479de175aa0f76c9cc3081a0e21..aa6581adf47d78a3cd1fe2c8feb5b1f23d1be3c5 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -190,8 +190,10 @@
            (if (and (= 0.0 x)
                     (= 0.0 y))
                (format #f " /~a glyphshow\n" g)
-               (format #f " ~a ~a rmoveto /~a glyphshow\n"
-                       x y g))))
+               (format #f " ~a ~a rmoveto ~a~a glyphshow\n"
+                       x y
+                       (if  (string? g) "/" "")
+                       g))))
        x-y-named-glyphs))))
 
 (define (grob-cause offset grob)
@@ -245,11 +247,12 @@
   (string-append 
    (ly:number->string x) " " (ly:number->string y) " { " s " } place-box\n"))
 
-(define (polygon points blotdiameter)
+(define (polygon points blotdiameter filled?)
   (string-append
    (ly:numbers->string points) " "
    (ly:number->string (/ (length points) 2)) " "
    (ly:number->string blotdiameter)
+   (if filled? " true " " false ")
    " draw_polygon"))
 
 (define (repeat-slash wid slope thick)