diff options
Diffstat (limited to 'Build/source/utils/psutils/psutils-1.21/psresize.c')
-rw-r--r-- | Build/source/utils/psutils/psutils-1.21/psresize.c | 162 |
1 files changed, 162 insertions, 0 deletions
diff --git a/Build/source/utils/psutils/psutils-1.21/psresize.c b/Build/source/utils/psutils/psutils-1.21/psresize.c new file mode 100644 index 00000000000..bd1f961488b --- /dev/null +++ b/Build/source/utils/psutils/psutils-1.21/psresize.c @@ -0,0 +1,162 @@ +/* psresize.c + * Alter page size of document + * + * (c) Reuben Thomas 2012 + * (c) Angus J. C. Duggan 1991-1997 + * See file LICENSE for details. + */ + +#include "config.h" +#ifdef HAVE_UNISTD_H +#include <unistd.h> +#endif +#include <paper.h> + +#include "psutil.h" +#include "psspec.h" + +const char *syntax = "[-q] [-wWIDTH] [-hHEIGHT] [-pPAPER] [-WWIDTH] [-HHEIGHT] [-PPAPER] [INFILE [OUTFILE]]\n"; + +const char *argerr_message = "bad dimension\n"; + +int +main(int argc, char *argv[]) +{ + double scale, rscale; /* page scale */ + double waste, rwaste; /* amount wasted */ + double vshift, hshift; /* page centring shifts */ + int rotate; + double inwidth = -1; + double inheight = -1; + off_t sizeheaders[20]; /* headers to remove */ + PageSpec *specs; + int opt; + const struct paper *paper = NULL; + + SET_BINARY(stdin); + SET_BINARY(stdout); + + set_paper_size(NULL); + + vshift = hshift = 0; + rotate = 0; + + verbose = 1; + + program = *argv; + + while((opt = getopt(argc, argv, + "qw:h:p:W:H:P:")) != EOF) { + switch(opt) { + + case 'q': /* quiet */ + verbose = 0; + break; + case 'w': /* page width */ + width = singledimen(optarg); + break; + case 'h': /* page height */ + height = singledimen(optarg); + break; + case 'p': /* paper type */ + if ( (paper = paperinfo(optarg)) != NULL ) { + width = paperpswidth(paper); + height = paperpsheight(paper); + } else + message(FATAL, "paper size '%s' not recognised\n", optarg); + break; + case 'W': /* input page width */ + inwidth = singledimen(optarg); + break; + case 'H': /* input page height */ + inheight = singledimen(optarg); + break; + case 'P': /* input paper type */ + if ( (paper = paperinfo(optarg)) != NULL ) { + inwidth = paperpswidth(paper); + inheight = paperpsheight(paper); + } else + message(FATAL, "paper size '%s' not recognised\n", optarg); + break; + case 'v': /* version */ + default: + usage(); + } + } + + infile = stdin; + outfile = stdout; + + /* Be defensive */ + if((argc - optind) < 0 || (argc - optind) > 2) usage(); + + if (optind != argc) { + /* User specified an input file */ + if ((infile = fopen(argv[optind], "rb")) == NULL) + message(FATAL, "can't open input file %s\n", argv[optind]); + optind++; + } + + if (optind != argc) { + /* User specified an output file */ + if ((outfile = fopen(argv[optind], "wb")) == NULL) + message(FATAL, "can't open output file %s\n", argv[optind]); + optind++; + } + + if (optind != argc) usage(); + + if ((infile=seekable(infile))==NULL) + message(FATAL, "can't seek input\n"); + + if (width <= 0 || height <= 0) + message(FATAL, "output page width and height must be set\n"); + + scanpages(sizeheaders); + + if (inwidth <= 0 || inheight <= 0) + message(FATAL, "input page width and height must be set\n"); + + /* try normal orientation first */ + scale = MIN(width/inwidth, height/inheight); + waste = (width-scale*inwidth)*(width-scale*inwidth) + + (height-scale*inheight)*(height-scale*inheight); + hshift = (width - inwidth*scale)/2; + vshift = (height - inheight*scale)/2; + + /* try rotated orientation */ + rscale = MIN(height/inwidth, width/inheight); + rwaste = (height-scale*inwidth)*(height-scale*inwidth) + + (width-scale*inheight)*(width-scale*inheight); + if (rwaste < waste) { + double tmp = width; + scale = rscale; + hshift = (width + inheight*scale)/2; + vshift = (height - inwidth*scale)/2; + rotate = 1; + width = height; + height = tmp; + } + + width /= scale; + height /= scale; + + /* now construct specification list and run page rearrangement procedure */ + specs = newspec(); + + if (rotate) { + specs->rotate = 90; + specs->flags |= ROTATE; + } + specs->pageno = 0; + specs->scale = scale; + specs->flags |= SCALE; + specs->xoff = hshift; + specs->yoff = vshift; + specs->flags |= OFFSET; + + pstops_write(1, 1, 0, specs, 0.0, sizeheaders); /* do page rearrangement */ + + return 0; +} + |