let echelle_intelligente = function
        |nb when (nb <= 5) -> (echelle_gris nb)
        |nb -> (genere_echelle_couleur ~cmax:(Graphics.rgb 255 176 0) ~cmin:(Graphics.rgb 0 204 255) ~nb:(nb+1))