type Coord = (Integer, Integer) -- x, y
type Bounds = (Integer, Integer, Integer, Integer) -- minX, maxX, minY, maxY
data Particle = Particle {_position :: Coord, _velocity :: Coord} deriving (Eq, Show)
type Coord = (Integer, Integer) -- x, y
type Bounds = (Integer, Integer, Integer, Integer) -- minX, maxX, minY, maxY
data Particle = Particle {_position :: Coord, _velocity :: Coord} deriving (Eq, Show)