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