The R Project SVN – R – Diff – /branches/R-NaString/src/main/devPS.c

 #include "Graphics.h"
 #include "R_ext/Error.h"
 #include "Fileio.h"
 #include <Rdevices.h>
+#define INVALID_COL 0xff0a0b0c
 /* Define this to use hyphen except in -[0-9] */
 #undef USE_HYPHEN
 /* In ISOLatin1, minus is 45 and hyphen is 173 */
 #ifdef USE_HYPHEN
 static char PS_hyphen = 173;
     pd->current.fontsize = -1;
     pd->current.fontstyle = -1;
     pd->current.lwd = -1;
     pd->current.lty = -1;
-    pd->current.col = 0xffffffff;
+    pd->current.col = INVALID_COL;
-    pd->current.fill = 0xffffffff;
+    pd->current.fill = INVALID_COL;
-    pd->current.bg = 0xffffffff;
+    pd->current.bg = INVALID_COL;
+}
 static void PS_Clip(double x0, double x1, double y0, double y1, DevDesc *dd)
+{
     PostScriptDesc *pd = (PostScriptDesc *) dd->deviceSpecific;
 	pd->pageno++;
     } else pd->pageno++;
     PostScriptStartPage(pd->psfp, pd->pageno);
     Invalidate(dd);
-    if(dd->gp.bg != R_RGB(255,255,255)) {
+    if(R_ALPHA(dd->gp.bg) == 0) {
 	PS_Rect(0, 0, 72.0 * pd->pagewidth, 72.0 * pd->pageheight,
 		DEVICE, dd->gp.bg, NA_INTEGER, dd);
+    }
+}
     /* code == 0, nothing to draw */
     /* code == 1, outline only */
     /* code == 2, fill only */
     /* code == 3, outline and fill */
