26 lines
723 B
Haskell
26 lines
723 B
Haskell
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)
|