aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/grid-geometry.lisp
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2024-12-10 07:11:02 -0800
committercolin <colin@cicadas.surf>2024-12-10 07:11:02 -0800
commit03cdbb6a15e130a012377ab8d54074b6864e3480 (patch)
treead8c5cfbd7262a5bf9555729e9b57b26457de027 /src/grid-geometry.lisp
parent2cbb8e4114c860e1774efd40d18661aee8ab2a72 (diff)
cleanup, examples use def
Diffstat (limited to 'src/grid-geometry.lisp')
-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 3597e75..f66a41f 100644
--- a/src/grid-geometry.lisp
+++ b/src/grid-geometry.lisp
@@ -86,8 +86,8 @@ top right corners of the bounding box for POLY "
,interior-clause))))))
(defmacro with-grid-rect ((x y) (left bottom right top) &body body)
- `(loop for ,x from ,left to ,right do
- (loop for ,y from ,bottom to ,top do ,@body )))
+ `(loop for ,x from (floor ,left) to (floor ,right) do
+ (loop for ,y from (floor ,bottom) to (floor ,top) do ,@body )))
(defmacro with-grid-circle
((x y) (cx cy radius &key interiorp) &body body)