let echelle_rouge nb = genere_echelle_couleur ~cmax:Graphics.red ~cmin:Graphics.black ~nb:nb