Readd wall corner collisions

2021-11-19 22:43:46 +00:00
parent 5658692ee4
commit 51d89982ed
8 changed files with 49 additions and 21 deletions
@@ -60,12 +60,9 @@ teslaGun = defaultGun
    , _itAimingRange = 0
    }
 teslaGunPic :: Item -> SPic
-teslaGunPic _ = 
-    ( colorSH blue $
+teslaGunPic _ = noPic $ colorSH blue $
        upperPrismPoly 5 (rectNESW xb    y xa    (-y))
        ++ upperPrismPoly 5 (rectNESW (-xa) y (-xb) (-y))
-    , mempty
-    )
  where
    xa = 1
    xb = 9