matlab_class/gcmfaces_misc/write2tex.m

function []=write2tex(myFile,myStep,varargin);
%object:        create/increment/complete/compile a tex file from within matlab
%input:         myFile is the file name
%               myStep is the operation to perform on the tex file
%                       0   create file starting with title page (see myText)
%                       1   add section or subsection (see myLev)
%                       2   add a figure plus caption (see myFig)
%                       3   add a paragraph
%                       4   finish file
%                       5   compile (latex x 2 then dvipdf)
%                       6   remove temporary files (incl. *fig*.ps)
%optional       myText is a cell array of text lines (for myStep=1 to 2)
%               myLev is the title level (for myStep=1)
%                       1=section, 2=subsection (not yet implemented)
%               myFig is a figure handle (for myStep=2)

if isempty(myFile)&myStep==2;
    myText=varargin{1};
    myText=[myText{:}];
    gcmfaces_caption(myText);
    return;
elseif isempty(myFile);
    %if no file name, then do nothing
    return; 
end;
if iscell(myFile);
    %extecute alternative command (myFile{1}) passing rest as arguments  
    eval([myFile{1} '(myFile{2:end});']); 
    return; 
end;


myText=[]; myLev=[]; myFig=[]; myRdm=[];
if myStep<4; myText=varargin{1}; end;
if myStep==0; myRdm=varargin{2};
elseif myStep==1; myLev=varargin{2};
elseif myStep==2; myFig=varargin{2};
end;

%format use for printing out plots :
frmt='eps';
if ispc; frmt='jpg'; end;

%create file starting with write2tex.header
if myStep==0;
    test0=dir(myFile);
    if ~isempty(test0);
        test0=input(['you are about to overwrite ' myFile ' !!! \n   type 1 to proceed, 0 to stop \n']);
    else;
        test0=1;
    end;
    if ~test0;
        return;
    else;
        fid=fopen(myFile,'w');

        fprintf(fid,'\\documentclass[12pt]{beamer}\n');
        fprintf(fid,'%%a nice series of examples for the beamer class:\n');
        fprintf(fid,'%%http://www.informatik.uni-freiburg.de/~frank/ENG/beamer/example/beamer-class-example-en-5.html\n');
        fprintf(fid,'\\usepackage{multicol}\n');

        fprintf(fid,'\n');
        fprintf(fid,'\\newcommand\\Fontvi{\\fontsize{6}{7.2}\\selectfont}\n');
        fprintf(fid,'\n');

        fprintf(fid,'\\begin{document} \n\n');

        fprintf(fid,'\\title{\n');
        for ii=1:length(myText); fprintf(fid,[myText{ii} '\\\\ \n']); end;
        fprintf(fid,'}\n\n');
        fprintf(fid,'\\date{\\today}\n\n');
        fprintf(fid,'\\frame{\\titlepage}\n\n');

        fprintf(fid,'\\frame{\n');
        fprintf(fid,'\\frametitle{Table of contents}\n');
        fprintf(fid,'\\begin{multicols}{2}\n');
        fprintf(fid,'\\Fontvi\n');
        fprintf(fid,'\\tableofcontents\n');
        fprintf(fid,'\\end{multicols}\n');
        fprintf(fid,'} \n\n');

        if ~isempty(myRdm);
          fprintf(fid,'\\frame{\n');
          fprintf(fid,'\\section{README}\n');
          fprintf(fid,'\\Fontvi\n');
          for pp=1:length(myRdm);
            fprintf(fid,[myRdm{pp} '\n\n']);
          end;
          fprintf(fid,'} \n\n');
        end;

        fclose(fid);
    end;
    myFigNumTex=0;
    mySection='';
    eval(['save ' myFile(1:end-4) '.mat myFigNumTex mySection;']);
end;

%open file and go to last line
fid=fopen(myFile,'a+');
eval(['load ' myFile(1:end-4) '.mat;']);

%add title or section page (see myLev)
if myStep==1;
    mySection=myText;
    if myLev==1; fprintf(fid,'\\section{\n');
    else; fprintf(fid,'\\subsection{\n');
    end;
    fprintf(fid,mySection);
    fprintf(fid,'} \n\n');
