Cleanup creature picture

This commit is contained in:
2021-09-04 14:53:05 +01:00
parent 1ab3f1773c
commit 215a3dda36
13 changed files with 318 additions and 307 deletions
+1 -4
View File
@@ -18,7 +18,6 @@ import Data.Aeson
import GHC.Generics
--import System.Directory
import Control.Lens
data Configuration = Configuration
{ _volume_master :: Float
, _volume_sound :: Float
@@ -30,7 +29,6 @@ data Configuration = Configuration
, _windowY :: Float
}
deriving (Generic, Show)
makeLenses ''Configuration
instance ToJSON Configuration where
@@ -43,10 +41,9 @@ defaultConfig = Configuration
{ _volume_master = 1
, _volume_sound = 1
, _volume_music = 1
, _wall_textured = False
, _wall_textured = True
, _cloud_shadows = True
, _resolution_factor = 1
, _windowX = 800
, _windowY = 600
}