wolffd@0: function mk_collage_from_clqs(dir, cliques)
wolffd@0: 
wolffd@0: % For use with mk_ps_from_clqs.
wolffd@0: % This generates a latex file that glues all the .ps files
wolffd@0: % into one big figure.
wolffd@0: 
wolffd@0: cd(dir)
wolffd@0: C = length(cliques);
wolffd@0: 
wolffd@0: ncols = 4;
wolffd@0: width = 1.5;
wolffd@0: fid = fopen('collage.tex', 'w');
wolffd@0: fprintf(fid, '\\documentclass{article}\n');
wolffd@0: fprintf(fid, '\\usepackage{psfig}\n');
wolffd@0: fprintf(fid, '\\begin{document}\n');
wolffd@0: fprintf(fid, '\\centerline{\n');
wolffd@0: fprintf(fid, '\\begin{tabular}{');
wolffd@0: for col=1:ncols,  fprintf(fid, 'c'); end
wolffd@0: fprintf(fid, '}\n');
wolffd@0: c = 1;
wolffd@0: for row = 1:floor(C/ncols)
wolffd@0:   for col=1:ncols-1
wolffd@0:     fname = sprintf('%s/clq%d.ps', dir, c);
wolffd@0:     fprintf(fid, '\\psfig{file=%s,width=%3fin} & \n', fname, width);
wolffd@0:     c = c + 1;
wolffd@0:   end
wolffd@0:   fname = sprintf('%s/clq%d.ps', dir, c);
wolffd@0:   fprintf(fid, '\\psfig{file=%s,width=%3fin} \\\\ \n', fname, width);
wolffd@0:   c = c + 1;
wolffd@0: end
wolffd@0: % last row
wolffd@0: while (c <= C)
wolffd@0:   fname = sprintf('%s/clq%d.ps', dir, c);
wolffd@0:   fprintf(fid, '\\psfig{file=%s,width=%3fin} & \n', fname, width);
wolffd@0:   c = c + 1;
wolffd@0: end
wolffd@0: fprintf(fid, '\\end{tabular}\n');
wolffd@0: fprintf(fid, '}\n');
wolffd@0: fprintf(fid, '\\end{document}');
wolffd@0: fclose(fid);
wolffd@0: 
wolffd@0: !latex collage.tex &
wolffd@0: !dvips -o collage.ps collage.dvi &
wolffd@0: !ghostview collage.ps &