Remove parallelization of pokeTopPrism

src/Dodge/Render/ShapePicture.hs

@@ -2,7 +2,6 @@ module Dodge.Render.ShapePicture
     ( worldSPic
     ) where
 import Dodge.ShortShow
-import Dodge.CullBox
 import Dodge.Config.Data
 import Dodge.Render.InfoBox
 import Dodge.Debug.Picture
@@ -79,7 +78,7 @@ extraPics cfig w = pictures (_decorations w)
     <> drawWallIDs cfig w
     <> drawPathing cfig w
     <> drawCrInfo cfig w
-    <> cfigdraw Show_bound_box drawBoundingBox
+    <> cfigdraw Show_bound_box (const drawBoundingBox)
     <> cfigdraw Show_wall_search_rays (const drawWallSearchRays)
     <> cfigdraw Show_dda_test (const drawDDATest)
   where
@@ -129,10 +128,10 @@ drawWallSearchRays w = runIdentity $ S.foldMap_ f $ S.map fst $ allVisibleWalls
 testPic :: Configuration -> World -> Picture
 testPic _ _ = mempty
 
-drawBoundingBox :: Configuration -> World -> Picture
-drawBoundingBox cfig w = setLayer DebugLayer $ color green $ line $ (x:xs) ++ [x]
+drawBoundingBox :: World -> Picture
+drawBoundingBox w = setLayer DebugLayer $ color green $ line $ (x:xs) ++ [x]
   where
-    (x:xs) = makeBoundBox cfig w
+    (x:xs) = _boundBox w
 
 clDraw :: Cloud -> Picture
 clDraw c = translate3 (_clPos c) (_clPict c c)