Config.hs

module Config where

import Brillo (Color, makeColor)


-- 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 :: Bool
showBeadVelocity = False


-- Colors of things.
beadColor :: Color
beadColor = makeColor 0.5 0.5 1.0 1.0
beadOutlineColor :: Color
beadOutlineColor = makeColor 1.0 1.0 1.0 1.0
nodeColor :: Color
nodeColor = makeColor 0.2 0.8 0.2 0.1
leafColor :: Color
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