Add animations.

This commit is contained in:
David Thompson 2024-05-25 06:52:59 -04:00
parent 6896b49848
commit faf4fa7124
5 changed files with 128 additions and 21 deletions

View file

@ -1,5 +1,6 @@
(define-module (game effects)
#:use-module (dom canvas)
#:use-module (game time)
#:use-module (ice-9 match)
#:use-module (math)
#:use-module (srfi srfi-9)
@ -24,9 +25,6 @@
(define (ease:linear t) t)
(define (current-time*)
(/ (exact->inexact (current-jiffy)) (jiffies-per-second)))
(define-record-type <effect>
(%make-effect type draw ease duration start)
effect?