RainSettings.hs

module Settings.RainSettings
    (rainWidth,
     rainHeight,
     rainFallSpeed,
     rainSpawnChance,
     rainSpacing,
     rainColor) where

import Graphics.Rendering.OpenGL as GL

rainWidth :: Double
rainWidth = 1.0

rainHeight :: Double
rainHeight = 20.0

rainFallSpeed :: Double
rainFallSpeed = 20.0

-- probability is 1/rainSpawnChance, 60 times a second
rainSpawnChance :: Int
rainSpawnChance = 25

rainSpacing :: Int
rainSpacing = 1

rainColor :: [Color4 GLdouble]
rainColor = [Color4 0.0 0.0 1.0 0.3]