let
echelle_vert nb = genere_echelle_couleur ~cmax:
Graphics
.green ~cmin:
Graphics
.black ~nb:nb