Move toward adding infoboxes/better creature information display

src/Dodge/Debug/Picture.hs

@@ -41,6 +41,8 @@ lineOnScreenCone cfig w p1 p2 = pointInPolygon p1 sp
        | otherwise = orderPolygon (_cameraViewFrom w : sp')
     sps = zip sp (tail sp ++ [head sp])
 
+pointOnScreen :: Configuration -> World -> Point2 -> Bool
+pointOnScreen cfig w p = pointInPolygon p $ screenPolygon cfig w
 
 drawWallFace :: Configuration -> World -> Wall -> Picture
 drawWallFace cfig w wall