From: hanwen <hanwen>
Date: Fri, 16 Jan 2004 19:44:19 +0000 (+0000)
Subject: (bracket): rounding bfs.
X-Git-Tag: release/2.1.11~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c8798f3fdaf4306c3b7db0e32601112a79d1c4ac;p=lilypond.git

(bracket): rounding bfs.
---

diff --git a/ChangeLog b/ChangeLog
index 1aea67579f..8d09aece72 100644
--- 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 03375c89e4..42c7be9e6f 100644
--- 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))