view.lisp: created intermediate viewpoint texture

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

diff --git a/graphics/grid.lisp b/graphics/grid.lisp
index e2a11ac..81b5a07 100644 (file)
--- a/graphics/grid.lisp
+++ b/graphics/grid.lisp
@@ -40,11 +40,13 @@
       (setf +is-grid+ nil)
       (setf +is-grid+ t)))
 
+;; NOTE: horrible
 (defun toggle-grid-letters ()
   (if +is-grid-letters+
       (setf +is-grid-letters+ nil)
       (setf +is-grid-letters+ t)))
 
+;;; FIXME: grid renders always from top and not from actual position, grid doesn't move with view
 (defmacro grid-render (renderer plane &optional (r 0) (g 0) (b 0))
   `(let ((x-offset (x ,plane))
          (y-offset (y ,plane))
@@ -72,6 +74,7 @@
        (sdl2:set-render-draw-color ,renderer 0 0 0 255)
     ))
 
+;;; FIXME: same as grid-render
 (defmacro indexes-render (renderer plane &optional (r 0) (g 0) (b 0))
   `(let ((x-offset (x ,plane))
          (y-offset (y ,plane))