diff options
| author | David Thompson <dave@izanagi> | 2013-06-16 14:53:09 -0400 |
|---|---|---|
| committer | David Thompson <dave@izanagi> | 2013-06-16 14:53:09 -0400 |
| commit | b461585f7f3d76526156389e42d960f3e2942b92 (patch) | |
| tree | f1df7171fb23fd3bdc86f0ca7533c2604b757243 /2d | |
| parent | 31478647e55319129eada502ef975a7770e951d4 (diff) | |
Add close-window procedure.
Diffstat (limited to '2d')
| -rw-r--r-- | 2d/window.scm | 8 |
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)) |