Improve debris

2022-06-16 12:24:09 +01:00
parent fa762c7687
commit aa29e5ddf2
14 changed files with 75 additions and 50 deletions
@@ -55,7 +55,7 @@ midWall ps = ps0j (PutShape . colorSH col $ upperPrismPoly 50 ps)
 singleBlock :: Point2 -> [Placement]
 singleBlock a = 
    [sPS a 0 
-        $ PutBlock StoneBlock 5 [20,20] baseBlockPane
+        $ PutBlock StoneBlock 100 baseBlockPane
        $ reverse 
        $ square 10
    ]