Add procedural room made up of four corners

2021-04-24 15:40:10 +02:00
parent 108b66f3ad
commit aa08d66026
5 changed files with 136 additions and 27 deletions
@@ -128,8 +128,8 @@ roomPillars :: Room
 roomPillars = over rmLinks init $ set rmPS plmnts $ roomRect 240 240 2 2
  where 
    plmnts = PS (120,120) 0 putLamp 
-        : PS (10,10) 0 putLamp 
-        : PS (230,230) 0 putLamp 
+        : PS (12,12) 0 putLamp 
+        : PS (228,228) 0 putLamp 
        : g 180 150 90 60
    f a x b y = putBlockRect a x b y
    g a b c d = f a b a b ++ f a b c d ++ f c d a b ++ f c d c d