From 1d8594dff4323f45d8545f061f447e8c2bbf0b69 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Fri, 3 Apr 2026 15:45:43 +0100
Subject: [PATCH] Cleanup

---
 src/Dodge/Creature/Picture.hs | 6 ------
 1 file changed, 6 deletions(-)

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)