Changeset 14517
- Timestamp:
- 04/05/13 15:53:51 (12 years ago)
- Location:
- issm/trunk-jpl/src/m/plot/colormaps
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/m/plot/colormaps/demmap.m
r14299 r14517 1 function cmap = demmap(ncolors,minZ,maxZ );1 function cmap = demmap(ncolors,minZ,maxZ,varargin); 2 2 %DEMMAP - concatenate sea and land color depending on zmin and zmax 3 3 % 4 4 % Usage: 5 % cmap = demmap(n,zmin,zmax) 5 % cmap = demmap(n,zmin,zmax,varargin) 6 % 7 % Example: 8 % cmap = demmap(50,-300,1200); 9 % cmap = demmap(50,-300,1200,'dem'); 10 % cmap = demmap(50,-300,1200,'ibcao'); 6 11 12 %Input checks 7 13 if nargin<3, 8 14 help landseacolor 9 error('3 arguments necessary'); 15 error('3 or 4 arguments necessary'); 16 elseif nargin>4, 17 help landseacolor 18 error('3 or 4 arguments necessary'); 10 19 end 11 20 12 if minZ == maxZ; 13 maxZ = minZ+1; 21 if nargin==4, 22 colorscheme = varargin{1}; 23 if ~ischar(colorscheme), error('color scheme should be a string'); end 24 else 25 colorscheme = 'dem'; 14 26 end 15 27 … … 60 72 61 73 clim = [cmn cmx]; 62 cmap = [seacolor(nsea);landcolor(nland).^1.3]; 74 75 if strcmpi(colorscheme,'dem'), 76 cmap = [seacolor(nsea);landcolor(nland).^1.3]; 77 elseif strcmpi(colorscheme,'ibcao'); 78 cmap = ibcao(nsea,nland); 79 end
Note:
See TracChangeset
for help on using the changeset viewer.