From 9c70ea0c20a61f9192e74ce537a4976e39e663d9 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 18 Jul 2022 07:18:49 -0500 Subject: [modify] with-grid-path autoclosep assumed when interiorp --- src/grid-geometry.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 -- cgit v1.2.3