OSDN Git Service
(root)
/
rulp
/
rulp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)))
(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)))
(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))
(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)
))
(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))
(defmacro indexes-render (renderer plane &optional (r 0) (g 0) (b 0))
`(let ((x-offset (x ,plane))
(y-offset (y ,plane))