From 57046b0ba98a789fa547ccf56df60458a98e1330 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 6 Jun 2015 20:13:42 -0400 Subject: Update examples to use new interfaces. --- examples/simple.scm | 35 +++++++++++++++++++++++++++++------ 1 file changed, 29 insertions(+), 6 deletions(-) (limited to 'examples/simple.scm') diff --git a/examples/simple.scm b/examples/simple.scm index 820a3ce..7692331 100644 --- a/examples/simple.scm +++ b/examples/simple.scm @@ -18,24 +18,47 @@ (use-modules (sly game) (sly window) (sly utils) + (sly signal) + (sly math transform) (sly math vector) (sly render camera) (sly render model) (sly render sprite) - (sly render color)) + (sly render texture) + (sly render color) + (sly render framebuffer) + (sly render scene) + (sly render context)) (load "common.scm") -(define scene - (model-move (vector2 320 240) - (load-sprite "images/p1_front.png"))) +(define s (load-sprite "images/p1_front.png")) + +(define bg (load-sprite "images/lava.png")) + +(define fb (make-framebuffer 320 240)) + +(define base-model + (model-move (vector2 160 120) s)) + +(define base-camera + (orthographic-camera 320 240)) + +(define base-scene + (scene base-camera base-model fb)) + +(define model + (model-group (model-move (vector2 320 240) bg) + (chain (scene->sprite base-scene) + (model-move (vector2 320 240)) + (model-scale 2)))) (define camera (orthographic-camera 640 480)) -(add-hook! draw-hook (lambda _ (draw-model scene camera))) +(define-signal scene (make-scene camera model)) (with-window (make-window #:title "Simple Sprite Demo") - (start-game-loop)) + (start-game-loop scene)) ;;; Local Variables: ;;; compile-command: "../pre-inst-env guile simple.scm" -- cgit v1.2.3