0001 function VMT_SaveFigs(pathname,to_export,figure_style)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022 if strcmpi('presentation',figure_style)
0023 style_print = false;
0024
0025 else
0026 style_print = true;
0027
0028 end
0029
0030
0031 BkgdColor = 'white';
0032 AxColor = 'black';
0033 FigColor = 'white';
0034 FntSize = 14;
0035 Res = 300;
0036 Format = 'png';
0037
0038
0039 Format = questdlg('What figure format would you prefer?', ...
0040 'Figure Export', ...
0041 'png','eps','png');
0042
0043
0044 for i = 1:length(to_export)
0045 switch to_export{i}
0046 case 'Plan View Map'
0047
0048 figure(findobj('name',to_export{i}))
0049 if style_print
0050
0051 if 0
0052 cptcmap('printvelocity.cpt')
0053 end
0054
0055 else
0056
0057 if 0
0058 cptcmap('printvelocity.cpt')
0059 end
0060 BkgdColor = 'black';
0061 AxColor = 'white';
0062 FigColor = 'black';
0063 end
0064
0065 VMT_ExportFIG(...
0066 pathname,...
0067 to_export{i},...
0068 BkgdColor,...
0069 AxColor,...
0070 FigColor,...
0071 FntSize,...
0072 Res,...
0073 Format);
0074
0075 case 'Mean Cross Section Contour'
0076
0077 figure(findobj('name',to_export{i}))
0078 if style_print
0079
0080
0081 set(findobj(gca,'tag','PlotBedElevation') ,'color' ,'k')
0082 set(findobj(gca,'tag','ReferenceVectorText'),'color' ,'k')
0083
0084
0085 if 0
0086 cptcmap('printvelocity.cpt')
0087
0088 end
0089
0090 else
0091
0092
0093
0094 set(findobj(gca,'tag','PlotBedElevation') ,'color' ,'w')
0095 set(findobj(gca,'tag','ReferenceVectorText'),'color' ,'w')
0096
0097
0098 if 0
0099 cptcmap('printvelocity.cpt')
0100
0101 else
0102 colormap jet
0103 end
0104
0105 BkgdColor = 'black';
0106 AxColor = 'white';
0107 FigColor = [0.3 0.3 0.3];
0108
0109 end
0110
0111 VMT_ExportFIG(...
0112 pathname,...
0113 to_export{i},...
0114 BkgdColor,...
0115 AxColor,...
0116 FigColor,...
0117 FntSize,...
0118 Res,...
0119 Format);
0120 end
0121 end
0122