From d3e49dd414963c2b7885a9a45accd116534e764e Mon Sep 17 00:00:00 2001
From: Boutade <thegoofist@protonmail.com>
Date: Sun, 13 Oct 2019 08:34:12 -0500
Subject: aded suit assets

---
 assets.lisp                       |  15 ++++++++++++++-
 assets/Suit.png                   | Bin 0 -> 162505 bytes
 the-price-of-a-cup-of-coffee.lisp |  19 ++++++++++---------
 3 files changed, 24 insertions(+), 10 deletions(-)
 create mode 100644 assets/Suit.png

diff --git a/assets.lisp b/assets.lisp
index 64080a6..b57ace6 100644
--- a/assets.lisp
+++ b/assets.lisp
@@ -55,7 +55,20 @@
     (:NAME "WalkRight1" :X 64 :Y 0  :WIDTH 64 :HEIGHT 128)
     (:NAME "WalkRight2" :X 0 :Y 0  :WIDTH 64 :HEIGHT 128)))
 
+(defparameter +suit-sheet-image+ "assets/Suit.png")
 
-
+(defvar *suit-tile-defs*
+  '((:NAME "Back" :X 256 :Y 128  :WIDTH 64 :HEIGHT 128)
+    (:NAME "Front" :X 320 :Y 0  :WIDTH 64 :HEIGHT 128)
+    (:NAME "LeftProfile" :X 192 :Y 128  :WIDTH 64 :HEIGHT 128)
+    (:NAME "RightProfile" :X 256 :Y 0  :WIDTH 64 :HEIGHT 128)
+    (:NAME "WalkBack1" :X 64 :Y 128  :WIDTH 64 :HEIGHT 128)
+    (:NAME "WalkBack2" :X 128 :Y 128  :WIDTH 64 :HEIGHT 128)
+    (:NAME "WalkForward1" :X 0 :Y 256  :WIDTH 64 :HEIGHT 128)
+    (:NAME "WalkForward2" :X 192 :Y 0  :WIDTH 64 :HEIGHT 128)
+    (:NAME "WalkLeft1" :X 128 :Y 0  :WIDTH 64 :HEIGHT 128)
+    (:NAME "WalkLeft2" :X 0 :Y 128  :WIDTH 64 :HEIGHT 128)
+    (:NAME "WalkRight1" :X 64 :Y 0  :WIDTH 64 :HEIGHT 128)
+    (:NAME "WalkRight2" :X 0 :Y 0  :WIDTH 64 :HEIGHT 128)) 
 
 
diff --git a/assets/Suit.png b/assets/Suit.png
new file mode 100644
index 0000000..cd585ed
Binary files /dev/null and b/assets/Suit.png differ
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp
index 8f0b7e5..e30cc15 100644
--- a/the-price-of-a-cup-of-coffee.lisp
+++ b/the-price-of-a-cup-of-coffee.lisp
@@ -34,14 +34,6 @@
   (setf *human-frame-pause* (/ 1000 n)))
 
 
-(def-normal-class pedestrian (human)
-  (comfort-rad 60)
-  (react-per-sec 1)
-  (anger 0.1)
-  (kindness 0.02)
-  (generosity 0.25)
-  (vulnerability 3))
-
 
 (defmethod update ((human human) ticks)
   (with-slots (frame next-frame-at faces face walk-vec pos) human
@@ -69,6 +61,16 @@
   (relax-rate 1))
 
 
+(def-normal-class pedestrian (human)
+  (comfort-rad 60)
+  (react-per-sec 1)
+  (anger 0.1)
+  (kindness 0.02)
+  (generosity 0.25)
+  (vulnerability 3))
+
+
+
 (defvar *nance* nil)
 
 (defun boot-up (renderer)
@@ -91,7 +93,6 @@
       (play-track *looking-up-track*))
   (print "Action"))
 
-
 (defun walking-face (dir)
   (case dir
     (:left :walking-left)
-- 
cgit v1.2.3