+
+(define (close-window)
+ (sdl2:hide-window! %sdl-window)
+ (sdl2:sdl-quit))
+
+(define* (start-game scene #:key
+ (title "Untitled")
+ (resolution '(640 480))
+ (fullscreen? #f)
+ (when-quit (lambda () (stop-game))))
+ (init-window)
+ (open-window title resolution fullscreen?)
+ (run-game-loop scene #:when-quit when-quit)
+ (close-window))
+
+(define (stop-game)
+ (stop-game-loop))