diff options
author | David Thompson <davet@gnu.org> | 2015-06-06 20:18:40 -0400 |
---|---|---|
committer | David Thompson <davet@gnu.org> | 2015-06-06 20:18:40 -0400 |
commit | e5555db911dbe6394d9ecbd2412bf1da3078ee02 (patch) | |
tree | 748ee26b60dccc6b06d1022f4db1cdaeefb6afda /examples | |
parent | 57046b0ba98a789fa547ccf56df60458a98e1330 (diff) |
Fix simple example.
Diffstat (limited to 'examples')
-rw-r--r-- | examples/simple.scm | 27 |
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)) |