1 (in-package #:clnl-nvm)
3 (defun clear-patches ()
7 :for y :from (max-pycor) :downto (min-pycor)
9 :for x :from (min-pxcor) :to (max-pxcor)
11 :xcor (coerce x 'double-float)
12 :ycor (coerce y 'double-float)
15 (defun clear-turtles ()
17 (setf *current-id* 0))
22 (defcommand clear-all ()
29 Clears ticks, turtles, patches, globals (unimplemented).
31 See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#clear-all"
36 (defcommand display ()
43 As of yet, this does nothing. A placeholder method for forced dipslay
44 updates from the engine.
46 See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#display"
49 (defcommand reset-ticks ()
50 "RESET-TICKS => RESULT
56 Resets the tick counter to zero, sets up all plots, then updates all plots.
58 See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#reset-ticks"
62 "RESET-TICKS => RESULT
68 Advances the tick counter by one and updates all plots.
70 If the tick counter has not been started yet with reset-ticks, an error results.
72 See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#tick"
74 (when (not *ticks*) (error "reset-ticks must be called"))
78 "TICKS => CURRENT-TICKS
82 CURRENT-TICKS: A positiv double, representing the current number of ticks
86 Reports the current value of the tick counter. The result is always a number and never negative.
88 If the tick counter has not been started yet with reset-ticks, an error results.
90 See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#ticks"
91 (when (not *ticks*) (error "reset-ticks must be called"))