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