summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
authorDavid Thompson <dave@izanagi>2013-06-16 14:53:09 -0400
committerDavid Thompson <dave@izanagi>2013-06-16 14:53:09 -0400
commitb461585f7f3d76526156389e42d960f3e2942b92 (patch)
treef1df7171fb23fd3bdc86f0ca7533c2604b757243 /2d
parent31478647e55319129eada502ef975a7770e951d4 (diff)
Add close-window procedure.
Diffstat (limited to '2d')
-rw-r--r--2d/window.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/2d/window.scm b/2d/window.scm
index 02c75c9..5231efc 100644
--- a/2d/window.scm
+++ b/2d/window.scm
@@ -24,7 +24,8 @@
(define-module (2d window)
#:use-module (figl gl)
#:use-module ((sdl sdl) #:prefix SDL:)
- #:export (open-window))
+ #:export (open-window
+ close-window))
(define* (open-window width height #:optional (depth 24))
"Creates the game window with the specified dimensions and
@@ -44,3 +45,8 @@ initializes OpenGL state."
(gl-enable (enable-cap blend))
(set-gl-blend-function (blending-factor-src src-alpha)
(blending-factor-dest one-minus-src-alpha)))
+
+(define (close-window)
+ "Closes the game window and cleans up. This procedure is typically
+called just before calling (quit)."
+ (SDL:quit))