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