/*
* sarrayConvertFilesToPS()
*
* Input: sarray (of full path names)
* res (typ. 300 or 600 ppi)
* fileout (output ps file)
* Return: 0 if OK, 1 on error
*
* Notes:
* (1) See convertFilesToPS()
*/
l_int32
sarrayConvertFilesToPS(SARRAY *sa,
l_int32 res,
const char *fileout)
{
char *fname;
l_int32 i, nfiles, index, firstfile, ret, format;
PROCNAME("sarrayConvertFilesToPS");
if (!sa)
return ERROR_INT("sa not defined", procName, 1);
if (!fileout)
return ERROR_INT("fileout not defined", procName, 1);
if (res <= 0) {
L_INFO("setting res to 300 ppi", procName);
res = 300;
}
if (res < 10 || res > 4000)
L_WARNING("res is typically in the range 300-600 ppi", procName);
nfiles = sarrayGetCount(sa);
firstfile = TRUE;
for (i = 0, index = 0; i < nfiles; i++) {
fname = sarrayGetString(sa, i, L_NOCOPY);
ret = pixReadHeader(fname, &format, NULL, NULL, NULL, NULL, NULL);
if (ret) continue;
if (format == IFF_UNKNOWN)
continue;
writeImageCompressedToPSFile(fname, fileout, res, &firstfile, &index);
}
return 0;
}
/*
* sarrayConvertFilesFittedToPS()
*
* Input: sarray (of full path names)
* xpts, ypts (desired size in printer points; use 0 for default)
* fileout (output ps file)
* Return: 0 if OK, 1 on error
*
* Notes:
* (1) See convertFilesFittedToPS()
*/
l_int32
sarrayConvertFilesFittedToPS(SARRAY *sa,
l_float32 xpts,
l_float32 ypts,
const char *fileout)
{
char *fname;
l_int32 ret, i, w, h, nfiles, index, firstfile, format, res;
PROCNAME("sarrayConvertFilesFittedToPS");
if (!sa)
return ERROR_INT("sa not defined", procName, 1);
if (!fileout)
return ERROR_INT("fileout not defined", procName, 1);
if (xpts <= 0.0) {
L_INFO("setting xpts to 612.0", procName);
xpts = 612.0;
}
if (ypts <= 0.0) {
L_INFO("setting ypts to 792.0", procName);
ypts = 792.0;
}
if (xpts < 100.0 || xpts > 2000.0 || ypts < 100.0 || ypts > 2000.0)
L_WARNING("xpts,ypts are typically in the range 500-800", procName);
nfiles = sarrayGetCount(sa);
firstfile = TRUE;
for (i = 0, index = 0; i < nfiles; i++) {
fname = sarrayGetString(sa, i, L_NOCOPY);
ret = pixReadHeader(fname, &format, &w, &h, NULL, NULL, NULL);
if (ret) continue;
if (format == IFF_UNKNOWN)
continue;
/* Be sure the entire image is wrapped */
if (xpts * h < ypts * w)
res = (l_int32)((l_float32)w * 72.0 / xpts);
else
res = (l_int32)((l_float32)h * 72.0 / ypts);
writeImageCompressedToPSFile(fname, fileout, res, &firstfile, &index);
}
return 0;
}
/*
* pixaWriteCompressedToPS()
*
* Input: pixa (any set of images)
* fileout (output ps file)
* res (of input image)
* level (compression: 2 or 3)
* Return: 0 if OK, 1 on error
*
* Notes:
* (1) This generates a PS file of multiple page images, all
* with bounding boxes.
* (2) It compresses to:
* cmap + level2: jpeg
* cmap + level3: flate
* 1 bpp: tiffg4
* 2 or 4 bpp + level2: jpeg
* 2 or 4 bpp + level3: flate
* 8 bpp: jpeg
* 16 bpp: flate
* 32 bpp: jpeg
* (3) To generate a pdf, use: ps2pdf <infile.ps> <outfile.pdf>
*/
l_int32
pixaWriteCompressedToPS(PIXA *pixa,
const char *fileout,
l_int32 res,
l_int32 level)
{
char *tname, *g4_name, *jpeg_name, *png_name;
l_int32 i, n, firstfile, index, writeout, d;
PIX *pix, *pixt;
PIXCMAP *cmap;
PROCNAME("pixaWriteCompressedToPS");
if (!pixa)
return ERROR_INT("pixa not defined", procName, 1);
if (!fileout)
return ERROR_INT("fileout not defined", procName, 1);
if (level != 2 && level != 3) {
L_ERROR("only levels 2 and 3 permitted; using level 2\n", procName);
level = 2;
}
n = pixaGetCount(pixa);
firstfile = TRUE;
index = 0;
lept_mkdir("lept/comp");
g4_name = genTempFilename("/tmp/lept/comp", "temp.tif", 0, 0);
jpeg_name = genTempFilename("/tmp/lept/comp", "temp.jpg", 0, 0);
png_name = genTempFilename("/tmp/lept/comp", "temp.png", 0, 0);
for (i = 0; i < n; i++) {
writeout = TRUE;
pix = pixaGetPix(pixa, i, L_CLONE);
d = pixGetDepth(pix);
cmap = pixGetColormap(pix);
if (d == 1) {
tname = g4_name;
pixWrite(tname, pix, IFF_TIFF_G4);
} else if (cmap) {
if (level == 2) {
pixt = pixConvertForPSWrap(pix);
tname = jpeg_name;
pixWrite(tname, pixt, IFF_JFIF_JPEG);
pixDestroy(&pixt);
} else { /* level == 3 */
tname = png_name;
pixWrite(tname, pix, IFF_PNG);
}
} else if (d == 16) {
if (level == 2)
L_WARNING("d = 16; must write out flate\n", procName);
tname = png_name;
pixWrite(tname, pix, IFF_PNG);
} else if (d == 2 || d == 4) {
if (level == 2) {
pixt = pixConvertTo8(pix, 0);
tname = jpeg_name;
pixWrite(tname, pixt, IFF_JFIF_JPEG);
pixDestroy(&pixt);
} else { /* level == 3 */
tname = png_name;
pixWrite(tname, pix, IFF_PNG);
}
} else if (d == 8 || d == 32) {
tname = jpeg_name;
pixWrite(tname, pix, IFF_JFIF_JPEG);
} else { /* shouldn't happen */
L_ERROR("invalid depth: %d\n", procName, d);
writeout = FALSE;
}
pixDestroy(&pix);
if (writeout)
writeImageCompressedToPSFile(tname, fileout, res,
&firstfile, &index);
}
LEPT_FREE(g4_name);
LEPT_FREE(jpeg_name);
LEPT_FREE(png_name);
return 0;
}
