; This is the engine. Yay.
+(defvar *current-id* 0)
+
+(defstruct turtle who color heading xcor ycor)
+(defvar *turtles* nil)
+(defvar *myself* nil)
+(defvar *self* nil)
+
+(defun show (n)
+ (format t "Showing: ~A~%" (dump-object n)))
+
+(defun create-turtle ()
+ (push
+ (make-turtle :who *current-id*
+ :color (coerce (+ 5 (* 10 (cl-nl.random:next-int 14))) 'double-float)
+ :heading (coerce (cl-nl.random:next-int 360) 'double-float)
+ :xcor 0d0
+ :ycor 0d0)
+ *turtles*)
+ (incf *current-id*))
+
+(defun turtles () *turtles*)
+
+(defun ask (agent-set fn)
+ (mapcar
+ (lambda (agent)
+ (let
+ ((*myself* *self*)
+ (*self* agent))
+ (funcall fn)))
+ (shuffle agent-set)))
+
+(defun shuffle (agent-set)
+ (let
+ ((copy (copy-list agent-set)))
+ (append
+ (loop for i to (- (length copy) 2)
+ for idx = (+ i (cl-nl.random:next-int (- (length copy) i)))
+ for next = (nth idx copy)
+ do (setf (nth idx copy) (nth i copy))
+ collect next)
+ (last copy))))
+
+(defun random-float (n)
+ (cl-nl.random:next-double n))
+
+(defun fd (n)
+ (when (not (turtle-p *self*)) (error "Gotta call fd in turtle scope, dude"))
+ (setf (turtle-xcor *self*) (+ (turtle-xcor *self*) (sin (* pi (/ (turtle-heading *self*) 180)))))
+ (setf (turtle-ycor *self*) (+ (turtle-ycor *self*) (cos (* pi (/ (turtle-heading *self*) 180))))))
+
(defun create-turtles (n)
- (format t "HELLO WORLD ~A~%" n))
+ (loop for i from 1 to n do (create-turtle)))
+
+(defun create-world ()
+ (setf *turtles* nil)
+ (setf *current-id* 0))
+
+(defgeneric dump-object (o))
+(defmethod dump-object ((n double-float))
+ (multiple-value-bind (int rem) (floor n)
+ (if (eql 0d0 rem)
+ (format nil "~A" int)
+ (format nil "~F" n))))
+(defmethod dump-object ((o string)) o)
(defun export-world ()
(format nil "~{~A~%~}"
""
(format nil "~S" "GLOBALS")
"\"min-pxcor\",\"max-pxcor\",\"min-pycor\",\"max-pycor\",\"perspective\",\"subject\",\"nextIndex\",\"directed-links\",\"ticks\","
- "\"-1\",\"1\",\"-1\",\"1\",\"0\",\"nobody\",\"0\",\"\"\"NEITHER\"\"\",\"-1\""
+ (format nil "\"-1\",\"1\",\"-1\",\"1\",\"0\",\"nobody\",\"~A\",\"\"\"NEITHER\"\"\",\"-1\"" *current-id*)
""
(format nil "~S" "TURTLES")
"\"who\",\"color\",\"heading\",\"xcor\",\"ycor\",\"shape\",\"label\",\"label-color\",\"breed\",\"hidden?\",\"size\",\"pen-size\",\"pen-mode\""
- ""
+ (format nil "~{~A~%~}"
+ (mapcar
+ (lambda (turtle)
+ (format nil
+ "\"~A\",\"~A\",\"~A\",\"~A\",\"~A\",\"\"\"default\"\"\",\"\"\"\"\"\",\"9.9\",\"{all-turtles}\",\"false\",\"1\",\"1\",\"\"\"up\"\"\""
+ (turtle-who turtle)
+ (dump-object (turtle-color turtle))
+ (dump-object (turtle-heading turtle))
+ (dump-object (turtle-xcor turtle))
+ (dump-object (turtle-ycor turtle))
+ ))
+ (reverse *turtles*)))
(format nil "~S" "PATCHES")
"\"pxcor\",\"pycor\",\"pcolor\",\"plabel\",\"plabel-color\""
"\"-1\",\"1\",\"0\",\"\"\"\"\"\",\"9.9\""