diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-12-06 13:18:16 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-12-06 13:20:49 -0500 |
| commit | fc258d5caefb896c2790e91849963bab729ad3c1 (patch) | |
| tree | b3ddd34678aec8ce954c67cfb7587b594fb9b43e | |
| parent | 46d45c0a6dc1969e4ef631646f6a657dc5eb3a98 (diff) | |
examples: Update 2048.
* examples/2048/2048: Delete.
* examples/2048/2048.scm: New file.
* examples/Makefile.am (examples_DATA): Add new file. Remove old one.
| -rwxr-xr-x | examples/2048/2048.scm (renamed from examples/2048/2048) | 13 | ||||
| -rw-r--r-- | examples/Makefile.am | 2 |
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 |