let
echelle_bleu nb = genere_echelle_couleur ~cmax:
Graphics
.blue ~cmin:
Graphics
.white ~nb:nb