Work on orienting and drawing attachments

src/Dodge/Render/ShapePicture.hs

@@ -84,11 +84,6 @@ anyTargeting w = fromMaybe mempty $ do
         <|> lookup AugmentedHUDLink (ttree ^. ldtRight)
     return (mempty , drawTargeting (ttree ^. ldtValue) w)
     
---    tt <- cr ^? crTargeting . ctType . _Just
---    return $ noShape $ drawTargeting tt cr cfig w
---  where
---    cr = you w
-
 drawCreature :: Creature -> SPic
 drawCreature cr = case _crType cr of
     Humanoid{} -> basicCrPict cr