add-blue = color + res ->
  scale = gradient s ->
    res [ res <= max ] | max
    ' res = gradient * s; max = 255
  ;

  res = <
          % : color.%
          blue : scale color.blue `GS_NIGHT_BLUE
        >
_
  color : rgb
;