From 2e3b1869076ea4ee593bac907393821b543b2872 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 3 Aug 2008 22:47:04 -0300 Subject: [PATCH] Fix thinko: corner case bbox handling should also be rounded to integers. --- scm/framework-ps.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 -- 2.39.5