end;

%add a figure plus caption (see myFig)
if myStep==2;
    figure(myFig);
    drawnow;
    %add (but hide) caption directly in figure
    captionHandle=gcmfaces_caption([myText{:}]);
    set(captionHandle,'Visible','off');
    set(get(captionHandle,'Children'),'Visible','off');
    %set file names
    myFigNumTex=myFigNumTex+1;
    [dirTex,fileTex,EXT] = fileparts(myFile);
    %print figure
    if strcmp(frmt,'eps');
      print(myFig,'-depsc',[dirTex fileTex '_fig' num2str(myFigNumTex) '.eps']);
    elseif strcmp(frmt,'jpg');
      print(myFig,'-djpeg90',[dirTex fileTex '_fig' num2str(myFigNumTex) '.jpg']);
    elseif strcmp(frmt,'png');
      print(myFig,'-dpng',[dirTex fileTex '_fig' num2str(myFigNumTex) '.png']);
    end
    %save figure (with visible caption)
    set(captionHandle,'Visible','on');
    set(get(captionHandle,'Children'),'Visible','on');
    saveas(myFig,[dirTex fileTex '_fig' num2str(myFigNumTex)],'fig');
    %close figure
    close;
    %add figure to text file
    fprintf(fid,'\\frame{ \n');
    fprintf(fid,['\\frametitle{' mySection '} \n']);
    fprintf(fid,'\\begin{figure}[tbh] \\centering \n');
%     fprintf(fid,'\\includegraphics[width=\\textwidth,height=0.9\\textheight]');
    fprintf(fid,'\\includegraphics[width=0.75\\textwidth]');
    fprintf(fid,['{' fileTex '_fig' num2str(myFigNumTex) '.' frmt '}\n']);
    fprintf(fid,'\\caption{');
    for ii=1:length(myText); fprintf(fid,[myText{ii} '\n']); end;
    fprintf(fid,'} \\end{figure} \n');
    fprintf(fid,'} \n\n');
end;

%add a paragraph
if myStep==3;
    for ii=1:length(myText);
        fprintf(fid,[myText{ii} '\n']);
    end;
end;

%finish file
if myStep==4; fprintf(fid,'\n\n \\end{document} \n\n'); end;

%close file
fprintf(fid,'\n\n');
fclose(fid);
eval(['save ' myFile(1:end-4) '.mat myFigNumTex mySection;']);

%compile
if myStep==5;
    fprintf('\nNow we can attempt to compile the tex file from within Matlab. \n');
    fprintf('If the latex implementation is incomplete then this may fail, and \n');
    fprintf('user should then abort and compile the tex file from outside Matlab. \n');
    fprintf('The beamer class is required by in particular. In Matlab, if prompted \n');
    fprintf(' with a question mark then typing ''quit'' will abort compilation. \n');
    test0=input('\n type 1 to proceed or 0 to skip this attempt\n');
    if test0;
      dirOrig=pwd;
      [PATHSTR,fileTex,EXT] = fileparts(myFile);
      cd(PATHSTR);
      system(['latex ' fileTex]);
      system(['latex ' fileTex]);
      system(['dvipdf ' fileTex]);
      cd(dirOrig);
    end;
end;


%compile
if myStep==6&ispc;
    fprintf('warning : compiling tex to pdf is bypassed on PCs\n');
end;

if myStep==6&~ispc;
    dirOrig=pwd;
    nn=strfind(myFile,filesep);
    if ~isempty(nn);
        cd(myFile(1:nn(end))); fileTex=myFile(nn(end)+1:end-4);
    else;
        fileTex=myFile(1:end-4);
    end;
    delete([fileTex '_fig*']);
    delete([fileTex '.aux']);
    delete([fileTex '.log']);
    delete([fileTex '.out']);
    delete([fileTex '.dvi']);
    cd(dirOrig);
