makeLights :: Float -> Lights
makeLights _time
  = A.fromList (Z :. 1) [ Light (XYZ 300 (-300) (-100))
                                (RGB 150000 150000 150000)
                        ]
makeLights :: Float -> Lights
makeLights _time
  = A.fromList (Z :. 1) [ Light (XYZ 300 (-300) (-100))
                                (RGB 150000 150000 150000)
                        ]
makeLights _time
  = A.fromList (Z :. 1) [ Light (XYZ 300 (-300) (-100))
                                (RGB 150000 150000 150000)
                        ]