From 78f66fa3ae49181ceb0574d57eac63bd603398d9 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 26 Aug 2018 09:38:14 -0400
Subject: Fix rendering.

---
 starling/kernel.scm | 20 ++++++++++++++++----
 starling/node.scm   |  2 +-
 2 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/starling/kernel.scm b/starling/kernel.scm
index 1ff6b1a..2e51712 100644
--- a/starling/kernel.scm
+++ b/starling/kernel.scm
@@ -24,7 +24,9 @@
 
 (define-module (starling kernel)
   #:use-module (chickadee)
+  #:use-module (chickadee render)
   #:use-module (chickadee render gpu)
+  #:use-module (chickadee render viewport)
   #:use-module (ice-9 match)
   #:use-module (oop goops)
   #:use-module (sdl2)
@@ -224,11 +226,13 @@
                               controller
                               (controller-axis-event-axis event)
                               (/ (controller-axis-event-value event) 32768.0)))))))
+  (define (poll-events)
+    (let ((event (poll-event)))
+      (when event
+        (process-event event)
+        (poll-events))))
   ;; Process all pending events before we update any other node.
-  (let loop ((event (poll-event)))
-    (when event
-      (process-event event)
-      (loop (poll-event))))
+  (poll-events)
   ;; Proceed with standard update procedure.
   (next-method))
 
@@ -236,6 +240,14 @@
   ;; Free any GPU resources that have been GC'd.
   (gpu-reap!))
 
+(define-method (render* (kernel <kernel>) alpha)
+  ;; Switch to the null viewport to ensure that
+  ;; the default viewport will be re-applied and
+  ;; clear the screen.
+  (gpu-state-set! *viewport-state* null-viewport)
+  (next-method)
+  (swap-gl-window (window kernel)))
+
 (define-method (on-error (kernel <kernel>) stack key args)
   (if (developer-mode? kernel)
       (let ((title (window-title (window kernel))))
diff --git a/starling/node.scm b/starling/node.scm
index 00e24c6..7b0db3b 100644
--- a/starling/node.scm
+++ b/starling/node.scm
@@ -98,7 +98,7 @@ the next update represented as a ratio in the range [0, 1]."
 ALPHA is the distance between the previous update and the next update
 represented as a ratio in the range [0, 1]."
   (render node alpha)
-  (for-each-child (lambda (child) (render child alpha)) node))
+  (for-each-child (lambda (child) (render* child alpha)) node))
 
 (define-method (on-boot (node <node>))
   "Perform initialization tasks for NODE."
-- 
cgit v1.2.3