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