diff options
author | David Thompson <dthompson@vistahigherlearning.com> | 2020-04-12 09:03:41 -0400 |
---|---|---|
committer | David Thompson <dthompson@vistahigherlearning.com> | 2020-04-12 09:03:41 -0400 |
commit | 729f0b687b975e60f338831bcb0d59fad776f3e1 (patch) | |
tree | 9ce725a5ad7a9b8c72537643b04443d1798015d9 /lisparuga/kernel.scm | |
parent | ebc1c54b8f184ff485561b7c039be368b6a9d2c9 (diff) |
Day 2 progress.
Diffstat (limited to 'lisparuga/kernel.scm')
-rw-r--r-- | lisparuga/kernel.scm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisparuga/kernel.scm b/lisparuga/kernel.scm index 36dea70..e8359d4 100644 --- a/lisparuga/kernel.scm +++ b/lisparuga/kernel.scm @@ -228,12 +228,8 @@ (define-method (render-tree (kernel <kernel>) alpha) (let ((start-time (elapsed-time))) - ;; Switch to the null viewport to ensure that - ;; the default viewport will be re-applied and - ;; clear the screen. - (set-gpu-viewport! (current-gpu) null-viewport) (with-viewport (default-viewport kernel) - (gl-clear %clear-mask) + (clear-screen) (next-method)) (sdl2:swap-gl-window (window kernel)) ;; Compute FPS. |