blob: e9e40f35f76e546f8b5780c6dacb0ac32f321ce2 (
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
(import scheme
(chicken base)
(only srfi-1 iota map)
(prefix sdl2 "sdl2:")
(prefix sdl2-ttf "ttf:")
(prefix sdl2-image "img:")
downstroke-engine
downstroke-world
downstroke-tilemap
downstroke-renderer
downstroke-physics
downstroke-entity
downstroke-tween
downstroke-scene-loader)
;; One row per easing symbol: #(entity tween left-x right-x ease-sym to-right?)
(define *ease-cells* #f)
(define *knock-ent* #f)
(define *knock-tw* #f)
(define *knock-cd* 0)
(define +knock-skip+
'(jump acceleration gravity velocity-x velocity-y))
(define *ease-syms*
'(linear quad-in quad-out quad-in-out cubic-in cubic-out cubic-in-out
sine-in-out expo-in expo-out expo-in-out back-out))
(define *label-font* #f)
(define *title-font* #f)
(define +tile-ids+ '#(24 73 122 171 220))
(define (make-ease-cell ease-sym y tile-id)
(let* ((left 20)
(right (+ left 120))
(ent (list #:type 'tween-demo #:x left #:y y #:width 14 #:height 14
#:vx 0 #:vy 0 #:gravity? #f #:solid? #f #:tile-id tile-id))
(tw (make-tween ent props: `((#:x . ,right)) duration: 2600 ease: ease-sym)))
(vector ent tw left right ease-sym #t)))
(define (advance-ease-cell! cell dt)
(let ((ent (vector-ref cell 0))
(tw (vector-ref cell 1))
(left (vector-ref cell 2))
(right (vector-ref cell 3))
(ease (vector-ref cell 4))
(to-right? (vector-ref cell 5)))
(receive (tw2 ent2) (tween-step tw ent dt)
(vector-set! cell 0 ent2)
(cond ((tween-finished? tw2)
(let* ((next-to-right? (not to-right?))
(target-x (if next-to-right? right left))
(tw3 (make-tween ent2 props: `((#:x . ,target-x))
duration: 2600 ease: ease)))
(vector-set! cell 1 tw3)
(vector-set! cell 5 next-to-right?)))
(else (vector-set! cell 1 tw2))))))
(define (update-knockback! dt tm)
(set! *knock-cd* (+ *knock-cd* dt))
(when (and *knock-ent* (not *knock-tw*) (>= *knock-cd* 3200))
(set! *knock-cd* 0)
(let ((x (entity-ref *knock-ent* #:x 0)))
(set! *knock-ent* (entity-set *knock-ent* #:skip-pipelines +knock-skip+))
(set! *knock-tw* (make-tween *knock-ent*
props: `((#:x . ,(+ x 88)))
duration: 650
ease: 'back-out
on-complete: (lambda (e)
(set! *knock-ent* (entity-set e #:skip-pipelines '())))))))
(when *knock-tw*
(receive (t2 e2) (tween-step *knock-tw* *knock-ent* dt)
(set! *knock-tw* (if (tween-finished? t2) #f t2))
(set! *knock-ent* e2)))
(when *knock-ent*
(set! *knock-ent*
(let* ((e *knock-ent*)
(e (apply-jump e #f))
(e (apply-acceleration e))
(e (apply-gravity e))
(e (apply-velocity-x e))
(e (resolve-tile-collisions-x e tm))
(e (apply-velocity-y e))
(e (resolve-tile-collisions-y e tm))
(e (detect-ground e tm)))
e))))
(define (tweens-demo-render-labels! renderer)
(let ((white (sdl2:make-color 255 255 255 255)))
(draw-ui-text renderer *title-font*
"Tween demo — easing rows + knockback / skip-pipelines" white 12 6)
(draw-ui-text renderer *label-font*
"Each box loops on X; bottom crate tweens right with physics integration skipped, tiles still collide."
white 12 32)
(do ((i 0 (+ i 1))) ((>= i (vector-length *ease-cells*)))
(let* ((cell (vector-ref *ease-cells* i))
(ent (vector-ref cell 0))
(lab (symbol->string (vector-ref cell 4))))
(draw-ui-text renderer *label-font* lab white 158 (- (entity-ref ent #:y 0) 2))))))
(define *game*
(make-game
title: "Demo: Tweens" width: 640 height: 480
preload: (lambda (_game)
(set! *title-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 22))
(set! *label-font* (ttf:open-font "demo/assets/DejaVuSans.ttf" 13)))
create: (lambda (game)
(let ((scene (game-load-scene! game "demo/assets/level-0.tmx")))
(set! *ease-cells*
(list->vector
(map (lambda (ease i)
(make-ease-cell ease (+ 52 (* i 20))
(vector-ref +tile-ids+ (modulo i (vector-length +tile-ids+)))))
*ease-syms*
(iota (length *ease-syms*)))))
(set! *knock-ent*
(list #:type 'knock-crate #:x 200 #:y 80 #:width 18 #:height 18
#:vx 0 #:vy 0 #:gravity? #t #:on-ground? #f #:solid? #f #:tile-id 220))
(set! *knock-tw* #f)
(set! *knock-cd* 2500)
(scene-entities-set! scene
(append (map (lambda (i) (vector-ref (vector-ref *ease-cells* i) 0))
(iota (vector-length *ease-cells*)))
(list *knock-ent*)))))
update: (lambda (game dt)
(let* ((scene (game-scene game)) (tm (scene-tilemap scene)))
(do ((i 0 (+ i 1))) ((>= i (vector-length *ease-cells*)))
(advance-ease-cell! (vector-ref *ease-cells* i) dt))
(update-knockback! dt tm)
(scene-entities-set! scene
(append (map (lambda (i) (vector-ref (vector-ref *ease-cells* i) 0))
(iota (vector-length *ease-cells*)))
(list *knock-ent*)))))
render: (lambda (game)
(tweens-demo-render-labels! (game-renderer game)))))
(game-run! *game*)
|
