From 631983b6c416f0308b056de570319e02cef0e2d4 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 20 Aug 2014 08:15:33 -0400 Subject: Run draw-hook each time a frame is drawn. --- sly/game.scm | 1 + 1 file changed, 1 insertion(+) 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)) -- cgit v1.2.3