#define __SP_PIXBUF_OPS_C__

#ifdef HAVE_CONFIG_H

# include "config.h"

#endif

#include <interface.h>

#include <libnr/nr-pixops.h>

#include <glib.h>

#include <glib/gmessages.h>

#include <png.h>

#include "png-write.h"

#include <display/nr-arena-item.h>

#include <display/nr-arena.h>

#include <document.h>

#include <sp-item.h>

#include <sp-root.h>

#include <sp-use.h>

#include <sp-defs.h>

#include "unit-constants.h"

#include "libnr/nr-matrix-translate-ops.h"

#include "libnr/nr-scale-ops.h"

#include "libnr/nr-scale-translate-ops.h"

#include "libnr/nr-translate-matrix-ops.h"

#include "libnr/nr-translate-scale-ops.h"

#include "pixbuf-ops.h"

static void

hide_other_items_recursively(SPObject *o, GSList *list, unsigned dkey)

{

if ( SP_IS_ITEM(o)

&& !SP_IS_DEFS(o)

&& !SP_IS_ROOT(o)

&& !SP_IS_GROUP(o)

&& !SP_IS_USE(o)

&& !g_slist_find(list, o) )

{

sp_item_invoke_hide(SP_ITEM(o), dkey);

}

// recurse

if (!g_slist_find(list, o)) {

for (SPObject *child = sp_object_first_child(o) ; child != NULL; child = SP_OBJECT_NEXT(child) ) {

hide_other_items_recursively(child, list, dkey);

}

}

}

sp_export_jpg_file(SPDocument *doc, gchar const *filename,

double x0, double y0, double x1, double y1,

unsigned width, unsigned height, double xdpi, double ydpi,

unsigned long bgcolor, double quality,GSList *items)

{

GdkPixbuf* pixbuf;

pixbuf = sp_generate_internal_bitmap(doc, filename, x0, y0, x1, y1,

width, height, xdpi, ydpi,

bgcolor, items );

gchar c[32];

g_snprintf(c, 32, "%f", quality);

gboolean saved = gdk_pixbuf_save (pixbuf, filename, "jpeg", NULL, "quality", c, NULL);

g_free(c);

gdk_pixbuf_unref (pixbuf);

if (saved) return true;

else return false;

}

GdkPixbuf*

sp_generate_internal_bitmap(SPDocument *doc, gchar const */*filename*/,

double x0, double y0, double x1, double y1,

unsigned width, unsigned height, double xdpi, double ydpi,

unsigned long bgcolor,

GSList *items_only)

{

GdkPixbuf* pixbuf = NULL;

/* Create new arena for offscreen rendering*/

NRArena *arena = NRArena::create();

nr_arena_set_renderoffscreen(arena);

unsigned dkey = sp_item_display_key_new(1);

sp_document_ensure_up_to_date (doc);

Geom::Rect screen=Geom::Rect(Geom::Point(x0,y0), Geom::Point(x1, y1));

double padding = 1.0;

Geom::Point origin(screen.min()[Geom::X],

screen.min()[Geom::Y]);

origin[Geom::X] = origin[Geom::X] + (screen[Geom::X].extent() * ((1 - padding) / 2));

origin[Geom::Y] = origin[Geom::Y] + (screen[Geom::Y].extent() * ((1 - padding) / 2));

Geom::Scale scale( (xdpi / PX_PER_IN), (ydpi / PX_PER_IN));

Geom::Matrix affine = scale * Geom::Translate(-origin * scale);

/* Create ArenaItems and set transform */

NRArenaItem *root = sp_item_invoke_show(SP_ITEM(sp_document_root(doc)), arena, dkey, SP_ITEM_SHOW_DISPLAY);

nr_arena_item_set_transform(NR_ARENA_ITEM(root), affine);

NRGC gc(NULL);

gc.transform.setIdentity();

// We show all and then hide all items we don't want, instead of showing only requested items,

// because that would not work if the shown item references something in defs

if (items_only) {

hide_other_items_recursively(sp_document_root(doc), items_only, dkey);

}

NRRectL final_bbox;

final_bbox.x0 = 0;

final_bbox.y0 = 0;//row;

final_bbox.x1 = width;

final_bbox.y1 = height;//row + num_rows;

nr_arena_item_invoke_update(root, &final_bbox, &gc, NR_ARENA_ITEM_STATE_ALL, NR_ARENA_ITEM_STATE_NONE);

guchar *px = NULL;

guint64 size = 4L * (guint64)width * (guint64)height;

if(size < (guint64)G_MAXSIZE) {

// g_try_new is limited to g_size type which is defined as unisgned int. Need to test for very large nubers

px = g_try_new(guchar, size);

}

if(px != NULL)

{

NRPixBlock B;

//g_warning("sp_generate_internal_bitmap: nr_pixblock_setup_extern.");

nr_pixblock_setup_extern( &B, NR_PIXBLOCK_MODE_R8G8B8A8N,

final_bbox.x0, final_bbox.y0, final_bbox.x1, final_bbox.y1,

px, 4 * width, FALSE, FALSE );

unsigned char dtc[4];

dtc[0] = NR_RGBA32_R(bgcolor);

dtc[1] = NR_RGBA32_G(bgcolor);

dtc[2] = NR_RGBA32_B(bgcolor);

dtc[3] = NR_RGBA32_A(bgcolor);

for (gsize fy = 0; fy < height; fy++) {

guchar *p = NR_PIXBLOCK_PX(&B) + fy * (gsize)B.rs;

for (unsigned int fx = 0; fx < width; fx++) {

for (int i = 0; i < 4; i++) {

*p++ = dtc[i];

}

}

}

nr_arena_item_invoke_render(NULL, root, &final_bbox, &B, NR_ARENA_ITEM_RENDER_NO_CACHE );

pixbuf = gdk_pixbuf_new_from_data(px, GDK_COLORSPACE_RGB,

TRUE,

8, width, height, width * 4,

(GdkPixbufDestroyNotify)g_free,

NULL);

}

else

{

g_warning("sp_generate_internal_bitmap: not enough memory to create pixel buffer. Need %lld.", size);

}

sp_item_invoke_hide (SP_ITEM(sp_document_root(doc)), dkey);

nr_object_unref((NRObject *) arena);

return pixbuf;

}