Commit before generalising FromWest/South etc

src/Dodge/Room/Girder.hs

@@ -1,2 +1,28 @@
 module Dodge.Room.Girder where
+import Dodge.Data
+import RandomHelp
+import Dodge.Room.Foreground
+import Dodge.Room.Modify.Girder
+import Color
 
+addRandomGirderEW :: RandomGen g => Room -> State g Room
+addRandomGirderEW rm = do
+    hgshape <- takeOne [girder 96 20 10, girderZ 96 20 10, girderV 96 20 10]
+    lgshape <- takeOne [girder 60 20 10, girderZ 60 20 10, girderV 60 20 10]
+    addgird <- takeOne $
+        [ addGirderNS' hgshape black
+        , addGirderNS' lgshape red
+        ]
+    addgird rm
+
+addRandomGirderFromWest :: RandomGen g => Int -> Room -> State g Room
+addRandomGirderFromWest i rm = do
+    (h,col) <- takeOne [(96,black),(60,red)]
+    gtype   <- takeOne [girder,girderZ,girderV]
+    addGirderFromWest i (gtype h 20 10) col rm
+
+addRandomGirderFrom :: RandomGen g => CardinalPoint -> Int -> Room -> State g Room
+addRandomGirderFrom cp i rm = do
+    (h,col) <- takeOne [(96,black),(60,red)]
+    gtype   <- takeOne [girder,girderZ,girderV]
+    addGirderFrom cp i (gtype h 20 10) col rm