summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-08-20 08:15:33 -0400
committerDavid Thompson <dthompson2@worcester.edu>2014-08-25 19:33:08 -0400
commit631983b6c416f0308b056de570319e02cef0e2d4 (patch)
treefec4fffef2fb0f86fbbc84511cc2ee650134c8d8
parent50c5186db852ba1d1c21c1320b7e57c80163d577 (diff)
Run draw-hook each time a frame is drawn.
-rw-r--r--sly/game.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/sly/game.scm b/sly/game.scm
index 97a50e4..000d1ce 100644
--- a/sly/game.scm
+++ b/sly/game.scm
@@ -78,6 +78,7 @@ becoming completely unresponsive and possibly crashing."
(frame-interval (interval frame-rate)))
(define (draw dt alpha)
"Render a frame."
+ (run-hook draw-hook dt alpha)
(let ((size (signal-ref window-size)))
(gl-viewport 0 0 (vx size) (vy size)))
(gl-clear (clear-buffer-mask color-buffer depth-buffer))