Cleanup

2025-10-08 09:20:19 +01:00
parent 77fcf8353a
commit 4e651fcded
9 changed files with 57 additions and 75 deletions
@@ -1,42 +1,25 @@
 module Dodge.Corpse.Make (makeCorpse) where

-import Dodge.Creature.Radius
-import Dodge.Creature.Shape
 import Control.Lens
 import Dodge.Creature.Picture
+import Dodge.Creature.Radius
+import Dodge.Creature.Shape
 --import Dodge.Data.Corpse
 import Dodge.Data.Creature
 import Geometry
 import Shape
 import ShapePicture

--makeCorpse :: Creature -> Corpse
 makeCorpse :: Creature -> SPic
 makeCorpse cr =
--    defaultCorpse
--        & cpPos .~ _crPos cr
--        & cpDir .~ _crDir cr
--        & cpSPic
--            .~ 
-        noPic
-                ( scaleSH (V3 crsize crsize crsize) $
-                    mconcat
-                        [ colorSH (_skinHead cskin) $ deadScalp cr
-                        , colorSH (_skinUpper cskin) $ deadUpperBody cr
-                        , rotmdir $ colorSH (_skinLower cskin) $ deadFeet cr
-                        ]
-                )
+    noPic
+        . scaleSH (V3 crsize crsize crsize)
+        $ mconcat
+            [ colorSH (_skinHead cskin) $ deadScalp cr
+            , colorSH (_skinUpper cskin) $ deadUpperBody cr
+            , rotmdir $ colorSH (_skinLower cskin) $ deadFeet cr
+            ]
  where
    cskin = crShape $ _crType cr -- this should be fixed
    crsize = 0.1 * crRad (cr ^. crType)
    rotmdir = rotateSH (_crMvDir cr - _crDir cr)
-
--defaultCorpse :: Corpse
--defaultCorpse =
--    Corpse
--        { _cpID = 0
--        , _cpPos = 0
--        , _cpDir = 0
--        , _cpSPic = mempty
--        , _cpRes = NoResurrection
--        }