Improve normal maps on ground and walls

2023-03-19 23:52:19 +00:00
parent e90989ee2d
commit 33f31aa385
24 changed files with 112 additions and 178 deletions
@@ -19,7 +19,6 @@ data Wall = Wall
    { _wlLine :: (Point2, Point2)
    , _wlID :: Int
    , _wlColor :: Color
--    , _wlSeen :: Bool
    , _wlOpacity :: Opacity
    , _wlPathable :: Bool
    , _wlPenetrable :: Bool
@@ -40,7 +39,7 @@ data Opacity
    = SeeThrough
    | SeeAbove
    | DrawnWall {_opDraw :: WallDraw} -- Wall -> SPic
-    | Opaque
+    | Opaque {_opTexture :: Int}
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data WallDraw = DrawForceField