let echelle_gris nb = genere_echelle_couleur ~cmax:Graphics.white ~cmin:Graphics.black ~nb:(nb+1)