let echelle_violet nb = genere_echelle_couleur ~cmax:Graphics.red ~cmin:Graphics.blue ~nb:nb