diff --git a/scenes/demo-2.lisp b/scenes/demo-2.lisp index 6c07792..ef22d91 100644 --- a/scenes/demo-2.lisp +++ b/scenes/demo-2.lisp @@ -9,8 +9,8 @@ (set 'mirror-dome (sphere - (point 0 -30 0) - 100 dark-mirror)) + (point 0 -17 0) + 30 dark-mirror)) (defun spiral-sphere (i n t) (sphere @@ -64,4 +64,4 @@ ) )) -(render-animation cam "demo-animation.mp4" scene-fn cam-fn 400 30 4 2) +(render-animation cam "demo-animation.mp4" scene-fn cam-fn 400 30 7 2) diff --git a/scenes/materials.lisp b/scenes/materials.lisp index 03f4225..de83466 100644 --- a/scenes/materials.lisp +++ b/scenes/materials.lisp @@ -21,17 +21,17 @@ (color 1 1 1) (color 1 1 1) (color 0.6 0.6 0.6) - 100 0.5)) + 100 0.4)) (set 'black (material (color 0 0 0) (color 0 0 0) (color 0.6 0.6 0.6) - 100 0.5)) + 100 0.4)) (set 'dark-mirror (material - (color 0 0 0) - (color 0 0 0) - (color 0.2 0.2 0.2) - 20 0.6)) + (color 0.01 0.05 0.15) + (color 0.01 0.05 0.15) + (color 0.01 0.05 0.15) + 20 0.7))