From c85f71217c22ef26ff7a02d47bf31a175764fd55 Mon Sep 17 00:00:00 2001 From: Boutade Date: Fri, 11 Oct 2019 08:47:42 -0500 Subject: added nance assets --- assets.lisp | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 assets.lisp (limited to 'assets.lisp') diff --git a/assets.lisp b/assets.lisp new file mode 100644 index 0000000..0adf417 --- /dev/null +++ b/assets.lisp @@ -0,0 +1,21 @@ + +(in-package #:the-price-of-a-cup-of-coffee) + + +(defparameter +nance-sheet-image+ "assets/Nance.png") + +(defparameter +nance-tiles+ + '((:NAME "Back" :X 256 :Y 128 :WIDTH 64 :HEIGHT 128) + (:NAME "Front" :X 320 :Y 0 :WIDTH 64 :HEIGHT 128) + (:NAME "ProfileLeft" :X 192 :Y 128 :PATH :WIDTH 64 :HEIGHT 128) + (:NAME "ProfileRight" :X 256 :Y 0 :PATH :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))) + + -- cgit v1.2.3