/* -*- mode: c++; c-basic-offset: 4 -*- */

/* A rewrite of _backend_agg using PyCXX to handle ref counting, etc..

*/

/* Python API mandates Python.h is included *first* */

#include "Python.h"

/* TODO: Remove this dependency */

#include "ft2font.h"

#include "_image.h"

#include "_backend_agg.h"

#include "mplutils.h"

#include <iostream>

#include <fstream>

#include <cmath>

#include <cstdio>

#include <stdexcept>

#include <time.h>

#include <algorithm>

#include "agg_conv_curve.h"

#include "agg_conv_transform.h"

#include "agg_image_accessors.h"

#include "agg_renderer_primitives.h"

#include "agg_scanline_storage_aa.h"

#include "agg_scanline_storage_bin.h"

#include "agg_span_allocator.h"

#include "agg_span_converter.h"

#include "agg_span_image_filter_gray.h"

#include "agg_span_image_filter_rgba.h"

#include "agg_span_interpolator_linear.h"

#include "agg_span_pattern_rgba.h"

#include "agg_span_gouraud_rgba.h"

#include "agg_conv_shorten_path.h"

#include "util/agg_color_conv_rgb8.h"

#include "MPL_isnan.h"

#include "numpy/arrayobject.h"

#include "agg_py_transforms.h"

#include "file_compat.h"

#ifndef M_PI

#define M_PI 3.14159265358979323846

#endif

#ifndef M_PI_4

#define M_PI_4 0.785398163397448309616

#endif

#ifndef M_PI_2

#define M_PI_2 1.57079632679489661923

#endif

/*

Convert dashes from the Python representation as nested sequences to

the C++ representation as a std::vector<std::pair<double, double> >

(GCAgg::dash_t) */

void

convert_dashes(const Py::Tuple& dashes, double dpi,

GCAgg::dash_t& dashes_out, double& dashOffset_out)

{

if (dashes.length() != 2)

{

throw Py::ValueError(

Printf("Dash descriptor must be a length 2 tuple; found %d",

dashes.length()).str()

);

}

dashes_out.clear();

dashOffset_out = 0.0;

if (dashes[0].ptr() == Py_None)

{

return;

}

dashOffset_out = double(Py::Float(dashes[0])) * dpi / 72.0;

Py::SeqBase<Py::Object> dashSeq = dashes[1];

size_t Ndash = dashSeq.length();

if (Ndash % 2 != 0)

{

throw Py::ValueError(

Printf("Dash sequence must be an even length sequence; found %d", Ndash).str()

);

}

dashes_out.clear();

dashes_out.reserve(Ndash / 2);

double val0, val1;

for (size_t i = 0; i < Ndash; i += 2)

{

val0 = double(Py::Float(dashSeq[i])) * dpi / 72.0;

val1 = double(Py::Float(dashSeq[i+1])) * dpi / 72.0;

dashes_out.push_back(std::make_pair(val0, val1));

}

}

Py::Object

BufferRegion::to_string(const Py::Tuple &args)

{

// owned=true to prevent memory leak

#if PY3K

return Py::Bytes

#else

return Py::String

#endif

(PyBytes_FromStringAndSize((const char*)data, height*stride), true);

}

Py::Object

BufferRegion::set_x(const Py::Tuple &args)

{

args.verify_length(1);

size_t x = (long) Py::Int(args[0]);

rect.x1 = x;

return Py::Object();

}

Py::Object

BufferRegion::set_y(const Py::Tuple &args)

{

args.verify_length(1);

size_t y = (long)Py::Int(args[0]);

rect.y1 = y;

return Py::Object();

}

Py::Object

BufferRegion::get_extents(const Py::Tuple &args)

{

args.verify_length(0);

Py::Tuple extents(4);

extents[0] = Py::Int(rect.x1);

extents[1] = Py::Int(rect.y1);

extents[2] = Py::Int(rect.x2);

extents[3] = Py::Int(rect.y2);

return extents;

}

Py::Object

