summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/2048/2048.scm (renamed from examples/2048/2048)13
-rw-r--r--examples/Makefile.am2
2 files changed, 5 insertions, 10 deletions
diff --git a/examples/2048/2048 b/examples/2048/2048.scm
index 8d0c134..73cb5f6 100755
--- a/examples/2048/2048
+++ b/examples/2048/2048.scm
@@ -1,6 +1,3 @@
-#! /usr/bin/env guile
-!#
-
;;; 2048
;;; Copyright (C) 2014 David Thompson <dthompson2@worcester.edu>
;;; Copyright (C) 2014 Jordan Russell <jordan.likes.curry@gmail.com>
@@ -439,11 +436,9 @@
#:viewport (make-viewport (make-rect 0 0 640 480)
#:clear-color background)))
-(define draw-2048
- (let ((context (make-render-context)))
- (lambda (dt alpha)
- (signal-let ((scene 2048-scene))
- (draw-group scene camera context)))))
+(define (draw-2048 dt alpha)
+ (signal-let ((scene 2048-scene))
+ (draw-group scene camera)))
;;;
;;; Initialization
@@ -458,5 +453,5 @@
(start-game-loop))
;;; Local Variables:
-;;; compile-command: "../../pre-inst-env guile 2048"
+;;; compile-command: "../../pre-inst-env guile 2048.scm"
;;; End:
diff --git a/examples/Makefile.am b/examples/Makefile.am
index 0ad17ff..46c9106 100644
--- a/examples/Makefile.am
+++ b/examples/Makefile.am
@@ -23,7 +23,7 @@ examples_DATA = \
joystick.scm \
simple.scm \
tilemap.scm \
- 2048/2048 \
+ 2048/2048.scm \
mines/mines.scm
imagedir = $(pkgdatadir)/examples/images