-    code = 2 * (bg != NA_INTEGER) + (fg != NA_INTEGER);
+    code = 2 * (R_ALPHA(bg) == 0) + (R_ALPHA(fg) == 0);
     if (code) {
 	if(code & 2)
 	    SetFill(bg, dd);
 	if(code & 1) {
     /* code == 0, nothing to draw */
     /* code == 1, outline only */
     /* code == 2, fill only */
     /* code == 3, outline and fill */
-    code = 2 * (bg != NA_INTEGER) + (fg != NA_INTEGER);
+    code = 2 * (R_ALPHA(bg) == 0) + (R_ALPHA(fg) == 0);
     if (code) {
 	if(code & 2)
 	    SetFill(bg, dd);
 	if(code & 1) {
     PostScriptDesc *pd = (PostScriptDesc *) dd->deviceSpecific;
     GConvert(&x1, &y1, coords, DEVICE, dd);
     GConvert(&x2, &y2, coords, DEVICE, dd);
     /* FIXME : clip to the device extents here */
+    if(R_ALPHA(dd->gp.col) == 0) {
-    SetColor(dd->gp.col, dd);
+	SetColor(dd->gp.col, dd);
-    SetLineStyle(dd->gp.lty, dd->gp.lwd, dd);
+	SetLineStyle(dd->gp.lty, dd->gp.lwd, dd);
-    PostScriptStartPath(pd->psfp);
+	PostScriptStartPath(pd->psfp);
-    PostScriptMoveTo(pd->psfp, x1, y1);
+	PostScriptMoveTo(pd->psfp, x1, y1);
-    PostScriptLineTo(pd->psfp, x2, y2);
+	PostScriptLineTo(pd->psfp, x2, y2);
-    PostScriptEndPath(pd->psfp);
+	PostScriptEndPath(pd->psfp);
+    }
+}
 static void PS_Polygon(int n, double *x, double *y, int coords,
 		       int bg, int fg, DevDesc *dd)
+{
     /* code == 0, nothing to draw */
     /* code == 1, outline only */
     /* code == 2, fill only */
     /* code == 3, outline and fill */
-    code = 2 * (bg != NA_INTEGER) + (fg != NA_INTEGER);
+    code = 2 * (R_ALPHA(bg) == 0) + (R_ALPHA(fg) == 0);
     if (code) {
 	if(code & 2)
 	    SetFill(bg, dd);
 	if(code & 1) {
     PostScriptDesc *pd;
     double xx, yy;
     int i;
     pd = (PostScriptDesc*) dd->deviceSpecific;
+    if(R_ALPHA(dd->gp.col) == 0) {
-    SetColor(dd->gp.col, dd);
+	SetColor(dd->gp.col, dd);
-    SetLineStyle(dd->gp.lty, dd->gp.lwd, dd);
+	SetLineStyle(dd->gp.lty, dd->gp.lwd, dd);
-    fprintf(pd->psfp, "np\n");
+	fprintf(pd->psfp, "np\n");
-    xx = x[0];
-    yy = y[0];
-    GConvert(&xx, &yy, coords, DEVICE, dd);
-    fprintf(pd->psfp, "%.2f %.2f m\n", xx, yy);
-    for(i = 1 ; i < n ; i++) {
-	xx = x[i];
+	xx = x[0];
-	yy = y[i];
+	yy = y[0];
 	GConvert(&xx, &yy, coords, DEVICE, dd);
-	fprintf(pd->psfp, "%.2f %.2f l\n", xx, yy);
+	fprintf(pd->psfp, "%.2f %.2f m\n", xx, yy);
+	for(i = 1 ; i < n ; i++) {
+	    xx = x[i];
+	    yy = y[i];
+	    GConvert(&xx, &yy, coords, DEVICE, dd);
+	    fprintf(pd->psfp, "%.2f %.2f l\n", xx, yy);
+	}
+	fprintf(pd->psfp, "o\n");
+    }
-    fprintf(pd->psfp, "o\n");
+}
 static void PS_Text(double x, double y, int coords,
 		    char *str, double rot, double hadj, DevDesc *dd)
+{
     PostScriptDesc *pd = (PostScriptDesc *) dd->deviceSpecific;
     GConvert(&x, &y, coords, DEVICE, dd);
     SetFont(dd->gp.font, (int)floor(dd->gp.cex * dd->gp.ps + 0.5), dd);
+    if(R_ALPHA(dd->gp.col) == 0) {
-    SetColor(dd->gp.col, dd);
+	SetColor(dd->gp.col, dd);
-    PostScriptText(pd->psfp, x, y, str, hadj, 0.0, rot);
+	PostScriptText(pd->psfp, x, y, str, hadj, 0.0, rot);
+    }
+}
 static Rboolean PS_Locator(double *x, double *y, DevDesc *dd)
+{
     return FALSE;
 	pd->tmpfp = R_fopen(pd->tmpname, "w");
 	XF_FileHeader(pd->psfp, pd->papername, pd->landscape, pd->onefile);
 	pd->XFigColors[7] = 0xffffff;
 	pd->nXFigColors = 32;
+    }
-     if(dd->dp.bg != R_RGB(255,255,255)) {
+     if(R_ALPHA(dd->dp.bg) == 0) {
 	 int cbg = XF_SetColor(dd->dp.bg, pd);
 	 int ix0, iy0, ix1, iy1;
 	 double x0 = 0.0, y0 = 0.0, x1 = 72.0 * pd->pagewidth,
 	     y1 = 72.0 * pd->pageheight;
 	 XFconvert(&x0, &y0, pd); XFconvert(&x1, &y1, pd);
     FILE *fp = pd->tmpfp;
     int ix0, iy0, ix1, iy1;
     int cbg = XF_SetColor(bg, pd), cfg = XF_SetColor(fg, pd), cpen,
 	dofill, lty = XF_SetLty(dd->gp.lty), lwd = dd->gp.lwd*0.833 + 0.5;
-    cpen = (fg != NA_INTEGER)? cfg: -1;
+    cpen = (R_ALPHA(fg) == 0)? cfg: -1;
-    dofill = (bg != NA_INTEGER)? 20: -1;
+    dofill = (R_ALPHA(bg) == 0)? 20: -1;
     GConvert(&x0, &y0, coords, DEVICE, dd); XFconvert(&x0, &y0, pd);
     GConvert(&x1, &y1, coords, DEVICE, dd); XFconvert(&x1, &y1, pd);
     ix0 = (int)x0; iy0 = (int)y0; ix1 = (int)x1; iy1 = (int)y1;
     fprintf(fp, "2 2 "); /* Polyline */
     FILE *fp = pd->tmpfp;
     int ix, iy, ir;
     int cbg = XF_SetColor(bg, pd), cfg = XF_SetColor(fg, pd), cpen,
 	dofill, lty = XF_SetLty(dd->gp.lty), lwd = dd->gp.lwd*0.833 + 0.5;
-    cpen = (fg != NA_INTEGER)? cfg: -1;
+    cpen = (R_ALPHA(fg) == 0)? cfg: -1;
-    dofill = (bg != NA_INTEGER)? 20: -1;
+    dofill = (R_ALPHA(bg) == 0)? 20: -1;
     GConvert(&x, &y, coords, DEVICE, dd); XFconvert(&x, &y, pd);
     ix = (int)x; iy = (int)y; ir = (int)(16.667*r);
     fprintf(fp, "1 3 "); /* Circle + radius */
     FILE *fp = pd->tmpfp;
     int lty = XF_SetLty(dd->gp.lty), lwd = dd->gp.lwd*0.833 + 0.5;
     GConvert(&x1, &y1, coords, DEVICE, dd); XFconvert(&x1, &y1, pd);
     GConvert(&x2, &y2, coords, DEVICE, dd); XFconvert(&x2, &y2, pd);
+    if(R_ALPHA(dd->gp.col) == 0) {
-    fprintf(fp, "2 1 "); /* Polyline */
+	fprintf(fp, "2 1 "); /* Polyline */
-    fprintf(fp, "%d %d ", lty, lwd>0?lwd:1); /* style, thickness */
+	fprintf(fp, "%d %d ", lty, lwd>0?lwd:1); /* style, thickness */
-    fprintf(fp, "%d %d ", XF_SetColor(dd->gp.col, pd), 7);
+	fprintf(fp, "%d %d ", XF_SetColor(dd->gp.col, pd), 7);
-      /* pen colour fill colour */
+	/* pen colour fill colour */
-    fprintf(fp, "100 0 -1 "); /* depth, pen style, area fill */
+	fprintf(fp, "100 0 -1 "); /* depth, pen style, area fill */
-    fprintf(fp, "%.2f 0 0 -1 0 0 ", 4.0*lwd); /* style value, join .... */
+	fprintf(fp, "%.2f 0 0 -1 0 0 ", 4.0*lwd); /* style value, join .... */
-    fprintf(fp, "%d\n", 2); /* number of points */
+	fprintf(fp, "%d\n", 2); /* number of points */
-    fprintf(fp, "%d %d %d %d\n", (int)x1, (int)y1, (int)x2, (int)y2);
+	fprintf(fp, "%d %d %d %d\n", (int)x1, (int)y1, (int)x2, (int)y2);
+    }
+}
 static void XFig_Polygon(int n, double *x, double *y, int coords,
 			 int bg, int fg, DevDesc *dd)
+{
     double xx, yy;
     int i;
     int cbg = XF_SetColor(bg, pd), cfg = XF_SetColor(fg, pd), cpen,
 	dofill, lty = XF_SetLty(dd->gp.lty), lwd = dd->gp.lwd*0.833 + 0.5;
-    cpen = (fg != NA_INTEGER)? cfg: -1;
+    cpen = (R_ALPHA(fg) == 0)? cfg: -1;
-    dofill = (bg != NA_INTEGER)? 20: -1;
+    dofill = (R_ALPHA(bg) == 0)? 20: -1;
     fprintf(fp, "2 3 "); /* Polyline */
     fprintf(fp, "%d %d ", lty, lwd>0?lwd:1); /* style, thickness */
     fprintf(fp, "%d %d ", cpen, cbg); /* pen colour fill colour */
     fprintf(fp, "100 0 %d ", dofill); /* depth, pen style, area fill */
     XFigDesc *pd = (XFigDesc*) dd->deviceSpecific;
     FILE *fp = pd->tmpfp;
     double xx, yy;
     int i, lty = XF_SetLty(dd->gp.lty), lwd = dd->gp.lwd*0.833 + 0.5;
+    if(R_ALPHA(dd->gp.col) == 0) {
-    fprintf(fp, "2 1 "); /* Polyline */
+	fprintf(fp, "2 1 "); /* Polyline */
-    fprintf(fp, "%d %d ", lty, lwd>0?lwd:1); /* style, thickness */
+	fprintf(fp, "%d %d ", lty, lwd>0?lwd:1); /* style, thickness */
-    fprintf(fp, "%d %d ", XF_SetColor(dd->gp.col, pd), 7); /* pen colour fill colour */
+	fprintf(fp, "%d %d ", XF_SetColor(dd->gp.col, pd), 7); /* pen colour fill colour */
-    fprintf(fp, "100 0 -1 "); /* depth, pen style, area fill */
+	fprintf(fp, "100 0 -1 "); /* depth, pen style, area fill */
-    fprintf(fp, "%.2f 0 0 -1 0 0 ", 4.0*lwd); /* style value, join .... */
+	fprintf(fp, "%.2f 0 0 -1 0 0 ", 4.0*lwd); /* style value, join .... */
-    fprintf(fp, "%d\n", n); /* number of points */
+	fprintf(fp, "%d\n", n); /* number of points */
-    for(i = 0 ; i < n ; i++) {
+	for(i = 0 ; i < n ; i++) {
-	xx = x[i];
+	    xx = x[i];
-	yy = y[i];
+	    yy = y[i];
-	GConvert(&xx, &yy, coords, DEVICE, dd); XFconvert(&xx, &yy, pd);
+	    GConvert(&xx, &yy, coords, DEVICE, dd); XFconvert(&xx, &yy, pd);
-	fprintf(fp, "  %d %d\n", (int)xx, (int)yy);
+	    fprintf(fp, "  %d %d\n", (int)xx, (int)yy);
+	}
+    }
+}
 static int styles[4] = {0,2,1,3};
     pd->fontstyle = style;
     if(style == 5) fontnum = 32;
     else fontnum = pd->fontnum + styles[style-1];
     GConvert(&x, &y, coords, DEVICE, dd); XFconvert(&x, &y, pd);
+    if(R_ALPHA(dd->gp.col) == 0) {
-    fprintf(fp, "4 %d ", (int)floor(2*hadj)); /* Text, how justified */
+	fprintf(fp, "4 %d ", (int)floor(2*hadj)); /* Text, how justified */
-    fprintf(fp, "%d 100 0 ", XF_SetColor(dd->gp.col, pd));
+	fprintf(fp, "%d 100 0 ", XF_SetColor(dd->gp.col, pd));
-      /* color, depth, pen_style */
+	/* color, depth, pen_style */
-    fprintf(fp, "%d %d %.4f 4 ", fontnum, (int)size, rot * DEG2RAD);
+	fprintf(fp, "%d %d %.4f 4 ", fontnum, (int)size, rot * DEG2RAD);
-      /* font pointsize angle flags (Postscript font) */
+	/* font pointsize angle flags (Postscript font) */
-    fprintf(fp, "%d %d ", (int)(16.667*GStrHeight(str, DEVICE, dd)+0.5),
+	fprintf(fp, "%d %d ", (int)(16.667*GStrHeight(str, DEVICE, dd)+0.5),
-	    (int)(16.667*GStrWidth(str, DEVICE, dd)+0.5));
+		(int)(16.667*GStrWidth(str, DEVICE, dd)+0.5));
-    fprintf(fp, "%d %d ", (int)x, (int)y);
+	fprintf(fp, "%d %d ", (int)x, (int)y);
-    XF_WriteString(fp, str);
+	XF_WriteString(fp, str);
-    fprintf(fp, "\\001\n");
+	fprintf(fp, "\\001\n");
+    }
+}
 static Rboolean XFig_Locator(double *x, double *y, DevDesc *dd)
+{
     return FALSE;
     pd->current.lwd = 1;
     pd->current.lty = -1;
     /* page starts with black as the default fill and stroke colours */
     pd->current.col = 0;
     pd->current.fill = 0;
-    pd->current.bg = 0xffffffff;
+    pd->current.bg = INVALID_COL;
+}
 static void PDF_SetLineColor(int color, DevDesc *dd)
+{
     PDFDesc *pd = (PDFDesc *) dd->deviceSpecific;
 	    pd->nobjs, pd->nobjs + 1);
     pd->startstream = (int) ftell(pd->pdffp);
     fprintf(pd->pdffp, "1 J 1 j 10 M q\n");
     PDF_Invalidate(dd);
-    if(dd->gp.bg != R_RGB(255,255,255)) {
+    if(R_ALPHA(dd->gp.bg) == 0) {
 	PDF_SetFill(dd->gp.bg, dd);
 	fprintf(pd->pdffp, "0 0 %.2f %.2f re f\n",
 .0 * pd->width, 72.0 * pd->height);
+    }
     pd->inText = FALSE;
 		      int bg, int fg, DevDesc *dd)
+{
     PDFDesc *pd = (PDFDesc *) dd->deviceSpecific;
     int code;
-    code = 2 * (bg != NA_INTEGER) + (fg != NA_INTEGER);
+    code = 2 * (R_ALPHA(bg) == 0) + (R_ALPHA(fg) == 0);
     if (code) {
 	if(pd->inText) textoff(pd);
 	if(code & 2)
 	    PDF_SetFill(bg, dd);
 	if(code & 1) {
     int code, tr;
     double xx, yy, a;
     GConvert(&x, &y, coords, DEVICE, dd);
-    code = 2 * (bg != NA_INTEGER) + (fg != NA_INTEGER);
+    code = 2 * (R_ALPHA(bg) == 0) + (R_ALPHA(fg) == 0);
     if (code) {
 	if(code & 2)
 	    PDF_SetFill(bg, dd);
 	if(code & 1) {
 	       centre = (0.396, 0.347) * size
 	    */
 	    a = 2./0.722 * r;
 	    xx = x - 0.396*a;
 	    yy = y - 0.347*a;
-	    tr = (bg != NA_INTEGER) + 2 * (fg != NA_INTEGER) - 1;
+	    tr = (R_ALPHA(bg) == 0) + 2 * (R_ALPHA(fg) == 0) - 1;
 	    if(!pd->inText) texton(pd);
 	    fprintf(pd->pdffp,
 		    "/F6 1 Tf %d Tr %.2f 0 0 %.2f %.2f %.2f Tm",
 		    tr, a, a, xx, yy);
 	    fprintf(pd->pdffp, " (l) Tj 0 Tr\n");
 static void PDF_Line(double x1, double y1, double x2, double y2,
 		    int coords, DevDesc *dd)
+{
     PDFDesc *pd = (PDFDesc *) dd->deviceSpecific;
+    if(R_ALPHA(dd->gp.col) == 0) {
-    PDF_SetLineColor(dd->gp.col, dd);
+	PDF_SetLineColor(dd->gp.col, dd);
-    PDF_SetLineStyle(dd->gp.lty, dd->gp.lwd, dd);
+	PDF_SetLineStyle(dd->gp.lty, dd->gp.lwd, dd);
-    GConvert(&x1, &y1, coords, DEVICE, dd);
+	GConvert(&x1, &y1, coords, DEVICE, dd);
-    GConvert(&x2, &y2, coords, DEVICE, dd);
+	GConvert(&x2, &y2, coords, DEVICE, dd);
-    if(pd->inText) textoff(pd);
+	if(pd->inText) textoff(pd);
-    fprintf(pd->pdffp, "%.2f %.2f m %.2f %.2f l S\n", x1, y1, x2, y2);
+	fprintf(pd->pdffp, "%.2f %.2f m %.2f %.2f l S\n", x1, y1, x2, y2);
+    }
+}
 static void PDF_Polygon(int n, double *x, double *y, int coords,
 			 int bg, int fg, DevDesc *dd)
+{
     PDFDesc *pd = (PDFDesc *) dd->deviceSpecific;
     double xx, yy;
     int i, code;
-    code = 2 * (bg != NA_INTEGER) + (fg != NA_INTEGER);
+    code = 2 * (R_ALPHA(bg) == 0) + (R_ALPHA(fg) == 0);
     if (code) {
 	if(pd->inText) textoff(pd);
 	if(code & 2)
 	    PDF_SetFill(bg, dd);
     PDFDesc *pd = (PDFDesc*) dd->deviceSpecific;
     double xx, yy;
     int i;
     if(pd->inText) textoff(pd);
+    if(R_ALPHA(dd->gp.col) == 0) {
-    PDF_SetLineColor(dd->gp.col, dd);
+	PDF_SetLineColor(dd->gp.col, dd);
-    PDF_SetLineStyle(dd->gp.lty, dd->gp.lwd, dd);
+	PDF_SetLineStyle(dd->gp.lty, dd->gp.lwd, dd);
-    xx = x[0];
-    yy = y[0];
-    GConvert(&xx, &yy, coords, DEVICE, dd);
-    fprintf(pd->pdffp, "%.2f %.2f m\n", xx, yy);
-    for(i = 1 ; i < n ; i++) {
-	xx = x[i];
+	xx = x[0];
-	yy = y[i];
+	yy = y[0];
 	GConvert(&xx, &yy, coords, DEVICE, dd);
-	fprintf(pd->pdffp, "%.2f %.2f l\n", xx, yy);
+	fprintf(pd->pdffp, "%.2f %.2f m\n", xx, yy);
+	for(i = 1 ; i < n ; i++) {
+	    xx = x[i];
+	    yy = y[i];
+	    GConvert(&xx, &yy, coords, DEVICE, dd);
+	    fprintf(pd->pdffp, "%.2f %.2f l\n", xx, yy);
+	}
+	fprintf(pd->pdffp, "S\n");
+    }
-    fprintf(pd->pdffp, "S\n");
+}
 static void PDF_Text(double x, double y, int coords,
 		     char *str, double rot, double hadj, DevDesc *dd)
     rot1 = rot * DEG2RAD;
     a = size * cos(rot1);
     b = size * sin(rot1);
     GConvert(&x, &y, coords, DEVICE, dd);
     if(!pd->inText) texton(pd);
+    if(R_ALPHA(dd->gp.col) == 0) {
-    PDF_SetFill(dd->gp.col, dd);
+	PDF_SetFill(dd->gp.col, dd);
-    fprintf(pd->pdffp, "/F%d 1 Tf %.2f %.2f %.2f %.2f %.2f %.2f Tm ",
+	fprintf(pd->pdffp, "/F%d 1 Tf %.2f %.2f %.2f %.2f %.2f %.2f Tm ",
-	    face, a, b, -b, a, x, y);
+		face, a, b, -b, a, x, y);
-    PostScriptWriteString(pd->pdffp, str);
+	PostScriptWriteString(pd->pdffp, str);
-    fprintf(pd->pdffp, " Tj\n");
+	fprintf(pd->pdffp, " Tj\n");
+    }
+}
 static Rboolean PDF_Locator(double *x, double *y, DevDesc *dd)
+{
     return FALSE;

The R Project SVN R

(root)/branches/R-NaString/src/main/devPS.c @ 63243 – Rev 15590 → 15641