BufferRegion::to_string_argb(const Py::Tuple &args)

{

// owned=true to prevent memory leak

Py_ssize_t length;

unsigned char* pix;

unsigned char* begin;

unsigned char tmp;

size_t i, j;

PyObject* str = PyBytes_FromStringAndSize((const char*)data, height * stride);

if (PyBytes_AsStringAndSize(str, (char**)&begin, &length))

{

throw Py::TypeError("Could not create memory for blit");

}

for (i = 0; i < (size_t)height; ++i)

{

pix = begin + i * stride;

for (j = 0; j < (size_t)width; ++j)

{

// Convert rgba to argb

tmp = pix[2];

pix[2] = pix[0];

pix[0] = tmp;

pix += 4;

}

}

#if PY3K

return Py::Bytes

#else

return Py::String

#endif

(str, true);

}

GCAgg::GCAgg(const Py::Object &gc, double dpi) :

dpi(dpi), isaa(true), dashOffset(0.0)

{

_VERBOSE("GCAgg::GCAgg");

linewidth = points_to_pixels(gc.getAttr("_linewidth")) ;

alpha = Py::Float(gc.getAttr("_alpha"));

forced_alpha = Py::Boolean(gc.getAttr("_forced_alpha"));

color = get_color(gc);

_set_antialiased(gc);

_set_linecap(gc);

_set_joinstyle(gc);

_set_dashes(gc);

_set_clip_rectangle(gc);

_set_clip_path(gc);

_set_snap(gc);

_set_hatch_path(gc);

_set_sketch_params(gc);

}

void

GCAgg::_set_antialiased(const Py::Object& gc)

{

_VERBOSE("GCAgg::antialiased");

isaa = Py::Boolean(gc.getAttr("_antialiased"));

}

agg::rgba

GCAgg::get_color(const Py::Object& gc)

{

_VERBOSE("GCAgg::get_color");

Py::Tuple rgb = Py::Tuple(gc.getAttr("_rgb"));

double r = Py::Float(rgb[0]);

double g = Py::Float(rgb[1]);

double b = Py::Float(rgb[2]);

double a = Py::Float(rgb[3]);

return agg::rgba(r, g, b, a);

}

double

GCAgg::points_to_pixels(const Py::Object& points)

{

_VERBOSE("GCAgg::points_to_pixels");

double p = Py::Float(points) ;

return p * dpi / 72.0;

}

void

GCAgg::_set_linecap(const Py::Object& gc)

{

_VERBOSE("GCAgg::_set_linecap");

std::string capstyle = Py::String(gc.getAttr("_capstyle")).encode("utf-8");

if (capstyle == "butt")

{

cap = agg::butt_cap;

}

else if (capstyle == "round")

{

cap = agg::round_cap;

}

else if (capstyle == "projecting")

{

cap = agg::square_cap;

}

else

{

throw Py::ValueError(Printf("GC _capstyle attribute must be one of butt, round, projecting; found %s", capstyle.c_str()).str());

}

}

void

GCAgg::_set_joinstyle(const Py::Object& gc)

{

_VERBOSE("GCAgg::_set_joinstyle");

std::string joinstyle = Py::String(gc.getAttr("_joinstyle")).encode("utf-8");

if (joinstyle == "miter")

{

join = agg::miter_join_revert;

}

else if (joinstyle == "round")

{

join = agg::round_join;

}

else if (joinstyle == "bevel")

{

join = agg::bevel_join;

}

else

{

throw Py::ValueError(Printf("GC _joinstyle attribute must be one of butt, round, projecting; found %s", joinstyle.c_str()).str());

}

}

void

GCAgg::_set_dashes(const Py::Object& gc)

{

//return the dashOffset, dashes sequence tuple.

_VERBOSE("GCAgg::_set_dashes");

Py::Object dash_obj(gc.getAttr("_dashes"));

if (dash_obj.ptr() == Py_None)

{

dashes.clear();

return;

}

convert_dashes(dash_obj, dpi, dashes, dashOffset);

}

void

