Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,13 +1,13 @@
-module Dodge.PrWdLsLs
-    where
+module Dodge.PrWdLsLs where
+
+import Control.Lens
+import Dodge.Data.World
 import Dodge.WdP2f
 import Geometry.Vector3D
-import Dodge.Data
-import Control.Lens

-doPrWdLsLs :: PrWdLsLs  -> Prop -> World -> LightSource -> LightSource
+doPrWdLsLs :: PrWdLsLs -> Prop -> World -> LightSource -> LightSource
 doPrWdLsLs x = case x of
-    PrWdLsId -> \_ _ -> id 
-    PrWdLsSetPosition y off -> \_ w 
-        -> lsParam . lsPos .~ addZ 0 (fst (doWdP2f y w)) +.+.+ rotate3z (snd (doWdP2f y w)) off
+    PrWdLsId -> \_ _ -> id
+    PrWdLsSetPosition y off -> \_ w ->
+        lsParam . lsPos .~ addZ 0 (fst (doWdP2f y w)) +.+.+ rotate3z (snd (doWdP2f y w)) off
    PrWdLsSetColor c -> \_ _ -> lsParam . lsCol .~ c