67 lines
1.2 KiB
Common Lisp
67 lines
1.2 KiB
Common Lisp
(set 'red
|
|
(material
|
|
(color 1 0 0)
|
|
(color 1 0 0)
|
|
(color 0.5 0 0)
|
|
50 0.25))
|
|
(set 'blue
|
|
(material
|
|
(color 0 0 1)
|
|
(color 0 0 1)
|
|
(color 0 0 0.6)
|
|
50 0.25))
|
|
(set 'green
|
|
(material
|
|
(color 0 1 0)
|
|
(color 0 1 0)
|
|
(color 0 0.6 0)
|
|
50 0.25))
|
|
(set 'white
|
|
(material
|
|
(color 1 1 1)
|
|
(color 1 1 1)
|
|
(color 0.6 0.6 0.6)
|
|
100 0.4))
|
|
(set 'black
|
|
(material
|
|
(color 0 0 0)
|
|
(color 0 0 0)
|
|
(color 0.6 0.6 0.6)
|
|
100 0.4))
|
|
|
|
(set 'dark-mirror
|
|
(material
|
|
(color 0.01 0.05 0.15)
|
|
(color 0.01 0.05 0.15)
|
|
(color 0.01 0.05 0.15)
|
|
20 0.7))
|
|
|
|
(set 'mandelbrot-red
|
|
(mandelbrot-texture
|
|
1800.0
|
|
(point2 -0.7489967346191402 -0.06952285766601607)
|
|
1000
|
|
(color 0.3 0 0)
|
|
(color 0.3 0 0)
|
|
(color 0.3 0 0)
|
|
))
|
|
|
|
|
|
(defun mandel-zoom (n z1 z2)
|
|
(let '((n . n)
|
|
(z1 . z1)
|
|
(z2 . z2))
|
|
(lambda (t)
|
|
(let '((pct . (/ t (* n 1.0)))
|
|
(range . (- z2 z1)))
|
|
(mandelbrot-texture
|
|
(+ z1 (* pct range))
|
|
(point2 -0.7489967346191402 -0.06952285766601607)
|
|
1000
|
|
(color 0.3 0 0)
|
|
(color 0.3 0 0)
|
|
(color 0.3 0 0)
|
|
)
|
|
)))
|
|
)
|