feat: update demo

scenes/demo-2.lisp

@@ -9,8 +9,8 @@
 
 (set 'mirror-dome
      (sphere
-      (point 0 -30 0)
+      (point 0 -17 0)
-      100 dark-mirror))
+      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)

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.01 0.05 0.15)
-      (color 0 0 0)
+      (color 0.01 0.05 0.15)
-      (color 0.2 0.2 0.2)
+      (color 0.01 0.05 0.15)
-      20 0.6))
+      20 0.7))