From e264b9febc1bf036c54110b21a346bcfcf01f75e Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Sat, 2 Jul 2022 06:47:38 -0500
Subject: [doc] docstrings added to sprite example. [modified] fps of same

---
 examples/06-sprite.lisp | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

(limited to 'examples')

diff --git a/examples/06-sprite.lisp b/examples/06-sprite.lisp
index 8b6380a..1eade58 100644
--- a/examples/06-sprite.lisp
+++ b/examples/06-sprite.lisp
@@ -10,18 +10,20 @@
 (defclass dude (ww::sprite)
   ((walkingp :accessor walkingp :initform nil)))
 
-
 (defun set-key-if-not (sprite key )
+  "Sets the frameey for sprite if that key is not already set. Also
+sets the frameset's RUNNINGP to T if it is not already."
   (unless (eql key (ww::frameset-key sprite))
     (setf (ww::runningp (ww::current-frameset sprite)) nil)
     (setf (ww::frameset-key sprite) key))
   (unless (ww::runningp (ww::current-frameset sprite)) 
     (setf (ww::runningp (ww::current-frameset sprite)) t)))
 
-(define-symbol-macro +walking-speed+ 10)
+(define-symbol-macro +walking-speed+ 5)
 
 (ww::defhandler move-by-face
     (ww::on-perframe (sprite)
+      "When the sprite is walking, adjust its position."
       (when (walkingp sprite) 
         (case (ww::frameset-key sprite)
           (:left
@@ -35,6 +37,7 @@
 
 (ww::defhandler move-dude
     (ww::on-keydown (target scancode)
+      "Set sprite to walking and set the frameset appropriate to its direction."
       (setf (walkingp target) t)
       (case scancode
         (:scancode-left
@@ -48,6 +51,8 @@
 
 (ww::defhandler stand
     (ww::on-keyup (target)
+      "Stop the sprite from walking, and stop its current frameset
+       from animating, setting its frame to the standing position."
       (setf (walkingp target) nil)
       (let ((current
               (ww::current-frameset target)))
@@ -58,9 +63,9 @@
 (defmethod ww::boot ((app sprite-example))
   (let* ((front
            (ww::make-frameset
-            '("dude/Front_Stand.png"
+            '("dude/Front_Stand.png"   ; this is the order in which frames will render
               "dude/Front_Left.png"
-              "dude/Front_Stand.png"
+              "dude/Front_Stand.png"   ; reusing assets does not add them twice
               "dude/Front_Right.png")
             :fps 3))
          (back
@@ -87,11 +92,11 @@
          (dude
            (make-instance
             'dude
-            :framesets (list :front front
-                             :back back
+            :framesets (list :front front            ; a sprite has many framesets
+                             :back back              ; and are kept in a plist 
                              :left left
                              :right right)
-            :frameset-key :front)))
+            :frameset-key :front)))                  ; initial frameset to use
 
     (setf (ww::runningp (ww::current-frameset dude)) nil)
     (ww::add-handler dude #'move-by-face )
@@ -103,7 +108,7 @@
 (defun start ()
   (ww::start (make-instance
               'sprite-example
-              :fps 30
+              :fps 60
               :width 800
               :height 600
               :title "Wheelwork Example: An Animated Sprite"
-- 
cgit v1.2.3