+ { NULL, 0, NULL }
+};
+
+/*** add-blank ***/
+
+class add_blank_cmd : public cmd_exec {
+ int n;
+ paper_spec paper;
+public:
+ add_blank_cmd(cmd *c) : paper(c, true)
+ {
+ n = c->arg("n")->as_int(1);
+ }
+ vector<page *> process(vector<page *> &pages) override;
+};
+
+vector<page *> add_blank_cmd::process(vector<page *> &pages)
+{
+ vector<page *> out;
+
+ for (auto p: pages)
+ {
+ out.push_back(p);
+ for (int i=0; i<n; i++)
+ {
+ double w = paper.w, h = paper.h;
+ if (is_zero(w) || is_zero(h))
+ w = p->width, h = p->height;
+ out.push_back(new empty_page(w, h));
+ }
+ }
+
+ return out;
+}
+
+static const arg_def add_blank_args[] = {
+ { "n", AT_INT | AT_POSITIONAL, "Number of blank pages to add (default: 1)" },
+ PAPER_ARGS,
+ { NULL, 0, NULL }
+};
+
+/*** book ***/
+
+class book_cmd : public cmd_exec {
+ int n;
+public:
+ book_cmd(cmd *c)
+ {
+ n = c->arg("n")->as_int(0);
+ if (n % 4)
+ err("Number of pages per signature must be divisible by 4");
+ }
+ vector<page *> process(vector<page *> &pages) override;
+};
+
+vector<page *> book_cmd::process(vector<page *> &pages)
+{
+ vector<page *> in, out;
+
+ in = pages;
+ while (in.size() % 4)
+ in.push_back(new empty_page(in[0]->width, in[0]->height));
+
+ int i = 0;
+ while (i < (int) in.size())
+ {
+ int sig = in.size() - i;
+ if (n)
+ sig = min(sig, n);
+ for (int j=0; j<sig/2; j+=2)
+ {
+ out.push_back(in[i + sig-1-j]);
+ out.push_back(in[i + j]);
+ out.push_back(in[i + j+1]);
+ out.push_back(in[i + sig-2-j]);
+ }
+ i += sig;
+ }
+
+ return out;
+}
+
+static const arg_def book_args[] = {
+ { "n", AT_INT | AT_POSITIONAL, "Number of pages in a single booklet" },
+ { NULL, 0, NULL }
+};
+
+/*** nup ***/
+
+struct nup_state {
+ int rows, cols;
+ double tile_w, tile_h;
+ double paper_w, paper_h;
+ double fill_factor;
+ double scale;
+};
+
+class nup_cmd : public cmd_exec {
+ // Parameters
+ int grid_n, grid_m, num_tiles;
+ enum {
+ BY_ROWS,
+ BY_COLS,
+ BY_TILE,
+ } fill_by;
+ bool crop;
+ bool mixed;
+ int rotate;
+ double scale;
+ paper_spec paper;
+ margin_spec marg;
+ pos_spec pos;
+ pos_spec tpos;
+ double hspace, vspace;
+ cropmark_spec cmarks;
+
+ // Processing state
+ page *process_single(vector<page *> &in);
+ void find_config(vector<page *> &in, BBox *page_boxes);
+ void try_config(nup_state &st);
+ nup_state best;
+ bool found_solution;
+ BBox common_page_box;
+
+public:
+ nup_cmd(cmd *c) : paper(c), marg(c, "margin", "margin"), pos(c), tpos(c->arg("tpos")->as_string("tl")), cmarks(c, "c", "none")
+ {
+ grid_n = c->arg("n")->as_int(0);
+ grid_m = c->arg("m")->as_int(0);
+ if (grid_n > 0 && grid_m > 0)
+ num_tiles = grid_n * grid_m;
+ else if (grid_n > 0 && !grid_m)
+ num_tiles = grid_n;
+ else
+ err("Grid size must be at least 1x1");
+
+ const string by = c->arg("by")->as_string("rows");
+ if (by == "rows" || by == "row" || by == "r")
+ fill_by = BY_ROWS;
+ else if (by == "cols" || by == "cols" || by == "c")
+ fill_by = BY_COLS;
+ else if (by == "tile" || by == "t")
+ fill_by = BY_TILE;
+ else
+ err("Argument \"by\" must be rows/cols/tile");
+
+ crop = c->arg("crop")->as_int(0);
+ mixed = c->arg("mixed")->as_int(0);
+ rotate = c->arg("rotate")->as_int(-1);
+ scale = c->arg("scale")->as_double(0);
+
+ double space = c->arg("space")->as_double(0);
+ hspace = c->arg("hspace")->as_double(space);
+ vspace = c->arg("vspace")->as_double(space);
+
+ if (!is_zero(scale) && (!is_zero(paper.w) || rotate >= 0))
+ err("When used with explicit scaling, paper size nor rotation may be given");
+ if (!is_zero(scale) && !grid_m)
+ err("When used with explicit scaling, both grid sizes must be given");
+ }
+
+ vector<page *> process(vector<page *> &pages) override;
+};
+
+vector<page *> nup_cmd::process(vector<page *> &pages)
+{
+ vector<page *> out;
+
+ // Unless mixed is given, find the common page size
+ if (!mixed)
+ {
+ for (int i=0; i < (int) pages.size(); i++)
+ {
+ page *p = pages[i];
+ BBox pb = crop ? p->image_box : BBox(p->width, p->height);
+ if (!i)
+ common_page_box = pb;
+ else
+ common_page_box.join(pb);
+ }
+ debug("NUP: Common page box [%.3f %.3f]-[%.3f %.3f]",
+ common_page_box.x_min, common_page_box.y_min, common_page_box.x_max, common_page_box.y_max);
+ }
+
+ // Process one tile set after another
+ int i = 0;
+ while (i < (int) pages.size())
+ {
+ vector<page *> in;
+ if (fill_by == BY_TILE)
+ {
+ for (int j=0; j<num_tiles; j++)
+ in.push_back(pages[i]);
+ i++;
+ }
+ else
+ {
+ for (int j=0; j<num_tiles; j++)
+ {
+ if (i < (int) pages.size())
+ in.push_back(pages[i]);
+ else
+ in.push_back(new empty_page(in[0]->width, in[0]->height));
+ i++;
+ }
+ }
+ out.push_back(process_single(in));
+ }
+
+ return out;
+}
+
+void nup_cmd::try_config(nup_state &st)
+{
+ BBox window(st.paper_w, st.paper_h);
+ if (!marg.may_shrink(&window))
+ return;
+ marg.shrink_box(&window);
+ window.x_max -= (st.cols - 1) * hspace;
+ window.y_max -= (st.rows - 1) * vspace;
+ if (window.width() < 0 || window.height() < 0)
+ return;
+
+ BBox image(st.cols * st.tile_w, st.rows * st.tile_h);
+ st.scale = scale_to_fit(image, window);
+ st.fill_factor = (st.scale*image.width() * st.scale*image.height()) / (st.paper_w * st.paper_h);
+
+ if (debug_level > 1)
+ debug("Try: %dx%d on %.3f x %.3f => scale %.3f, fill %.6f",
+ st.cols, st.rows,
+ st.paper_w, st.paper_h,
+ st.scale, st.fill_factor);
+
+ if (!found_solution || best.fill_factor < st.fill_factor)
+ {
+ found_solution = true;
+ best = st;
+ }
+}
+
+void nup_cmd::find_config(vector<page *> &in, BBox *page_boxes)
+{
+ nup_state st;
+
+ // Determine tile size
+ st.tile_w = st.tile_h = 0;
+ for (int i=0; i<num_tiles; i++)
+ {
+ if (!mixed)
+ page_boxes[i] = common_page_box;
+ else if (crop)
+ page_boxes[i] = in[i]->image_box;
+ else
+ page_boxes[i] = BBox(in[i]->width, in[i]->height);
+ st.tile_w = max(st.tile_w, page_boxes[i].width());
+ st.tile_h = max(st.tile_h, page_boxes[i].height());
+ }
+ debug("NUP: %d tiles of size [%.3f,%.3f]", num_tiles, st.tile_w, st.tile_h);
+ debug_indent += 4;
+
+ // Try all possible configurations of tiles
+ found_solution = false;
+ if (!is_zero(scale))
+ {
+ // If explicit scaling is requested, we choose page size ourselves,
+ // so there is just one configuration.
+ st.rows = grid_n;
+ st.cols = grid_m;
+ st.paper_w = marg.l + st.cols*st.tile_w + (st.cols-1)*hspace + marg.r;
+ st.paper_h = marg.t + st.rows*st.tile_h + (st.rows-1)*vspace + marg.b;
+ try_config(st);
+ }
+ else
+ {
+ // Page size is fixed (either given or copied from the source pages),
+ // but we can have freedom to rotate and/or to choose grid size.
+ for (int rot=0; rot<=1; rot++)
+ {
+ if (rotate >= 0 && rot != rotate)
+ continue;
+
+ // Establish paper size
+ if (!is_zero(paper.w))
+ {
+ st.paper_w = paper.w;
+ st.paper_h = paper.h;
+ }
+ else
+ {
+ st.paper_w = in[0]->width;
+ st.paper_h = in[0]->height;
+ }
+ if (rot)
+ swap(st.paper_w, st.paper_h);
+
+ // Try grid sizes
+ if (grid_m)
+ {
+ st.rows = grid_n;
+ st.cols = grid_m;
+ try_config(st);
+ }
+ else
+ {
+ for (int r=1; r<=grid_n; r++)
+ if (!(grid_n % r))
+ {
+ st.rows = r;
+ st.cols = grid_n / r;
+ try_config(st);
+ }
+ }
+ }
+ }
+
+ if (!found_solution)
+ err("No feasible solution found");
+ debug("Best: %dx%d on %.3f x %.3f => scale %.3f, fill %.6f",
+ best.cols, best.rows,
+ best.paper_w, best.paper_h,
+ best.scale, best.fill_factor);
+ debug_indent -= 4;
+}
+
+class nup_page : public page {
+public:
+ vector<page *> orig_pages;
+ vector<pdf_matrix> xforms;
+ vector<BBox> tile_boxes;
+ cropmark_spec *cmarks;
+ void render(out_context *out, pdf_matrix xform) override;
+ nup_page(nup_state &st) : page(st.paper_w, st.paper_h) { }
+ void debug_dump() override
+ {
+ debug("N-up printing");
+ debug_indent += 4;
+ for (auto p: orig_pages)
+ p->debug_dump();
+ debug_indent -= 4;
+ }
+};
+
+void nup_page::render(out_context *out, pdf_matrix parent_xform)
+{
+ for (int i=0; i < (int) orig_pages.size(); i++)
+ {
+ if (cmarks->is_bg())
+ out->contents += cmarks->pdf_stream(out, tile_boxes[i], parent_xform);
+ orig_pages[i]->render(out, xforms[i] * parent_xform);
+ if (!cmarks->is_bg())
+ out->contents += cmarks->pdf_stream(out, tile_boxes[i], parent_xform);
+ }
+}
+
+page *nup_cmd::process_single(vector<page *> &in)
+{
+ BBox page_boxes[num_tiles];
+ find_config(in, page_boxes);
+ double tw = best.scale * best.tile_w;
+ double th = best.scale * best.tile_h;
+
+ // Construct transform from paper to grid of tiles
+ BBox paper_box(best.paper_w, best.paper_h);
+ marg.shrink_box(&paper_box);
+ BBox grid_box(best.cols * tw + (best.cols-1) * hspace,
+ best.rows * th + (best.rows-1) * vspace);
+ pdf_matrix place_xform = pos.place(grid_box, paper_box);
+
+ nup_page *p = new nup_page(best);
+ p->image_box = grid_box;
+ p->image_box.transform(place_xform);
+
+ for (int i=0; i<num_tiles; i++)
+ {
+ int r, c;
+ if (fill_by == BY_ROWS || fill_by == BY_TILE)
+ {
+ r = i / best.cols;
+ c = i % best.cols;
+ }
+ else
+ {
+ c = i / best.rows;
+ r = i % best.rows;
+ }
+
+ pdf_matrix m;
+ BBox &page_box = page_boxes[i];
+ m.shift(-page_box.x_min, -page_box.y_min);
+ m.scale(best.scale);
+ page_box.transform(m);
+
+ double x = c * (tw + hspace);
+ double y = (best.rows-1-r) * (th + vspace);
+ BBox tile_box = BBox(x, y, x+tw, y+th);
+ m.concat(tpos.place(page_box, tile_box));
+
+ p->orig_pages.push_back(in[i]);
+ p->xforms.push_back(m * place_xform);
+ p->tile_boxes.push_back(tile_box.transformed(place_xform));
+ p->cmarks = &cmarks;
+ }
+
+ return p;
+}
+
+static const arg_def nup_args[] = {
+ { "n", AT_INT | AT_POSITIONAL | AT_MANDATORY, "Number of tiles on a page" },
+ { "m", AT_INT | AT_POSITIONAL, "If both n and m are given, produce n x m tiles on a page" },
+ { "by", AT_STRING, "Tile filling order: rows/cols/tile (default: rows)" },
+ { "crop", AT_SWITCH, "Crop input pages to their image box" },
+ { "mixed", AT_SWITCH, "Allow input pages of mixed sizes" },
+ { "rotate", AT_SWITCH, "Force (non-)rotation" },
+ { "scale", AT_DOUBLE, "Force specific scaling factor" },
+ PAPER_ARGS,
+ MARGIN_ARGS1_NAMED("margin"),
+ MARGIN_ARGS2("margin"),
+ POS_ARGS,
+ CROPMARK_ARGS("c"),
+ { "tpos", AT_STRING, "Position of images inside tiles (default: tl)" },
+ { "space", AT_DIMEN, "Space between tiles (default: 0)" },
+ { "hspace", AT_DIMEN, "Horizontal space between tiles (default: space)" },
+ { "vspace", AT_DIMEN, "Vertical space between tiles (default: space)" },
+ { NULL, 0, NULL }
+};
+
+/*** cropmarks ***/
+
+class cropmarks_page : public page {
+ page *orig_page;
+ cropmark_spec *cm;
+public:
+ void render(out_context *out, pdf_matrix xform) override
+ {
+ orig_page->render(out, xform);
+ out->contents += cm->pdf_stream(out, image_box, xform);
+ }
+ void debug_dump() override
+ {
+ debug("Add cropmarks");
+ orig_page->debug_dump();
+ }
+ cropmarks_page(page *p, cropmark_spec *cms) : page(p), orig_page(p), cm(cms) { }
+};
+
+class cropmarks_cmd : public cmd_exec_simple {
+ cropmark_spec cm;
+ page *process_page(page *p) override
+ {
+ return new cropmarks_page(p, &cm);
+ }
+public:
+ cropmarks_cmd(cmd *c) : cm(c) { }
+};
+
+static const arg_def cropmarks_args[] = {
+ CROPMARK_ARGS(""),
+ { NULL, 0, NULL }
+};
+
+/*** clip ***/
+
+class clip_page : public page {
+ page *orig_page;
+ BBox clip_to;
+public:
+ void render(out_context *out, pdf_matrix xform) override
+ {
+ out->contents += "q " + clip_to.transformed(xform).to_rect() + " re W n ";
+ orig_page->render(out, xform);
+ out->contents += "Q ";
+ }
+ void debug_dump() override
+ {
+ debug("Clip [%.3f %.3f %.3f %.3f]", clip_to.x_min, clip_to.y_min, clip_to.x_max, clip_to.y_max);
+ orig_page->debug_dump();
+ }
+ clip_page(page *p, BBox &to) : page(p), orig_page(p), clip_to(to) { }
+};
+
+class clip_cmd : public cmd_exec_simple {
+ double bleed;
+ page *process_page(page *p) override
+ {
+ BBox to = p->image_box.enlarged(bleed);
+ return new clip_page(p, to);
+ }
+public:
+ clip_cmd(cmd *c)
+ {
+ bleed = c->arg("bleed")->as_double(0);
+ }
+};
+
+static const arg_def clip_args[] = {
+ { "bleed", AT_DIMEN, "Allow bleeding of image outside its box" },
+ { NULL, 0, NULL }
+};
+
+/*** common ***/
+
+class common_cmd : public cmd_exec {
+ vector<page *> process(vector<page *> &pages) override
+ {
+ if (!pages.size())
+ return pages;
+
+ const page *first = pages[0];
+ BBox pbox(first->width, first->height);
+ BBox ibox = first->image_box;
+ for (auto p: pages)
+ {
+ BBox pg(p->width, p->height);
+ pbox.join(pg);
+ ibox.join(p->image_box);
+ }
+
+ vector<page *> out;
+ for (auto p: pages)
+ {
+ page *q = new xform_page(p, pdf_matrix());
+ q->width = pbox.width();
+ q->height = pbox.height();
+ q->image_box = ibox;
+ out.push_back(q);
+ }
+
+ return out;
+ }
+public:
+ common_cmd(cmd *c UNUSED) { }
+};
+
+/*** slice ***/
+
+class slice_cmd : public cmd_exec {
+ paper_spec paper;
+ pos_spec pos;
+ margin_spec margin;
+ double bleed;
+public:
+ slice_cmd(cmd *c) : paper(c), pos(c), margin(c, "margin", "margin")
+ {
+ if (is_zero(paper.w) || is_zero(paper.h))
+ err("Paper format must be given");
+ bleed = c->arg("bleed")->as_double(0);
+ }
+ vector<page *> process(vector<page *> &pages) override;
+};
+
+vector<page *> slice_cmd::process(vector<page *> &pages)
+{
+ vector<page *> out;
+
+ for (auto p: pages)
+ {
+ double pw = paper.w - margin.l - margin.r;
+ double ph = paper.h - margin.t - margin.b;
+ if (pw < 0 || ph < 0)
+ err("Margins larger than paper");
+
+ int cols = (int) ceil((p->image_box.width() - 2*mm) / pw);
+ int rows = (int) ceil((p->image_box.height() - 2*mm) / ph);
+ BBox big_box(cols*pw, rows*ph);
+ pdf_matrix placement = pos.place(p->image_box, big_box);
+
+ debug("Slicing [%.3f,%.3f] to %dx%d [%.3f,%.3f]", p->image_box.width(), p->image_box.height(), rows, cols, pw, ph);
+ for (int r=0; r<rows; r++)
+ for (int c=0; c<cols; c++)
+ {
+ pdf_matrix xf = placement;
+ xf.shift(-c*pw, -(rows-1-r)*ph);
+ xf.shift(margin.l, margin.t);
+ page *q = new xform_page(p, xf);
+ q->width = paper.w;
+ q->height = paper.h;
+ BBox slice_box = BBox(margin.l, margin.t, paper.w - margin.r, paper.h - margin.b);
+ q->image_box = p->image_box.transformed(xf);
+ q->image_box.intersect(slice_box);
+ BBox bleeding_slice = slice_box.enlarged(bleed);
+ out.push_back(new clip_page(q, bleeding_slice));
+ }
+ }
+
+ return out;
+}
+
+static const arg_def slice_args[] = {
+ PAPER_ARGS,
+ POS_ARGS,
+ MARGIN_ARGS1_NAMED("margin"),
+ MARGIN_ARGS2("margin"),
+ { "bleed", AT_DIMEN, "Allow bleeding of image outside its box" },
+ { NULL, 0, NULL }