GCAgg::_set_clip_rectangle(const Py::Object& gc)

{

//set the clip rectangle from the gc

_VERBOSE("GCAgg::_set_clip_rectangle");

Py::Object o(gc.getAttr("_cliprect"));

cliprect = o;

}

void

GCAgg::_set_clip_path(const Py::Object& gc)

{

//set the clip path from the gc

_VERBOSE("GCAgg::_set_clip_path");

Py::Object method_obj = gc.getAttr("get_clip_path");

Py::Callable method(method_obj);

Py::Tuple path_and_transform = method.apply(Py::Tuple());

if (path_and_transform[0].ptr() != Py_None)

{

clippath = path_and_transform[0];

clippath_trans = py_to_agg_transformation_matrix(path_and_transform[1].ptr());

}

}

void

GCAgg::_set_snap(const Py::Object& gc)

{

//set the snap setting

_VERBOSE("GCAgg::_set_snap");

Py::Object method_obj = gc.getAttr("get_snap");

Py::Callable method(method_obj);

Py::Object py_snap = method.apply(Py::Tuple());

if (py_snap.isNone())

{

snap_mode = SNAP_AUTO;

}

else if (py_snap.isTrue())

{

snap_mode = SNAP_TRUE;

}

else

{

snap_mode = SNAP_FALSE;

}

}

void

GCAgg::_set_hatch_path(const Py::Object& gc)

{

_VERBOSE("GCAgg::_set_hatch_path");

Py::Object method_obj = gc.getAttr("get_hatch_path");

Py::Callable method(method_obj);

hatchpath = method.apply(Py::Tuple());

if (hatchpath.ptr() == NULL)

throw Py::Exception();

}

void

GCAgg::_set_sketch_params(const Py::Object& gc)

{

_VERBOSE("GCAgg::_get_sketch_params");

Py::Object method_obj = gc.getAttr("get_sketch_params");

Py::Callable method(method_obj);

Py::Object result = method.apply(Py::Tuple());

if (result.ptr() == Py_None) {

sketch_scale = 0.0;

} else {

Py::Tuple sketch_params(result);

sketch_scale = Py::Float(sketch_params[0]);

sketch_length = Py::Float(sketch_params[1]);

sketch_randomness = Py::Float(sketch_params[2]);

}

}

const size_t

RendererAgg::PIXELS_PER_INCH(96);

RendererAgg::RendererAgg(unsigned int width, unsigned int height, double dpi,

int debug) :

width(width),

height(height),

dpi(dpi),

NUMBYTES(width*height*4),

pixBuffer(NULL),

renderingBuffer(),

alphaBuffer(NULL),

alphaMaskRenderingBuffer(),

alphaMask(alphaMaskRenderingBuffer),

pixfmtAlphaMask(alphaMaskRenderingBuffer),

rendererBaseAlphaMask(),

rendererAlphaMask(),

scanlineAlphaMask(),

slineP8(),

slineBin(),

pixFmt(),

rendererBase(),

rendererAA(),

rendererBin(),

theRasterizer(),

debug(debug),

_fill_color(agg::rgba(1, 1, 1, 0))

{

_VERBOSE("RendererAgg::RendererAgg");

unsigned stride(width*4);

pixBuffer = new agg::int8u[NUMBYTES];

renderingBuffer.attach(pixBuffer, width, height, stride);

pixFmt.attach(renderingBuffer);

rendererBase.attach(pixFmt);

rendererBase.clear(_fill_color);

rendererAA.attach(rendererBase);

rendererBin.attach(rendererBase);

hatchRenderingBuffer.attach(hatchBuffer, HATCH_SIZE, HATCH_SIZE,

HATCH_SIZE*4);

}

void

RendererAgg::create_alpha_buffers()

{

if (!alphaBuffer)

{

alphaBuffer = new agg::int8u[width * height];

alphaMaskRenderingBuffer.attach(alphaBuffer, width, height, width);

rendererBaseAlphaMask.attach(pixfmtAlphaMask);

rendererAlphaMask.attach(rendererBaseAlphaMask);

}

}

