Unify world shape and picture into spic

2021-11-01 02:00:12 +00:00
parent 86fdfd260e
commit da346bc3a0
9 changed files with 266 additions and 158 deletions
@@ -67,7 +67,7 @@ placeSpotID ps w = case _psType ps of
    PutBtDoor c bp f a b speed -> addButtonDoor c (doShift bp) (f + rot) 
                            (doShift a) (doShift b) speed w
    PutLineBlock wl width depth a b
-        -> putLineBlock wl width depth (doShift a) (doShift b) w
+        -> placeLineBlock wl width depth (doShift a) (doShift b) w
    PutWall { _pwPoly = ps', _pwWall = wl } -> (0,rmCrossPaths $ over walls (addWalls qs wl) w)
      where 
        qs = map doShift ps'