colorHammDist :: Agent -> Env -> Color4 Float
colorHammDist NoAgent _ = Color4 0 0 0 0
colorHammDist :: Agent -> Env -> Color4 Float
colorHammDist NoAgent _ = Color4 0 0 0 0
colorHammDist NoAgent _ = Color4 0 0 0 0