Rename update*/render* to update-tree/render-tree.

3 files changed, 14 insertions, 14 deletions

diff --git a/starling/kernel.scm b/starling/kernel.scm
index 25fb8a0..2325cdc 100644
--- a/starling/kernel.scm
+++ b/starling/kernel.scm
@@ -113,7 +113,7 @@
     ;; Start REPL server.
     (attach-to kernel (make <repl> #:name 'repl))))
 
-(define-method (update* (kernel <kernel>) dt)
+(define-method (update-tree (kernel <kernel>) dt)
   (define (invert-y y)
     ;; SDL's origin is the top-left, but our origin is the bottom
     ;; left so we need to invert Y coordinates that SDL gives us.
@@ -208,7 +208,7 @@
   ;; Free any GPU resources that have been GC'd.
   (gpu-reap!))
 
-(define-method (render* (kernel <kernel>) alpha)
+(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
@@ -273,8 +273,8 @@
         (parameterize ((current-kernel kernel))
           (activate kernel)
           (push-scene kernel (thunk))
-          (run-game* #:update (lambda (dt) (update* kernel dt))
-                     #:render (lambda (alpha) (render* kernel alpha))
+          (run-game* #:update (lambda (dt) (update-tree kernel dt))
+                     #:render (lambda (alpha) (render-tree kernel alpha))
                      #:error (lambda (stack key args)
                                (on-error kernel stack key args))
                      #:time elapsed-time
diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index cc0c85c..b9d5e2b 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -237,12 +237,12 @@
               (update (camera view) dt))
             (views canvas)))
 
-(define-method (render* (canvas <canvas>) alpha)
+(define-method (render-tree (canvas <canvas>) alpha)
   ;; Draw scene from the viewpoint of each camera.
   (for-each (lambda (view)
               (with-camera (camera view)
                            (for-each (lambda (child)
-                                       (render* child alpha))
+                                       (render-tree child alpha))
                                      (children canvas))))
             (views canvas))
   (render canvas alpha))
@@ -414,11 +414,11 @@
 
 ;; Events
 
-(define-method (update* (node <node-2d>) dt)
+(define-method (update-tree (node <node-2d>) dt)
   (vec2-copy! (position node) (last-position node))
   (next-method))
 
-(define-method (render* (node <node-2d>) alpha)
+(define-method (render-tree (node <node-2d>) alpha)
   (when (visible? node)
     ;; Compute the linearly interpolated rendering position, in the case
     ;; that node has moved since the last update.
diff --git a/starling/node.scm b/starling/node.scm
index 73125da..d3dc129 100644
--- a/starling/node.scm
+++ b/starling/node.scm
@@ -41,9 +41,9 @@
             show
             hide
             update
-            update*
+            update-tree
             render
-            render*
+            render-tree
             child-ref
             &
             attach-to
@@ -89,11 +89,11 @@
   "Advance simulation of NODE by the time delta DT."
   #t)
 
-(define-method (update* (node <node>) dt)
+(define-method (update-tree (node <node>) dt)
   "Update NODE and all of its children.  DT is the amount of time
 passed since the last update, in milliseconds."
   ;; Update children first, recursively.
-  (for-each-child (lambda (child) (update* child dt)) node)
+  (for-each-child (lambda (child) (update-tree child dt)) node)
   ;; Update script, then "physics" (or whatever the update method is
   ;; doing).
   (with-agenda (agenda node)
@@ -105,13 +105,13 @@ passed since the last update, in milliseconds."
 the next update represented as a ratio in the range [0, 1]."
   #t)
 
-(define-method (render* (node <node>) alpha)
+(define-method (render-tree (node <node>) alpha)
   "Render NODE and all of its children, recursively.
 ALPHA is the distance between the previous update and the next update
 represented as a ratio in the range [0, 1]."
   (when (visible? node)
     (render node alpha)
-    (for-each-child (lambda (child) (render* child alpha)) node)))
+    (for-each-child (lambda (child) (render-tree child alpha)) node)))
 
 (define-method (on-boot (node <node>))
   "Perform initialization tasks for NODE."