70 lines
1.3 KiB
Common Lisp
70 lines
1.3 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 '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)
|
|
))
|
|
|
|
(set 'mandelbrot-blue
|
|
(mandelbrot-texture
|
|
1800.0
|
|
(point2 -0.7489967346191402 -0.06952285766601607)
|
|
1000
|
|
(color 0 0 0.3)
|
|
(color 0 0 0.3)
|
|
(color 0 0 0.3)
|
|
))
|
|
|
|
(set 's1
|
|
(sphere
|
|
(point 0 1 0) 1 blue))
|
|
(set 's2
|
|
(sphere
|
|
(point 2 0.5 2) 0.5 green))
|
|
|
|
|
|
(set 'p1
|
|
(texture-plane
|
|
mandelbrot-red
|
|
(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)))
|
|
|
|
|
|
(set 'scn (scene
|
|
(color 0.1 0.1 0.1)
|
|
'(s1 s2 p1)
|
|
'(l1 l2)))
|
|
|
|
(println (cons "Final Scene:" scn))
|
|
|
|
(set 'cam (camera (point 0 3 6) (point 0 0 0) (vector 0 1 0) 40 1920 1080))
|
|
|
|
(render cam scn 5 4 "demo-3.png")
|