Faster growths for debugging
[L-seed.git] / src / Lseed / Constants.hs
1 module Lseed.Constants where 
2
3 -- All relative to the screen width
4 groundLevel = 0.03
5 budSize     = 0.01
6 stipeLength = 0.05
7 stipeWidth  = 0.01
8
9 -- | Light and growths interpolation frequency
10 ticksPerDay = 9
11
12 -- | Plant length growth per Day and Light
13 --
14 -- 1 means: Can grow one stipeLength during one day, when catching the sunlight with one branch of (projected) length screenwidth
15 growthPerDayAndLight = 15.0
16
17 -- | Default growth (for plants without light)
18 --growthPerDay = 0.5
19 growthPerDay = 3.0
20
21 -- | Cost (in light units) per (length for maintaining the plant)^2, to limit the growth of the plants
22 costPerLength = 0.002
23
24 -- | Length of one day, in seconds
25 dayLength = 10 
26
27 -- | ε
28 eps = 1e-9
29
30
31 -- | Derived constants
32 tickLength = fromIntegral dayLength / fromIntegral ticksPerDay