end;
1	function []=write2tex(myFile,myStep,varargin);
2	%object: create/increment/complete/compile a tex file from within matlab
3	%input: myFile is the file name
4	% myStep is the operation to perform on the tex file
5	% 0 create file starting with title page (see myText)
6	% 1 add section or subsection (see myLev)
7	% 2 add a figure plus caption (see myFig)
8	% 3 add a paragraph
9	% 4 finish file
10	% 5 compile (latex x 2 then dvipdf)
11	% 6 remove temporary files (incl. fig.ps)
12	%optional myText is a cell array of text lines (for myStep=1 to 2)
13	% myLev is the title level (for myStep=1)
14	% 1=section, 2=subsection (not yet implemented)
15	% myFig is a figure handle (for myStep=2)
16
17	if isempty(myFile)&myStep==2;
18	myText=varargin{1};
19	myText=[myText{:}];
20	gcmfaces_caption(myText);
21	return;
22	elseif isempty(myFile);
23	%if no file name, then do nothing
24	return;
25	end;
26	if iscell(myFile);
27	%extecute alternative command (myFile{1}) passing rest as arguments
28	eval([myFile{1} '(myFile{2:end});']);
29	return;
30	end;
31
32
33	myText=[]; myLev=[]; myFig=[]; myRdm=[];
34	if myStep<4; myText=varargin{1}; end;
35	if myStep==0; myRdm=varargin{2};
36	elseif myStep==1; myLev=varargin{2};
37	elseif myStep==2; myFig=varargin{2};
38	end;
39
40	%format use for printing out plots :
41	frmt='eps';
42	if ispc; frmt='jpg'; end;
43
44	%create file starting with write2tex.header
45	if myStep==0;
46	test0=dir(myFile);
47	if ~isempty(test0);
48	test0=input(['you are about to overwrite ' myFile ' !!! \n type 1 to proceed, 0 to stop \n']);
49	else;
50	test0=1;
51	end;
52	if ~test0;
53	return;
54	else;
55	fid=fopen(myFile,'w');
56
57	fprintf(fid,'\\documentclass[12pt]{beamer}\n');
58	fprintf(fid,'%%a nice series of examples for the beamer class:\n');
59	fprintf(fid,'%%http://www.informatik.uni-freiburg.de/~frank/ENG/beamer/example/beamer-class-example-en-5.html\n');
60	fprintf(fid,'\\usepackage{multicol}\n');
61
62	fprintf(fid,'\n');
63	fprintf(fid,'\\newcommand\\Fontvi{\\fontsize{6}{7.2}\\selectfont}\n');
64	fprintf(fid,'\n');
65
66	fprintf(fid,'\\begin{document} \n\n');
67
68	fprintf(fid,'\\title{\n');
69	for ii=1:length(myText); fprintf(fid,[myText{ii} '\\\\ \n']); end;
70	fprintf(fid,'}\n\n');
71	fprintf(fid,'\\date{\\today}\n\n');
72	fprintf(fid,'\\frame{\\titlepage}\n\n');
73
74	fprintf(fid,'\\frame{\n');
75	fprintf(fid,'\\frametitle{Table of contents}\n');
76	fprintf(fid,'\\begin{multicols}{2}\n');
77	fprintf(fid,'\\Fontvi\n');
78	fprintf(fid,'\\tableofcontents\n');
79	fprintf(fid,'\\end{multicols}\n');
80	fprintf(fid,'} \n\n');
81
82	if ~isempty(myRdm);
83	fprintf(fid,'\\frame{\n');
84	fprintf(fid,'\\section{README}\n');
85	fprintf(fid,'\\Fontvi\n');
86	for pp=1:length(myRdm);
87	fprintf(fid,[myRdm{pp} '\n\n']);
88	end;
89	fprintf(fid,'} \n\n');
90	end;
91
92	fclose(fid);
93	end;
94	myFigNumTex=0;
95	mySection='';
96	eval(['save ' myFile(1:end-4) '.mat myFigNumTex mySection;']);
97	end;
98
99	%open file and go to last line
100	fid=fopen(myFile,'a+');
101	eval(['load ' myFile(1:end-4) '.mat;']);
102
103	%add title or section page (see myLev)
104	if myStep==1;
105	mySection=myText;
106	if myLev==1; fprintf(fid,'\\section{\n');
107	else; fprintf(fid,'\\subsection{\n');
108	end;
109	fprintf(fid,mySection);
110	fprintf(fid,'} \n\n');
111	end;
112
113	%add a figure plus caption (see myFig)
114	if myStep==2;
115	figure(myFig);
116	drawnow;
117	%add (but hide) caption directly in figure
118	captionHandle=gcmfaces_caption([myText{:}]);
119	set(captionHandle,'Visible','off');
120	set(get(captionHandle,'Children'),'Visible','off');
121	%set file names
122	myFigNumTex=myFigNumTex+1;
123	[dirTex,fileTex,EXT] = fileparts(myFile);
124	%print figure
125	if strcmp(frmt,'eps');
126	print(myFig,'-depsc',[dirTex fileTex '_fig' num2str(myFigNumTex) '.eps']);
127	elseif strcmp(frmt,'jpg');
128	print(myFig,'-djpeg90',[dirTex fileTex '_fig' num2str(myFigNumTex) '.jpg']);
129	elseif strcmp(frmt,'png');
130	print(myFig,'-dpng',[dirTex fileTex '_fig' num2str(myFigNumTex) '.png']);
131	end
132	%save figure (with visible caption)
133	set(captionHandle,'Visible','on');
134	set(get(captionHandle,'Children'),'Visible','on');
135	saveas(myFig,[dirTex fileTex '_fig' num2str(myFigNumTex)],'fig');
136	%close figure
137	close;
138	%add figure to text file
139	fprintf(fid,'\\frame{ \n');
140	fprintf(fid,['\\frametitle{' mySection '} \n']);
141	fprintf(fid,'\\begin{figure}[tbh] \\centering \n');
142	% fprintf(fid,'\\includegraphics[width=\\textwidth,height=0.9\\textheight]');
143	fprintf(fid,'\\includegraphics[width=0.75\\textwidth]');
144	fprintf(fid,['{' fileTex '_fig' num2str(myFigNumTex) '.' frmt '}\n']);
145	fprintf(fid,'\\caption{');
146	for ii=1:length(myText); fprintf(fid,[myText{ii} '\n']); end;
147	fprintf(fid,'} \\end{figure} \n');
148	fprintf(fid,'} \n\n');
149	end;
150
151	%add a paragraph
152	if myStep==3;
153	for ii=1:length(myText);
154	fprintf(fid,[myText{ii} '\n']);
155	end;
156	end;
157
158	%finish file
159	if myStep==4; fprintf(fid,'\n\n \\end{document} \n\n'); end;
160
161	%close file
162	fprintf(fid,'\n\n');
163	fclose(fid);
164	eval(['save ' myFile(1:end-4) '.mat myFigNumTex mySection;']);
165
166	%compile
167	if myStep==5;
168	fprintf('\nNow we can attempt to compile the tex file from within Matlab. \n');
169	fprintf('If the latex implementation is incomplete then this may fail, and \n');
170	fprintf('user should then abort and compile the tex file from outside Matlab. \n');
171	fprintf('The beamer class is required by in particular. In Matlab, if prompted \n');
172	fprintf(' with a question mark then typing ''quit'' will abort compilation. \n');
173	test0=input('\n type 1 to proceed or 0 to skip this attempt\n');
174	if test0;
175	dirOrig=pwd;
176	[PATHSTR,fileTex,EXT] = fileparts(myFile);
177	cd(PATHSTR);
178	system(['latex ' fileTex]);
179	system(['latex ' fileTex]);
180	system(['dvipdf ' fileTex]);
181	cd(dirOrig);
182	end;
183	end;
184
185
186	%compile
187	if myStep==6&ispc;
188	fprintf('warning : compiling tex to pdf is bypassed on PCs\n');
189	end;
190
191	if myStep==6&~ispc;
192	dirOrig=pwd;
193	nn=strfind(myFile,filesep);
194	if ~isempty(nn);
195	cd(myFile(1:nn(end))); fileTex=myFile(nn(end)+1:end-4);
196	else;
197	fileTex=myFile(1:end-4);
198	end;
199	delete([fileTex '_fig*']);
200	delete([fileTex '.aux']);
201	delete([fileTex '.log']);
202	delete([fileTex '.out']);
203	delete([fileTex '.dvi']);
204	cd(dirOrig);
205	end;