Daniel@0: function dml_paperfig(fig,fn,fs,lw,colour,ms,lwr)
Daniel@0: % dml_paperfig(fontname)
Daniel@0: % dml_paperfig(fontname, fontsize)
Daniel@0: % dml_paperfig(fontname, fontsize, linewidth)
Daniel@0: % dml_paperfig(fontname::string, fontsize::natural, linewidth::nonneg, colour::bool)
Daniel@0: % dml_paperfig :: 
Daniel@0: %    string/'Times' ~'font name',
Daniel@0: %    natural/9      ~'font size',
Daniel@0: %    nonneg/0.4     ~'line width', 
Daniel@0: %    bool/1         ~'colour or b/w',
Daniel@0: %    nonneg/4       ~'marker size'
Daniel@0: % -> action handle.
Daniel@0: %
Daniel@0: % Sets up default linewidth and hardcopy inversion
Daniel@0: % for printing to white paper at  high resolution.
Daniel@0: % also, sets to white background. Optional font name
Daniel@0: % to used for labels etc.
Daniel@0: 
Daniel@0: figure(fig);
Daniel@0: clf;
Daniel@0: h=gcf;
Daniel@0: whitebg(h,'w');
Daniel@0: set(h,'Color','w');
Daniel@0: set(h,'DefaultTextFontSize',fs);
Daniel@0: set(h,'DefaultTextFontName',fn);
Daniel@0: set(h,'DefaultAxesFontSize',fs);
Daniel@0: set(h,'DefaultAxesFontName',fn);
Daniel@0: set(h,'DefaultAxesLineWidth',lwr*lw);
Daniel@0: set(h,'DefaultTextColor','k');
Daniel@0: set(h,'DefaultLineLineWidth',lw);
Daniel@0: set(h,'DefaultLineMarkerSize',ms);
Daniel@0: set(h,'InvertHardcopy','off');
Daniel@0: if ~colour,
Daniel@0: 	set(h,'DefaultAxesColorOrder',[0 0 0]);
Daniel@0: 	set(h,'DefaultAxesLineStyleOrder','-|:|--|-.');
Daniel@0: end