Fix wall bug, refactor placements

2021-09-30 15:35:35 +01:00
parent eb393708c4
commit c88f88004d
17 changed files with 54 additions and 80 deletions
@@ -0,0 +1,10 @@
+module Dodge.Placement
+  where
+import Geometry
+import Dodge.LevelGen.Data
+
+jsps0 :: PSType -> Maybe Placement
+jsps0 pst = Just $ sPS (V2 0 0) 0 pst
+
+place0 :: PSType -> (Int -> Maybe Placement) -> Placement
+place0 pst = Placement (PS (V2 0 0) 0 pst)