feat(tokenizer): allow negative numbers

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