summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
Diffstat (limited to '2d')
-rw-r--r--2d/game-loop.scm35
-rw-r--r--2d/game.scm25
2 files changed, 37 insertions, 23 deletions
diff --git a/2d/game-loop.scm b/2d/game-loop.scm
index ab81b5a..8dcc65c 100644
--- a/2d/game-loop.scm
+++ b/2d/game-loop.scm
@@ -42,8 +42,9 @@
on-mouse-motion-hook
on-mouse-button-down-hook
on-mouse-button-up-hook
+ current-fps
run-game-loop
- current-fps))
+ quit-game-loop!))
;;;
;;; Constants
@@ -57,6 +58,7 @@
;;;
(define *fps* 0)
+(define *running* #f)
;;;
;;; Hooks
@@ -200,23 +202,30 @@ INPUT, OUTPUT, and ERROR ports."
(define (game-loop last-time next-time accumulator)
"Runs input, render, and update hooks."
- (handle-events)
- (let* ((time (SDL:get-ticks))
- (dt (- time last-time))
- (accumulator (+ accumulator dt))
- (remainder (update accumulator)))
- (run-repl)
- (render)
- (accumulate-fps! dt)
- (SDL:delay (time-left (SDL:get-ticks) next-time))
- (game-loop time
- (+ next-time tick-interval)
- remainder)))
+ (when *running*
+ (handle-events)
+ (let* ((time (SDL:get-ticks))
+ (dt (- time last-time))
+ (accumulator (+ accumulator dt))
+ (remainder (update accumulator)))
+ (run-repl)
+ (render)
+ (accumulate-fps! dt)
+ (SDL:delay (time-left (SDL:get-ticks) next-time))
+ (game-loop time
+ (+ next-time tick-interval)
+ remainder))))
(define (run-game-loop)
"Spawns a REPL server and starts the main game loop."
+ (set! *running* #t)
(spawn-server)
;;(lock-mutex game-loop-mutex)
(agenda-schedule show-fps)
(let ((time (SDL:get-ticks)))
(game-loop time (+ time tick-interval) 0)))
+
+(define (quit-game-loop!)
+ "Tell the game loop to finish up the current frame and then
+terminate."
+ (set! *running* #f))
diff --git a/2d/game.scm b/2d/game.scm
index e20638c..cb043ec 100644
--- a/2d/game.scm
+++ b/2d/game.scm
@@ -25,16 +25,11 @@
#:use-module (srfi srfi-9)
#:use-module (2d game-loop)
#:use-module (2d window)
- #:use-module (2d vector2)
- #:export (<game>
- make-game
- define-game
- game?
- game-title
- game-resolution
- game-fullscreen?
- game-first-scene
- run-game))
+ #:use-module (2d vector2))
+
+;;;
+;;; Games
+;;;
(define-record-type <game>
(%make-game title resolution fullscreen first-scene)
@@ -64,3 +59,13 @@ value."
(game-fullscreen? game))
(run-game-loop)
(close-window))
+
+(export <game>
+ make-game
+ define-game
+ game?
+ game-title
+ game-resolution
+ game-fullscreen?
+ game-first-scene
+ run-game)