function [fnp1,cf] = CreateFigure(fn,figname)
%call with old figure number, will add 1. returns new figure number and
%figure handle
fnp1=fn+1;
disp(strcat("make new figure ", num2str(fnp1)," name: ",figname))
cf=figure;
reset(cf); %reset current figure properties to default
cf.Name=figname;
reset(gca);
end