Implement inner walls for static walls, other walls broken

2021-03-04 19:41:59 +01:00
parent f9777deedf
commit e4c51bc47a
2 changed files with 4 additions and 3 deletions
@@ -319,7 +319,8 @@ drawSmokeShadow w sm@(Smoke {_smPos = p, _smRad = r', _smColor = c, _smPs = ps,

 drawWall :: Wall -> Drawing
 drawWall wl = case _wlDraw wl of
-        Nothing -> onLayerL [levLayer WlLayer, layer2] $ color c $ polygon [x,x +.+ n2,y +.+ n2, y]
+        Nothing -> onLayerL [levLayer WlLayer, layer2] $ color c $ polygon $ _wlLine wl
+        --Nothing -> onLayerL [levLayer WlLayer, layer2] $ color c $ polygon [x,x +.+ n2,y +.+ n2, y]
        Just d -> d wl
    where 
        (x:y:_) = _wlLine wl