search for: pgedevdesc

Dear list, I read in ?plotmath that I can use bgroup to draw scalable delimiters such as [ ] and ( ). The same technique fails with < > however, and I cannot find a workaround, grid.text(expression(bgroup("<",atop(x,y),">"))) Error in bgroup("<", atop(x, y), ">") : invalid group delimiter Regards, baptiste sessionInfo() R version

Dear list, I read in ?plotmath that I can use bgroup to draw scalable delimiters such as [ ] and ( ). The same technique fails with < > however, and I cannot find a workaround, grid.text(expression(bgroup("<",atop(x,y),">"))) Error in bgroup("<", atop(x, y), ">") : invalid group delimiter Regards, baptiste sessionInfo() R version

...* onefile = {TRUE: normal; FALSE: single EPSF page} * pagecentre = centre plot region on paper? + * defaultfont = {TRUE: use xfig default font; FALSE: use R font} + * textspecial = {TRUE: use textspecial; FALSE: use standard font} + * * encoding */ @@ -7449,7 +7458,7 @@ pGEDevDesc gdd; char *vmax; const char *file, *paper, *family, *bg, *fg, *encoding; - int horizontal, onefile, pagecentre; + int horizontal, onefile, pagecentre, defaultfont, textspecial; double height, width, ps; vmax = vmaxget(); @@ -7467,6 +7476,8 @@ ps = asReal(CAR(arg...

Hi All, I'm using 'tck' option to *reduce* the length of tick marks but it is not working, can anyone please tell me where I'm going wrong... require(graphics) require(grDevices) x <- seq(-10, 10, length= 30) y <- x f <- function(x,y) { r <- sqrt(x^2+y^2); 10 * sin(r)/r } z <- outer(x, y, f) z[is.na(z)] <- 1 # 'bg' works but 'tck' is not showing

Here is a demonstration of behaviour that is probably an optimization by someone far smarter than me that did not anticipate anyone wanting to do this, but for my purposes it looks more like a bug than a feature. I have tested this with R2.6.2 on Windows, no additional packages loaded (beyond the default), I have tested using the default graphics object, pdf, jpeg, and cairoDevice (ok I loaded a

...pos++] = annot_str; + } + /* PostScript Device Driver Parameters: * ------------------------ *************** *** 7302,7304 **** --- 7426,7496 ---- vmaxset(vmax); return R_NilValue; } + + + /* PDFAnnotBox(x0, y0, x1, y1, text, coord) */ + + SEXP PDFAnnotBox(SEXP args) + { + pGEDevDesc gdd = GEcurrentDevice(); + PDFDesc *pd = (PDFDesc *) gdd->dev->deviceSpecific; + double x0, y0, x1, y1; + char *text, *coord; + GUnit from, to; + char annot_text[1024] = ""; + + args = CDR(args); + x0 = asReal(CAR(args)); args = CDR(args); + y0 = asRe...