let
echelle_rouge nb = genere_echelle_couleur ~cmax:
Graphics
.red ~cmin:
Graphics
.black ~nb:nb