search for: pdevdesc

According to the "R Internals" document, for a custom device, I should create a pDevDesc structure that gets passed to GECreateDevDesc. ..elided... pDevDesc dev; /* Allocate and initialize the device driver data */ if (!(dev = (pDevDesc) calloc(1, sizeof(DevDesc)))) return 0; /* or error() */ /* set up device driver or free ?dev? and error() */ gdd = GEcreateDevDesc(dev); GEaddDevice2...

...tored in PDF_Text) + */ + int text_size; + double text_a, text_b, text_x, text_y; + double text_ascent, text_descent, text_width; } PDFDesc; *************** *** 5188,5197 **** --- 5200,5217 ---- static double PDF_StrWidth(const char *str, const pGEcontext gc, pDevDesc dd); + static void PDF_StrSize(const char *str, + const pGEcontext gc, + pDevDesc dd, + double *ascent_max, + double *descent_max, + double *width_sum); static void PDF_Text(double x, double y, const char *str, double rot, double hadj, const pGEcontext gc,...

...pagecentre = asLogical(CAR(args));args = CDR(args); + defaultfont = asLogical(CAR(args)); args = CDR(args); + textspecial = asLogical(CAR(args)); args = CDR(args); encoding = CHAR(asChar(CAR(args))); R_GE_checkVersionOrDie(R_GE_version); @@ -7476,7 +7487,7 @@ if (!(dev = (pDevDesc) calloc(1, sizeof(DevDesc)))) return 0; if(!XFigDeviceDriver(dev, file, paper, family, bg, fg, width, height, - (double) horizontal, ps, onefile, pagecentre, + (double) horizontal, ps, onefile, pagecentre, defaultfont, textspecial, encoding)) { /* free(dev...