template<class R>

void

RendererAgg::set_clipbox(const Py::Object& cliprect, R& rasterizer)

{

//set the clip rectangle from the gc

_VERBOSE("RendererAgg::set_clipbox");

double l, b, r, t;

if (py_convert_bbox(cliprect.ptr(), l, b, r, t))

{

rasterizer.clip_box(std::max(int(floor(l + 0.5)), 0),

std::max(int(floor(height - b + 0.5)), 0),

std::min(int(floor(r + 0.5)), int(width)),

std::min(int(floor(height - t + 0.5)), int(height)));

}

else

{

rasterizer.clip_box(0, 0, width, height);

}

_VERBOSE("RendererAgg::set_clipbox done");

}

std::pair<bool, agg::rgba>

RendererAgg::_get_rgba_face(const Py::Object& rgbFace, double alpha, bool forced_alpha)

{

_VERBOSE("RendererAgg::_get_rgba_face");

std::pair<bool, agg::rgba> face;

if (rgbFace.ptr() == Py_None)

{

face.first = false;

}

else

{

face.first = true;

Py::Tuple rgb = Py::Tuple(rgbFace);

if (forced_alpha || rgb.length() < 4)

{

face.second = rgb_to_color(rgb, alpha);

}

else

{

face.second = rgb_to_color(rgb, Py::Float(rgb[3]));

}

}

return face;

}

Py::Object

RendererAgg::copy_from_bbox(const Py::Tuple& args)

{

//copy region in bbox to buffer and return swig/agg buffer object

args.verify_length(1);

Py::Object box_obj = args[0];

double l, b, r, t;

if (!py_convert_bbox(box_obj.ptr(), l, b, r, t))

{

throw Py::TypeError("Invalid bbox provided to copy_from_bbox");

}

agg::rect_i rect((int)l, height - (int)t, (int)r, height - (int)b);

BufferRegion* reg = NULL;

try

{

reg = new BufferRegion(rect, true);

}

catch (...)

{

throw Py::MemoryError(

"RendererAgg::copy_from_bbox could not allocate memory for buffer");

}

if (!reg)

{

throw Py::MemoryError(

"RendererAgg::copy_from_bbox could not allocate memory for buffer");

}

try

{

agg::rendering_buffer rbuf;

rbuf.attach(reg->data, reg->width, reg->height, reg->stride);

pixfmt pf(rbuf);

renderer_base rb(pf);

rb.copy_from(renderingBuffer, &rect, -rect.x1, -rect.y1);

}

catch (...)

{

delete reg;

throw Py::RuntimeError("An unknown error occurred in copy_from_bbox");

}

return Py::asObject(reg);

}

Py::Object

RendererAgg::restore_region(const Py::Tuple& args)

{

//copy BufferRegion to buffer

args.verify_length(1);

BufferRegion* region = static_cast<BufferRegion*>(args[0].ptr());

if (region->data == NULL)

{

throw Py::ValueError("Cannot restore_region from NULL data");

}

agg::rendering_buffer rbuf;

rbuf.attach(region->data,

region->width,

region->height,

region->stride);

rendererBase.copy_from(rbuf, 0, region->rect.x1, region->rect.y1);

return Py::Object();

}

// Restore the part of the saved region with offsets

Py::Object

RendererAgg::restore_region2(const Py::Tuple& args)

{

//copy BufferRegion to buffer

args.verify_length(7);

int x(0), y(0), xx1(0), yy1(0), xx2(0), yy2(0);

try

{

xx1 = Py::Int(args[1]);

yy1 = Py::Int(args[2]);

xx2 = Py::Int(args[3]);

yy2 = Py::Int(args[4]);

x = Py::Int(args[5]);

y = Py::Int(args[6]);

}

catch (Py::TypeError)

{

throw Py::TypeError("Invalid input arguments to restore_region2");

}

BufferRegion* region = static_cast<BufferRegion*>(args[0].ptr());

if (region->data == NULL)

{

throw Py::ValueError("Cannot restore_region from NULL data");

}

agg::rect_i rect(xx1 - region->rect.x1, (yy1 - region->rect.y1),

xx2 - region->rect.x1, (yy2 - region->rect.y1));

agg::rendering_buffer rbuf;

rbuf.attach(region->data,

region->width,

region->height,

region->stride);

rendererBase.copy_from(rbuf, &rect, x, y);

return Py::Object();

}

bool

RendererAgg::render_clippath(const Py::Object& clippath,

const agg::trans_affine& clippath_trans)

{

typedef agg::conv_transform<PathIterator> transformed_path_t;

typedef agg::conv_curve<transformed_path_t> curve_t;

bool has_clippath = (clippath.ptr() != Py_None);

if (has_clippath &&

(clippath.ptr() != lastclippath.ptr() ||

clippath_trans != lastclippath_transform))

{

create_alpha_buffers();

agg::trans_affine trans(clippath_trans);

trans *= agg::trans_affine_scaling(1.0, -1.0);

trans *= agg::trans_affine_translation(0.0, (double)height);

PathIterator clippath_iter(clippath);

rendererBaseAlphaMask.clear(agg::gray8(0, 0));

transformed_path_t transformed_clippath(clippath_iter, trans);

curve_t curved_clippath(transformed_clippath);

try {

theRasterizer.add_path(curved_clippath);

} catch (std::overflow_error &e) {

throw Py::OverflowError(e.what());

}

rendererAlphaMask.color(agg::gray8(255, 255));

agg::render_scanlines(theRasterizer, scanlineAlphaMask, rendererAlphaMask);

lastclippath = clippath;

lastclippath_transform = clippath_trans;

}

return has_clippath;

}

#define MARKER_CACHE_SIZE 512

Py::Object

RendererAgg::draw_markers(const Py::Tuple& args)

