Lower penalty for plant size
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 30 May 2009 16:46:45 +0000 (18:46 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 30 May 2009 16:46:45 +0000 (18:46 +0200)
src/Lseed/Constants.hs
src/main.hs

index 8bda6e1..5999c2c 100644 (file)
@@ -22,13 +22,13 @@ smallPlantBoostSize = 0.5
 smallPlantBoostLength = 0.2
 
 -- | Cost (in light units) per (length for maintaining the plant)^2, to limit the growth of the plants
-costPerLength = 0.002
+costPerLength = 0.001
 
 -- | Cost (in length growths equivalent) per seed to be grown
 seedGrowthCost = 1.0
 
 -- | Length of one day, in seconds
-dayLength = 10 
+dayLength = 10
 
 -- | ε
 eps = 1e-9
index 42153f0..ff8fff3 100644 (file)
@@ -30,4 +30,4 @@ readArgs doit = do
                
 main = readArgs $ \garden -> do
        obs <- cairoObserver
-       lseedMainLoop True obs 30 garden
+       lseedMainLoop True obs 200 garden