* Fix support for the default symbol font on many linux distros

(StandardSymbolPS) by ensuring proper fallback during character metric

calculation (#136,#201)

*`agg_capture()` now reports the current "page number" as well as whether any

drawing has occured since the last time the capture was taken as attributes

in the return value (but only if you request native raster) (#204)

unsignedchar* buffer;

int pageno;

bool changed;

std::string file;

R_COLOR background;

int background_int;

if (evenodd) ras.filling_rule(agg::fill_even_odd);

if (recording_mask ==NULL && recording_raster ==NULL) {

changed =true;

solid_renderer.color(convertColour(fill));

if (current_mask ==NULL) {

render<agg::scanline_p8>(ras, ras_clip, slp, solid_renderer, current_clip !=NULL);

agg::scanline_u8 slu;

setStroke(ras, path, lty, lwd, lend, ljoin, lmitre);

if (recording_mask ==NULL && recording_raster ==NULL) {

changed =true;

solid_renderer.color(convertColour(col));

if (current_mask ==NULL) {

render<agg::scanline_u8>(ras, ras_clip, slu, solid_renderer, current_clip !=NULL);

renderer.clear(background);

}

pageno++;

changed =true;

}

template<classPIXFMT,classR_COLOR,typename BLNDFMT>

void AggDevice<PIXFMT, R_COLOR, BLNDFMT>::close() {

agg::scanline_u8 sl;

if (recording_mask ==NULL && recording_raster ==NULL) {

changed =true;

if (current_mask ==NULL) {

it->second->draw(mtx, ras, ras_clip, sl, renderer, clip);

}else {

agg::scanline_u8 slu;

if (recording_mask ==NULL && recording_raster ==NULL) {

changed =true;

if (current_mask ==NULL) {

render_raster<pixfmt_r_raster, BLNDFMT>(rbuf, w, h, ras, ras_clip, slu, interpolator, renderer, interpolate, current_clip !=NULL,false);

}else {

agg::scanline_u8 slu;

if (recording_mask ==NULL && recording_raster ==NULL) {

changed =true;

solid_renderer.color(convertColour(col));

if (current_mask ==NULL) {

t_ren.templateplot_text<BLNDFMT>(x, y, str, rot, hadj, solid_renderer, renderer, slu, device_id, ras_clip, current_clip !=NULL, recording_path);

agg::scanline_u8 slu;

if (recording_mask ==NULL && recording_raster ==NULL) {

changed =true;

solid_renderer.color(convertColour(colour));

if (current_mask ==NULL) {

t_ren.templateplot_glyphs<BLNDFMT>(n, glyphs, x, y, rot, solid_renderer, renderer, slu, ras_clip, current_clip !=NULL, recording_path);

#pragma once

#include"Rinternals.h"

#include"ragg.h"

#include"AggDevice.h"

template<classPIXFMT>

classAggDeviceCapture :publicAggDevice<PIXFMT> {

bool can_capture =true;

AggDeviceCapture(constchar* fp,int w,int h,double ps,int bg,double res,

double scaling,bool snap) :

AggDevice<PIXFMT>(fp, w, h, ps, bg, res, scaling, snap)

{

}

boolsavePage() {

INTEGER(dims)[0] =this->height;

INTEGER(dims)[1] =this->width;

Rf_setAttrib(raster, R_DimSymbol, dims);

Rf_setAttrib(raster,Rf_mkString("page"),Rf_ScalarInteger(this->pageno));

Rf_setAttrib(raster,Rf_mkString("changed"),Rf_ScalarLogical(this->changed));

this->changed =false;

UNPROTECT(2);

return raster;

}