module Dodge.Corpse.Make (makeCorpse) where

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 -> SPic
makeCorpse 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)