function p1 = copyPlotOptions(p1,p2)
% COPYPLOTOPTIONS Copies applicable properties from p2 to p1

%  Copyright 1986-2004 The MathWorks, Inc.
%  $Revision: 1.1.6.1 $   $Date: 2004/12/26 21:52:16 $

p1props = fields(p1);
p2props = fields(p2);

% Find common properties
p1p2props = intersect(p1props,p2props);

% Copy common properties
for ct = 1:length(p1p2props)
    p1.(p1p2props{ct}) = p2.(p1p2props{ct});
end