Make buttons have shape, expose multiple bugs

2021-09-27 12:28:53 +01:00
parent d9ad55ec50
commit 743c1c878d
19 changed files with 157 additions and 71 deletions
@@ -7,6 +7,7 @@ import Geometry

 data GameRoom = GameRoom
    { _grViewpoints :: [Point2]
+    , _grViewpointsEx :: [Point2]
    , _grBound :: [Point2]
    , _grDir :: Float   -- ^ gives direction of room
    , _grName :: String