diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-13 08:34:12 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-13 08:34:12 -0500 |
| commit | d3e49dd414963c2b7885a9a45accd116534e764e (patch) | |
| tree | 5ac1b2713eba06db513efa05e9534a99d29ad418 /assets.lisp | |
| parent | 2c5b478327084ae76ba668ac891f8115954d0f12 (diff) | |
aded suit assets
Diffstat (limited to 'assets.lisp')
| -rw-r--r-- | assets.lisp | 15 |
1 files changed, 14 insertions, 1 deletions
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)) |