diff options
Diffstat (limited to 'starling/node.scm')
| -rw-r--r-- | starling/node.scm | 12 |
1 files changed, 6 insertions, 6 deletions
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." |