Reorganise wall placements

2021-11-17 12:35:05 +00:00
parent bcdf0e643c
commit 5949ad2b3d
13 changed files with 32 additions and 31 deletions
@@ -1,13 +1,25 @@
 module Dodge.Placement.Instance.Wall
    where
 import Dodge.Data
-import Color
-import Geometry
 import Dodge.LevelGen.Data
 import Dodge.Default.Wall
+import Geometry
+import Shape
+import Color

 import Data.List
 import Control.Lens
+lowWall :: [Point2] -> Placement
+lowWall ps = ps0j (PutForeground . colorSH col $ upperPrismPoly 30 ps)
+    $ sps0 $ PutWall ps theWall
+  where
+    col = _wlColor defaultWall
+    theWall = defaultWall
+        { _wlOpacity = SeeAbove
+        , _wlDraw = False
+        }
+
+
 singleBlock :: Point2 -> [Placement]
 singleBlock a = 
    [sPS a 0