iluke_print

 prints or save handle h

0001 function iluke_print(opt,savename,savedir,h)
0002 %
0003 % prints or save handle h
0004 %
0005 newfig = figure;
0006 %
0007 for ich = length(h):-1:1,
0008     ax(ich) = copyobj(h(ich),newfig);
0009 end
0010 %
0011 red = 1;
0012 lspace = 0.7;
0013 bspace = 0.7;
0014 %
0015 fontsize = 20;
0016 legfontsize = 16;
0017 %
0018 res = 600;
0019 %
0020 fontunits = 'points';
0021 %
0022 fontname = 'Times';
0023 legfontname = 'Times';
0024 %
0025 ch = get(newfig,'children');
0026 %
0027 for ich = 1:length(ch),
0028     %
0029     set(ch(ich),'fontunits',fontunits,'fontsize',fontsize,'fontname',fontname);
0030     %
0031     if strcmp(get(ch(ich),'tag'),'legend'),% legend
0032         cch = get(ch(ich),'children');
0033         for icch = 1:length(cch),
0034             if strcmp(get(cch(icch),'type'),'text'),
0035                 set(cch(icch),'fontunits',fontunits,'fontsize',legfontsize,'fontname',legfontname);
0036             end
0037         end
0038     elseif isempty(get(ch(ich),'tag')),% axis
0039         set(get(ch(ich),'xlabel'),'fontunits',fontunits,'fontsize',fontsize,'fontname',fontname);
0040         set(get(ch(ich),'ylabel'),'fontunits',fontunits,'fontsize',fontsize,'fontname',fontname);
0041         set(get(ch(ich),'zlabel'),'fontunits',fontunits,'fontsize',fontsize,'fontname',fontname);
0042         set(get(ch(ich),'title'),'fontunits',fontunits,'fontsize',fontsize,'fontname',fontname);
0043         %
0044         resizejd(ch(ich),red,lspace,bspace);
0045     end        
0046     %
0047 end
0048 %
0049 drawnow;
0050 %
0051 print_jd(opt,savename,savedir,newfig,res)
0052 %
0053 close(newfig)