From e5555db911dbe6394d9ecbd2412bf1da3078ee02 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 6 Jun 2015 20:18:40 -0400 Subject: Fix simple example. --- examples/simple.scm | 27 +++------------------------ 1 file changed, 3 insertions(+), 24 deletions(-) (limited to 'examples') diff --git a/examples/simple.scm b/examples/simple.scm index 7692331..f9b0082 100644 --- a/examples/simple.scm +++ b/examples/simple.scm @@ -19,39 +19,18 @@ (sly window) (sly utils) (sly signal) - (sly math transform) (sly math vector) (sly render camera) (sly render model) (sly render sprite) - (sly render texture) (sly render color) - (sly render framebuffer) - (sly render scene) - (sly render context)) + (sly render scene)) (load "common.scm") -(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)))) + (model-move (vector2 320 240) + (load-sprite "images/p1_front.png"))) (define camera (orthographic-camera 640 480)) -- cgit v1.2.3