function L = get_fonts(S)

% get_fonts - get matching system fonts
% -------------------------------------
%
% L = get_fonts(S)
%
% Input:
% ------
%  S - subset of fonts to look for
% 
% Output:
% -------
%  L - intersection of system fonts with subset fonts

%--------------------------------
% Author: Harold Figueroa
%--------------------------------
% $Revision: 1380 $
% $Date: 2005-07-27 18:37:56 -0400 (Wed, 27 Jul 2005) $
%--------------------------------

%--
% get all fonts
%--

L = listfonts;

if ((nargin < 1) || isempty(S))
	return;
end

%--
% select fonts
%--

L = intersect(L,S);