Reallow different line block sizes

2022-07-01 21:47:49 +01:00
parent e9e72594c0
commit f6084f37ed
5 changed files with 38 additions and 54 deletions
@@ -30,7 +30,7 @@ blockPillar w' h' = ps0jPushPS (aline tl tr)
    tr = V2 w h
    br = V2 w (-h)
    bl = V2 (-w) (-h)
-    aline = PutLineBlock baseBlockPane 9 9
+    aline = PutLineBlock baseBlockPane 9

 smallPillar :: PSType
 smallPillar = PutBlock defaultBlock baseBlockPane $ reverse $ square 5
@@ -41,7 +41,7 @@ crossPillar w' h' = ps0jPushPS (aline (V2 (-w) 0) (V2 w 0))
  where
    w = w' - 9
    h = h' - 9
-    aline = PutLineBlock baseBlockPane 9 9
+    aline = PutLineBlock baseBlockPane 9

 roomPillarsSquare :: RandomGen g => State g Room
 roomPillarsSquare = do