diff options
author | David Thompson <dthompson2@worcester.edu> | 2014-01-20 21:10:57 -0500 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2014-01-20 21:10:57 -0500 |
commit | 7c540f61a710847fd59033d3d2ee1dfc6364b928 (patch) | |
tree | acb4a04c277a72b81809e1779afeea3769cda914 /examples/action.scm | |
parent | 5b81b48d3055a5be364cf3aa1a2b786c2daf65ab (diff) |
Remove obsolete examples.
Diffstat (limited to 'examples/action.scm')
-rw-r--r-- | examples/action.scm | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/examples/action.scm b/examples/action.scm deleted file mode 100644 index b2a43b6..0000000 --- a/examples/action.scm +++ /dev/null @@ -1,39 +0,0 @@ -(use-modules (2d actions) - (2d agenda) - (2d coroutine) - (2d game) - (2d scene) - (2d sprite) - (2d stage) - (2d vector2)) - -(define (enter sprite) - (let ((size (game-resolution actions-demo))) - (schedule-action - (action-parallel - ;; Move horizontally across the screen in 60 frames. - (lerp (lambda (x) - (set-sprite-position! - sprite - (vector2 x (/ (vy size) 2)))) - 0 (vx size) 60) - ;; Rotate 1080 degrees in 120 frames. - (lerp (lambda (angle) - (set-sprite-rotation! sprite angle)) - 0 360 120))))) - -(define actions-scene - (make-scene - "Actions" - #:init (lambda () - (load-sprite "images/ghost.png" - #:position (vector2 320 240))) - #:enter enter - #:draw draw-sprite)) - -(define actions-demo - (make-game - #:title "Actions" - #:first-scene actions-scene)) - -(run-game actions-demo) |