48 lines
676 B
Common Lisp
48 lines
676 B
Common Lisp
(include "./materials.lisp")
|
|
|
|
(set 'frames 300)
|
|
(set 'fps 30)
|
|
(set 'ray-depth 5)
|
|
(set 'sub-pixel 2)
|
|
|
|
(set 'mz (mandel-zoom frames 1800 5000))
|
|
|
|
(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)
|