From 2d65655755d51353e516bbe7aace0669d1395d6c Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 6 Sep 2014 15:29:02 -0400
Subject: sandbox: Make it work again.

* sandbox: Fix it.
---
 sandbox | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'sandbox')

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")
-- 
cgit v1.2.3