(bracket): rounding bfs.

diff --git a/ChangeLog b/ChangeLog
index 1aea67579f52f7117bae1ee6d98c029b515a3d1d..8d09aece729ec6e11c92b8b0a656b35f3c472fa7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-01-16  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+       * scm/output-ascii-script.scm (bracket): rounding bfs.
+
        * scripts/convert-ly.py (conv): add \include "paper" rule. 
 
        * ly/paper*.ly: remove files. 

diff --git a/scm/output-ascii-script.scm b/scm/output-ascii-script.scm
index 03375c89e46f61c6ac770630b8a3163c34b08cd4..42c7be9e6f2b675b1e6fc1d2282463cfb3fe408d 100644 (file)
--- a/scm/output-ascii-script.scm
+++ b/scm/output-ascii-script.scm
@@ -25,7 +25,7 @@
                           (hashq (car ename-mag) 1000000))
                          "m"
                          (string-encode-integer
-                          (inexact->exact (* 1000 (cdr ename-mag)))))))))
+                          (inexact->exact (round (* 1000 (cdr ename-mag))))))))))
 
 (define (fontify name-mag-pair exp)
   (string-append (select-font name-mag-pair)
@@ -156,8 +156,8 @@
 (define (no-origin) "")
 
 (define (placebox x y s) 
-  (let ((ey (inexact->exact y)))
-    (string-append "(move-to " (number->string (inexact->exact x)) " "
+  (let ((ey (inexact->exact (round y))))
+    (string-append "(move-to " (number->string (inexact->exact (round x))) " "
                   (if (= 0.5 (- (abs y) (abs ey)))
                       (number->string y)
                       (number->string ey))