Add animations.
This commit is contained in:
parent
6896b49848
commit
faf4fa7124
5 changed files with 128 additions and 21 deletions
|
@ -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?
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue