Fix tile rendering

2021-09-07 10:53:39 +01:00
parent 6ecd739d6f
commit 45bbf9b005
14 changed files with 66 additions and 100 deletions
@@ -228,7 +228,7 @@ roomOctogon = defaultRoom
    , _rmPath  = allPairs $ map fst lnks
    , _rmPS    = []
    , _rmBound = [map toV2 [(-20,30),(20,30),(60,70),(60,110),(20,150),(-20,150),(-60,110),(-60,70)] ]
-    , _rmFloor = [oTile poly 7]
+    , _rmFloor = [makeTileFromPoly poly 7]
    }
  where 
    poly = map toV2 [(-20,40),(20,40),(50,70),(50,110),(20,140),(-20,140),(-50,110),(-50,70)]