Turn Shape into a stream

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