new file.

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

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 572fcaff4399bd710087719b44dfb862381b9fc2..e38d967e9573dc835417475cee90e7262b61b015 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -361,13 +361,15 @@ centered, X==1 is at the right, X == -1 is at the left."
        (dx (- right-x left-x))
        (exp (list 'path thickness 
                  `(quote
-                   (,(- left-x self-x) 0
-                    rmoveto
+                   (rmoveto
+                    ,(- left-x self-x) 0
+
+                    rcurveto                
                     ,(/ dx 3)
                     0
                     ,dx ,(* 0.66 delta)
                     ,dx ,delta
-                    rcurveto)))) 
+                    ))))
        )
 
     (ly:make-stencil