


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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

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