colorHammDist ag e = myHSV (1 - relHammDist) 0.5 1
    where relHammDist = fromIntegral (hammDist e ag) / fromIntegral P.nrGeneTypes
colorHammDist ag e = myHSV (1 - relHammDist) 0.5 1
    where relHammDist = fromIntegral (hammDist e ag) / fromIntegral P.nrGeneTypes
colorHammDist ag e = myHSV (1 - relHammDist) 0.5 1
    where relHammDist = fromIntegral (hammDist e ag) / fromIntegral P.nrGeneTypes