From 443a2425f6a943918c9cd128fc076c4f616d68e0 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 8 Mar 2014 19:43:32 -0500 Subject: Add developer sandbox script. * sandbox: New file. --- sandbox | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100755 sandbox (limited to 'sandbox') 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 +;;; +;;; 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 +;;; . + +;; 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") -- cgit v1.2.3