X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fmodel.lisp;h=5e0dde7bf806531009e9ce2e170d7ba01da63878;hp=022a658625af2db43e384fb9c797db9e33a50e26;hb=0d6408c2ba880e77c422c1d1b022b3046c9c0a24;hpb=92fae8cd60b7c5a66098d6e6044803c4a8a8c17a

diff --git a/src/main/model.lisp b/src/main/model.lisp
index 022a658..5e0dde7 100644
--- a/src/main/model.lisp
+++ b/src/main/model.lisp
@@ -29,7 +29,7 @@ DESCRIPTION:
  (make-model
   :code ""
   :interface (list
-              (make-view :min-pxcor -5 :max-pxcor 5 :min-pycor -5 :max-pycor 5))))
+              (make-view :min-pxcor -5 :max-pxcor 5 :min-pycor -5 :max-pycor 5 :patch-size 13d0))))
 
 (defun read-from-nlogo (str)
  "READ-FROM-NLOGO STR => MODEL
@@ -221,7 +221,8 @@ DESCRIPTION:
    :xmin (view-min-pxcor view)
    :xmax (view-max-pxcor view)
    :ymin (view-min-pycor view)
-   :ymax (view-max-pycor view))))
+   :ymax (view-max-pycor view)
+   :patch-size (view-patch-size view))))
 
 (defun widget-globals (model)
  "WIDGET-GLOBALS MODEL => GLOBALS