code.consxy.com Git - clnl/blob - src/main/nvm/utils.lisp

   1 (in-package #:clnl-nvm)
   2
   3 (defun min-pxcor () (getf (clnl-model:world-dimensions *model*) :xmin))
   4 (defun max-pxcor () (getf (clnl-model:world-dimensions *model*) :xmax))
   5 (defun min-pycor () (getf (clnl-model:world-dimensions *model*) :ymin))
   6 (defun max-pycor () (getf (clnl-model:world-dimensions *model*) :ymax))