From b9d96fd0d0450ac96ef113c0845bf3e773b75e4d Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 21 Sep 2021 20:12:08 -0400 Subject: graphics: path: Fix below procedure. It was using the bounding box width to increment the y value, not the height. Very silly! --- chickadee/graphics/path.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/chickadee/graphics/path.scm b/chickadee/graphics/path.scm index 4978fbb..48e80d9 100644 --- a/chickadee/graphics/path.scm +++ b/chickadee/graphics/path.scm @@ -1450,7 +1450,7 @@ (let* ((r (painter-bounding-box painter)) (rx (rect-x r)) (ry (rect-y r)) - (rh (rect-width r))) + (rh (rect-height r))) (cons `(call ,(translate (vec2 (- rx) (- y ry)) painter)) (loop rest (+ y rh))))))) (let loop ((painters painters) -- cgit v1.2.3