diff options
author | David Thompson <davet@gnu.org> | 2015-05-14 17:48:29 -0400 |
---|---|---|
committer | David Thompson <davet@gnu.org> | 2015-05-14 17:48:29 -0400 |
commit | 2e070a480bce326eeae5c9486d220ec39cb9ed14 (patch) | |
tree | 5d40baaa806932dd4c426c7cef81b2eb48131672 /sandbox | |
parent | c2d467c6e7539548366c14606569d181abdc1d4b (diff) |
sandbox: Generate script with autoconf.
* sandbox: Delete.
* .gitignore: Ignore it.
* sandbox.in: New file.
* configure.ac: Generate sandbox.
Diffstat (limited to 'sandbox')
-rwxr-xr-x | sandbox | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/sandbox b/sandbox deleted file mode 100755 index 024408b..0000000 --- a/sandbox +++ /dev/null @@ -1,70 +0,0 @@ -#! /usr/bin/guile \ --L . -s -!# - -;;; Sly -;;; 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 Sly module for convenience. -(use-modules (sly audio) - (sly fps) - (sly game) - (sly signal) - (sly window) - (sly repl) - (sly utils) - (sly render color) - (sly render font) - (sly render sprite) - (sly render texture) - (sly render group) - (sly render model) - (sly render camera) - (sly input keyboard) - (sly input mouse) - (sly math rect) - (sly math transform) - (sly math vector)) - -(open-window) -(start-sly-repl) - -(add-hook! window-close-hook stop-game-loop) - -(display "Welcome to the Sly sandbox. Happy hacking!\n") - -(define-signal scene - (group)) - -(define-signal camera - (orthographic-camera 640 480)) - -(define (draw-scene dt alpha) - (signal-let ((scene scene) - (camera camera)) - (draw-group scene camera))) - -(add-hook! draw-hook (trampoline draw-scene)) - -(with-window (make-window #:title "Sly Sandbox") - (start-game-loop)) - -(display "Bye!\n") - -;;; Local Variables: -;;; compile-command: "./pre-inst-env sandbox" -;;; End: |