src/extension/internal/latex-pstricks.cpp

   1 #define __SP_LATEX_C__
   2
   3 /*
   4  * LaTeX Printing
   5  *
   6  * Author:
   7  *  Michael Forbes <miforbes@mbhs.edu>
   8  *
   9  * Copyright (C) 2004 Authors
  10  *
  11  * Released under GNU GPL, read the file 'COPYING' for more information
  12  */
  13
  14 #ifdef HAVE_CONFIG_H
  15 # include "config.h"
  16 #endif
  17
  18
  19 #include <signal.h>
  20 #include <errno.h>
  21
  22 #include "libnr/n-art-bpath.h"
  23 #include "sp-item.h"
  24
  25
  26 #include "style.h"
  27
  28 #include "latex-pstricks.h"
  29
  30 #include <unit-constants.h>
  31
  32 #include "extension/system.h"
  33 #include "extension/print.h"
  34
  35 #include "io/sys.h"
  36
  37 namespace Inkscape {
  38 namespace Extension {
  39 namespace Internal {
  40
  41 PrintLatex::PrintLatex (void): _stream(NULL)
  42 {
  43 }
  44
  45 PrintLatex::~PrintLatex (void)
  46 {
  47     if (_stream) fclose(_stream);
  48
  49     /* restore default signal handling for SIGPIPE */
  50 #if !defined(_WIN32) && !defined(__WIN32__)
  51     (void) signal(SIGPIPE, SIG_DFL);
  52 #endif
  53         return;
  54 }
  55
  56 unsigned int
  57 PrintLatex::setup (Inkscape::Extension::Print *mod)
  58 {
  59     return TRUE;
  60 }
  61
  62 unsigned int
  63 PrintLatex::begin (Inkscape::Extension::Print *mod, SPDocument *doc)
  64 {
  65     Inkscape::SVGOStringStream os;
  66     int res;
  67     FILE *osf, *osp;
  68     const gchar * fn;
  69
  70     fn = mod->get_param_string("destination");
  71
  72     osf = NULL;
  73     osp = NULL;
  74
  75     gsize bytesRead = 0;
  76     gsize bytesWritten = 0;
  77     GError* error = NULL;
  78     gchar* local_fn = g_filename_from_utf8( fn,
  79                                             -1,  &bytesRead,  &bytesWritten, &error);
  80     fn = local_fn;
  81
  82     /* TODO: Replace the below fprintf's with something that does the right thing whether in
  83      * gui or batch mode (e.g. --print=blah).  Consider throwing an exception: currently one of
  84      * the callers (sp_print_document_to_file, "ret = mod->begin(doc)") wrongly ignores the
  85      * return code.
  86      */
  87     if (fn != NULL) {
  88         while (isspace(*fn)) fn += 1;
  89         Inkscape::IO::dump_fopen_call(fn, "K");
  90         osf = Inkscape::IO::fopen_utf8name(fn, "w+");
  91         if (!osf) {
  92             fprintf(stderr, "inkscape: fopen(%s): %s\n",
  93                     fn, strerror(errno));
  94             return 0;
  95         }
  96         _stream = osf;
  97     }
  98
  99     g_free(local_fn);
 100
 101     if (_stream) {
 102         /* fixme: this is kinda icky */
 103 #if !defined(_WIN32) && !defined(__WIN32__)
 104         (void) signal(SIGPIPE, SIG_IGN);
 105 #endif
 106     }
 107
 108     res = fprintf(_stream, "%%LaTeX with PSTricks extensions\n");
 109     /* flush this to test output stream as early as possible */
 110     if (fflush(_stream)) {
 111         /*g_print("caught error in sp_module_print_plain_begin\n");*/
 112         if (ferror(_stream)) {
 113             g_print("Error %d on output stream: %s\n", errno,
 114                     g_strerror(errno));
 115         }
 116         g_print("Printing failed\n");
 117         /* fixme: should use pclose() for pipes */
 118         fclose(_stream);
 119         _stream = NULL;
 120         fflush(stdout);
 121         return 0;
 122     }
 123
 124     // width and height in pt
 125     _width = sp_document_width(doc) * PT_PER_PX;
 126     _height = sp_document_height(doc) * PT_PER_PX;
 127
 128     NRRect d;
 129     bool   pageLandscape;
 130     // printf("Page Bounding Box: %s\n", pageBoundingBox ? "TRUE" : "FALSE");
 131 /*    if (pageBoundingBox) {
 132        d.x0 = d.y0 = 0;
 133         d.x1 = ceil(_width);
 134         d.y1 = ceil(_height);
 135     } else */{ // no bounding boxes for now
 136         SPItem* doc_item = SP_ITEM(sp_document_root(doc));
 137         sp_item_invoke_bbox(doc_item, &d, sp_item_i2r_affine(doc_item), TRUE);
 138         // convert from px to pt
 139         d.x0 *= PT_PER_PX;
 140         d.x1 *= PT_PER_PX;
 141         d.y0 *= PT_PER_PX;
 142         d.y1 *= PT_PER_PX;
 143     }
 144
 145
 146     if (res >= 0) {
 147
 148         os << "%%Creator: " << PACKAGE_STRING << "\n";
 149         os << "%%Please note this file requires PSTricks extensions\n";
 150
 151         // 2004 Dec 10, BFC:
 152         // The point of the following code is (1) to do the thing that's expected by users
 153         // who have done File>New>A4_landscape or ...letter_landscape (i.e., rotate
 154         // the output), while (2) not messing up users who simply want their output wider
 155         // than it is tall (e.g., small figures for inclusion in LaTeX).
 156         // The original patch by WQ only had the w>h condition.
 157         {
 158              double w = (d.x1 - d.x0); // width and height of bounding box, in pt
 159              double h = (d.y1 - d.y0);
 160              pageLandscape = (
 161                  (w > 0. && h > 0.) // empty documents fail this sanity check, have w<0, h<0
 162                  && (w > h)   // implies, but does not prove, the user wanted landscape
 163                  && (w > 600) // approximate maximum printable width of an A4
 164              )
 165              ? true : false;
 166         }
 167
 168         if (pageLandscape) {
 169             os << "\\rotate{90}\n";
 170         }
 171
 172         os << "\\psset{xunit=.5pt,yunit=.5pt,runit=.5pt}\n";
 173         // from now on we can output px, but they will be treated as pt
 174
 175         os << "\\begin{pspicture}(" << sp_document_width(doc) << "," << sp_document_height(doc) << ")\n";
 176     }
 177
 178     return fprintf(_stream, "%s", os.str().c_str());
 179 }
 180
 181 unsigned int
 182 PrintLatex::finish (Inkscape::Extension::Print *mod)
 183 {
 184     int res;
 185
 186     if (!_stream) return 0;
 187
 188     res = fprintf(_stream, "\\end{pspicture}\n");
 189
 190     /* Flush stream to be sure. */
 191     (void) fflush(_stream);
 192
 193     fclose(_stream);
 194     _stream = NULL;
 195     return 0;
 196 }
 197
 198 unsigned int PrintLatex::comment (Inkscape::Extension::Print * module,
 199                                   const char * comment)
 200 {
 201     if (!_stream) return 0; // XXX: fixme, returning -1 as unsigned.
 202
 203     return fprintf(_stream, "%%! %s\n",comment);
 204 }
 205
 206 unsigned int
 207 PrintLatex::fill(Inkscape::Extension::Print *mod,
 208                  NRBPath const *bpath, NRMatrix const *transform, SPStyle const *style,
 209                  NRRect const *pbox, NRRect const *dbox, NRRect const *bbox)
 210 {
 211     if (!_stream) return 0; // XXX: fixme, returning -1 as unsigned.
 212
 213     if (style->fill.type == SP_PAINT_TYPE_COLOR) {
 214         Inkscape::SVGOStringStream os;
 215         float rgb[3];
 216
 217         sp_color_get_rgb_floatv(&style->fill.value.color, rgb);
 218         os << "{\n\\newrgbcolor{curcolor}{" << rgb[0] << " " << rgb[1] << " " << rgb[2] << "}\n";
 219
 220         os << "\\pscustom[fillstyle=solid,fillcolor=curcolor]\n{\n";
 221
 222         print_bpath(os, bpath->path, transform);
 223
 224         os << "}\n}\n";
 225
 226         fprintf(_stream, "%s", os.str().c_str());
 227     }
 228
 229     return 0;
 230 }
 231
 232 unsigned int
 233 PrintLatex::stroke (Inkscape::Extension::Print *mod, const NRBPath *bpath, const NRMatrix *transform, const SPStyle *style,
 234                               const NRRect *pbox, const NRRect *dbox, const NRRect *bbox)
 235 {
 236     if (!_stream) return 0; // XXX: fixme, returning -1 as unsigned.
 237
 238     if (style->stroke.type == SP_PAINT_TYPE_COLOR) {
 239         Inkscape::SVGOStringStream os;
 240         float rgb[3];
 241
 242         sp_color_get_rgb_floatv(&style->stroke.value.color, rgb);
 243         os << "{\n\\newrgbcolor{curcolor}{" << rgb[0] << " " << rgb[1] << " " << rgb[2] << "}\n";
 244
 245         os << "\\pscustom[linewidth=" << style->stroke_width.computed<< ",linecolor=curcolor";
 246
 247         if (style->stroke_dasharray_set &&
 248                 style->stroke_dash.n_dash &&
 249                 style->stroke_dash.dash) {
 250             int i;
 251             os << ",linestyle=dashed,dash=";
 252             for (i = 0; i < style->stroke_dash.n_dash; i++) {
 253                 if ((i)) {
 254                     os << " ";
 255                 }
 256                 os << style->stroke_dash.dash[i];
 257             }
 258         }
 259
 260         os <<"]\n{\n";
 261
 262         print_bpath(os, bpath->path, transform);
 263
 264         os << "}\n}\n";
 265
 266         fprintf(_stream, "%s", os.str().c_str());
 267     }
 268
 269     return 0;
 270 }
 271
 272 void
 273 PrintLatex::print_bpath(SVGOStringStream &os, const NArtBpath *bp, const NRMatrix *transform)
 274 {
 275     unsigned int closed;
 276     NR::Matrix tf=*transform;
 277
 278
 279     os << "\\newpath\n";
 280     closed = FALSE;
 281     while (bp->code != NR_END) {
 282         using NR::X;
 283         using NR::Y;
 284         NR::Point const p1(bp->c(1) * tf);
 285         NR::Point const p2(bp->c(2) * tf);
 286         NR::Point const p3(bp->c(3) * tf);
 287         double const x1 = p1[X], y1 = p1[Y];
 288         double const x2 = p2[X], y2 = p2[Y];
 289         double const x3 = p3[X], y3 = p3[Y];
 290
 291         switch (bp->code) {
 292             case NR_MOVETO:
 293                 if (closed) {
 294                     os << "\\closepath\n";
 295                 }
 296                 closed = TRUE;
 297                 os << "\\moveto(" << x3 << "," << y3 << ")\n";
 298                 break;
 299             case NR_MOVETO_OPEN:
 300                 if (closed) {
 301                     os << "\\closepath\n";
 302                 }
 303                 closed = FALSE;
 304                 os << "\\moveto(" << x3 << "," << y3 << ")\n";
 305                 break;
 306             case NR_LINETO:
 307                 os << "\\lineto(" << x3 << "," << y3 << ")\n";
 308                 break;
 309             case NR_CURVETO:
 310                 os << "\\curveto(" << x1 << "," << y1 << ")("
 311                    << x2 << "," << y2 << ")("
 312                    << x3 << "," << y3 << ")\n";
 313                 break;
 314             default:
 315                 break;
 316         }
 317         bp += 1;
 318     }
 319     if (closed) {
 320         os << "\\closepath\n";
 321     }
 322 }
 323
 324 bool
 325 PrintLatex::textToPath(Inkscape::Extension::Print * ext)
 326 {
 327     return ext->get_param_bool("textToPath");
 328 }
 329
 330 void
 331 PrintLatex::init (void)
 332 {
 333         Inkscape::Extension::Extension * ext;
 334
 335         /* SVG in */
 336     ext = Inkscape::Extension::build_from_mem(
 337                 "<inkscape-extension>\n"
 338                         "<name>LaTeX Print</name>\n"
 339                         "<id>" SP_MODULE_KEY_PRINT_LATEX "</id>\n"
 340                         "<param name=\"destination\" type=\"string\"></param>\n"
 341                         "<param name=\"textToPath\" type=\"boolean\">TRUE</param>\n"
 342                         "<print/>\n"
 343                 "</inkscape-extension>", new PrintLatex());
 344
 345         return;
 346 }
 347
 348 }  /* namespace Internal */
 349 }  /* namespace Extension */
 350 }  /* namespace Inkscape */
 351
 352 /*
 353   Local Variables:
 354   mode:c++
 355   c-file-style:"stroustrup"
 356   c-file-offsets:((innamespace . 0)(inline-open . 0)(case-label . +))
 357   indent-tabs-mode:nil
 358   fill-column:99
 359   End:
 360 */
 361 // vim: filetype=cpp:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:encoding=utf-8:textwidth=99 :
 362