projects
/
clnl
/ blob
5865d66e0e325b4f12369d5d45e89a2e2004b632
[clnl]
/
src
/
main
/
nvm
/
base.lisp
1
(in-package #:clnl-nvm)
2
3
(defvar *current-id* 0)
4
5
(defvar *turtles* nil)
6
(defvar *patches* nil)
7
(defvar *myself* nil)
8
(defvar *self* nil)
9
(defvar *dimensions* nil)
10
(defvar *topology* :torus)
11
(defvar *ticks* nil)
12
13
(defstruct turtle who color heading xcor ycor)
14
(defstruct patch color xcor ycor)