// cairo_public void
// cairo_svg_surface_restrict_to_version (cairo_surface_t *surface,
// cairo_svg_version_t version);
static int l_cairo_svg_surface_restrict_to_version(lua_State* L)
{
cairo_surface_t *surface = get_cairo_surface_t (L, 1);
cairo_svg_version_t version = (cairo_svg_version_t) luaL_checkinteger(L, 2);
cairo_svg_surface_restrict_to_version (surface, version);
return 0;
}
static VALUE
cr_svg_surface_restrict_to_version (VALUE self, VALUE version)
{
cairo_svg_surface_restrict_to_version (_SELF, RVAL2CRSVGVERSION (version));
cr_surface_check_status (_SELF);
return Qnil;
}
static cairo_surface_t *
_cairo_boilerplate_svg_create_surface (const char *name,
cairo_content_t content,
cairo_svg_version_t version,
int width,
int height,
int max_width,
int max_height,
cairo_boilerplate_mode_t mode,
int id,
void **closure)
{
svg_target_closure_t *ptc;
cairo_surface_t *surface;
cairo_status_t status;
*closure = ptc = xmalloc (sizeof (svg_target_closure_t));
ptc->width = width;
ptc->height = height;
xasprintf (&ptc->filename, "%s-out.svg", name);
xunlink (ptc->filename);
surface = cairo_svg_surface_create (ptc->filename, width, height);
if (cairo_surface_status (surface))
goto CLEANUP_FILENAME;
cairo_svg_surface_restrict_to_version (surface, version);
cairo_surface_set_fallback_resolution (surface, 72., 72.);
if (content == CAIRO_CONTENT_COLOR) {
ptc->target = surface;
surface = cairo_surface_create_similar (ptc->target,
CAIRO_CONTENT_COLOR,
width, height);
if (cairo_surface_status (surface))
goto CLEANUP_TARGET;
} else
ptc->target = NULL;
status = cairo_surface_set_user_data (surface, &svg_closure_key, ptc, NULL);
if (status == CAIRO_STATUS_SUCCESS)
return surface;
cairo_surface_destroy (surface);
surface = cairo_boilerplate_surface_create_in_error (status);
CLEANUP_TARGET:
cairo_surface_destroy (ptc->target);
CLEANUP_FILENAME:
free (ptc->filename);
free (ptc);
return surface;
}
/*
* This function initializes any supported environment (Cairo Surface and Cairo
* main object, cairo_t). It must be called before ANY cairo operation.
* @context:
* CP_Context which holds the pointers to the cairo structures, and
* other plot settings.
* @ft:
* File Type, to be plotted. For supported filetypes check the util.h
* file (_CP_FILETYPE_ structure).
*/
void cp_initEnv(CP_Context *context, CP_FileType ft)
{
if (ft == CP_PNG){
context->surface = cairo_image_surface_create(CAIRO_FORMAT_ARGB32,
context->width, context->height);
}else{
cp_addFileExtension(&(context->fname), context->name, ft);
context->surface = cairo_svg_surface_create(context->fname,
context->width, context->height);
cairo_svg_surface_restrict_to_version(context->surface,
CAIRO_SVG_VERSION_1_2);
}
context->cr = cairo_create(context->surface);
}
IoObject *IoCairoSVGSurface_restrictToVersion(IoCairoSVGSurface *self, IoObject *locals, IoMessage *m)
{
cairo_svg_surface_restrict_to_version(SURFACE(self), IoMessage_locals_intArgAt_(m, locals, 0));
CHECK_STATUS(self);
return self;
}
static cairo_t *
create_cairo(struct objlist *obj, N_VALUE *inst, char *fname, int iw, int ih, int *err)
{
cairo_surface_t *ps;
cairo_t *cairo;
double w, h;
int format, dpi, r;
struct gra2cairo_local *local;
#ifdef WINDOWS
fname = g_locale_from_utf8(fname, -1, NULL, NULL, NULL);
#else /* WINDOWS */
fname = g_filename_from_utf8(fname, -1, NULL, NULL, NULL);
#endif /* WINDOWS */
if (fname == NULL) {
*err = CAIRO_STATUS_NO_MEMORY;
return NULL;
}
*err = 0;
_getobj(obj, "format", inst, &format);
_getobj(obj, "dpi", inst, &dpi);
_getobj(obj, "_local", inst, &local);
w = iw * dpi / 25.4 / 100;
h = ih * dpi / 25.4 / 100;
switch (format) {
case TYPE_PS2:
ps = cairo_ps_surface_create(fname, w, h);
cairo_ps_surface_restrict_to_level(ps, CAIRO_PS_LEVEL_2);
cairo_ps_surface_set_eps(ps, FALSE);
break;
case TYPE_PS3:
ps = cairo_ps_surface_create(fname, w, h);
cairo_ps_surface_restrict_to_level(ps, CAIRO_PS_LEVEL_3);
cairo_ps_surface_set_eps(ps, FALSE);
break;
case TYPE_EPS2:
ps = cairo_ps_surface_create(fname, w, h);
cairo_ps_surface_restrict_to_level(ps, CAIRO_PS_LEVEL_2);
cairo_ps_surface_set_eps(ps, TRUE);
break;
case TYPE_EPS3:
ps = cairo_ps_surface_create(fname, w, h);
cairo_ps_surface_restrict_to_level(ps, CAIRO_PS_LEVEL_3);
cairo_ps_surface_set_eps(ps, TRUE);
break;
case TYPE_PDF:
ps = cairo_pdf_surface_create(fname, w, h);
break;
case TYPE_SVG1_1:
ps = cairo_svg_surface_create(fname, w, h);
cairo_svg_surface_restrict_to_version(ps, CAIRO_SVG_VERSION_1_1);
break;
case TYPE_SVG1_2:
ps = cairo_svg_surface_create(fname, w, h);
cairo_svg_surface_restrict_to_version(ps, CAIRO_SVG_VERSION_1_2);
break;
case TYPE_PNG:
ps = cairo_image_surface_create(CAIRO_FORMAT_RGB24, w, h);
break;
#ifdef CAIRO_HAS_WIN32_SURFACE
case TYPE_EMF:
ps = open_emf(dpi, fname);
if (ps == NULL) {
g_free(fname);
return NULL;
}
break;
#endif /* CAIRO_HAS_WIN32_SURFACE */
default:
ps = cairo_ps_surface_create(fname, w, h);
}
g_free(fname);
r = cairo_surface_status(ps);
if (r != CAIRO_STATUS_SUCCESS) {
*err = r;
cairo_surface_destroy(ps);
return NULL;
}
cairo = cairo_create(ps);
/* cairo_create() references target, so you can immediately call cairo_surface_destroy() on it */
cairo_surface_destroy(ps);
r = cairo_status(cairo);
if (r != CAIRO_STATUS_SUCCESS) {
*err = r;
cairo_destroy(cairo);
return NULL;
}
switch (format) {
case TYPE_PNG:
cairo_set_source_rgb(cairo, 1, 1, 1);
cairo_paint(cairo);
cairo_new_path(cairo);
break;
}
return cairo;
}
static cairo_test_status_t
test_cairo_svg_surface_restrict_to_version (cairo_surface_t *surface)
{
cairo_svg_surface_restrict_to_version (surface, CAIRO_SVG_VERSION_1_1);
return CAIRO_TEST_SUCCESS;
}
static void BM_NewPage(const pGEcontext gc, pDevDesc dd)
{
pX11Desc xd = (pX11Desc) dd->deviceSpecific;
char buf[PATH_MAX];
cairo_status_t res;
xd->npages++;
if (xd->type == PNG || xd->type == JPEG || xd->type == BMP) {
if (xd->npages > 1) {
/* try to preserve the page we do have */
BM_Close_bitmap(xd);
if (xd->fp) fclose(xd->fp);
}
snprintf(buf, PATH_MAX, xd->filename, xd->npages);
xd->fp = R_fopen(R_ExpandFileName(buf), "wb");
if (!xd->fp)
error(_("could not open file '%s'"), buf);
}
else if(xd->type == PNGdirect || xd->type == TIFF) {
if (xd->npages > 1) {
xd->npages--;
BM_Close_bitmap(xd);
xd->npages++;
}
}
#ifdef HAVE_CAIRO_SVG
else if(xd->type == SVG) {
if (xd->npages > 1 && xd->cs) {
cairo_show_page(xd->cc);
if(!xd->onefile) {
cairo_surface_destroy(xd->cs);
cairo_destroy(xd->cc);
}
}
if(xd->npages == 1 || !xd->onefile) {
snprintf(buf, PATH_MAX, xd->filename, xd->npages);
xd->cs = cairo_svg_surface_create(R_ExpandFileName(buf),
(double)xd->windowWidth,
(double)xd->windowHeight);
res = cairo_surface_status(xd->cs);
if (res != CAIRO_STATUS_SUCCESS) {
xd->cs = NULL;
error("cairo error '%s'", cairo_status_to_string(res));
}
if(xd->onefile)
cairo_svg_surface_restrict_to_version(xd->cs, CAIRO_SVG_VERSION_1_2);
xd->cc = cairo_create(xd->cs);
res = cairo_status(xd->cc);
if (res != CAIRO_STATUS_SUCCESS) {
error("cairo error '%s'", cairo_status_to_string(res));
}
cairo_set_antialias(xd->cc, xd->antialias);
}
}
#endif
#ifdef HAVE_CAIRO_PDF
else if(xd->type == PDF) {
if (xd->npages > 1) {
cairo_show_page(xd->cc);
if(!xd->onefile) {
cairo_surface_destroy(xd->cs);
cairo_destroy(xd->cc);
}
}
if(xd->npages == 1 || !xd->onefile) {
snprintf(buf, PATH_MAX, xd->filename, xd->npages);
xd->cs = cairo_pdf_surface_create(R_ExpandFileName(buf),
(double)xd->windowWidth,
(double)xd->windowHeight);
res = cairo_surface_status(xd->cs);
if (res != CAIRO_STATUS_SUCCESS) {
error("cairo error '%s'", cairo_status_to_string(res));
}
xd->cc = cairo_create(xd->cs);
res = cairo_status(xd->cc);
if (res != CAIRO_STATUS_SUCCESS) {
error("cairo error '%s'", cairo_status_to_string(res));
}
cairo_set_antialias(xd->cc, xd->antialias);
}
}
#endif
#ifdef HAVE_CAIRO_PS
else if(xd->type == PS) {
if (xd->npages > 1 && !xd->onefile) {
cairo_show_page(xd->cc);
cairo_surface_destroy(xd->cs);
cairo_destroy(xd->cc);
}
if(xd->npages == 1 || !xd->onefile) {
snprintf(buf, PATH_MAX, xd->filename, xd->npages);
xd->cs = cairo_ps_surface_create(R_ExpandFileName(buf),
(double)xd->windowWidth,
(double)xd->windowHeight);
res = cairo_surface_status(xd->cs);
if (res != CAIRO_STATUS_SUCCESS) {
error("cairo error '%s'", cairo_status_to_string(res));
}
// We already require >= 1.2
#if CAIRO_VERSION_MAJOR > 2 || CAIRO_VERSION_MINOR >= 6
if(!xd->onefile)
cairo_ps_surface_set_eps(xd->cs, TRUE);
#endif
xd->cc = cairo_create(xd->cs);
res = cairo_status(xd->cc);
if (res != CAIRO_STATUS_SUCCESS) {
error("cairo error '%s'", cairo_status_to_string(res));
}
cairo_set_antialias(xd->cc, xd->antialias);
}
}
#endif
else
error(_("unimplemented cairo-based device"));
cairo_reset_clip(xd->cc);
if (xd->type == PNG || xd->type == TIFF|| xd->type == PNGdirect) {
/* First clear it */
cairo_set_operator (xd->cc, CAIRO_OPERATOR_CLEAR);
cairo_paint (xd->cc);
cairo_set_operator (xd->cc, CAIRO_OPERATOR_OVER);
xd->fill = gc->fill;
} else
xd->fill = R_OPAQUE(gc->fill) ? gc->fill: xd->canvas;
CairoColor(xd->fill, xd);
cairo_new_path(xd->cc);
cairo_paint(xd->cc);
}
static Rboolean
BM_Open(pDevDesc dd, pX11Desc xd, int width, int height)
{
char buf[PATH_MAX];
cairo_status_t res;
if (xd->type == PNG || xd->type == JPEG ||
xd->type == TIFF || xd->type == BMP ||
xd->type == PNGdirect) {
xd->cs = cairo_image_surface_create(CAIRO_FORMAT_ARGB32,
xd->windowWidth,
xd->windowHeight);
res = cairo_surface_status(xd->cs);
if (res != CAIRO_STATUS_SUCCESS) {
warning("cairo error '%s'", cairo_status_to_string(res));
return FALSE;
}
xd->cc = cairo_create(xd->cs);
res = cairo_status(xd->cc);
if (res != CAIRO_STATUS_SUCCESS) {
warning("cairo error '%s'", cairo_status_to_string(res));
return FALSE;
}
cairo_set_operator(xd->cc, CAIRO_OPERATOR_OVER);
cairo_reset_clip(xd->cc);
cairo_set_antialias(xd->cc, xd->antialias);
}
#ifdef HAVE_CAIRO_SVG
else if(xd->type == SVG) {
snprintf(buf, PATH_MAX, xd->filename, xd->npages + 1);
xd->cs = cairo_svg_surface_create(R_ExpandFileName(buf),
(double)xd->windowWidth,
(double)xd->windowHeight);
res = cairo_surface_status(xd->cs);
if (res != CAIRO_STATUS_SUCCESS) {
xd->cs = NULL;
warning("cairo error '%s'", cairo_status_to_string(res));
return FALSE;
}
if(xd->onefile)
cairo_svg_surface_restrict_to_version(xd->cs, CAIRO_SVG_VERSION_1_2);
xd->cc = cairo_create(xd->cs);
res = cairo_status(xd->cc);
if (res != CAIRO_STATUS_SUCCESS) {
warning("cairo error '%s'", cairo_status_to_string(res));
return FALSE;
}
cairo_set_antialias(xd->cc, xd->antialias);
}
#endif
#ifdef HAVE_CAIRO_PDF
else if(xd->type == PDF) {
snprintf(buf, PATH_MAX, xd->filename, xd->npages + 1);
xd->cs = cairo_pdf_surface_create(R_ExpandFileName(buf),
(double)xd->windowWidth,
(double)xd->windowHeight);
res = cairo_surface_status(xd->cs);
if (res != CAIRO_STATUS_SUCCESS) {
warning("cairo error '%s'", cairo_status_to_string(res));
return FALSE;
}
cairo_surface_set_fallback_resolution(xd->cs, xd->fallback_dpi,
xd->fallback_dpi);
xd->cc = cairo_create(xd->cs);
res = cairo_status(xd->cc);
if (res != CAIRO_STATUS_SUCCESS) {
warning("cairo error '%s'", cairo_status_to_string(res));
return FALSE;
}
cairo_set_antialias(xd->cc, xd->antialias);
}
#endif
#ifdef HAVE_CAIRO_PS
else if(xd->type == PS) {
snprintf(buf, PATH_MAX, xd->filename, xd->npages + 1);
xd->cs = cairo_ps_surface_create(R_ExpandFileName(buf),
(double)xd->windowWidth,
(double)xd->windowHeight);
res = cairo_surface_status(xd->cs);
if (res != CAIRO_STATUS_SUCCESS) {
warning("cairo error '%s'", cairo_status_to_string(res));
return FALSE;
}
// We already require >= 1.2
#if CAIRO_VERSION_MAJOR > 2 || CAIRO_VERSION_MINOR >= 6
if(!xd->onefile)
cairo_ps_surface_set_eps(xd->cs, TRUE);
#endif
cairo_surface_set_fallback_resolution(xd->cs, xd->fallback_dpi,
xd->fallback_dpi);
xd->cc = cairo_create(xd->cs);
res = cairo_status(xd->cc);
if (res != CAIRO_STATUS_SUCCESS) {
warning("cairo error '%s'", cairo_status_to_string(res));
return FALSE;
}
cairo_set_antialias(xd->cc, xd->antialias);
}
#endif
else
error(_("unimplemented cairo-based device"));
return TRUE;
}
bool QCairoPaintEngine::begin(QPaintDevice *pd)
{
if (surface) {
end();
}
const QCairoPaintDevice* cpd=dynamic_cast<const QCairoPaintDevice*>(pd);
surface = NULL;
if (cpd) {
exportText=cpd->getExportText();
QCairoPaintDevice::CairoFileType ft=cpd->getFileType();
QSizeF s=cpd->getFileSizeMM();
//qDebug()<<ft;
if (ft==QCairoPaintDevice::cftPDF14) {
//qDebug()<< "Cairo-PDF1.4";
surface = cairo_pdf_surface_create (cpd->getFileName().toLocal8Bit().data(), s.width()/25.4*72.0, s.height()/25.4*72.0);
cairo_pdf_surface_restrict_to_version(surface, CAIRO_PDF_VERSION_1_4);
} else if (ft==QCairoPaintDevice::cftPDF15) {
//Debug()<< "Cairo-PDF1.5"<<s<<s.width()/25.4*72.0<<s.height()/25.4*72.0;
surface = cairo_pdf_surface_create (cpd->getFileName().toLocal8Bit().data(), s.width()/25.4*72.0, s.height()/25.4*72.0);
cairo_pdf_surface_restrict_to_version(surface, CAIRO_PDF_VERSION_1_5);
} else if (ft==QCairoPaintDevice::cftPS2) {
//qDebug()<< "Cairo-PS2";
surface = cairo_ps_surface_create (cpd->getFileName().toLocal8Bit().data(), s.width()/25.4*72.0, s.height()/25.4*72.0);
cairo_ps_surface_restrict_to_level(surface, CAIRO_PS_LEVEL_2);
} else if (ft==QCairoPaintDevice::cftPS3) {
//qDebug()<< "Cairo-PS3";
surface = cairo_ps_surface_create (cpd->getFileName().toLocal8Bit().data(), s.width()/25.4*72.0, s.height()/25.4*72.0);
cairo_ps_surface_restrict_to_level(surface, CAIRO_PS_LEVEL_2);
} else if (ft==QCairoPaintDevice::cftEPS2) {
//qDebug()<< "Cairo-EPS2";
surface = cairo_ps_surface_create (cpd->getFileName().toLocal8Bit().data(), s.width()/25.4*72.0, s.height()/25.4*72.0);
cairo_ps_surface_restrict_to_level(surface, CAIRO_PS_LEVEL_2);
cairo_ps_surface_set_eps(surface, 1);
} else if (ft==QCairoPaintDevice::cftEPS3) {
//qDebug()<< "Cairo-EPS3";
surface = cairo_ps_surface_create (cpd->getFileName().toLocal8Bit().data(), s.width()/25.4*72.0, s.height()/25.4*72.0);
cairo_ps_surface_restrict_to_level(surface, CAIRO_PS_LEVEL_2);
cairo_ps_surface_set_eps(surface, 1);
} else if (ft==QCairoPaintDevice::cftSVG11) {
//qDebug()<< "Cairo-SVG11";
surface = cairo_svg_surface_create (cpd->getFileName().toLocal8Bit().data(), s.width()/25.4*72.0, s.height()/25.4*72.0);
cairo_svg_surface_restrict_to_version(surface, CAIRO_SVG_VERSION_1_1);
} else if (ft==QCairoPaintDevice::cftSVG12) {
//qDebug()<< "Cairo-SVG12";
surface = cairo_svg_surface_create (cpd->getFileName().toLocal8Bit().data(), s.width()/25.4*72.0, s.height()/25.4*72.0);
cairo_svg_surface_restrict_to_version(surface, CAIRO_SVG_VERSION_1_2);
}
}
if (surface) {
if (cairo_surface_status(surface) == CAIRO_STATUS_SUCCESS) {
cr = cairo_create(surface);
if (cr) {
if (cairo_status(cr) != CAIRO_STATUS_SUCCESS) {
qDebug()<<"QCairoPaintDevice error initializing CAIRO: "<<cairo_status_to_string(cairo_status(cr));
end();
return false;
} else {
cairo_set_antialias(cr, CAIRO_ANTIALIAS_DEFAULT);
}
} else {
qDebug()<<"QCairoPaintDevice error initializing CAIRO !!!";
end();
return false;
}
} else {
qDebug()<<"QCairoPaintDevice error creating surface: "<<cairo_status_to_string(cairo_surface_status(surface));
end();
return false;
}
} else {
qDebug()<<"UNKNOWN QCairoPaintDevice type !!!";
return false;
}
return true;
}
