diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-09-21 20:12:08 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-09-21 20:34:43 -0400 |
| commit | b9d96fd0d0450ac96ef113c0845bf3e773b75e4d (patch) | |
| tree | 2f8ee32db70614a0f912d50ed865f7c242423c56 | |
| parent | e4de04778ababee4a8d271e968bb4c763fc261c4 (diff) | |
graphics: path: Fix below procedure.
It was using the bounding box width to increment the y value, not the
height. Very silly!
| -rw-r--r-- | chickadee/graphics/path.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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) |