Minor formatting.

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 64a22b4677a0e650bd552751154dccbee51aee7f..ee1da5308e3be0a49254d3f108288b8f6ba6cd79 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -273,6 +273,7 @@
              (cond
               ((memq head '(rmoveto rlineto lineto moveto)) 2)
               ((memq head '(rcurveto curveto)) 6)
+              ((eq? head 'closepath) 0)
               (else 1)))
             (args (take rest arity))
             )
@@ -287,7 +288,7 @@
     
     
   (ly:format
-   "1 setlinecap ~a setlinewidth\n~l stroke"
+   "gsave currentpoint translate 1 setlinecap ~a setlinewidth\n~l stroke grestore"
    thickness
-   (convert-path-exps exps) ))
+   (convert-path-exps exps)))