Home > classes > @specwin > set.m

set

PURPOSE ^

SET sets a specwin property.

SYNOPSIS ^

function w = set(w, varargin)

DESCRIPTION ^

 SET sets a specwin property.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

 DESCRIPTION: SET sets a specwin property.

 CALL:        w = set(w, 'name',     'my window');
              w = set(w, 'alpha',    -1);
              w = set(w, 'psll',     -1);
              w = set(w, 'rov',      -1);
              w = set(w, 'nenbw',    -1);
              w = set(w, 'w3db',     -1);
              w = set(w, 'flatness', -1);
              w = set(w, 'ws',       -1);
              w = set(w, 'ws2',      -1);
              w = set(w, 'win',      -1);
              w = set(w, 'created',   time-object);
              w = set(w, 'version',  'cvs version string');

 VERSION:     $Id: set.m,v 1.4 2008/01/11 14:04:43 ingo Exp $

 HISTORY:     30-01-2007 M Hewitson
                 Creation

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function w = set(w, varargin)
0002 % SET sets a specwin property.
0003 %
0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0005 %
0006 % DESCRIPTION: SET sets a specwin property.
0007 %
0008 % CALL:        w = set(w, 'name',     'my window');
0009 %              w = set(w, 'alpha',    -1);
0010 %              w = set(w, 'psll',     -1);
0011 %              w = set(w, 'rov',      -1);
0012 %              w = set(w, 'nenbw',    -1);
0013 %              w = set(w, 'w3db',     -1);
0014 %              w = set(w, 'flatness', -1);
0015 %              w = set(w, 'ws',       -1);
0016 %              w = set(w, 'ws2',      -1);
0017 %              w = set(w, 'win',      -1);
0018 %              w = set(w, 'created',   time-object);
0019 %              w = set(w, 'version',  'cvs version string');
0020 %
0021 % VERSION:     $Id: set.m,v 1.4 2008/01/11 14:04:43 ingo Exp $
0022 %
0023 % HISTORY:     30-01-2007 M Hewitson
0024 %                 Creation
0025 %
0026 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0027 
0028 VERSION  = '$Id: set.m,v 1.4 2008/01/11 14:04:43 ingo Exp $';
0029 
0030 % Check if this is a call for parameters
0031 if nargin == 2
0032   if isa(w, 'specwin') && ischar(varargin{1})
0033     in = char(varargin{1});
0034     if strcmp(in, 'Params')
0035       w = plist();
0036       return
0037     elseif strcmp(in, 'Version')
0038       w = VERSION;
0039       return
0040     end
0041   end
0042 end
0043 
0044 property_argin = varargin;
0045 
0046 fields = fieldnames(w);
0047 
0048 while length(property_argin) >= 2
0049   prop = property_argin{1};
0050   val  = property_argin{2};
0051   property_argin = property_argin(3:end);
0052 
0053   if ~ismember(prop, fields)
0054     error(['### ', prop, ' is not a valid specwin property.']);
0055   else
0056 
0057     %% For all specwin objects (specwin can be a vector or a matrix)
0058     for ii = 1:length(w)
0059       w(ii).(prop) = val;
0060     end
0061 
0062   end
0063 
0064 
0065 end

Generated on Tue 22-Jan-2008 10:39:13 by m2html © 2003