41 lines
1.2 KiB
Scheme
41 lines
1.2 KiB
Scheme
(use-modules (tsukundere)
|
|
(sdl2)
|
|
(sdl2 ttf)
|
|
(ice-9 match)
|
|
(srfi srfi-26)
|
|
(tsukundere animation))
|
|
|
|
(define (load)
|
|
(let* ((scene
|
|
(make-scene '(background loaders)))
|
|
(paper (load-image "paper.png"))
|
|
(frames (map
|
|
(compose load-image
|
|
(cute string-append
|
|
"animation/" <> ".png")
|
|
number->string)
|
|
(iota 8)))
|
|
(animation-looping
|
|
(make-animation (s32vector 100 100) frames 1000))
|
|
(animation-boing
|
|
(make-animation (s32vector 100 200) frames 1000 #:loop 'rewind))
|
|
(animation-stop
|
|
(make-animation (s32vector 200 100) frames 8000 #:loop #f))
|
|
(animation-looping-slow
|
|
(make-animation (s32vector 200 200) frames 4000 #:loop #t)))
|
|
(map (cute scene-add-object! scene 'loaders <>)
|
|
(list animation-looping animation-boing
|
|
animation-stop animation-looping-slow))
|
|
(init-script!
|
|
(lambda ()
|
|
(script
|
|
(background paper)
|
|
(pause)))
|
|
scene)))
|
|
|
|
(run-game
|
|
#:game-name ".tsukundere-example-buttons"
|
|
#:window-width 400
|
|
#:window-height 400
|
|
#:init! load)
|