Config.hs

module Config where
import Graphics.Gloss

-- Number of simulation steps per second of time.
simResolution :: Int
simResolution           = 300

-- How strongly the beads are pulled down to the bottom of the screen.
--      If this is too high wrt the simResoution then the simulation
--      will be unstable and beads will escape the box.
gravityCoeff :: Float
gravityCoeff            = 300

-- Whether to draw velocity vectors on beads.
showBeadVelocity        = False

-- Colors of things.
beadColor               = makeColor 0.5 0.5 1.0 1.0
beadOutlineColor        = makeColor 1.0 1.0 1.0 1.0
nodeColor               = makeColor 0.2 0.8 0.2 0.1
leafColor               = makeColor 0.8 0.2 0.2 0.1

-- The maximum depth of the quad tree.
treeMaxDepth :: Int
treeMaxDepth            = 4

-- Size of quadtree. Should be > boxSize.
treeSize :: Float
treeSize                = 300

-- Size of bead box.
boxSize :: Float
boxSize                 = 280

-- Bead setup.
beadRadius, beadSpace, beadCountX, beadCountY, beadBoxSize :: Float

beadRadius              = 5
beadSpace               = 1
beadBoxSize             = 2 * beadRadius + beadSpace
beadCountX              = 20
beadCountY              = 10

beadStuckCount :: Int
beadStuckCount          = 20