feat(camera): render anim using ffmpeg

2026-03-31 20:15:30 +02:00
parent d0840759b3
commit fc40e0b798
6 changed files with 111 additions and 26 deletions
--- a/scenes/demo-2.lisp
+++ b/scenes/demo-2.lisp
@@ -80,15 +80,15 @@
 (defun cam-fn (t c)
  (let '((pos . (point 0 4 8))
         (cnt . (point 0 0 0))
-         (to . (point -3 3 -8))
+         (to . (point -2 3 -6))
         (up . (vector 0 1 0))
         (fovy . 40)
         (pct . (/ t 300.0)))
    (let '((tpos . (vadd pos (vmul (vsub to pos) pct)))
           (tfovy . (+ fovy (* 40 pct)))
           )
-      (camera-reposition c tpos cnt up fovy)
+      (camera-reposition c tpos cnt up tfovy)
      )
    ))

-(render-animation cam scene-fn cam-fn 300 1 4 2)
+(render-animation cam "demo-animation-2.mp4" scene-fn cam-fn 300 30 4 2)