(include "./materials.lisp")

(set 'frames 300)
(set 'fps 30)
(set 'ray-depth 5)
(set 'sub-pixel 2)

(set 'mz (mandel-zoom frames 1800 50000))
(println (mz 1))

(defun mandel-plane (t)
  (texture-plane
   (mz t)
   (point 0 0 0)
   (vector 0 1 0)
   1.0
   (vector 1 0 0)
   ))

(set 'l1 (light (point 3 10 5) (color 1 1 1)))
(set 'l2 (light (point 2 10 5) (color 1 1 1)))

(defun scn (t)
  (scene
   (color 0.1 0.1 0.1)
   '((mandel-plane t))
   '(l1 l2)
   ))

(defun cam (t c) c)

(set 'base-cam
     (camera
      (point 0 3 6)
      (point 0 0 0)
      (vector 0 1 0)
      40 1920 1080))


(render-animation
 base-cam
 "demo-4-animation.mp4"
 scn
 cam
 frames
 fps
 ray-depth
 sub-pixel)