Put config/targeting pictures in sensible places, tweak main loop

src/Dodge/Room/Foreground.hs

@@ -5,7 +5,7 @@ import Picture
 import Geometry
 import Shape
 import Quaternion
-import Bound
+--import Bound
 
 --import Dodge.Data.ForegroundShape
 import Dodge.Default.Foreground
@@ -13,8 +13,8 @@ import Data.List
 import Data.Maybe
 import Control.Lens
 import ShapePicture
-import Streaming
-import qualified Streaming.Prelude as S
+--import Streaming
+--import qualified Streaming.Prelude as S
 
 highDiagonalMesh
     :: Point2 
@@ -123,7 +123,7 @@ putShape :: Shape -> PSType
 putShape sh = PutForeground $ defaultForeground
     & fsPos .~ m
     & fsRad .~ radBounds bnds
-    & fsSPic .~ noPic (uncurryV translateSHf (-m) $ sh)
+    & fsSPic .~ noPic (uncurryV translateSHf (-m) sh)
   where
     bnds = (0,0,0,0) -- shapeBounds sh
     m = midBounds bnds