code.consxy.com Git - clnl/blob - 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 (label "") (label-color 9.9d0) (size 1d0))
  14 (defstruct patch color xcor ycor)
  15
  16 (defun agent-set-list (agent-set)
  17  agent-set)