cmap/fred.m at master · tsipkens/cmap · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

function cm = fred(n, varargin)
% Colormap: fred

%-- Parse inputs ---------------------------------------------------------%
if ~exist('n', 'var'); n = []; end
if isempty(n)
   f = get(groot,'CurrentFigure');
   if isempty(f)
      n = size(get(groot,'DefaultFigureColormap'),1);
   else
      n = size(f.Colormap,1);
   end
end
%-------------------------------------------------------------------------%

% Data for colormap:
cm = [
	0.140093000	0.038191000	0.261400000
	0.232541000	0.039300000	0.282590000
	0.321704000	0.000000000	0.284157000
	0.409070000	0.016665000	0.289545000
	0.493682000	0.000000000	0.283621000
	0.576428000	0.000000000	0.283762000
	0.656818000	0.000000000	0.289311000
	0.739388000	0.000000000	0.291995000
	0.812372000	0.000000000	0.286445000
	0.870530000	0.077696000	0.328736000
	0.913148000	0.177303000	0.387123000
	0.942394000	0.270698000	0.440465000
	0.954946000	0.367560000	0.495066000
	0.962206000	0.454103000	0.551613000
	0.969754000	0.531159000	0.605729000
	0.977590000	0.602140000	0.659115000
	0.985523000	0.669758000	0.708849000
	0.993840000	0.733954000	0.759587000
];

% Modify the colormap by interpolation to match number of waypoints.
cm = tools.interpolate(cm, n, varargin{:});

end