(defun clear-ticks ()
(setf *ticks* nil))
-(defun clear-all ()
+(defcommand clear-all ()
"CLEAR-ALL => RESULT
-ARGUMENTS AND VALUES:
-
- RESULT: undefined
+ RESULT: :undefined
DESCRIPTION:
(clear-patches)
(clear-ticks))
-(defun display ()
+(defcommand display ()
"DISPLAY => RESULT
-ARGUMENTS AND VALUES:
-
- RESULT: undefined
+ RESULT: :undefined
DESCRIPTION:
See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#display"
nil)
-(defun reset-ticks ()
+(defcommand reset-ticks ()
"RESET-TICKS => RESULT
-ARGUMENTS AND VALUES:
-
- RESULT: undefined
+ RESULT: :undefined
DESCRIPTION:
See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#reset-ticks"
(setf *ticks* 0d0))
-(defun tick ()
+(defcommand tick ()
"RESET-TICKS => RESULT
-ARGUMENTS AND VALUES:
-
- RESULT: undefined
+ RESULT: :undefined
DESCRIPTION: