onlyH rgb = Hls.fromHls (h, 0.5, 0.5)
  where (h, l, s) = Hls.toHls rgb
onlyH rgb = Hls.fromHls (h, 0.5, 0.5)
  where (h, l, s) = Hls.toHls rgb
onlyH rgb = Hls.fromHls (h, 0.5, 0.5)
  where (h, l, s) = Hls.toHls rgb