%
%  Syntax:  plotsets(Sets,ActiveSet)
%
%  Inputs:  Sets is either a 3x5 matrix containing the pi-curve parameters
%           for inputsets, or a 5x1 matrix containing the positions of out-
%           put singletons.  ActiveSet is an integer.
%
%  Result:  The current plot area has been cleared, and the family of fuzzy
%           sets or singletons contained in Sets has been plotted.  Set number
%           ActiveSet is plotted with a solid red line, the others with white
%           dotted lines.
%
%           Petur Snaeland,  30.04.1995.
%
function plotsets(Sets,ActiveSet)

%
%  Clear the current plot area (NOT the current figure!!)
%
cla;
%
%  Plot all sets in the family.
%
for i=1:size(Sets,1),
   if i == ActiveSet,
      strLineType = '-r';
   else
      strLineType = ':c';
   end
   hold on; plotset(Sets(i,:),strLineType);
end;