content: 
  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
  