Start to generalise text input to "terminal signal" input

2023-03-26 13:57:26 +01:00
parent cfb0a49059
commit 082ce9c9a1
39 changed files with 171 additions and 165 deletions
@@ -5,13 +5,13 @@ module Dodge.Render.Lights (
 import Data.List (sortOn)
 import Data.Maybe
 import Dodge.Data.LWorld
-import Dodge.Data.CamPos
+import Dodge.Data.Camera
 import Dodge.Data.Config
 import Geometry
 import qualified IntMapHelp as IM
 import Control.Lens

-lightsToRender :: Configuration -> CamPos -> LWorld -> [(Point3, Float, Point3)]
+lightsToRender :: Configuration -> Camera -> LWorld -> [(Point3, Float, Point3)]
 {-# INLINE lightsToRender #-}
 lightsToRender cfig campos w =  take (fromEnum $ cfig ^. graphics_num_shadow_casters) $
    sortOn (\(_,x,_) -> negate x) $