summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <davet@gnu.org>2015-06-06 20:18:40 -0400
committerDavid Thompson <davet@gnu.org>2015-06-06 20:18:40 -0400
commite5555db911dbe6394d9ecbd2412bf1da3078ee02 (patch)
tree748ee26b60dccc6b06d1022f4db1cdaeefb6afda
parent57046b0ba98a789fa547ccf56df60458a98e1330 (diff)
Fix simple example.
-rw-r--r--examples/simple.scm27
1 files changed, 3 insertions, 24 deletions
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))