Replace PutShape with PutForeground

2022-06-27 14:30:08 +01:00
parent fec72cdf48
commit 0def31895f
11 changed files with 39 additions and 55 deletions
@@ -93,7 +93,7 @@ airlockZ = defaultRoom
    inDoorps  = (V2 0 0 ,) <$> arcStepwise 3 (pi/2) (V2 0 0) (V2 (-61) 0)
    cenlight  = mntLS vShape (V2 90 60) (V3 90 40 50) `addPlmnt` mntLS vShape (V2 90 60) (V3 90 80 50)
    cornlight = mntLS vShape (V2 0 120) (V3 30 90 50) `addPlmnt` mntLS vShape (V2 180 120) (V3 150 90 50)
-        `addPlmnt` sps0 (PutShape (thinHighBar 50 (V2 30 90) (V2 150 90)))
+        `addPlmnt` sps0 (putShape (thinHighBar 50 (V2 30 90) (V2 150 90)))
    lighting = RandomPlacement $ takeOne [cenlight,cornlight]

 airlock90 :: Room