{

typedef agg::conv_transform<PathIterator> transformed_path_t;

typedef PathSnapper<transformed_path_t> snap_t;

typedef agg::conv_curve<snap_t> curve_t;

typedef agg::conv_stroke<curve_t> stroke_t;

typedef agg::pixfmt_amask_adaptor<pixfmt, alpha_mask_type> pixfmt_amask_type;

typedef agg::renderer_base<pixfmt_amask_type> amask_ren_type;

typedef agg::renderer_scanline_aa_solid<amask_ren_type> amask_aa_renderer_type;

args.verify_length(5, 6);

Py::Object gc_obj = args[0];

Py::Object marker_path_obj = args[1];

agg::trans_affine marker_trans = py_to_agg_transformation_matrix(args[2].ptr());

Py::Object path_obj = args[3];

agg::trans_affine trans = py_to_agg_transformation_matrix(args[4].ptr());

Py::Object face_obj;

if (args.size() == 6)

{

face_obj = args[5];

}

GCAgg gc(gc_obj, dpi);

// Deal with the difference in y-axis direction

marker_trans *= agg::trans_affine_scaling(1.0, -1.0);

trans *= agg::trans_affine_scaling(1.0, -1.0);

trans *= agg::trans_affine_translation(0.5, (double)height + 0.5);

PathIterator marker_path(marker_path_obj);

transformed_path_t marker_path_transformed(marker_path, marker_trans);

snap_t marker_path_snapped(marker_path_transformed,

gc.snap_mode,

marker_path.total_vertices(),

gc.linewidth);

curve_t marker_path_curve(marker_path_snapped);

PathIterator path(path_obj);

transformed_path_t path_transformed(path, trans);

snap_t path_snapped(path_transformed,

SNAP_FALSE,

path.total_vertices(),

0.0);

curve_t path_curve(path_snapped);

path_curve.rewind(0);

facepair_t face = _get_rgba_face(face_obj, gc.alpha, gc.forced_alpha);

//maxim's suggestions for cached scanlines

agg::scanline_storage_aa8 scanlines;

theRasterizer.reset();

theRasterizer.reset_clipping();

rendererBase.reset_clipping(true);

agg::int8u staticFillCache[MARKER_CACHE_SIZE];

agg::int8u staticStrokeCache[MARKER_CACHE_SIZE];

agg::int8u* fillCache = staticFillCache;

agg::int8u* strokeCache = staticStrokeCache;

try

{

unsigned fillSize = 0;

if (face.first)

{

try {

theRasterizer.add_path(marker_path_curve);

} catch (std::overflow_error &e) {

throw Py::OverflowError(e.what());

}

agg::render_scanlines(theRasterizer, slineP8, scanlines);

fillSize = scanlines.byte_size();

if (fillSize >= MARKER_CACHE_SIZE)

{

fillCache = new agg::int8u[fillSize];

}

scanlines.serialize(fillCache);

}

stroke_t stroke(marker_path_curve);

stroke.width(gc.linewidth);

stroke.line_cap(gc.cap);

stroke.line_join(gc.join);

theRasterizer.reset();

try {

theRasterizer.add_path(stroke);

} catch (std::overflow_error &e) {

throw Py::OverflowError(e.what());

}

agg::render_scanlines(theRasterizer, slineP8, scanlines);

unsigned strokeSize = scanlines.byte_size();

if (strokeSize >= MARKER_CACHE_SIZE)

{

strokeCache = new agg::int8u[strokeSize];

}

scanlines.serialize(strokeCache);

theRasterizer.reset_clipping();

rendererBase.reset_clipping(true);

set_clipbox(gc.cliprect, rendererBase);

bool has_clippath = render_clippath(gc.clippath, gc.clippath_trans);

double x, y;

agg::serialized_scanlines_adaptor_aa8 sa;

agg::serialized_scanlines_adaptor_aa8::embedded_scanline sl;

agg::rect_d clipping_rect(

-(scanlines.min_x() + 1.0),

(scanlines.max_y() + 1.0),

width + scanlines.max_x() + 1.0,

height - scanlines.min_y() + 1.0);

if (has_clippath)

{

while (path_curve.vertex(&x, &y) != agg::path_cmd_stop)

{

if (MPL_notisfinite64(x) || MPL_notisfinite64(y))

{

continue;

}

/* These values are correctly snapped above -- so we don't want

to round here, we really only want to truncate */

x = floor(x);

y = floor(y);

// Cull points outside the boundary of the image.

// Values that are too large may overflow and create

// segfaults.

// http://sourceforge.net/tracker/?func=detail&aid=2865490&group_id=80706&atid=560720

if (!clipping_rect.hit_test(x, y))

{

continue;

}

pixfmt_amask_type pfa(pixFmt, alphaMask);

amask_ren_type r(pfa);

amask_aa_renderer_type ren(r);

if (face.first)

{

ren.color(face.second);

sa.init(fillCache, fillSize, x, y);

agg::render_scanlines(sa, sl, ren);

}

ren.color(gc.color);

sa.init(strokeCache, strokeSize, x, y);

agg::render_scanlines(sa, sl, ren);

}

}

else

{

while (path_curve.vertex(&x, &y) != agg::path_cmd_stop)

{

if (MPL_notisfinite64(x) || MPL_notisfinite64(y))

{

continue;

}

/* These values are correctly snapped above -- so we don't want

to round here, we really only want to truncate */

x = floor(x);

y = floor(y);

// Cull points outside the boundary of the image.

// Values that are too large may overflow and create

// segfaults.

// http://sourceforge.net/tracker/?func=detail&aid=2865490&group_id=80706&atid=560720

if (!clipping_rect.hit_test(x, y))

{

continue;

}

if (face.first)

{

rendererAA.color(face.second);

sa.init(fillCache, fillSize, x, y);

agg::render_scanlines(sa, sl, rendererAA);

}

rendererAA.color(gc.color);

sa.init(strokeCache, strokeSize, x, y);

agg::render_scanlines(sa, sl, rendererAA);

}

}

}

catch (...)

{

if (fillCache != staticFillCache)

delete[] fillCache;

if (strokeCache != staticStrokeCache)

delete[] strokeCache;

theRasterizer.reset_clipping();

rendererBase.reset_clipping(true);

throw;

}

if (fillCache != staticFillCache)

delete[] fillCache;

if (strokeCache != staticStrokeCache)

delete[] strokeCache;

theRasterizer.reset_clipping();

rendererBase.reset_clipping(true);

return Py::Object();

}

