Add creature info display

2022-04-10 23:07:11 +01:00
parent 0cc12f31ad
commit 12852a7670
5 changed files with 47 additions and 29 deletions
@@ -42,7 +42,7 @@ lineOnScreenCone cfig w p1 p2 = pointInPolygon p1 sp
    sps = zip sp (tail sp ++ [head sp])

 pointOnScreen :: Configuration -> World -> Point2 -> Bool
-pointOnScreen cfig w p = pointInPolygon p $ screenPolygon cfig w
+pointOnScreen cfig w p = pointInPolygon p . reverse $ screenPolygon cfig w

 drawWallFace :: Configuration -> World -> Wall -> Picture
 drawWallFace cfig w wall