blob: 37d05d3eba7bb58e808e88070338376311371771 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
;;;; assets.lisp
(in-package #:the-price-of-a-cup-of-coffee)
;;; Utility Functions
(defun make-source-rects (tile-defs)
"Accepts a TILE-DEFS list and adds an SDL2:RECT instance to each keyed to :RECT"
(mapcar
(lambda (tl)
(list* :rect
(sdl2:make-rect (getf tl :x)
(getf tl :y)
(getf tl :width)
(getf tl :height))
tl))
tile-defs))
(defun find-tile-rect (tile-defs name)
"Return the rect for the tile with NAME in TILE-DEFS list."
(let-when (tl (find name tile-defs
:key (lambda (tl) (getf tl :name))
:test #'string-equal))
(getf tl :rect)))
(defun select-tile-rects (tile-defs &rest names)
(map 'vector ($ #'find-tile-rect tile-defs _) names))
(defun create-sprite-faces (defs)
(list :facing-down (select-tile-rects defs "front")
:walking-down (select-tile-rects defs "front" "walkforward1" "front" "walkforward2")
:facing-up (select-tile-rects defs "back")
:walking-up (select-tile-rects defs "back" "walkback1" "back" "walkback2")
:facing-left (select-tile-rects defs "profileleft")
:walking-left (select-tile-rects defs "profileleft" "walkleft1" "profileleft" "walkleft2")
:facing-right (select-tile-rects defs "profileright")
:walking-right (select-tile-rects defs "profileright" "walkright1" "profileright" "walkright1")))
;;; Nance Assets
(defparameter +nance-sheet-image+ "assets/Nance.png")
(defvar *nance-tile-defs*
'((: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 :WIDTH 64 :HEIGHT 128)
(:NAME "ProfileRight" :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)))
|
