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))
31 Clears ticks, turtles, patches, globals (unimplemented).
33 See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#clear-all"
47 As of yet, this does nothing. A placeholder method for forced dipslay
48 updates from the engine.
50 See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#display"
54 "RESET-TICKS => RESULT
62 Resets the tick counter to zero, sets up all plots, then updates all plots.
64 See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#reset-ticks"
68 "RESET-TICKS => RESULT
76 Advances the tick counter by one and updates all plots.
78 If the tick counter has not been started yet with reset-ticks, an error results.
80 See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#tick"
82 (when (not *ticks*) (error "reset-ticks must be called"))
86 "TICKS => CURRENT-TICKS
90 CURRENT-TICKS: A positiv double, representing the current number of ticks
94 Reports the current value of the tick counter. The result is always a number and never negative.
96 If the tick counter has not been started yet with reset-ticks, an error results.
98 See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#ticks"
99 (when (not *ticks*) (error "reset-ticks must be called"))