Remove parallelization of pokeTopPrism

src/Dodge/CullBox.hs

@@ -1,8 +1,7 @@
 module Dodge.CullBox 
-    ( makeBoundBox
-    , updateBounds
+    ( updateBounds
     ) 
-    where
+  where
 import Dodge.Data
 import Dodge.Base.Window
 import Geometry
@@ -20,19 +19,9 @@ findBoundDists cfig w
     hw = halfWidth cfig
     hh = halfHeight cfig
 
-makeBoundBox :: Configuration -> World -> [Point2]
---cullBox cfig w = farWallPoints cp w
-makeBoundBox cfig w' 
-    | debugOn Bound_box_screen cfig = screenPolygon cfig w'
-    | otherwise = let (n,s,e,w) = f $ farWallDistDirection (_cameraCenter w') w'
-            in map ((+.+ _cameraCenter w') . rotateV (_cameraRot w') ) $ rectNSWE n s w e
-  where
-    f (Just a,Just b,Just c,Just d) = (max 0 a,min 0 b,max 0 c,min 0 d)
-    f _ = (0,0,0,0)
-
 updateBounds :: Configuration -> World -> World
 updateBounds cfig w = w
     & boundDist .~ bdists
-    & boundBox   .~ map ( (+.+ _cameraCenter w) . rotateV (_cameraRot w) ) (rectNSWE n s w' e)
+    & boundBox  .~ map ( (+.+ _cameraCenter w) . rotateV (_cameraRot w) ) (rectNSWE n s w' e)
   where
     bdists@(n,s,e,w') = findBoundDists cfig w