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  (cond
  18   ((eql agent-set :turtles) *turtles*)
  19   ((eql agent-set :patches) *patches*)
  20   ((and (listp agent-set) (eql :agent-set (car agent-set))) (cdr agent-set))
  21   (t (error "Doesn't seem to be an agent-set: ~A" agent-set))))
  22
  23 (defun agent-set-p (o)
  24  (or
  25   (eql o :turtles)
  26   (eql o :patches)
  27   (and (listp o) (eql :agent-set (car o)))))
  28
  29 (defun agent-p (o)
  30  (or (turtle-p o) (patch-p o)))