diff options
| -rw-r--r-- | catbird/node-2d.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/catbird/node-2d.scm b/catbird/node-2d.scm index 12014f1..868604a 100644 --- a/catbird/node-2d.scm +++ b/catbird/node-2d.scm @@ -654,12 +654,12 @@ (when (visible? node) (let ((p (position node)) (lp (last-position node)) - (rp (render-position node)) - (beta (- 1.0 alpha))) + (rp (render-position node))) (unless (and (vec2= rp p) (vec2= lp p)) - (set-vec2-x! rp (+ (* (vec2-x p) alpha) (* (vec2-x lp) beta))) - (set-vec2-y! rp (+ (* (vec2-y p) alpha) (* (vec2-y lp) beta))) - (expire-local-matrix node))) + (let ((beta (- 1.0 alpha))) + (set-vec2-x! rp (+ (* (vec2-x p) alpha) (* (vec2-x lp) beta))) + (set-vec2-y! rp (+ (* (vec2-y p) alpha) (* (vec2-y lp) beta))) + (expire-local-matrix node)))) (next-method))) |