code.consxy.com Git - clnl/blob - src/main/nvm.lisp

   1 (in-package #:cl-nl.nvm)
   2
   3 ; This is the engine.  Yay.
   4
   5 (defun create-turtles (n)
   6  (format t "HELLO WORLD ~A~%" n))
   7
   8 (defun export-world ()
   9  (format nil "~{~A~%~}"
  10   (list
  11    (format nil "~S" "RANDOM STATE")
  12    (format nil "~S" (cl-nl.random:export))
  13    ""
  14    (format nil "~S" "GLOBALS")
  15    "\"min-pxcor\",\"max-pxcor\",\"min-pycor\",\"max-pycor\",\"perspective\",\"subject\",\"nextIndex\",\"directed-links\",\"ticks\","
  16    "\"-1\",\"1\",\"-1\",\"1\",\"0\",\"nobody\",\"0\",\"\"\"NEITHER\"\"\",\"-1\""
  17    ""
  18    (format nil "~S" "TURTLES")
  19    "\"who\",\"color\",\"heading\",\"xcor\",\"ycor\",\"shape\",\"label\",\"label-color\",\"breed\",\"hidden?\",\"size\",\"pen-size\",\"pen-mode\""
  20    ""
  21    (format nil "~S" "PATCHES")
  22    "\"pxcor\",\"pycor\",\"pcolor\",\"plabel\",\"plabel-color\""
  23    "\"-1\",\"1\",\"0\",\"\"\"\"\"\",\"9.9\""
  24    "\"0\",\"1\",\"0\",\"\"\"\"\"\",\"9.9\""
  25    "\"1\",\"1\",\"0\",\"\"\"\"\"\",\"9.9\""
  26    "\"-1\",\"0\",\"0\",\"\"\"\"\"\",\"9.9\""
  27    "\"0\",\"0\",\"0\",\"\"\"\"\"\",\"9.9\""
  28    "\"1\",\"0\",\"0\",\"\"\"\"\"\",\"9.9\""
  29    "\"-1\",\"-1\",\"0\",\"\"\"\"\"\",\"9.9\""
  30    "\"0\",\"-1\",\"0\",\"\"\"\"\"\",\"9.9\""
  31    "\"1\",\"-1\",\"0\",\"\"\"\"\"\",\"9.9\""
  32    ""
  33    (format nil "~S" "LINKS")
  34    "\"end1\",\"end2\",\"color\",\"label\",\"label-color\",\"hidden?\",\"breed\",\"thickness\",\"shape\",\"tie-mode\""
  35    ""
  36    )))