diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-08-20 08:15:33 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-08-25 19:33:08 -0400 |
| commit | 631983b6c416f0308b056de570319e02cef0e2d4 (patch) | |
| tree | fec4fffef2fb0f86fbbc84511cc2ee650134c8d8 | |
| parent | 50c5186db852ba1d1c21c1320b7e57c80163d577 (diff) | |
Run draw-hook each time a frame is drawn.
| -rw-r--r-- | sly/game.scm | 1 |
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)) |