function out=makepdf(syl)
switch lower(syl)
    case {'small','s'}
xp=get(gca,'Xlabel');
set(xp,'Fontsize',12); %change xlabel font size
yp=get(gca,'Ylabel');
set(yp,'Fontsize',12); %change ylabel font size
set(gca,'Fontsize',12);
set(gca,'Linewidth',1.5);
set(gca,'ticklength',2*get(gca,'ticklength')) %modify the tick length
set(gcf, 'PaperPosition', [0 0 4 3.5]); %Position plot at left hand corner with width 5 and height 5.
set(gcf, 'PaperSize', [4 3.5]);
    case{'big','b'}
xp=get(gca,'Xlabel');
set(xp,'Fontsize',24); %change xlabel font size
yp=get(gca,'Ylabel');
set(yp,'Fontsize',24); %change ylabel font size
set(gca,'Fontsize',24);
set(gca,'Linewidth',3);
set(gca,'ticklength',2*get(gca,'ticklength'))
set(gcf, 'PaperPosition', [0 0 8 7]); %Position plot at left hand corner with width 5 and height 5.
set(gcf, 'PaperSize', [8 7]);
    otherwise
       disp('Unknown format, saving the original plot')
end
filn=input('Please specify file name (*.pdf):  ','s');
saveas(gcf,filn)
    

