From 247b44db851e7df20f31071263fda479a4d8c2dc Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 16 Nov 2018 21:38:44 +0100 Subject: [PATCH] fix table boundaries --- src/Types/Collidible.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Types/Collidible.hs b/src/Types/Collidible.hs index 13f14e3..323c67c 100644 --- a/src/Types/Collidible.hs +++ b/src/Types/Collidible.hs @@ -60,13 +60,13 @@ instance Collidible ImgId where [ Boundaries (0, 0.34) (1, 1) ] collisionObstacle ImgTableNW = - [ Boundaries (0, 0) (0.63, 1) + [ Boundaries (0.34, 0) (1, 1) ] collisionObstacle ImgTableNE = [ Boundaries (0, 0) (1, 0.63) ] collisionObstacle ImgTableSE = - [ Boundaries (0.34, 0) (1, 1) + [ Boundaries (0, 0) (0.63, 1) ] collisionObstacle ImgTableCorner = [ Boundaries (0, 0) (0.63, 1)