/**

* This is a custom span generator that converts spans in the

* 8-bit inverted greyscale font buffer to rgba that agg can use.

*/

template<class ChildGenerator>

class font_to_rgba

{

public:

typedef ChildGenerator child_type;

typedef agg::rgba8 color_type;

typedef typename child_type::color_type child_color_type;

typedef agg::span_allocator<child_color_type> span_alloc_type;

private:

child_type* _gen;

color_type _color;

span_alloc_type _allocator;

public:

font_to_rgba(child_type* gen, color_type color) :

_gen(gen),

_color(color)

{

}

inline void

generate(color_type* output_span, int x, int y, unsigned len)

{

_allocator.allocate(len);

child_color_type* input_span = _allocator.span();

_gen->generate(input_span, x, y, len);

do

{

*output_span = _color;

output_span->a = ((unsigned int)_color.a *

(unsigned int)input_span->v) >> 8;

++output_span;

++input_span;

}

while (--len);

}

void

prepare()

{

_gen->prepare();

}

};

// MGDTODO: Support clip paths

Py::Object

RendererAgg::draw_text_image(const Py::Tuple& args)

{

_VERBOSE("RendererAgg::draw_text");

typedef agg::span_allocator<agg::rgba8> color_span_alloc_type;

typedef agg::span_interpolator_linear<> interpolator_type;

typedef agg::image_accessor_clip<agg::pixfmt_gray8> image_accessor_type;

typedef agg::span_image_filter_gray<image_accessor_type,

interpolator_type> image_span_gen_type;

typedef font_to_rgba<image_span_gen_type> span_gen_type;

typedef agg::renderer_scanline_aa<renderer_base, color_span_alloc_type,

span_gen_type> renderer_type;

args.verify_length(5);

const unsigned char* buffer = NULL;

int width, height;

Py::Object image_obj = args[0];

if (PyArray_Check(image_obj.ptr()))

{

PyObject* image_array = PyArray_FromObject(

image_obj.ptr(), PyArray_UBYTE, 2, 2);

if (!image_array)

{

throw Py::ValueError(

"First argument to draw_text_image must be a FT2Font.Image object or a Nx2 uint8 numpy array.");

}

image_obj = Py::Object(image_array, true);

buffer = (unsigned char *)PyArray_DATA(image_array);

width = PyArray_DIM(image_array, 1);

height = PyArray_DIM(image_array, 0);

}

else

{

FT2Image* image = static_cast<FT2Image *>(

Py::getPythonExtensionBase(image_obj.ptr()));

if (!image->get_buffer())

{

throw Py::ValueError(

"First argument to draw_text_image must be a FT2Font.Image object or a Nx2 uint8 numpy array.");

}

buffer = image->get_buffer();

width = image->get_width();

height = image->get_height();

}

int x(0), y(0);

try

{

x = Py::Int(args[1]);

y = Py::Int(args[2]);

}

catch (Py::TypeError)

{

throw Py::TypeError("Invalid input arguments to draw_text_image");

}

double angle = Py::Float(args[3]);

GCAgg gc(args[4], dpi);

theRasterizer.reset_clipping();

rendererBase.reset_clipping(true);

set_clipbox(gc.cliprect, theRasterizer);

agg::rendering_buffer srcbuf((agg::int8u*)buffer, width, height, width);

agg::pixfmt_gray8 pixf_img(srcbuf);

agg::trans_affine mtx;

mtx *= agg::trans_affine_translation(0, -height);

mtx *= agg::trans_affine_rotation(-angle * agg::pi / 180.0);

mtx *= agg::trans_affine_translation(x, y);