let echelle_jaune nb = genere_echelle_couleur ~cmax:Graphics.blue ~cmin:Graphics.white ~nb:nb