From da1f0449e981b64b58735b0289a59ce5f4a7f433 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 22 Sep 2014 18:28:24 -0400 Subject: examples: Update simple example. * examples/simple.scm: Update. --- examples/simple.scm | 30 ++++++++++++++++++++++++------ 1 file changed, 24 insertions(+), 6 deletions(-) diff --git a/examples/simple.scm b/examples/simple.scm index 6fece03..09554d3 100644 --- a/examples/simple.scm +++ b/examples/simple.scm @@ -15,17 +15,35 @@ ;;; along with this program. If not, see ;;; . -(use-modules (sly game) +(use-modules (sly camera) + (sly game) + (sly rect) + (sly scene) (sly sprite) + (sly transform) (sly vector) - (sly window)) + (sly window) + (sly color)) (load "common.scm") -(define sprite (load-sprite "images/p1_front.png" - #:position #(320 240))) +(define scene + (scene-root + (scene-node + (position #(320 240)) + (uniforms `(("color" ,white))) + (children + (list (load-sprite "images/p1_front.png")))))) -(add-hook! draw-hook (lambda (dt alpha) (draw-sprite sprite))) +(define camera + (make-camera scene + identity-transform + (orthographic-projection 0 640 0 480 0 1) + (make-rect 0 0 640 480))) (with-window (make-window #:title "Simple Sprite Demo") - (start-game-loop)) + (start-game-loop camera)) + +;;; Local Variables: +;;; compile-command: "../pre-inst-env guile simple.scm" +;;; End: -- cgit v1.2.3