;; 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
- )