Cleanup

src/Dodge/Render/ShapePicture.hs

@@ -132,7 +132,7 @@ testPic _ _ = mempty
 drawBoundingBox :: Configuration -> World -> Picture
 drawBoundingBox cfig w = setLayer DebugLayer $ color green $ line $ (x:xs) ++ [x]
   where
-    (x:xs) = cullBox cfig w
+    (x:xs) = makeBoundBox cfig w
 
 clDraw :: Cloud -> Picture
 clDraw c = translate3 (_clPos c) (_clPict c c)