let
echelle_violet nb = genere_echelle_couleur ~cmax:
Graphics
.red ~cmin:
Graphics
.blue ~nb:nb