Implement different shadow resolutions

2021-04-28 23:16:42 +02:00
parent 8cb177a21c
commit 750a67ea6e
8 changed files with 63 additions and 42 deletions
@@ -8,6 +8,7 @@ module Dodge.Config.Data (
    , volume_sound
    , volume_music
    , wall_textured
+    , shadow_resolution
    ) where

 import Data.Aeson
@@ -19,11 +20,12 @@ import System.Directory
 import Control.Lens

 data Configuration = Configuration
-  { _volume_master   :: Float
-  , _volume_sound    :: Float
-  , _volume_music    :: Float
-  , _wall_textured   :: Bool
-  }
+    { _volume_master   :: Float
+    , _volume_sound    :: Float
+    , _volume_music    :: Float
+    , _wall_textured   :: Bool
+    , _shadow_resolution :: Int -- ^ Higher values divide the screen size, i.e. make the resolution worse
+    }
  deriving (Generic, Show)

 makeLenses ''Configuration
@@ -38,5 +40,6 @@ defaultConfig = Configuration
    , _volume_sound  = 1
    , _volume_music  = 1
    , _wall_textured = False
+    , _shadow_resolution = 1
    }