let
echelle_metal nb = genere_echelle_couleur ~cmax:
Graphics
.red ~cmin:
Graphics
.yellow ~nb:nb