summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-03-08 19:43:32 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-03-08 19:43:32 -0500
commit443a2425f6a943918c9cd128fc076c4f616d68e0 (patch)
treeeeee54d2fd3cfe8beed4e8f5c4e1c9fa0f3b0f34
parent5632303683c4e3c30274134d6f917483524d7b66 (diff)
Add developer sandbox script.
* sandbox: New file.
-rwxr-xr-xsandbox48
1 files changed, 48 insertions, 0 deletions
diff --git a/sandbox b/sandbox
new file mode 100755
index 0000000..f0daf68
--- /dev/null
+++ b/sandbox
@@ -0,0 +1,48 @@
+#! /usr/bin/guile \
+-L . -s
+!#
+
+;;; guile-2d
+;;; Copyright (C) 2014 David Thompson <dthompson2@worcester.edu>
+;;;
+;;; This program is free software: you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation, either version 3 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program. If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+;; Include almost every guile-2d module for convenience.
+(use-modules (2d agenda)
+ (2d audio)
+ (2d color)
+ (2d coroutine)
+ (2d font)
+ (2d fps)
+ (2d game)
+ (2d keyboard)
+ (2d mouse)
+ (2d rect)
+ (2d signal)
+ (2d sprite)
+ (2d texture)
+ (2d transform)
+ (2d vector2)
+ (2d window)
+ (2d repl))
+
+(display "Welcome to the guile-2d sandbox. Happy hacking!\n")
+
+(add-hook! window-close-hook quit-game)
+
+(with-window (make-window #:title "Guile-2D Sandbox")
+ (run-game-loop))
+
+(display "Bye!\n")