esa(m)

function h = esa(m)
%ESA    Color map providing ESA corporate design colours.
%   ESA(M) returns an M-by-3 matrix of the colormap.
%   ESA, by itself, is the same length as the current colormap.
%
%   For example, to reset the colormap of the current figure:
%
%             colormap(esa)
%
%   See also HOT, HSV, GRAY, PINK, COOL, BONE, COPPER, FLAG, 
%   COLORMAP, RGBPLOT.

% Copyright (c) 2004-2006 by AMRON
% Norbert Marwan, Potsdam University, Germany
% http://www.agnld.uni-potsdam.de
%
% Last Revision: 2006-03-16
% Version: 2.2

if nargin < 1
    m = size(get(gcf,'colormap'),1); 
else
    if isempty(m), m = size(get(gcf,'colormap'),1); end
    if ischar(m), m = str2double(m); end
end

h = [     
     0.356860000000000011     0.466669999999999974     0.800000000000000044;

     0.387490000000000001     0.492070000000000007     0.809520000000000017;
     0.418109999999999982     0.517460000000000031     0.819049999999999945;
     0.448740000000000028     0.542860000000000009     0.828570000000000029;
     0.479360000000000008     0.568259999999999987     0.838099999999999956;
     0.509990000000000054     0.593650000000000011      0.84762000000000004;
     0.540610000000000035     0.619049999999999989     0.857140000000000013;
      0.57123999999999997     0.644449999999999967     0.866670000000000051;
     0.601870000000000016     0.669839999999999991     0.876190000000000024;
     0.632489999999999997     0.695239999999999969     0.885709999999999997;
     0.663120000000000043     0.720639999999999947     0.895240000000000036;
     0.693740000000000023     0.746029999999999971     0.904760000000000009;
     0.724369999999999958     0.771429999999999949     0.914290000000000047;
      0.75499000000000005     0.796830000000000038      0.92381000000000002;
     0.785619999999999985     0.822219999999999951     0.933329999999999993;
     0.816250000000000031      0.84762000000000004     0.942860000000000031;
     0.846870000000000012     0.873020000000000018     0.952380000000000004;
     0.877499999999999947     0.898410000000000042     0.961899999999999977;
     0.908120000000000038      0.92381000000000002     0.971430000000000016;
     0.938749999999999973     0.949209999999999998     0.980949999999999989;
     0.969369999999999954     0.974600000000000022     0.990480000000000027;
                        1                        1                        1;
                        1     0.988589999999999969     0.961679999999999979;
                        1     0.977180000000000049     0.923359999999999959;
                        1     0.965770000000000017     0.885050000000000003;
                        1     0.954359999999999986     0.846729999999999983;
                        1     0.942949999999999955     0.808409999999999962;
                        1     0.931549999999999989     0.770090000000000052;
                        1     0.920139999999999958     0.731770000000000032;
                        1     0.908730000000000038     0.693450000000000011;
                        1     0.897320000000000007     0.655139999999999945;
                        1     0.885909999999999975     0.616820000000000035;
                        1     0.874500000000000055     0.578500000000000014;
                        1     0.863090000000000024     0.540179999999999993;
                        1     0.851679999999999993     0.501859999999999973;
                        1     0.840269999999999961     0.463550000000000018;
                        1     0.828860000000000041     0.425229999999999997;
                        1      0.81745000000000001     0.386909999999999976;
                        1     0.806050000000000044     0.348590000000000011;
                        1     0.794640000000000013      0.31026999999999999;
                        1     0.783229999999999982     0.271950000000000025;
                        1     0.771819999999999951     0.233639999999999987;
                        1      0.76041000000000003     0.195319999999999994;
                        1     0.748999999999999999     0.157000000000000001;
                        1     0.730099999999999971     0.157000000000000001;
                        1     0.711200000000000054     0.157000000000000001;
                        1     0.692300000000000026     0.157000000000000001;
                        1     0.673399999999999999     0.157000000000000001;
                        1     0.654499999999999971     0.157000000000000001;
                        1     0.635600000000000054     0.157000000000000001;
                        1     0.616700000000000026     0.157000000000000001;
                        1     0.597799999999999998     0.157000000000000001;
                        1      0.57889999999999997     0.157000000000000001;
                        1     0.560000000000000053     0.157000000000000001;
                        1     0.541100000000000025     0.157000000000000001;
                        1     0.522199999999999998     0.157000000000000001;
                        1      0.50329999999999997     0.157000000000000001;
                        1     0.484399999999999997     0.157000000000000001;
                        1     0.465500000000000025     0.157000000000000001;
                        1     0.446599999999999997     0.157000000000000001;
                        1     0.427700000000000025     0.157000000000000001;
                        1     0.408799999999999997     0.157000000000000001;
                        1     0.389900000000000024     0.157000000000000001;
                        1     0.370999999999999996     0.157000000000000001;
];

if m ~= length(h)
    H = resample(h, m,length(h));
    H(H > 1) = 1;
    H(H < 0) = 0;
    h = H;
end