From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 4 Aug 2008 01:47:04 +0000 (-0300)
Subject: Fix thinko: corner case bbox handling should also be rounded to integers.
X-Git-Tag: release/2.11.55-1~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2e3b1869076ea4ee593bac907393821b543b2872;p=lilypond.git

Fix thinko: corner case bbox handling should also be rounded to integers.
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 5e26c1d4b7..c7214da3c5 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -545,11 +545,12 @@
 			       (if (or (nan? x) (inf? x)) 0.0 x)))
 	   (directed-round (lambda (x rounder)
 			     (inexact->exact
-			      (rounder (/ (* x scale) (ly:bp 1)))))))
+			      (rounder (/ (* (strip-non-number x) scale)
+					  (ly:bp 1)))))))
       (list (directed-round (car box) floor)
 	    (directed-round (cadr box) floor)
-	    (max (1+ (car box)) (directed-round (caddr box) ceiling))
-	    (max (1+ (cadr box)) (directed-round (cadddr box) ceiling))
+	    (directed-round (max (1+ (car box)) (caddr box)) ceiling)
+	    (directed-round (max (1+ (cadr box)) (cadddr box)) ceiling)
 	  )))
 
   (let* ((outputter (ly:make-paper-outputter