+
−% PROCESSSETTERVALUES
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% DESCRIPTION: PROCESSSETTERVALUES.
+
−%                1. Checks if the value is in the plist
+
−%                2. Checks if there are more than one value that the number
+
−%                   of values are the same as the number of objects.
+
−%                3. Replicate the values to the number of objects.
+
−%
+
−% CALL:        [objs, values] = processSetterValues(objs, pls, rest, pName)
+
−%
+
−% IMPUTS:      objs:  Array of objects
+
−%              pls:   Array of PLISTs or empty array
+
−%              rest:  Cell-array with possible values
+
−%              pName: Property name of objs
+
−%
+
−% VERSION:     $Id: processSetterValues.m,v 1.4 2011/09/17 03:09:37 hewitson Exp $
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function [objs, values] = processSetterValues(objs, pls, rest, pName)
+
−  
+
−  % If pls contains only one plist with the single key of the property name
+
−  % then set the property with a plist.
+
−  if length(pls) == 1 && isa(pls, 'plist') && isparam(pls, pName)
+
−    rest{1} = find(pls, pName);
+
−  end
+
−  
+
−  % Check if the user uses a cell-array for the different values
+
−  if numel(rest)==1 && iscell(rest{1})
+
−    rest = rest{1};
+
−  end
+
−  
+
−  % Check the number of value
+
−  if numel(rest) > 1 && numel(rest) ~= numel(objs)
+
−    error('### Please specify one %s [n=%d] for each %s [n=%d], either in a plist or direct.', pName, numel(rest), upper(class(objs)), numel(objs));
+
−  end
+
−  
+
−  % Replicate the values in 'rest' to the number of AOs
+
−  if numel(rest) == 1 && numel(objs) ~= 1
+
−    u = rest{1};
+
−    rest = cell(size(objs));
+
−    if isa(u, 'ltpda_obj')
+
−      rest = cellfun(@(x){copy(u, 1)}, rest);
+
−    else
+
−      rest(:) = {u};
+
−    end
+
−  end
+
−  
+
−  values = rest;
+
−  
+
−end