X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fnvm%2Futils.lisp;h=22242f5f2f285fda1e2dd834546251ae90efb291;hp=06941f562ecc3bfb85b12ee2ad0d27253b88772d;hb=81d51af;hpb=75a961089cba4b6aa4a3e947616ee4026ec3b057 diff --git a/src/main/nvm/utils.lisp b/src/main/nvm/utils.lisp index 06941f5..22242f5 100644 --- a/src/main/nvm/utils.lisp +++ b/src/main/nvm/utils.lisp @@ -1,6 +1,6 @@ (in-package #:clnl-nvm) -(defun min-pxcor () (getf (clnl-model:world-dimensions *model*) :xmin)) -(defun max-pxcor () (getf (clnl-model:world-dimensions *model*) :xmax)) -(defun min-pycor () (getf (clnl-model:world-dimensions *model*) :ymin)) -(defun max-pycor () (getf (clnl-model:world-dimensions *model*) :ymax)) +(defun min-pxcor () (getf *dimensions* :xmin)) +(defun max-pxcor () (getf *dimensions* :xmax)) +(defun min-pycor () (getf *dimensions* :ymin)) +(defun max-pycor () (getf *dimensions* :ymax))