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