diff options
| author | colin <colin@cicadas.surf> | 2024-12-10 07:11:02 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-12-14 08:35:58 -0800 |
| commit | 8a51ba81c7df6b0b6dab7cf4b35b5ca084b653ba (patch) | |
| tree | 23f5f0a5449a06473aba2ec7914a3c2193823a10 /src/grid-geometry.lisp | |
| parent | 2cbb8e4114c860e1774efd40d18661aee8ab2a72 (diff) | |
Replaced defclass-std with defrefactor-with-def
Diffstat (limited to 'src/grid-geometry.lisp')
| -rw-r--r-- | src/grid-geometry.lisp | 4 |
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) |