feat(rt-lisp): add more math overloads

2026-04-01 01:43:50 +02:00
parent 5aeaf72af1
commit 3e5f23a3bf
2 changed files with 146 additions and 23 deletions
--- a/scenes/demo-2.lisp
+++ b/scenes/demo-2.lisp
@@ -57,7 +57,7 @@
         (up . (vector 0 1 0))
         (fovy . 80)
         (pct . (/ t 300.0)))
-    (let '((tpos . (vadd pos (vmul (vsub to pos) pct)))
+    (let '((tpos . (+ pos (* (- to pos) pct)))
           (tfovy . (+ fovy (* 40 pct)))
           )
      (camera-reposition c tpos cnt up tfovy)