Implement randomness at the placement datatype level

src/Dodge/LevelGen/Data.hs

@@ -39,6 +39,7 @@ data Placement = Placement
     , _idPlacement :: Int -> Maybe Placement 
     }
   | PlacementUsingPos Point3 (Point3 -> Placement)  -- allows a placement to use a shifted position
+  | RandomPlacement {_unRandomPlacement :: State StdGen Placement}
 
 sPS :: Point2 -> Float -> PSType -> Placement
 sPS p a pt = Placement (PS p a) pt (const Nothing)

src/Dodge/LevelGen/Switch.hs

@@ -11,7 +11,6 @@ import Picture
 import ShapePicture
 import Shape
 import Geometry
---import Geometry.Data
 
 import qualified Data.IntMap.Strict as IM
 import Control.Lens