*** empty log message ***

diff --git a/scm/framework-eps.scm b/scm/framework-eps.scm
index 01a09a5a8765c7ddc9a7964c8a9389e7a279f5bd..5923dca9fe11255d92e3e7f46fdd4ed24812a9d6 100644 (file)
--- a/scm/framework-eps.scm
+++ b/scm/framework-eps.scm
@@ -54,8 +54,7 @@ stencil, so LaTeX includegraphics doesn't fuck up the alignment."
               (rest (cdr stencils)))
 
          (dump-stencil-as-EPS
-          paper
-          line (format "~a-~a" basename count)
+          paper line (format "~a-~a" basename count)
           (ly:output-def-lookup paper 'force-eps-font-include))
          
          (dump-stencils-as-separate-EPS rest (1+ count)))))

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 8cb006d70ae48952f60003be88fedd092647519d..57f5dcee5f1ce516aec9c57b6a9a9a3e32ee5148 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -475,7 +475,9 @@
                     (equal? (format #f "~S" x) "+#.#")
                     (equal? (format #f "~S" x) "-#.#"))
                 0.0 x))
-          (list (car xext) (car yext) (cdr xext) (cdr yext))))
+          ;; set left of X to 0, to prevent barnumbers
+          ;; from sticking out of margin.
+          (list 0.0 (car yext) (cdr xext) (cdr yext))))
         (rounded-bbox (mm-to-bp-box bbox))
         (port (ly:outputter-port outputter))
         (header (eps-header paper rounded-bbox load-fonts?)))