function formatPlot(FontSize,LineWidth,MarkerSize)
% formatPlot(FontSize,LineWidth,MarkerSize)
% defaults ...  FontSize = 9;  LineWidth=2;   MarkerSize = 6;
% formatPlot(0) : format plot for screen plotting
% then use ...
%  print('myFigure.pdf','-dpdfcrop');

if ( nargin < 3 ) ,  MarkerSize =  6;	end
if ( nargin < 2 ) ,  LineWidth  =  2.0;	end
if ( nargin < 1 ) ,  FontSize   =  0;   end

if ( FontSize == 1 ) FontSize = 12;   LineWidth=3;   MarkerSize = 6; end
if ( FontSize == 0 ) FontSize = 9;    LineWidth=1;   MarkerSize = 6; end

set (00, 'defaultTextFontSize', FontSize);
set (00, 'defaultAxesFontSize', FontSize);
set (00, 'defaultAxesLineWidth', max(1.5,floor(0.3*LineWidth)) );
set (00, 'defaultLineLineWidth', LineWidth);
set (00, 'defaultLineMarkerSize', MarkerSize);

return

%function formatPlot(figureHandle,plotHandle,lineWidth,fontSize,xDim,yDim)
%% formatPlot(figureHandle,plotHandle,lineWidth,fontSize,xDim,yDim)
%
%%if Y < 2
%%	apY = 0.15 + (2-Y)*0.35
%% if ( nargin < 1 || FontSize == 1 ) ,  FontSize =  10; LineWidth=5; end
%%else
%%	apY = 0.15
%%end
%
% leftMargin = 0.10;
% bottomMargin = 0.18;
%
% set (figureHandle,'paperType', '<custom>')
% set (figureHandle,'paperSize',[xDim yDim])
% set (figureHandle,'defaultAxesFontSize', fontSize)
% set (figureHandle,'paperPosition', [0,0,[xDim yDim]]) 
% set (figureHandle,'defaultAxesPosition', [0.30, 0.15, 0.75, 0.70])
%
% set (gca,'Position',[ leftMargin, bottomMargin, 0.97-leftMargin, 0.97-bottomMargin])
% set (gca,'lineWidth', max(1.5,lineWidth-3) )
%
% set (plotHandle,'LineWidth', lineWidth )
% set (plotHandle,'MarkerSize', lineWidth*3 )
%%%
