From b89fe75a3995f1a8efd1cb1b65eaab4dfc6275ea Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Tue, 31 Jul 2018 23:07:23 +0200
Subject: [PATCH] collision boundaries for table corners

---
 src/Types/Collidible.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/Types/Collidible.hs b/src/Types/Collidible.hs
index 5f9c68b..d3aed5a 100644
--- a/src/Types/Collidible.hs
+++ b/src/Types/Collidible.hs
@@ -76,6 +76,18 @@ instance Collidible ImgId where
     [ Boundaries (0, 0) (0.63, 1)
     , Boundaries (0, 0.34) (1, 1)
     ]
+  collisionObstacle ImgTableC1 =
+    [ Boundaries (0, 13/36) (13/36, 1)
+    ]
+  collisionObstacle ImgTableC2 =
+    [ Boundaries (0, 0) (13/36, 13/36)
+    ]
+  collisionObstacle ImgTableC3 =
+    [ Boundaries (1-13/36, 0) (1, 1-13/36)
+    ]
+  collisionObstacle ImgTableC4 =
+    [ Boundaries (1-13/36, 1-13/36) (1, 1)
+    ]
   collisionObstacle ImgMiscFlipchart =
     [ Boundaries (0, 7/36) (18/36, 28/36)
     ]