search for: devicespecif

...'d greatly appreciate feedback or other ideas! Implementation: -- the variable inclose is now in the device specific structure (why was it global?) After the window is mapped, inclose is TRUE until the window is destroyed explicitly or a DestroyNotify event has been received. -- the deviceSpecific pointer is set to NULL after the memory has been freed. This (side?) effect is used in X11_Locator to detect the closing of the current device which _must_ lead to an error. -- the if statement to handle events of type DestroyEvent is added to handleEvent -- when the user closes the de...

...pd->pdffp); + fprintf(pd->pdffp, "%d %s", pd->nobjs, pd->annots[i]); + free(pd->annots[i]); + } + pd->annotspos = 0; } #define R_VIS(col) (R_ALPHA(col) > 0) *************** *** 6352,6357 **** --- 6401,6407 ---- { PDFDesc *pd = (PDFDesc *) dd->deviceSpecific; char buf[512]; + int i; if(pd->pageno >= pd->pagemax || pd->nobjs >= 3*pd->pagemax) { pd->pageobj = (int *) *************** *** 6377,6386 **** } } ! pd->pos[++pd->nobjs] = (int) ftell(pd->pdffp); ! pd->pageobj[pd->pageno++...

...x/devX11.c, which is so short I've included the whole function below: static void X11_Line(double x1, double y1, double x2, double y2, int coords, DevDesc *dd) { double xx1, yy1, xx2, yy2; <----------- should be int! x11Desc *xd = (x11Desc *) dd->deviceSpecific; /* In-place conversion ok */ GConvert(&x1, &y1, coords, DEVICE, dd); GConvert(&x2, &y2, coords, DEVICE, dd); xx1 = (int) x1; yy1 = (int) y1; xx2 = (int) x2; yy2 = (int) y2; SetColor(dd->gp.col, dd); SetLinetype(dd->gp.lty, dd->gp.lw...

...tic double NULL_StrWidth(char *str, R_GE_gcontext *gc, NewDevDesc *dev) { return 0.0; } static void NULL_dot(NewDevDesc *dev) { } static void NULL_Hold(NewDevDesc *dev) { } static Rboolean nullDeviceDriver(NewDevDesc *dev) { dev->deviceSpecific = NULL; /* * Device functions */ dev->open = (Rboolean (*)())NULL_Open; dev->close = (void (*)())NULL_Close; dev->activate = (void (*)())NULL_Activate; dev->deactivate = (void (*)())NULL_Deactivate; dev->size = (void (*)())NULL_Size; dev->n...

...elated to postscript at all, see below. Jim> A possible fix is to insert a test for zero in the function Jim> SetLineStyle() - devPS.c: >> static void SetLineStyle(int newlty, double newlwd, DevDesc *dd) >> { >> PostScriptDesc *pd = (PostScriptDesc *) dd->deviceSpecific; >> int i, ltyarray[8]; >> int sum = 0; >> if (pd->lty != newlty || pd->lwd != newlwd) { >> pd->lwd = newlwd; >> pd->lty = newlty; >> PostScriptSetLineWidth(pd->psfp, dd->gp.lwd*0.75); >> for(i...

I discovered a little problem when using the Windows NT release of R 1.0.1, and it's still there in R 1.1.0. The boiled down version is this: I want to draw the following plot and put it into a Postscript file: x <- c(1,2,3,4); y1 <- c(1,2,3,4); y2 <- c(2,2,2,2) Fred <- c(1,2) postscript(file="d:/Bob/Papers/IFM/try2.ps") plot(x,y1, type="l")

...; - XFindContext(display, event.xconfigure.window, - devPtrContext, &temp); + if (XFindContext(display, event.xconfigure.window, + devPtrContext, &temp)) return; dd = (NewDevDesc *) temp; xd = (newX11Desc *) dd->deviceSpecific; if (xd->windowWidth != event.xconfigure.width || @@ -614,8 +614,8 @@ else if ((event.type == ClientMessage) && (event.xclient.message_type == _XA_WM_PROTOCOLS)) if (!inclose && event.xclient.data.l[0] == protocol) { - XFindContext(di...