summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-09-06 15:29:02 -0400
committerDavid Thompson <dthompson2@worcester.edu>2014-09-06 15:29:02 -0400
commit2d65655755d51353e516bbe7aace0669d1395d6c (patch)
tree15ce355cdbedc92ce1a65701275fac3c13b2e050
parent46b4719e1f86e0b0ab4b1f0c56dc30847208d6c7 (diff)
sandbox: Make it work again.
* sandbox: Fix it.
-rwxr-xr-xsandbox15
1 files changed, 14 insertions, 1 deletions
diff --git a/sandbox b/sandbox
index a8fecc5..1ac994b 100755
--- a/sandbox
+++ b/sandbox
@@ -36,15 +36,28 @@
(sly transform)
(sly vector)
(sly window)
+ (sly scene)
+ (sly camera)
(sly repl))
+(open-window)
(start-sly-repl)
(add-hook! window-close-hook stop-game-loop)
(display "Welcome to the Sly sandbox. Happy hacking!\n")
+(define-signal simple-scene
+ (scene-root
+ (scene-node
+ #:position #(100 100)
+ #:uniforms `(("color" ,white))
+ #:children (list (load-sprite "examples/images/p1_front.png")))))
+
+(define-signal camera
+ (orthographic-camera simple-scene 640 480))
+
(with-window (make-window #:title "Sly Sandbox")
- (start-game-loop))
+ (start-game-loop camera))
(display "Bye!\n")