src/extension/internal/ps.cpp

   1 #define __SP_PS_C__
   2
   3 /** \file
   4  * PostScript printing.
   5  */
   6 /*
   7  * Authors:
   8  *   Lauris Kaplinski <lauris@kaplinski.com>
   9  *   bulia byak <buliabyak@users.sf.net>
  10  *
  11  * Basic printing code, EXCEPT image and
  12  * ascii85 filter is in public domain
  13  *
  14  * Image printing and Ascii85 filter:
  15  *
  16  * Copyright (C) 1995 Spencer Kimball and Peter Mattis
  17  * Copyright (C) 1997-98 Peter Kirchgessner
  18  * George White <aa056@chebucto.ns.ca>
  19  * Austin Donnelly <austin@gimp.org>
  20  *
  21  * Licensed under GNU GPL
  22  */
  23
  24 /* Plain Print */
  25
  26 #ifdef HAVE_CONFIG_H
  27 # include "config.h"
  28 #endif
  29
  30 #include <signal.h>
  31 #include <errno.h>
  32
  33 #include <libnr/n-art-bpath.h>
  34
  35 #include <gtk/gtkstock.h>
  36 #include <gtk/gtkvbox.h>
  37 #include <gtk/gtkframe.h>
  38 #include <gtk/gtkradiobutton.h>
  39 #include <gtk/gtkcombo.h>
  40 #include <gtk/gtklabel.h>
  41 #include <gtk/gtkentry.h>
  42 #include <gtk/gtktooltips.h>
  43
  44 #include <glibmm/i18n.h>
  45 #include "display/nr-arena-item.h"
  46 #include "display/canvas-bpath.h"
  47 #include "sp-item.h"
  48 #include "style.h"
  49 #include "sp-linear-gradient.h"
  50 #include "sp-radial-gradient.h"
  51
  52 #include "libnrtype/font-instance.h"
  53 #include "libnrtype/font-style-to-pos.h"
  54
  55 #include <unit-constants.h>
  56
  57 #include "ps.h"
  58 #include "extension/system.h"
  59 #include "extension/print.h"
  60
  61 #include "io/sys.h"
  62
  63 namespace Inkscape {
  64 namespace Extension {
  65 namespace Internal {
  66
  67 PrintPS::PrintPS() :
  68     _stream(NULL),
  69     _dpi(72),
  70     _bitmap(false)
  71 {
  72 }
  73
  74 PrintPS::~PrintPS(void)
  75 {
  76     /* fixme: should really use pclose for popen'd streams */
  77     if (_stream) fclose(_stream);
  78
  79     /* restore default signal handling for SIGPIPE */
  80 #if !defined(_WIN32) && !defined(__WIN32__)
  81     (void) signal(SIGPIPE, SIG_DFL);
  82 #endif
  83
  84     return;
  85 }
  86
  87 unsigned int
  88 PrintPS::setup(Inkscape::Extension::Print * mod)
  89 {
  90     static gchar const *const pdr[] = {"72", "75", "100", "144", "150", "200", "300", "360", "600", "1200", "2400", NULL};
  91
  92 #ifdef TED
  93     Inkscape::XML::Node *repr = ((SPModule *) mod)->repr;
  94 #endif
  95
  96     unsigned int ret = FALSE;
  97
  98     /* Create dialog */
  99     GtkTooltips *tt = gtk_tooltips_new();
 100     g_object_ref((GObject *) tt);
 101     gtk_object_sink((GtkObject *) tt);
 102
 103     GtkWidget *dlg = gtk_dialog_new_with_buttons(_("Print Destination"),
 104 //            SP_DT_WIDGET(SP_ACTIVE_DESKTOP)->window,
 105             NULL,
 106             (GtkDialogFlags) (GTK_DIALOG_MODAL | GTK_DIALOG_NO_SEPARATOR | GTK_DIALOG_DESTROY_WITH_PARENT),
 107             GTK_STOCK_CANCEL,
 108             GTK_RESPONSE_CANCEL,
 109             GTK_STOCK_PRINT,
 110             GTK_RESPONSE_OK,
 111             NULL);
 112
 113     gtk_dialog_set_default_response(GTK_DIALOG(dlg), GTK_RESPONSE_OK);
 114
 115     GtkWidget *vbox = GTK_DIALOG(dlg)->vbox;
 116     gtk_container_set_border_width(GTK_CONTAINER(vbox), 4);
 117     /* Print properties frame */
 118     GtkWidget *f = gtk_frame_new(_("Print properties"));
 119     gtk_box_pack_start(GTK_BOX(vbox), f, FALSE, FALSE, 4);
 120     GtkWidget *vb = gtk_vbox_new(FALSE, 4);
 121     gtk_container_add(GTK_CONTAINER(f), vb);
 122     gtk_container_set_border_width(GTK_CONTAINER(vb), 4);
 123     /* Print type */
 124     bool const p2bm = mod->get_param_bool("bitmap");
 125     GtkWidget *rb = gtk_radio_button_new_with_label(NULL, _("Print using PostScript operators"));
 126     gtk_tooltips_set_tip((GtkTooltips *) tt, rb,
 127                          _("Use PostScript vector operators. The resulting image is usually smaller "
 128                            "in file size and can be arbitrarily scaled, but alpha transparency "
 129                            "and patterns will be lost."), NULL);
 130     if (!p2bm) gtk_toggle_button_set_active((GtkToggleButton *) rb, TRUE);
 131     gtk_box_pack_start(GTK_BOX(vb), rb, FALSE, FALSE, 0);
 132     rb = gtk_radio_button_new_with_label(gtk_radio_button_get_group((GtkRadioButton *) rb), _("Print as bitmap"));
 133     gtk_tooltips_set_tip((GtkTooltips *) tt, rb,
 134                          _("Print everything as bitmap. The resulting image is usually larger "
 135                            "in file size and cannot be arbitrarily scaled without quality loss, "
 136                            "but all objects will be rendered exactly as displayed."), NULL);
 137     if (p2bm) gtk_toggle_button_set_active((GtkToggleButton *) rb, TRUE);
 138     gtk_box_pack_start(GTK_BOX(vb), rb, FALSE, FALSE, 0);
 139     /* Resolution */
 140     GtkWidget *hb = gtk_hbox_new(FALSE, 4);
 141     gtk_box_pack_start(GTK_BOX(vb), hb, FALSE, FALSE, 0);
 142     GtkWidget *combo = gtk_combo_new();
 143     gtk_combo_set_value_in_list(GTK_COMBO(combo), FALSE, FALSE);
 144     gtk_combo_set_use_arrows(GTK_COMBO(combo), TRUE);
 145     gtk_combo_set_use_arrows_always(GTK_COMBO(combo), TRUE);
 146     gtk_widget_set_size_request(combo, 64, -1);
 147     gtk_tooltips_set_tip((GtkTooltips *) tt, GTK_COMBO(combo)->entry,
 148                          _("Preferred resolution (dots per inch) of bitmap"), NULL);
 149     /* Setup strings */
 150     GList *sl = NULL;
 151     for (unsigned i = 0; pdr[i] != NULL; i++) {
 152         sl = g_list_prepend(sl, (gpointer) pdr[i]);
 153     }
 154     sl = g_list_reverse(sl);
 155     gtk_combo_set_popdown_strings(GTK_COMBO(combo), sl);
 156     g_list_free(sl);
 157     if (1) {
 158         gchar const *val = mod->get_param_string("resolution");
 159         gtk_entry_set_text(GTK_ENTRY(GTK_COMBO(combo)->entry), val);
 160     }
 161     gtk_box_pack_end(GTK_BOX(hb), combo, FALSE, FALSE, 0);
 162     GtkWidget *l = gtk_label_new(_("Resolution:"));
 163     gtk_box_pack_end(GTK_BOX(hb), l, FALSE, FALSE, 0);
 164
 165     /* Print destination frame */
 166     f = gtk_frame_new(_("Print destination"));
 167     gtk_box_pack_start(GTK_BOX(vbox), f, FALSE, FALSE, 4);
 168     vb = gtk_vbox_new(FALSE, 4);
 169     gtk_container_add(GTK_CONTAINER(f), vb);
 170     gtk_container_set_border_width(GTK_CONTAINER(vb), 4);
 171
 172     l = gtk_label_new(_("Printer name (as given by lpstat -p);\n"
 173                         "leave empty to use the system default printer.\n"
 174                         "Use '> filename' to print to file.\n"
 175                         "Use '| prog arg...' to pipe to a program."));
 176     gtk_box_pack_start(GTK_BOX(vb), l, FALSE, FALSE, 0);
 177
 178     GtkWidget *e = gtk_entry_new();
 179     if (1) {
 180         gchar const *val = mod->get_param_string("destination");
 181         gtk_entry_set_text(GTK_ENTRY(e), ( val != NULL
 182                                            ? val
 183                                            : "" ));
 184     }
 185     gtk_box_pack_start(GTK_BOX(vb), e, FALSE, FALSE, 0);
 186
 187     // pressing enter in the destination field is the same as clicking Print:
 188     gtk_entry_set_activates_default(GTK_ENTRY(e), TRUE);
 189
 190     gtk_widget_show_all(vbox);
 191
 192     int const response = gtk_dialog_run(GTK_DIALOG(dlg));
 193
 194     g_object_unref((GObject *) tt);
 195
 196     if (response == GTK_RESPONSE_OK) {
 197         gchar const *fn;
 198         char const *sstr;
 199
 200         _bitmap = gtk_toggle_button_get_active((GtkToggleButton *) rb);
 201         sstr = gtk_entry_get_text(GTK_ENTRY(GTK_COMBO(combo)->entry));
 202         _dpi = (unsigned int) MAX((int)(atof(sstr)), 1);
 203         /* Arrgh, have to do something */
 204         fn = gtk_entry_get_text(GTK_ENTRY(e));
 205         /* skip leading whitespace, bug #1068483 */
 206         while (fn && *fn==' ') { fn++; }
 207         /* g_print("Printing to %s\n", fn); */
 208
 209         mod->set_param_bool("bitmap", _bitmap);
 210         mod->set_param_string("resolution", (gchar *)sstr);
 211         mod->set_param_string("destination", (gchar *)fn);
 212         ret = TRUE;
 213     }
 214
 215     gtk_widget_destroy(dlg);
 216
 217     return ret;
 218 }
 219
 220 unsigned int
 221 PrintPS::begin(Inkscape::Extension::Print *mod, SPDocument *doc)
 222 {
 223     gboolean epsexport = false;
 224
 225     _latin1_encoded_fonts.clear();
 226     _newlatin1font_proc_defined = false;
 227
 228     FILE *osf = NULL;
 229     FILE *osp = NULL;
 230
 231     gsize bytesRead = 0;
 232     gsize bytesWritten = 0;
 233     GError *error = NULL;
 234     gchar const *utf8_fn = mod->get_param_string("destination");
 235     gchar *local_fn = g_filename_from_utf8( utf8_fn,
 236                                             -1,  &bytesRead,  &bytesWritten, &error);
 237     gchar const *fn = local_fn;
 238
 239     /* TODO: Replace the below fprintf's with something that does the right thing whether in
 240      * gui or batch mode (e.g. --print=blah).  Consider throwing an exception: currently one of
 241      * the callers (sp_print_document_to_file, "ret = mod->begin(doc)") wrongly ignores the
 242      * return code.
 243      */
 244     if (fn != NULL) {
 245         if (*fn == '|') {
 246             fn += 1;
 247             while (isspace(*fn)) fn += 1;
 248 #ifndef WIN32
 249             osp = popen(fn, "w");
 250 #else
 251             osp = _popen(fn, "w");
 252 #endif
 253             if (!osp) {
 254                 fprintf(stderr, "inkscape: popen(%s): %s\n",
 255                         fn, strerror(errno));
 256                 return 0;
 257             }
 258             _stream = osp;
 259         } else if (*fn == '>') {
 260             fn += 1;
 261             epsexport = g_str_has_suffix(fn,".eps");
 262             while (isspace(*fn)) fn += 1;
 263             Inkscape::IO::dump_fopen_call(fn, "K");
 264             osf = Inkscape::IO::fopen_utf8name(fn, "w+");
 265             if (!osf) {
 266                 fprintf(stderr, "inkscape: fopen(%s): %s\n",
 267                         fn, strerror(errno));
 268                 return 0;
 269             }
 270             _stream = osf;
 271         } else {
 272             /* put cwd stuff in here */
 273             gchar *qn = ( *fn
 274                           ? g_strdup_printf("lpr -P %s", fn)  /* FIXME: quote fn */
 275                           : g_strdup("lpr") );
 276 #ifndef WIN32
 277             osp = popen(qn, "w");
 278 #else
 279             osp = _popen(qn, "w");
 280 #endif
 281             if (!osp) {
 282                 fprintf(stderr, "inkscape: popen(%s): %s\n",
 283                         qn, strerror(errno));
 284                 return 0;
 285             }
 286             g_free(qn);
 287             _stream = osp;
 288         }
 289     }
 290
 291     g_free(local_fn);
 292
 293     if (_stream) {
 294         /* fixme: this is kinda icky */
 295 #if !defined(_WIN32) && !defined(__WIN32__)
 296         (void) signal(SIGPIPE, SIG_IGN);
 297 #endif
 298     }
 299
 300     int const res = fprintf(_stream, ( epsexport
 301                                        ? "%%!PS-Adobe-3.0 EPSF-3.0\n"
 302                                        : "%%!PS-Adobe-3.0\n" ));
 303     /* flush this to test output stream as early as possible */
 304     if (fflush(_stream)) {
 305         /*g_print("caught error in sp_module_print_plain_begin\n");*/
 306         if (ferror(_stream)) {
 307             g_print("Error %d on output stream: %s\n", errno,
 308                     g_strerror(errno));
 309         }
 310         g_print("Printing failed\n");
 311         /* fixme: should use pclose() for pipes */
 312         fclose(_stream);
 313         _stream = NULL;
 314         fflush(stdout);
 315         return 0;
 316     }
 317
 318     // width and height in pt
 319     _width = sp_document_width(doc) * PT_PER_PX;
 320     _height = sp_document_height(doc) * PT_PER_PX;
 321
 322     NRRect d;
 323     bool   pageBoundingBox;
 324     bool   pageLandscape;
 325     pageBoundingBox = mod->get_param_bool("pageBoundingBox");
 326     // printf("Page Bounding Box: %s\n", pageBoundingBox ? "TRUE" : "FALSE");
 327     if (pageBoundingBox) {
 328         d.x0 = d.y0 = 0;
 329         d.x1 = ceil(_width);
 330         d.y1 = ceil(_height);
 331     } else {
 332         SPItem* doc_item = SP_ITEM(sp_document_root(doc));
 333         sp_item_invoke_bbox(doc_item, &d, sp_item_i2r_affine(doc_item), TRUE);
 334         // convert from px to pt
 335         d.x0 *= PT_PER_PX;
 336         d.x1 *= PT_PER_PX;
 337         d.y0 *= PT_PER_PX;
 338         d.y1 *= PT_PER_PX;
 339     }
 340
 341     Inkscape::SVGOStringStream os;
 342     if (res >= 0) {
 343
 344         os << "%%Creator: " << PACKAGE_STRING << "\n";
 345         // This will become problematic if inkscape gains the
 346         // ability to handle multi paged documents. If this is
 347         // the case the %%Orientation: comments should be
 348         // renamed to %%PageOrientation: and moved to the
 349         // respective pages.
 350         os << "%%Pages: 1\n";
 351
 352         // 2004 Dec 10, BFC:
 353         // The point of the following code is (1) to do the thing that's expected by users
 354         // who have done File>New>A4_landscape or ...letter_landscape (i.e., rotate
 355         // the output), while (2) not messing up users who simply want their output wider
 356         // than it is tall (e.g., small figures for inclusion in LaTeX).
 357         // The original patch by WQ only had the w>h condition.
 358         {
 359              double w = (d.x1 - d.x0); // width and height of bounding box, in pt
 360              double h = (d.y1 - d.y0);
 361              pageLandscape = (
 362                  (w > 0. && h > 0.) // empty documents fail this sanity check, have w<0, h<0
 363                  && (w > h)   // implies, but does not prove, the user wanted landscape
 364                  && (w > 600) // approximate maximum printable width of an A4
 365                  && (!epsexport) // eps should always be portrait
 366              )
 367              ? true : false;
 368         }
 369
 370         if (pageLandscape) {
 371             os << "%%Orientation: Landscape\n";
 372             os << "%%BoundingBox: " << (int) (_height - d.y1) << " "
 373                << (int) d.x0 << " "
 374                << (int) ceil(_height - d.y0) << " "
 375                << (int) ceil(d.x1) << "\n";
 376             // According to Mike Sweet (the author of CUPS)
 377             // HiResBoundingBox is only appropriate
 378             // for EPS files. This means that we should
 379             // distinguish if we export to ps or eps here.
 380             // FIXME: I couldn't find HiResBoundingBox in the PS
 381             // reference manual, so I guess we should skip
 382             // it.
 383             os << "%%HiResBoundingBox: " << (_height - d.y1) << " "
 384                << d.x0 << " "
 385                << (_height - d.y0) << " "
 386                << d.x1 << "\n";
 387         } else {
 388             os << "%%Orientation: Portrait\n";
 389             os << "%%BoundingBox: " << (int) d.x0 << " "
 390                << (int) d.y0 << " "
 391                << (int) ceil(d.x1) << " "
 392                << (int) ceil(d.y1) << "\n";
 393             os << "%%HiResBoundingBox: " << d.x0 << " "
 394                << d.y0 << " "
 395                << d.x1 << " "
 396                << d.y1 << "\n";
 397         }
 398
 399         os << "%%EndComments\n";
 400         // This will become problematic if we print multi paged documents:
 401         os << "%%Page: 1 1\n";
 402
 403         if (pageLandscape) {
 404             os << "90 rotate\n";
 405             if (_bitmap) {
 406                 os << "0 " << (int) -ceil(_height) << " translate\n";
 407             }
 408         } else {
 409             if (!_bitmap) {
 410                 os << "0 " << (int) ceil(_height) << " translate\n";
 411             }
 412         }
 413
 414         if (!_bitmap) {
 415             os << PT_PER_PX << " " << -PT_PER_PX << " scale\n";
 416             // from now on we can output px, but they will be treated as pt
 417         }
 418     }
 419
 420     /* FIXME: This function is declared to return unsigned, whereas fprintf returns a signed int *
 421      * that can be zero if the first fprintf failed (os is empty) or "negative" (i.e. very positive
 422      * in unsigned int interpretation) if the first fprintf failed but this one succeeds, or
 423      * positive if both succeed. */
 424     return fprintf(_stream, "%s", os.str().c_str());
 425 }
 426
 427 unsigned int
 428 PrintPS::finish(Inkscape::Extension::Print *mod)
 429 {
 430     if (!_stream) return 0;
 431
 432     if (_bitmap) {
 433         double const dots_per_pt = _dpi / PT_PER_IN;
 434
 435         double const x0 = 0.0;
 436         double const y0 = 0.0;
 437         double const x1 = x0 + _width;
 438         double const y1 = y0 + _height;
 439
 440         /* Bitmap width/height in bitmap dots. */
 441         int const width = (int) (_width * dots_per_pt + 0.5);
 442         int const height = (int) (_height * dots_per_pt + 0.5);
 443
 444         NRMatrix affine;
 445         affine.c[0] = width / ((x1 - x0) * PX_PER_PT);
 446         affine.c[1] = 0.0;
 447         affine.c[2] = 0.0;
 448         affine.c[3] = height / ((y1 - y0) * PX_PER_PT);
 449         affine.c[4] = -affine.c[0] * x0;
 450         affine.c[5] = -affine.c[3] * y0;
 451
 452         nr_arena_item_set_transform(mod->root, &affine);
 453
 454         guchar *const px = nr_new(guchar, 4 * width * 64);
 455
 456         for (int y = 0; y < height; y += 64) {
 457             /* Set area of interest. */
 458             NRRectL bbox;
 459             bbox.x0 = 0;
 460             bbox.y0 = y;
 461             bbox.x1 = width;
 462             bbox.y1 = MIN(height, y + 64);
 463
 464             /* Update to renderable state. */
 465             NRGC gc(NULL);
 466             nr_matrix_set_identity(&gc.transform);
 467             nr_arena_item_invoke_update(mod->root, &bbox, &gc, NR_ARENA_ITEM_STATE_ALL, NR_ARENA_ITEM_STATE_NONE);
 468             /* Render */
 469             /* This should take guchar* instead of unsigned char*) */
 470             NRPixBlock pb;
 471             nr_pixblock_setup_extern(&pb, NR_PIXBLOCK_MODE_R8G8B8A8N,
 472                                      bbox.x0, bbox.y0, bbox.x1, bbox.y1,
 473                                      (guchar*)px, 4 * width, FALSE, FALSE);
 474             memset(px, 0xff, 4 * width * 64);
 475             nr_arena_item_invoke_render(mod->root, &bbox, &pb, 0);
 476             /* Blitter goes here */
 477             NRMatrix imgt;
 478             imgt.c[0] = (bbox.x1 - bbox.x0) / dots_per_pt;
 479             imgt.c[1] = 0.0;
 480             imgt.c[2] = 0.0;
 481             imgt.c[3] = (bbox.y1 - bbox.y0) / dots_per_pt;
 482             imgt.c[4] = 0.0;
 483             imgt.c[5] = _height - y / dots_per_pt - (bbox.y1 - bbox.y0) / dots_per_pt;
 484
 485             print_image(_stream, px, bbox.x1 - bbox.x0, bbox.y1 - bbox.y0, 4 * width, &imgt);
 486         }
 487
 488         nr_free(px);
 489     }
 490
 491     fprintf(_stream, "showpage\n");
 492     int const res = fprintf(_stream, "%%%%EOF\n");
 493
 494     /* Flush stream to be sure. */
 495     (void) fflush(_stream);
 496
 497     /* fixme: should really use pclose for popen'd streams */
 498     fclose(_stream);
 499     _stream = 0;
 500     _latin1_encoded_fonts.clear();
 501
 502     return res;
 503 }
 504
 505 unsigned int
 506 PrintPS::bind(Inkscape::Extension::Print *mod, NRMatrix const *transform, float opacity)
 507 {
 508     if (!_stream) return 0;  // XXX: fixme, returning -1 as unsigned.
 509     if (_bitmap) return 0;
 510
 511     Inkscape::SVGOStringStream os;
 512     os << "gsave [" << transform->c[0] << " "
 513        << transform->c[1] << " "
 514        << transform->c[2] << " "
 515        << transform->c[3] << " "
 516        << transform->c[4] << " "
 517        << transform->c[5] << "] concat\n";
 518
 519     return fprintf(_stream, "%s", os.str().c_str());
 520 }
 521
 522 unsigned int
 523 PrintPS::release(Inkscape::Extension::Print *mod)
 524 {
 525     if (!_stream) return 0; // XXX: fixme, returning -1 as unsigned.
 526     if (_bitmap) return 0;
 527
 528     return fprintf(_stream, "grestore\n");
 529 }
 530
 531 unsigned int
 532 PrintPS::comment(Inkscape::Extension::Print *mod, char const *comment)
 533 {
 534     if (!_stream) return 0; // XXX: fixme, returning -1 as unsigned.
 535     if (_bitmap) return 0;
 536
 537     return fprintf(_stream, "%%! %s\n",comment);
 538 }
 539
 540 void
 541 PrintPS::print_fill_style(SVGOStringStream &os, SPStyle const *const style, NRRect const *pbox)
 542 {
 543     g_return_if_fail( style->fill.type == SP_PAINT_TYPE_COLOR
 544                       || ( style->fill.type == SP_PAINT_TYPE_PAINTSERVER
 545                            && SP_IS_GRADIENT(SP_STYLE_FILL_SERVER(style)) ) );
 546
 547     if (style->fill.type == SP_PAINT_TYPE_COLOR) {
 548         float rgb[3];
 549         sp_color_get_rgb_floatv(&style->fill.value.color, rgb);
 550
 551         os << rgb[0] << " " << rgb[1] << " " << rgb[2] << " setrgbcolor\n";
 552
 553     } else {
 554         g_assert( style->fill.type == SP_PAINT_TYPE_PAINTSERVER
 555                   && SP_IS_GRADIENT(SP_STYLE_FILL_SERVER(style)) );
 556
 557         if (SP_IS_LINEARGRADIENT(SP_STYLE_FILL_SERVER(style))) {
 558
 559             SPLinearGradient *lg = SP_LINEARGRADIENT(SP_STYLE_FILL_SERVER(style));
 560             NR::Point p1 (lg->x1.computed, lg->y1.computed);
 561             NR::Point p2 (lg->x2.computed, lg->y2.computed);
 562             if (pbox && SP_GRADIENT(lg)->units == SP_GRADIENT_UNITS_OBJECTBOUNDINGBOX) {
 563                 // convert to userspace
 564                 NR::Matrix bbox2user(pbox->x1 - pbox->x0, 0, 0, pbox->y1 - pbox->y0, pbox->x0, pbox->y0);
 565                 p1 *= bbox2user;
 566                 p2 *= bbox2user;
 567             }
 568
 569             os << "<<\n/ShadingType 2\n/ColorSpace /DeviceRGB\n";
 570             os << "/Coords [" << p1[NR::X] << " " << p1[NR::Y] << " " << p2[NR::X] << " " << p2[NR::Y] <<"]\n";
 571             os << "/Extend [true true]\n";
 572             os << "/Domain [0 1]\n";
 573             os << "/Function <<\n/FunctionType 3\n/Functions\n[\n";
 574
 575             sp_gradient_ensure_vector(SP_GRADIENT(lg)); // when exporting from commandline, vector is not built
 576             for (unsigned i = 0; i + 1 < lg->vector.stops.size(); i++) {
 577                 float rgb[3];
 578                 sp_color_get_rgb_floatv(&lg->vector.stops[i].color, rgb);
 579                 os << "<<\n/FunctionType 2\n/Domain [0 1]\n";
 580                 os << "/C0 [" << rgb[0] << " " << rgb[1] << " " << rgb[2] << "]\n";
 581                 sp_color_get_rgb_floatv(&lg->vector.stops[i+1].color, rgb);
 582                 os << "/C1 [" << rgb[0] << " " << rgb[1] << " " << rgb[2] << "]\n";
 583                 os << "/N 1\n>>\n";
 584             }
 585             os << "]\n/Domain [0 1]\n";
 586             os << "/Bounds [ ";
 587             for (unsigned i = 0; i + 2 < lg->vector.stops.size(); i++) {
 588                 os << lg->vector.stops[i+1].offset <<" ";
 589             }
 590             os << "]\n";
 591             os << "/Encode [ ";
 592             for (unsigned i = 0; i + 1 < lg->vector.stops.size(); i++) {
 593                 os << "0 1 ";
 594             }
 595             os << "]\n";
 596             os << ">>\n>>\n";
 597
 598         } else if (SP_IS_RADIALGRADIENT(SP_STYLE_FILL_SERVER(style))) {
 599
 600             SPRadialGradient *rg = SP_RADIALGRADIENT(SP_STYLE_FILL_SERVER(style));
 601             NR::Point c(rg->cx.computed, rg->cy.computed);
 602             NR::Point f(rg->fx.computed, rg->fy.computed);
 603             double r = rg->r.computed;
 604             if (pbox && SP_GRADIENT(rg)->units == SP_GRADIENT_UNITS_OBJECTBOUNDINGBOX) {
 605                 // convert to userspace
 606                 NR::Matrix const bbox2user(pbox->x1 - pbox->x0, 0,
 607                                            0, pbox->y1 - pbox->y0,
 608                                            pbox->x0, pbox->y0);
 609                 c *= bbox2user;
 610                 f *= bbox2user;
 611                 r *= bbox2user.expansion();
 612             }
 613
 614             os << "<<\n/ShadingType 3\n/ColorSpace /DeviceRGB\n";
 615             os << "/Coords ["<< f[NR::X] <<" "<< f[NR::Y] <<" 0 "<< c[NR::X] <<" "<< c[NR::Y] <<" "<< r <<"]\n";
 616             os << "/Extend [true true]\n";
 617             os << "/Domain [0 1]\n";
 618             os << "/Function <<\n/FunctionType 3\n/Functions\n[\n";
 619
 620             sp_gradient_ensure_vector(SP_GRADIENT(rg)); // when exporting from commandline, vector is not built
 621             for (unsigned i = 0; i + 1 < rg->vector.stops.size(); i++) {
 622                 float rgb[3];
 623                 sp_color_get_rgb_floatv(&rg->vector.stops[i].color, rgb);
 624                 os << "<<\n/FunctionType 2\n/Domain [0 1]\n";
 625                 os << "/C0 [" << rgb[0] << " " << rgb[1] << " " << rgb[2] << "]\n";
 626                 sp_color_get_rgb_floatv(&rg->vector.stops[i+1].color, rgb);
 627                 os << "/C1 [" << rgb[0] << " " << rgb[1] << " " << rgb[2] << "]\n";
 628                 os << "/N 1\n>>\n";
 629             }
 630             os << "]\n/Domain [0 1]\n";
 631             os << "/Bounds [ ";
 632             for (unsigned i = 0; i + 2 < rg->vector.stops.size(); i++) {
 633                 os << rg->vector.stops[i+1].offset << " ";
 634             }
 635             os << "]\n";
 636             os << "/Encode [ ";
 637             for (unsigned i = 0; i + 1 < rg->vector.stops.size(); i++) {
 638                 os << "0 1 ";
 639             }
 640             os << "]\n";
 641             os << ">>\n>>\n";
 642         }
 643     }
 644 }
 645
 646 void
 647 PrintPS::print_stroke_style(SVGOStringStream &os, SPStyle const *style)
 648 {
 649     float rgb[3];
 650     sp_color_get_rgb_floatv(&style->stroke.value.color, rgb);
 651
 652     os << rgb[0] << " " << rgb[1] << " " << rgb[2] << " setrgbcolor\n";
 653
 654     // There are rare cases in which for a solid line stroke_dasharray_set is true. To avoid
 655     // invalid PS-lines such as "[0.0000000 0.0000000] 0.0000000 setdash", which should be "[] 0 setdash",
 656     // we first check if all components of stroke_dash.dash are 0.
 657     bool LineSolid = true;
 658     if (style->stroke_dasharray_set &&
 659         style->stroke_dash.n_dash   &&
 660         style->stroke_dash.dash       )
 661     {
 662         int i = 0;
 663         while (LineSolid && (i < style->stroke_dash.n_dash)) {
 664                 if (style->stroke_dash.dash[i] > 0.00000001)
 665                     LineSolid = false;
 666                 i++;
 667         }
 668         if (!LineSolid) {
 669             os << "[";
 670             for (i = 0; i < style->stroke_dash.n_dash; i++) {
 671                 if (i > 0) {
 672                     os << " ";
 673                 }
 674                 os << style->stroke_dash.dash[i];
 675             }
 676             os << "] " << style->stroke_dash.offset << " setdash\n";
 677         } else {
 678             os << "[] 0 setdash\n";
 679         }
 680     } else {
 681         os << "[] 0 setdash\n";
 682     }
 683
 684     os << style->stroke_width.computed << " setlinewidth\n";
 685     os << style->stroke_linejoin.computed << " setlinejoin\n";
 686     os << style->stroke_linecap.computed << " setlinecap\n";
 687 }
 688
 689
 690 unsigned int
 691 PrintPS::fill(Inkscape::Extension::Print *mod, NRBPath const *bpath, NRMatrix const *ctm, SPStyle const *const style,
 692               NRRect const *pbox, NRRect const *dbox, NRRect const *bbox)
 693 {
 694     if (!_stream) return 0; // XXX: fixme, returning -1 as unsigned.
 695     if (_bitmap) return 0;
 696
 697     if ( style->fill.type == SP_PAINT_TYPE_COLOR
 698          || ( style->fill.type == SP_PAINT_TYPE_PAINTSERVER
 699               && SP_IS_GRADIENT(SP_STYLE_FILL_SERVER(style)) ) )
 700     {
 701         Inkscape::SVGOStringStream os;
 702
 703         os << "gsave\n";
 704
 705         print_fill_style(os, style, pbox);
 706
 707         print_bpath(os, bpath->path);
 708
 709         if (style->fill_rule.value == SP_WIND_RULE_EVENODD) {
 710             if (style->fill.type == SP_PAINT_TYPE_COLOR) {
 711                 os << "eofill\n";
 712             } else {
 713                 g_assert( style->fill.type == SP_PAINT_TYPE_PAINTSERVER
 714                           && SP_IS_GRADIENT(SP_STYLE_FILL_SERVER(style)) );
 715                 SPGradient const *g = SP_GRADIENT(SP_STYLE_FILL_SERVER(style));
 716                 os << "eoclip\n";
 717                 if (g->gradientTransform_set) {
 718                     os << "gsave [" << g->gradientTransform[0] << " " << g->gradientTransform[1]
 719                         << " " << g->gradientTransform[2] << " " << g->gradientTransform[3]
 720                         << " " << g->gradientTransform[4] << " " << g->gradientTransform[5] << "] concat\n";
 721                 }
 722                 os << "shfill\n";
 723                 if (g->gradientTransform_set) {
 724                     os << "grestore\n";
 725                 }
 726             }
 727         } else {
 728             if (style->fill.type == SP_PAINT_TYPE_COLOR) {
 729                 os << "fill\n";
 730             } else {
 731                 g_assert( style->fill.type == SP_PAINT_TYPE_PAINTSERVER
 732                           && SP_IS_GRADIENT(SP_STYLE_FILL_SERVER(style)) );
 733                 SPGradient const *g = SP_GRADIENT(SP_STYLE_FILL_SERVER(style));
 734                 os << "clip\n";
 735                 if (g->gradientTransform_set) {
 736                     os << "gsave [" << g->gradientTransform[0] << " " << g->gradientTransform[1]
 737                         << " " << g->gradientTransform[2] << " " << g->gradientTransform[3]
 738                         << " " << g->gradientTransform[4] << " " << g->gradientTransform[5] << "] concat\n";
 739                 }
 740                 os << "shfill\n";
 741                 if (g->gradientTransform_set) {
 742                     os << "grestore\n";
 743                 }
 744             }
 745         }
 746
 747         os << "grestore\n";
 748
 749         fprintf(_stream, "%s", os.str().c_str());
 750     }
 751
 752     return 0;
 753 }
 754
 755
 756 unsigned int
 757 PrintPS::stroke(Inkscape::Extension::Print *mod, NRBPath const *bpath, NRMatrix const *ctm, SPStyle const *style,
 758                 NRRect const *pbox, NRRect const *dbox, NRRect const *bbox)
 759 {
 760     if (!_stream) return 0; // XXX: fixme, returning -1 as unsigned.
 761     if (_bitmap) return 0;
 762
 763     if (style->stroke.type == SP_PAINT_TYPE_COLOR) {
 764         Inkscape::SVGOStringStream os;
 765
 766         print_stroke_style(os, style);
 767
 768         print_bpath(os, bpath->path);
 769
 770         os << "stroke\n";
 771
 772         fprintf(_stream, "%s", os.str().c_str());
 773     }
 774
 775     return 0;
 776 }
 777
 778 unsigned int
 779 PrintPS::image(Inkscape::Extension::Print *mod, guchar *px, unsigned int w, unsigned int h, unsigned int rs,
 780                NRMatrix const *transform, SPStyle const *style)
 781 {
 782     if (!_stream) return 0; // XXX: fixme, returning -1 as unsigned.
 783     if (_bitmap) return 0;
 784
 785     return print_image(_stream, px, w, h, rs, transform);
 786 #if 0
 787     fprintf(_stream, "gsave\n");
 788     fprintf(_stream, "/rowdata %d string def\n", 3 * w);
 789     fprintf(_stream, "[%g %g %g %g %g %g] concat\n",
 790             transform->c[0],
 791             transform->c[1],
 792             transform->c[2],
 793             transform->c[3],
 794             transform->c[4],
 795             transform->c[5]);
 796     fprintf(_stream, "%d %d 8 [%d 0 0 -%d 0 %d]\n", w, h, w, h, h);
 797     fprintf(_stream, "{currentfile rowdata readhexstring pop}\n");
 798     fprintf(_stream, "false 3 colorimage\n");
 799
 800     for (unsigned int r = 0; r < h; r++) {
 801         guchar *s;
 802         unsigned int c0, c1, c;
 803         s = px + r * rs;
 804         for (c0 = 0; c0 < w; c0 += 24) {
 805             c1 = MIN(w, c0 + 24);
 806             for (c = c0; c < c1; c++) {
 807                 static char const xtab[] = {'0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'};
 808                 fputc(xtab[s[0] >> 4], _stream);
 809                 fputc(xtab[s[0] & 0xf], _stream);
 810                 fputc(xtab[s[1] >> 4], _stream);
 811                 fputc(xtab[s[1] & 0xf], _stream);
 812                 fputc(xtab[s[2] >> 4], _stream);
 813                 fputc(xtab[s[2] & 0xf], _stream);
 814                 s += 4;
 815             }
 816             fputs("\n", _stream);
 817         }
 818     }
 819
 820     fprintf(_stream, "grestore\n");
 821
 822     return 0;
 823 #endif
 824 }
 825
 826 char const *
 827 PrintPS::PSFontName(SPStyle const *style)
 828 {
 829     font_instance *tf = (font_factory::Default())->Face(style->text->font_family.value, font_style_to_pos(*style));
 830
 831     char const *n;
 832     char name_buf[256];
 833
 834     if (tf) {
 835         tf->PSName(name_buf, sizeof(name_buf));
 836         n = name_buf;
 837         tf->Unref();
 838     } else {
 839         // this system does not have this font, so just use the name from SVG in the hope that PS interpreter will make sense of it
 840         bool i = (style->font_style.value == SP_CSS_FONT_STYLE_ITALIC);
 841         bool o = (style->font_style.value == SP_CSS_FONT_STYLE_OBLIQUE);
 842         bool b = (style->font_weight.value == SP_CSS_FONT_WEIGHT_BOLD) ||
 843             (style->font_weight.value >= SP_CSS_FONT_WEIGHT_500 && style->font_weight.value <= SP_CSS_FONT_WEIGHT_900);
 844
 845         n = g_strdup_printf("%s%s%s%s",
 846                             g_strdelimit(style->text->font_family.value, " ", '-'),
 847                             (b || i || o) ? "-" : "",
 848                             (b) ? "Bold" : "",
 849                             (i) ? "Italic" : ((o) ? "Oblique" : "") );
 850     }
 851
 852     return g_strdup(n);
 853 }
 854
 855
 856 unsigned int
 857 PrintPS::text(Inkscape::Extension::Print *mod, char const *text, NR::Point p,
 858               SPStyle const *const style)
 859 {
 860     if (!_stream) return 0; // XXX: fixme, returning -1 as unsigned.
 861     if (_bitmap) return 0;
 862
 863     Inkscape::SVGOStringStream os;
 864
 865     // Escape chars
 866     Inkscape::SVGOStringStream escaped_text;
 867     escaped_text << std::oct;
 868     for (gchar const *p_text = text ; *p_text ; p_text = g_utf8_next_char(p_text)) {
 869         gunichar const c = g_utf8_get_char(p_text);
 870         if (c == '\\' || c == ')' || c == '(')
 871             escaped_text << '\\' << static_cast<char>(c);
 872         else if (c >= 0x80)
 873             escaped_text << '\\' << c;
 874         else
 875             escaped_text << static_cast<char>(c);
 876     }
 877
 878     os << "gsave\n";
 879
 880     // set font
 881     char const *fn = PSFontName(style);
 882     if (_latin1_encoded_fonts.find(fn) == _latin1_encoded_fonts.end()) {
 883         if (!_newlatin1font_proc_defined) {
 884             // input: newfontname, existingfontname
 885             // output: new font object, also defined to newfontname
 886             os << "/newlatin1font "         // name of the proc
 887                   "{findfont dup length dict copy "     // load the font and create a copy of it
 888                   "dup /Encoding ISOLatin1Encoding put "     // change the encoding in the copy
 889                   "definefont} def\n";      // create the new font and leave it on the stack, define the proc
 890             _newlatin1font_proc_defined = true;
 891         }
 892         os << "/" << fn << "-ISOLatin1 /" << fn << " newlatin1font\n";
 893         _latin1_encoded_fonts.insert(fn);
 894     } else
 895         os << "/" << fn << "-ISOLatin1 findfont\n";
 896     os << style->font_size.computed << " scalefont\n";
 897     os << "setfont\n";
 898     g_free((void *) fn);
 899
 900     if ( style->fill.type == SP_PAINT_TYPE_COLOR
 901          || ( style->fill.type == SP_PAINT_TYPE_PAINTSERVER
 902               && SP_IS_GRADIENT(SP_STYLE_FILL_SERVER(style)) ) )
 903     {
 904         // set fill style
 905         print_fill_style(os, style, NULL);
 906         // FIXME: we don't know the pbox of text, so have to pass NULL. This means gradients with
 907         // bbox units won't work with text. However userspace gradients don't work with text either
 908         // (text is black) for some reason.
 909
 910         os << "newpath\n";
 911         os << p[NR::X] << " " << p[NR::Y] << " moveto\n";
 912         os << "(" << escaped_text.str() << ") show\n";
 913     }
 914
 915     if (style->stroke.type == SP_PAINT_TYPE_COLOR) {
 916
 917         // set stroke style
 918         print_stroke_style(os, style);
 919
 920         // paint stroke
 921         os << "newpath\n";
 922         os << p[NR::X] << " " << p[NR::Y] << " moveto\n";
 923         os << "(" << escaped_text.str() << ") false charpath stroke\n";
 924     }
 925
 926     os << "grestore\n";
 927
 928     fprintf(_stream, "%s", os.str().c_str());
 929
 930     return 0;
 931 }
 932
 933
 934
 935 /* PostScript helpers */
 936
 937 void
 938 PrintPS::print_bpath(SVGOStringStream &os, NArtBpath const *bp)
 939 {
 940     os << "newpath\n";
 941     bool closed = false;
 942     while (bp->code != NR_END) {
 943         switch (bp->code) {
 944             case NR_MOVETO:
 945                 if (closed) {
 946                     os << "closepath\n";
 947                 }
 948                 closed = true;
 949                 os << bp->x3 << " " << bp->y3 << " moveto\n";
 950                 break;
 951             case NR_MOVETO_OPEN:
 952                 if (closed) {
 953                     os << "closepath\n";
 954                 }
 955                 closed = false;
 956                 os << bp->x3 << " " << bp->y3 << " moveto\n";
 957                 break;
 958             case NR_LINETO:
 959                 os << bp->x3 << " " << bp->y3 << " lineto\n";
 960                 break;
 961             case NR_CURVETO:
 962                 os << bp->x1 << " " << bp->y1 << " "
 963                    << bp->x2 << " " << bp->y2 << " "
 964                    << bp->x3 << " " << bp->y3 << " curveto\n";
 965                 break;
 966             default:
 967                 break;
 968         }
 969         bp += 1;
 970     }
 971     if (closed) {
 972         os << "closepath\n";
 973     }
 974 }
 975
 976 /* The following code is licensed under GNU GPL.
 977 ** The packbits, ascii85 and imaging printing code
 978 ** is from the gimp's postscript.c.
 979 */
 980
 981 /**
 982 * \param nin Number of bytes of source data.
 983 * \param src Source data.
 984 * \param nout Number of output bytes.
 985 * \param dst Buffer for output.
 986 */
 987 void
 988 PrintPS::compress_packbits(int nin,
 989                            guchar *src,
 990                            int *nout,
 991                            guchar *dst)
 992
 993 {
 994     register guchar c;
 995     int nrepeat, nliteral;
 996     guchar *run_start;
 997     guchar *start_dst = dst;
 998     guchar *last_literal = NULL;
 999
1000     for (;;) {
1001         if (nin <= 0) break;
1002
1003         run_start = src;
1004         c = *run_start;
1005
1006         /* Search repeat bytes */
1007         if ((nin > 1) && (c == src[1])) {
1008             nrepeat = 1;
1009             nin -= 2;
1010             src += 2;
1011             while ((nin > 0) && (c == *src)) {
1012                 nrepeat++;
1013                 src++;
1014                 nin--;
1015                 if (nrepeat == 127) break; /* Maximum repeat */
1016             }
1017
1018             /* Add two-byte repeat to last literal run ? */
1019             if ( (nrepeat == 1)
1020                  && (last_literal != NULL) && (((*last_literal)+1)+2 <= 128) )
1021             {
1022                 *last_literal += 2;
1023                 *(dst++) = c;
1024                 *(dst++) = c;
1025                 continue;
1026             }
1027
1028             /* Add repeat run */
1029             *(dst++) = (guchar)((-nrepeat) & 0xff);
1030             *(dst++) = c;
1031             last_literal = NULL;
1032             continue;
1033         }
1034         /* Search literal bytes */
1035         nliteral = 1;
1036         nin--;
1037         src++;
1038
1039         for (;;) {
1040             if (nin <= 0) break;
1041
1042             if ((nin >= 2) && (src[0] == src[1])) /* A two byte repeat ? */
1043                 break;
1044
1045             nliteral++;
1046             nin--;
1047             src++;
1048             if (nliteral == 128) break; /* Maximum literal run */
1049         }
1050
1051         /* Could be added to last literal run ? */
1052         if ((last_literal != NULL) && (((*last_literal)+1)+nliteral <= 128)) {
1053             *last_literal += nliteral;
1054         } else {
1055             last_literal = dst;
1056             *(dst++) = (guchar)(nliteral-1);
1057         }
1058         while (nliteral-- > 0) *(dst++) = *(run_start++);
1059     }
1060     *nout = dst - start_dst;
1061 }
1062
1063 void
1064 PrintPS::ascii85_init(void)
1065 {
1066     ascii85_len = 0;
1067     ascii85_linewidth = 0;
1068 }
1069
1070 void
1071 PrintPS::ascii85_flush(SVGOStringStream &os)
1072 {
1073     char c[5];
1074     bool const zero_case = (ascii85_buf == 0);
1075     static int const max_linewidth = 75;
1076
1077     for (int i = 4; i >= 0; i--) {
1078         c[i] = (ascii85_buf % 85) + '!';
1079         ascii85_buf /= 85;
1080     }
1081     /* check for special case: "!!!!!" becomes "z", but only if not
1082      * at end of data. */
1083     if (zero_case && (ascii85_len == 4)) {
1084         if (ascii85_linewidth >= max_linewidth) {
1085             os << '\n';
1086             ascii85_linewidth = 0;
1087         }
1088         os << 'z';
1089         ascii85_linewidth++;
1090     } else {
1091         for (int i = 0; i < ascii85_len+1; i++) {
1092             if ((ascii85_linewidth >= max_linewidth) && (c[i] != '%')) {
1093                 os << '\n';
1094                 ascii85_linewidth = 0;
1095             }
1096             os << c[i];
1097             ascii85_linewidth++;
1098         }
1099     }
1100
1101     ascii85_len = 0;
1102     ascii85_buf = 0;
1103 }
1104
1105 inline void
1106 PrintPS::ascii85_out(guchar byte, SVGOStringStream &os)
1107 {
1108     if (ascii85_len == 4)
1109         ascii85_flush(os);
1110
1111     ascii85_buf <<= 8;
1112     ascii85_buf |= byte;
1113     ascii85_len++;
1114 }
1115
1116 void
1117 PrintPS::ascii85_nout(int n, guchar *uptr, SVGOStringStream &os)
1118 {
1119     while (n-- > 0) {
1120         ascii85_out(*uptr, os);
1121         uptr++;
1122     }
1123 }
1124
1125 void
1126 PrintPS::ascii85_done(SVGOStringStream &os)
1127 {
1128     if (ascii85_len) {
1129         /* zero any unfilled buffer portion, then flush */
1130         ascii85_buf <<= (8 * (4-ascii85_len));
1131         ascii85_flush(os);
1132     }
1133
1134     os << "~>\n";
1135 }
1136
1137 unsigned int
1138 PrintPS::print_image(FILE *ofp, guchar *px, unsigned int width, unsigned int height, unsigned int rs,
1139                      NRMatrix const *transform)
1140 {
1141     Inkscape::SVGOStringStream os;
1142
1143     os << "gsave\n";
1144     os << "[" << transform->c[0] << " "
1145        << transform->c[1] << " "
1146        << transform->c[2] << " "
1147        << transform->c[3] << " "
1148        << transform->c[4] << " "
1149        << transform->c[5] << "] concat\n";
1150     os << width << " " << height << " 8 ["
1151        << width << " 0 0 -" << height << " 0 " << height << "]\n";
1152
1153
1154     /* Write read image procedure */
1155     os << "% Strings to hold RGB-samples per scanline\n";
1156     os << "/rstr " << width << " string def\n";
1157     os << "/gstr " << width << " string def\n";
1158     os << "/bstr " << width << " string def\n";
1159     os << "{currentfile /ASCII85Decode filter /RunLengthDecode filter rstr readstring pop}\n";
1160     os << "{currentfile /ASCII85Decode filter /RunLengthDecode filter gstr readstring pop}\n";
1161     os << "{currentfile /ASCII85Decode filter /RunLengthDecode filter bstr readstring pop}\n";
1162     os << "true 3\n";
1163
1164     /* Allocate buffer for packbits data. Worst case: Less than 1% increase */
1165     guchar *const packb = (guchar *)g_malloc((width * 105)/100+2);
1166     guchar *const plane = (guchar *)g_malloc(width);
1167
1168     /* ps_begin_data(ofp); */
1169     os << "colorimage\n";
1170
1171 /*#define GET_RGB_TILE(begin)                   \
1172  *  {int scan_lines;                                                    \
1173  *    scan_lines = (i+tile_height-1 < height) ? tile_height : (height-i); \
1174  *    gimp_pixel_rgn_get_rect(&pixel_rgn, begin, 0, i, width, scan_lines); \
1175  *    src = begin; }
1176  */
1177
1178     for (unsigned i = 0; i < height; i++) {
1179         /* if ((i % tile_height) == 0) GET_RGB_TILE(data); */ /* Get more data */
1180         guchar const *const src = px + i * rs;
1181
1182         /* Iterate over RGB */
1183         for (int rgb = 0; rgb < 3; rgb++) {
1184             guchar const *src_ptr = src + rgb;
1185             guchar *plane_ptr = plane;
1186             for (unsigned j = 0; j < width; j++) {
1187                 *(plane_ptr++) = *src_ptr;
1188                 src_ptr += 4;
1189             }
1190
1191             int nout;
1192             compress_packbits(width, plane, &nout, packb);
1193
1194             ascii85_init();
1195             ascii85_nout(nout, packb, os);
1196             ascii85_out(128, os); /* Write EOD of RunLengthDecode filter */
1197             ascii85_done(os);
1198         }
1199     }
1200     /* ps_end_data(ofp); */
1201
1202 #if 0
1203     fprintf(ofp, "showpage\n");
1204     g_free(data);
1205 #endif
1206
1207     g_free(packb);
1208     g_free(plane);
1209
1210 #if 0
1211     if (ferror(ofp)) {
1212         g_message(_("write error occurred"));
1213         return (FALSE);
1214     }
1215 #endif
1216
1217     os << "grestore\n";
1218
1219     fprintf(ofp, "%s", os.str().c_str());
1220
1221     return 0;
1222 //#undef GET_RGB_TILE
1223 }
1224
1225 bool
1226 PrintPS::textToPath(Inkscape::Extension::Print * ext)
1227 {
1228     return ext->get_param_bool("textToPath");
1229 }
1230
1231 #include "clear-n_.h"
1232
1233 void
1234 PrintPS::init(void)
1235 {
1236     /* SVG in */
1237     (void) Inkscape::Extension::build_from_mem(
1238         "<inkscape-extension>\n"
1239         "<name>" N_("Postscript Print") "</name>\n"
1240         "<id>" SP_MODULE_KEY_PRINT_PS "</id>\n"
1241         "<param name=\"bitmap\" type=\"boolean\">FALSE</param>\n"
1242         "<param name=\"resolution\" type=\"string\">72</param>\n"
1243         "<param name=\"destination\" type=\"string\">| lp</param>\n"
1244         "<param name=\"pageBoundingBox\" type=\"boolean\">TRUE</param>\n"
1245         "<param name=\"textToPath\" type=\"boolean\">TRUE</param>\n"
1246         "<print/>\n"
1247         "</inkscape-extension>", new PrintPS());
1248 }
1249
1250
1251 }  /* namespace Internal */
1252 }  /* namespace Extension */
1253 }  /* namespace Inkscape */
1254
1255 /* End of GNU GPL code */
1256
1257
1258 /*
1259   Local Variables:
1260   mode:c++
1261   c-file-style:"stroustrup"
1262   c-file-offsets:((innamespace . 0)(inline-open . 0)(case-label . +))
1263   indent-tabs-mode:nil
1264   fill-column:99
1265   End:
1266 */
1267 // vim: filetype=cpp:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:encoding=utf-8:textwidth=99 :