justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Make "tanks" into Blocks

Browse Source
This commit is contained in:
justin
2022-06-18 23:28:17 +01:00
parent cc93fc83d7
commit bae0f7dcad
10 changed files with 38 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Room/Pillar.hs
+2 -2
View File
@@ -33,7 +33,7 @@ blockPillar w' h' = ps0jPushPS (aline tl tr)
aline = PutLineBlock baseBlockPane 9 9
smallPillar :: PSType
smallPillar = PutBlock defaultBlock 500 baseBlockPane $ reverse $ square 5
smallPillar = PutBlock defaultBlock baseBlockPane $ reverse $ square 5
crossPillar :: Float -> Float -> Placement
crossPillar w' h' = ps0jPushPS (aline (V2 (-w) 0) (V2 w 0))
@@ -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 StoneBlock 9 9
aline = PutLineBlock baseBlockPane 9 9
roomPillarsSquare :: RandomGen g => State g Room
roomPillarsSquare = do