aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-07-18 07:18:49 -0500
committerColin Okay <colin@cicadas.surf>2022-07-18 07:18:49 -0500
commit9c70ea0c20a61f9192e74ce537a4976e39e663d9 (patch)
treee50b589a402aa9cc0ad6bbae0e0ba84b6855bdeb
parent8dbbb0e6a8495564f8b26baff8f540f7d5772903 (diff)
[modify] with-grid-path autoclosep assumed when interiorp
-rw-r--r--src/grid-geometry.lisp4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/grid-geometry.lisp b/src/grid-geometry.lisp
index eac3d5a..218cdf2 100644
--- a/src/grid-geometry.lisp
+++ b/src/grid-geometry.lisp
@@ -64,12 +64,12 @@ top right corners of the bounding box for POLY "
"Interiorp assumes autoclosep."
(with-gensyms (points x1 y1 x2 y2 more)
(let* ((autoclose-clause
- (when autoclosep
+ (when (or interiorp autoclosep)
`(destructuring-bind (,x2 ,y2) (first ,points)
(with-grid-line (,x ,y) (,x2 ,y2) (,x1 ,y1)
,@body))))
(interior-clause
- (when (and autoclosep interiorp)
+ (when interiorp
`(destructuring-bind ((,x1 ,y1) (,x2 ,y2)) (grid-bbox-for ,points)
(loop for ,x from ,x1 to ,x2 do
(loop for ,y from ,y1 to ,y2