General cleanup, remove Drawing type synonym

src/Dodge/CreatureState.hs

@@ -9,6 +9,7 @@ import Dodge.WallCreatureCollisions
 import Dodge.CreatureAction
 
 import Geometry
+import Picture
 
 import Data.List
 import Data.Char
@@ -54,9 +55,8 @@ stateUpdate u w (f,g) cr = case u w (f,g) (updateMovement g cr) of
                                     . over decorations addCorpse 
                                     . insertIt
         crBeforeDeath = colCrWall w $ cr
---        addCorpse = insertNewKey $ uncurry translateDrawing (_crPos crBeforeDeath) 
-        addCorpse = insertNewKey $ uncurry translateDrawing (_crOldPos cr) 
-                                 $ rotateDrawing (radToDeg (_crDir cr))
+        addCorpse = insertNewKey $ uncurry translate (_crOldPos cr) 
+                                 $ rotate (_crDir cr)
                                  (_crCorpse cr)
         maybeIt = evalState (maybeTakeOne $ IM.elems (_crInv cr)) (_randGen w)
         insertIt = case maybeIt of