From 5523027f6369e9ec3f990144e8ef2cd4f243476e Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 10 Jan 2014 07:45:41 -0500 Subject: Update some of the example programs to use the new API. * 2d/examples/common.scm: New file. * 2d/examples/coroutine.scm: Updated. * 2d/examples/font.scm: Updated. * 2d/examples/simple.scm: Updated. * 2d/examples/tilemap.scm: Updated. --- examples/simple.scm | 23 ++++++++--------------- 1 file changed, 8 insertions(+), 15 deletions(-) (limited to 'examples/simple.scm') diff --git a/examples/simple.scm b/examples/simple.scm index 04711a5..d00a7d0 100644 --- a/examples/simple.scm +++ b/examples/simple.scm @@ -1,21 +1,14 @@ (use-modules (2d game) - (2d scene) (2d sprite) - (2d vector2)) + (2d vector2) + (2d window)) -(define (make-demo-sprite) - (load-sprite "images/ghost.png" - #:position (vector2 320 240))) +(load "common.scm") -(define simple-scene - (make-scene - "Simple" - #:init make-demo-sprite - #:draw draw-sprite)) +(define sprite (load-sprite "images/p1_front.png" + #:position (vector2 320 240))) -(define simple-demo - (make-game - #:title "Simple Demo" - #:first-scene simple-scene)) +(add-hook! draw-hook (lambda (dt alpha) (draw-sprite sprite))) -(run-game simple-demo) +(with-window (make-window #:title "Simple Sprite Demo") + (run-game-loop)) -- cgit v1.2.3