fixed inputs on new entity management

[rulp/rulp.git] / geometry / grid.lisp

diff --git a/geometry/grid.lisp b/geometry/grid.lisp
index 8351b7c..52e312c 100644 (file)
--- a/geometry/grid.lisp
+++ b/geometry/grid.lisp
@@ -91,3 +91,13 @@ when the grid is t the method will become an identity map, returing the input 'a
             (car adj-size)
             (cdr adj-size)
             )))
+
+(defmethod rectangle ((object entity) (grid squaregrid))
+  (let ((adj-coos (spr (span grid) (coordinates object)))
+        (adj-size (spr (span grid) (size object))))
+    (rulp.render:rectangle
+     (car adj-coos)
+     (cdr adj-coos)
+     (car adj-size)
+     (cdr adj-size)
+     )))