getcolors.m

   1 function [col,varargout]=getcolors(colorscheme,varargin);\r
   2 % Returns a color or a sequence of colors.\r
   3 % The sequence can be accessed through a variable amount of output arguments\r
   4 % (each one containing a character representing a color), or through a string.\r
   5 %\r
   6 % Syntax: (* = optional)\r
   7 %\r
   8 % [color, color2, color3, ...] = getcolors(colorscheme);\r
   9 % colorseq = getcolors(colorscheme, n);\r
  10 %\r
  11 % In arguments:\r
  12 %\r
  13 % 1. colorscheme\r
  14 %       An integer that is used for calculating the color sequence. Different values\r
  15 %       give different sequences.\r
  16 % 2. n\r
  17 %       Amount of colors in the resulting sequence of colors (the 'colorseq' output argument)\r
  18 %\r
  19 % Out arguments:\r
  20 %\r
  21 % 1. color, color2, color3, ...\r
  22 %       A character representing a color. Matlab standards are used, so for instance\r
  23 %       'b' means blue and 'g' means green (see the documentation of the plot command\r
  24 %       for a list of colors).\r
  25 % 1. colorseq\r
  26 %       A string containing a sequence of colors (characters). \r
  27 \r
  28 % Toolbox for nonlinear filtering.\r
  29 % Copyright (C) 2005  Jakob Rosén <jakob.rosen@gmail.com>\r
  30 %\r
  31 % This program is free software; you can redistribute it and/or\r
  32 % modify it under the terms of the GNU General Public License\r
  33 % as published by the Free Software Foundation; either version 2\r
  34 % of the License, or (at your option) any later version.\r
  35 %\r
  36 % This program is distributed in the hope that it will be useful,\r
  37 % but WITHOUT ANY WARRANTY; without even the implied warranty of\r
  38 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
  39 % GNU General Public License for more details.\r
  40 %\r
  41 % You should have received a copy of the GNU General Public License\r
  42 % along with this program; if not, write to the Free Software\r
  43 % Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.\r
  44 \r
  45 %colors='brmkgcy';\r
  46 %colors='mrgkycb';\r
  47 colors='mrgbyck';\r
  48 \r
  49 n=length(colors);\r
  50 j=colorscheme;\r
  51 if nargin>1\r
  52         for i=1:varargin{1}\r
  53                 col(i)=colors(rem(j,n)+1);\r
  54                 j=j+4;\r
  55         end\r
  56 else\r
  57         col=colors(rem(j,n)+1);\r
  58         if nargout>=2\r
  59                 for i=1:nargout-1\r
  60                         j=j+4;\r
  61                         varargout{i}=colors(rem(j,n)+1);\r
  62                 end;\r
  63         end\r
  64 end\r