X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=graphics%2Frender.lisp;fp=graphics%2Frender.lisp;h=f0387184803002c9a3b0a03359d54a1bd4199f54;hb=f9be7b8484348b74335a43cd054ed947354eefda;hp=1b53e3bd459b4703a7d033da115c31f9e667844c;hpb=ca25f48867d005428d359ffc4834029b378c7abb;p=rulp%2Frulp.git

diff --git a/graphics/render.lisp b/graphics/render.lisp
index 1b53e3b..f038718 100644
--- a/graphics/render.lisp
+++ b/graphics/render.lisp
@@ -72,15 +72,3 @@ rectangle directly, but use the arrange-rect")
 
 ;; BUG: when the system loads it doesn't fill the variable
 ;; *execute-in-viewpoint* therefore this function is never executed
-(defchain render-plane-and-entities :viewpoint
-;;   "using *plane* and *entities-list* the macro display on the current rendering texture
-;; the plane 'as is' and the entities with the grid-layout function"
-  (when *plane*
-    ;; NOTE: add error for non-screen planes
-    (display *plane* t)
-    (loop :for entity :in (entities-list *plane*)
-          :do
-             (when (displayp entity)
-               (display entity (plane-grid *plane*))
-               )))                                        ; FIXME: create a grid-layout function
-  )