/[MITgcm]/MITgcm_contrib/gael/matlab_class/gcmfaces_misc/write2tex.m
ViewVC logotype

Diff of /MITgcm_contrib/gael/matlab_class/gcmfaces_misc/write2tex.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.9 by gforget, Mon Jul 28 20:54:14 2014 UTC revision 1.10 by gforget, Fri Sep 12 20:18:23 2014 UTC
# Line 32  elseif myStep==1; myLev=varargin{2}; Line 32  elseif myStep==1; myLev=varargin{2};
32  elseif myStep==2; myFig=varargin{2};  elseif myStep==2; myFig=varargin{2};
33  end;  end;
34    
35    %format use for printing out plots :
36    frmt='eps';
37    if ispc; frmt='jpg'; end;
38    
39  %create file starting with write2tex.header  %create file starting with write2tex.header
40  if myStep==0;  if myStep==0;
41      test0=dir(myFile);      test0=dir(myFile);
# Line 106  if myStep==2; Line 110  if myStep==2;
110      figure(myFig);      figure(myFig);
111      drawnow;      drawnow;
112      myFigNumTex=myFigNumTex+1;      myFigNumTex=myFigNumTex+1;
113      nn=strfind(myFile,filesep);      [dirTex,fileTex,EXT] = fileparts(myFile)
     if ~isempty(nn);  
         dirTex=myFile(1:nn(end)); fileTex=myFile(nn(end)+1:end-4);  
     else;  
         dirTex='./'; fileTex=myFile(1:end-4)  
     end;  
114      %print the very figure      %print the very figure
115      print(myFig,'-depsc',[dirTex fileTex '.fig' num2str(myFigNumTex)]);      if strcmp(frmt,'eps');
116          print(myFig,'-depsc',[dirTex fileTex '_fig' num2str(myFigNumTex) '.eps']);
117        elseif strcmp(frmt,'jpg');
118          print(myFig,'-djpeg90',[dirTex fileTex '_fig' num2str(myFigNumTex) '.jpg']);
119        elseif strcmp(frmt,'eps');
120          print(myFig,'-dpng',[dirTex fileTex '_fig' num2str(myFigNumTex) '.png']);
121        end
122      close;      close;
123      %add figure to text file      %add figure to text file
124      fprintf(fid,'\\frame{ \n');      fprintf(fid,'\\frame{ \n');
# Line 146  eval(['save ' myFile(1:end-4) '.mat myFi Line 151  eval(['save ' myFile(1:end-4) '.mat myFi
151  %compile  %compile
152  if myStep==5;  if myStep==5;
153      dirOrig=pwd;      dirOrig=pwd;
154      nn=strfind(myFile,filesep);      [PATHSTR,fileTex,EXT] = fileparts(myFile)
155      if ~isempty(nn);      cd(PATHSTR);
         cd(myFile(1:nn(end))); fileTex=myFile(nn(end)+1:end-4);  
     else;  
         fileTex=myFile(1:end-4);  
     end;  
156      system(['latex ' fileTex]);      system(['latex ' fileTex]);
157      system(['latex ' fileTex]);      system(['latex ' fileTex]);
158      system(['dvipdf ' fileTex]);      system(['dvipdf ' fileTex]);
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22