let gray_gradient lowest highest =
  let range = highest -. lowest in
function foo -> gray ((highest -. foo)  /. range)