diff --git a/src/Dodge/Creature/Picture.hs b/src/Dodge/Creature/Picture.hs
index 7e3564054..a4dfc4f84 100644
--- a/src/Dodge/Creature/Picture.hs
+++ b/src/Dodge/Creature/Picture.hs
@@ -108,12 +108,6 @@ chaseUpperBody w cr =  colorSH (_skinUpper cskin)
         tcxy <- w ^? cWorld . lWorld . creatures . ix i . crPos . _xy
         guard $ hasLOSIndirect cxy tcxy w
         return . (0.5*) . nearZeroAngle $  argV (tcxy - cxy) - cr ^. crDir
-    headrot = fromMaybe pi $ do
-        i <- cr ^. crIntention . targetCr
-        tcxy <- w ^? cWorld . lWorld . creatures . ix i . crPos . _xy
-        guard $ hasLOSIndirect cxy tcxy w
-        return . min (pi/2) . max (-pi/2) . nearZeroAngle $  argV (tcxy - cxy) - cr ^. crDir
-    
 
 oneSmooth :: Float -> Float
 oneSmooth x = sin (pi * x * 0.5)