(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)
         )
        )))
  )