Create new plants when seeds are seeded
[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 blossomSize = 0.03
8 stipeWidth  = 0.01
9
10 -- | Light and growths interpolation frequency
11 ticksPerDay = 9
12
13 -- | Plant length growth per Day and Light
14 --
15 -- 1 means: Can grow one stipeLength during one day, when catching the sunlight with one branch of (projected) length screenwidth
16 growthPerDayAndLight = 15.0
17
18 -- | Plants up to this size get an boost in growths
19 smallPlantBoostSize = 0.5
20
21 -- | Minimum growths for plants of size less then smallPlantBoostSize
22 smallPlantBoostLength = 0.2
23
24 -- | Cost (in light units) per (length for maintaining the plant)^2, to limit the growth of the plants
25 costPerLength = 0.002
26
27 -- | Cost (in length growths equivalent) per seed to be grown
28 seedGrowthCost = 1.0
29
30 -- | Length of one day, in seconds
31 dayLength = 10 
32
33 -- | ε
34 eps = 1e-9
35
36 -- | Minimum radial angular distance between two branches
37 minAngle = pi/20
38
39 -- | Derived constants
40 tickLength = fromIntegral dayLength / fromIntegral ticksPerDay