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

 #include "Fileio.h"
 	/* device-specific information per picTeX device */
 typedef struct {
-	FILE *texfp;
+    FILE *texfp;
-	char filename[128];
+    char filename[128];
-	int pageno;
+    int pageno;
-	int landscape;
+    int landscape;
-	double width;
+    double width;
-	double height;
+    double height;
-	double pagewidth;
+    double pagewidth;
-	double pageheight;
+    double pageheight;
-	double xlast;
+    double xlast;
-	double ylast;
+    double ylast;
-	double clipleft, clipright, cliptop, clipbottom;
+    double clipleft, clipright, cliptop, clipbottom;
-	double clippedx0, clippedy0, clippedx1, clippedy1;
+    double clippedx0, clippedy0, clippedx1, clippedy1;
-	int lty;
+    int lty;
-	rcolor col;
+    rcolor col;
-	rcolor fg;
+    rcolor fg;
-	rcolor bg;
+    rcolor bg;
-	int fontsize;
+    int fontsize;
-	int fontface;
+    int fontface;
-	int debug;
+    int debug;
 } picTeXDesc;
 	/* Global device information */
 	/* Support routines */
 static void SetLinetype(int newlty, int newlwd, DevDesc *dd)
+{
-	picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
+    picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
-	int i, templty;
+    int i, templty;
-	ptd->lty = newlty;
+    ptd->lty = newlty;
-	if (ptd->lty) {
+    if (ptd->lty) {
-		fprintf(ptd->texfp,"\\setdashpattern <");
+	fprintf(ptd->texfp,"\\setdashpattern <");
-		for(i=0 ; i<8 && newlty&15 ; i++) {
+	for(i=0 ; i<8 && newlty&15 ; i++) {
-			fprintf(ptd->texfp,"%dpt", newlwd * newlty&15);
+	    fprintf(ptd->texfp,"%dpt", newlwd * newlty&15);
-			templty = newlty>>4;
+	    templty = newlty>>4;
-			if ((i+1)<8 && templty&15) fprintf(ptd->texfp,", ");
+	    if ((i+1)<8 && templty&15) fprintf(ptd->texfp,", ");
-			newlty = newlty>>4;
+	    newlty = newlty>>4;
-		}
+	}
-		fprintf(ptd->texfp,">\n");
+	fprintf(ptd->texfp,">\n");
-	} else fprintf(ptd->texfp,"\\setsolid\n");
+    } else fprintf(ptd->texfp,"\\setsolid\n");
+}
 static void SetFont(int face, int size, picTeXDesc *ptd)
+{
-	int lface=face, lsize= size;
+    int lface=face, lsize= size;
-	if(lface < 1 || lface > 4) lface = 1;
+    if(lface < 1 || lface > 4) lface = 1;
-	if(lsize < 1 || lsize > 24) lsize = 10;
+    if(lsize < 1 || lsize > 24) lsize = 10;
-	if(lsize != ptd->fontsize || lface != ptd->fontface) {
+    if(lsize != ptd->fontsize || lface != ptd->fontface) {
-		fprintf(ptd->texfp, "\\font\\picfont %s at %dpt\\picfont\n",
+	fprintf(ptd->texfp, "\\font\\picfont %s at %dpt\\picfont\n",
-			fontname[lface-1], lsize);
+		fontname[lface-1], lsize);
-		ptd->fontsize = lsize;
+	ptd->fontsize = lsize;
-		ptd->fontface = lface;
+	ptd->fontface = lface;
-	}
+    }
+}
 static void PicTeX_Activate(DevDesc *dd)
+{
+}
+}
 static void PicTeX_Clip(double x0, double x1, double y0, double y1,
 			DevDesc *dd)
+{
-	picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
+    picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
-	if(ptd->debug)
+    if(ptd->debug)
 	fprintf(ptd->texfp, "%% Setting Clip Region to %.2f %.2f %.2f %.2f\n",
 		x0, y0, x1, y1);
-	ptd->clipleft = x0;
+    ptd->clipleft = x0;
-	ptd->clipright = x1;
+    ptd->clipright = x1;
-	ptd->clipbottom = y0;
+    ptd->clipbottom = y0;
-	ptd->cliptop = y1;
+    ptd->cliptop = y1;
+}
 	/* Start a new page */
 static void PicTeX_NewPage(DevDesc *dd)
+{
-	picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
+    picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
-	int face, size;
+    int face, size;
-	if (ptd->pageno) {
+    if (ptd->pageno) {
-		fprintf(ptd->texfp, "\\endpicture\n}\n\n\n");
+	fprintf(ptd->texfp, "\\endpicture\n}\n\n\n");
-		fprintf(ptd->texfp, "\\hbox{\\beginpicture\n");
+	fprintf(ptd->texfp, "\\hbox{\\beginpicture\n");
-		fprintf(ptd->texfp, "\\setcoordinatesystem units <1pt,1pt>\n");
+	fprintf(ptd->texfp, "\\setcoordinatesystem units <1pt,1pt>\n");
-		fprintf(ptd->texfp,
+	fprintf(ptd->texfp,
-			"\\setplotarea x from 0 to %.2f, y from 0 to %.2f\n",
+		"\\setplotarea x from 0 to %.2f, y from 0 to %.2f\n",
-			ptd->width * 72.27, ptd->height * 72.27);
+		ptd->width * 72.27, ptd->height * 72.27);
-		fprintf(ptd->texfp,"\\setlinear\n");
+	fprintf(ptd->texfp,"\\setlinear\n");
-		fprintf(ptd->texfp, "\\font\\picfont cmss10\\picfont\n");
+	fprintf(ptd->texfp, "\\font\\picfont cmss10\\picfont\n");
-	}
+    }
-	ptd->pageno +=1;
+    ptd->pageno +=1;
-	face = ptd->fontface;
+    face = ptd->fontface;
-	size = ptd->fontsize;
+    size = ptd->fontsize;
-	ptd->fontface = 0;
+    ptd->fontface = 0;
-	ptd->fontsize = 0;
+    ptd->fontsize = 0;
-	SetFont(face, size, ptd);
+    SetFont(face, size, ptd);
+}
 	/* Close down the driver */
 static void PicTeX_Close(DevDesc *dd)
 	/* Draw To */
 static void PicTeX_ClipLine(double x0, double y0, double x1, double y1,
 			    picTeXDesc *ptd)
+{
-	ptd->clippedx0 = x0; ptd->clippedx1 = x1;
+    ptd->clippedx0 = x0; ptd->clippedx1 = x1;
-	ptd->clippedy0 = y0; ptd->clippedy1 = y1;
+    ptd->clippedy0 = y0; ptd->clippedy1 = y1;
-	if ((ptd->clippedx0 < ptd->clipleft &&
-	     ptd->clippedx1 < ptd->clipleft) ||
-	    (ptd->clippedx0 > ptd->clipright &&
-	     ptd->clippedx1 > ptd->clipright) ||
-	    (ptd->clippedy0 < ptd->clipbottom &&
-	     ptd->clippedy1 < ptd->clipbottom) ||
-	    (ptd->clippedy0 > ptd->cliptop &&
-	     ptd->clippedy1 > ptd->cliptop)) {
-		ptd->clippedx0 = ptd->clippedx1;
-		ptd->clippedy0 = ptd->clippedy1;
-		return;
-	}
+    if ((ptd->clippedx0 < ptd->clipleft &&
+	 ptd->clippedx1 < ptd->clipleft) ||
+	(ptd->clippedx0 > ptd->clipright &&
+	 ptd->clippedx1 > ptd->clipright) ||
+	(ptd->clippedy0 < ptd->clipbottom &&
+	 ptd->clippedy1 < ptd->clipbottom) ||
+	(ptd->clippedy0 > ptd->cliptop &&
+	 ptd->clippedy1 > ptd->cliptop)) {
+	ptd->clippedx0 = ptd->clippedx1;
+	ptd->clippedy0 = ptd->clippedy1;
+	return;
+    }
-	/*Clipping Left */
+    /*Clipping Left */
-	if (ptd->clippedx1 >= ptd->clipleft && ptd->clippedx0 < ptd->clipleft) {
+    if (ptd->clippedx1 >= ptd->clipleft && ptd->clippedx0 < ptd->clipleft) {
-		ptd->clippedy0 = ((ptd->clippedy1-ptd->clippedy0) /
+	ptd->clippedy0 = ((ptd->clippedy1-ptd->clippedy0) /
-				  (ptd->clippedx1-ptd->clippedx0) *
+			  (ptd->clippedx1-ptd->clippedx0) *
-				  (ptd->clipleft-ptd->clippedx0)) +
+			  (ptd->clipleft-ptd->clippedx0)) +
-				 ptd->clippedy0;
+	    ptd->clippedy0;
-		ptd->clippedx0 = ptd->clipleft;
+	ptd->clippedx0 = ptd->clipleft;
-	}
+    }
-	if (ptd->clippedx1 <= ptd->clipleft && ptd->clippedx0 > ptd->clipleft) {
+    if (ptd->clippedx1 <= ptd->clipleft && ptd->clippedx0 > ptd->clipleft) {
-		ptd->clippedy1 = ((ptd->clippedy1-ptd->clippedy0) /
+	ptd->clippedy1 = ((ptd->clippedy1-ptd->clippedy0) /
-				  (ptd->clippedx1-ptd->clippedx0) *
+			  (ptd->clippedx1-ptd->clippedx0) *
-				  (ptd->clipleft-ptd->clippedx0)) +
+			  (ptd->clipleft-ptd->clippedx0)) +
-				 ptd->clippedy0;
+	    ptd->clippedy0;
-		ptd->clippedx1 = ptd->clipleft;
+	ptd->clippedx1 = ptd->clipleft;
-	}
+    }
-	/* Clipping Right */
+    /* Clipping Right */
-	if (ptd->clippedx1 >= ptd->clipright &&
+    if (ptd->clippedx1 >= ptd->clipright &&
-	    ptd->clippedx0 < ptd->clipright) {
+	ptd->clippedx0 < ptd->clipright) {
-		ptd->clippedy1 = ((ptd->clippedy1-ptd->clippedy0) /
+	ptd->clippedy1 = ((ptd->clippedy1-ptd->clippedy0) /
-				  (ptd->clippedx1-ptd->clippedx0) *
+			  (ptd->clippedx1-ptd->clippedx0) *
-				  (ptd->clipright-ptd->clippedx0)) +
+			  (ptd->clipright-ptd->clippedx0)) +
-				 ptd->clippedy0;
+	    ptd->clippedy0;
-		ptd->clippedx1 = ptd->clipright;
+	ptd->clippedx1 = ptd->clipright;
-	}
+    }
-	if (ptd->clippedx1 <= ptd->clipright &&
+    if (ptd->clippedx1 <= ptd->clipright &&
-	    ptd->clippedx0 > ptd->clipright) {
+	ptd->clippedx0 > ptd->clipright) {
-		ptd->clippedy0 = ((ptd->clippedy1-ptd->clippedy0) /
+	ptd->clippedy0 = ((ptd->clippedy1-ptd->clippedy0) /
-				  (ptd->clippedx1-ptd->clippedx0) *
+			  (ptd->clippedx1-ptd->clippedx0) *
-				  (ptd->clipright-ptd->clippedx0)) +
+			  (ptd->clipright-ptd->clippedx0)) +
-				 ptd->clippedy0;
+	    ptd->clippedy0;
-		ptd->clippedx0 = ptd->clipright;
+	ptd->clippedx0 = ptd->clipright;
-	}
+    }
-	/*Clipping Bottom */
+    /*Clipping Bottom */
-	if (ptd->clippedy1 >= ptd->clipbottom  &&
+    if (ptd->clippedy1 >= ptd->clipbottom  &&
-	    ptd->clippedy0 < ptd->clipbottom ) {
+	ptd->clippedy0 < ptd->clipbottom ) {
-		ptd->clippedx0 = ((ptd->clippedx1-ptd->clippedx0) /
+	ptd->clippedx0 = ((ptd->clippedx1-ptd->clippedx0) /
-				  (ptd->clippedy1-ptd->clippedy0) *
+			  (ptd->clippedy1-ptd->clippedy0) *
-				  (ptd->clipbottom -ptd->clippedy0)) +
+			  (ptd->clipbottom -ptd->clippedy0)) +
-				 ptd->clippedx0;
+	    ptd->clippedx0;
-		ptd->clippedy0 = ptd->clipbottom ;
+	ptd->clippedy0 = ptd->clipbottom ;
-	}
+    }
-	if (ptd->clippedy1 <= ptd->clipbottom &&
+    if (ptd->clippedy1 <= ptd->clipbottom &&
-	    ptd->clippedy0 > ptd->clipbottom ) {
+	ptd->clippedy0 > ptd->clipbottom ) {
-		ptd->clippedx1 = ((ptd->clippedx1-ptd->clippedx0) /
+	ptd->clippedx1 = ((ptd->clippedx1-ptd->clippedx0) /
-				  (ptd->clippedy1-ptd->clippedy0) *
+			  (ptd->clippedy1-ptd->clippedy0) *
-				  (ptd->clipbottom -ptd->clippedy0)) +
+			  (ptd->clipbottom -ptd->clippedy0)) +
-				 ptd->clippedx0;
+	    ptd->clippedx0;
-		ptd->clippedy1 = ptd->clipbottom ;
+	ptd->clippedy1 = ptd->clipbottom ;
-	}
+    }
-	/*Clipping Top */
+    /*Clipping Top */
-	if (ptd->clippedy1 >= ptd->cliptop  && ptd->clippedy0 < ptd->cliptop ) {
+    if (ptd->clippedy1 >= ptd->cliptop  && ptd->clippedy0 < ptd->cliptop ) {
-		ptd->clippedx1 = ((ptd->clippedx1-ptd->clippedx0) /
+	ptd->clippedx1 = ((ptd->clippedx1-ptd->clippedx0) /
-				  (ptd->clippedy1-ptd->clippedy0) *
+			  (ptd->clippedy1-ptd->clippedy0) *
-				  (ptd->cliptop -ptd->clippedy0)) +
+			  (ptd->cliptop -ptd->clippedy0)) +
-				 ptd->clippedx0;
+	    ptd->clippedx0;
-		ptd->clippedy1 = ptd->cliptop ;
+	ptd->clippedy1 = ptd->cliptop ;
-	}
+    }
-	if (ptd->clippedy1 <= ptd->cliptop && ptd->clippedy0 > ptd->cliptop ) {
+    if (ptd->clippedy1 <= ptd->cliptop && ptd->clippedy0 > ptd->cliptop ) {
-		ptd->clippedx0 = ((ptd->clippedx1-ptd->clippedx0) /
+	ptd->clippedx0 = ((ptd->clippedx1-ptd->clippedx0) /
-				  (ptd->clippedy1-ptd->clippedy0) *
+			  (ptd->clippedy1-ptd->clippedy0) *
-				  (ptd->cliptop -ptd->clippedy0)) +
+			  (ptd->cliptop -ptd->clippedy0)) +
-				 ptd->clippedx0;
+	    ptd->clippedx0;
-		ptd->clippedy0 = ptd->cliptop ;
+	ptd->clippedy0 = ptd->cliptop ;
-	}
+    }
+}
 static void PicTeX_Line(double x1, double y1, double x2, double y2,
 			int coords, DevDesc *dd)
+{
+}
 static void PicTeX_Polyline(int n, double *x, double *y, int coords,
 			    DevDesc* dd)
+{
-	double x1, y1, x2, y2;
+    double x1, y1, x2, y2;
-	int i;
+    int i;
-	picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
+    picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
-	SetLinetype(dd->gp.lty, dd->gp.lwd, dd);
+    SetLinetype(dd->gp.lty, dd->gp.lwd, dd);
-	x1 = x[0];
+    x1 = x[0];
-	y1 = y[0];
+    y1 = y[0];
-	GConvert(&x1, &y1, coords, DEVICE, dd);
+    GConvert(&x1, &y1, coords, DEVICE, dd);
-	for (i=1; i<n; i++) {
+    for (i=1; i<n; i++) {
-		x2 = x[i];
+	x2 = x[i];
-		y2 = y[i];
+	y2 = y[i];
-		GConvert(&x2, &y2, coords, DEVICE, dd);
+	GConvert(&x2, &y2, coords, DEVICE, dd);
-		PicTeX_ClipLine(x1, y1, x2, y2, ptd);
+	PicTeX_ClipLine(x1, y1, x2, y2, ptd);
-		fprintf(ptd->texfp, "\\plot %.2f %.2f %.2f %.2f /\n",
+	fprintf(ptd->texfp, "\\plot %.2f %.2f %.2f %.2f /\n",
-			ptd->clippedx0, ptd->clippedy0,
+		ptd->clippedx0, ptd->clippedy0,
-			ptd->clippedx1, ptd->clippedy1);
+		ptd->clippedx1, ptd->clippedy1);
-	}
+    }
+}
 	/* String Width in Rasters */
 	/* For the current font in pointsize fontsize */
 static double PicTeX_StrWidth(char *str, DevDesc *dd)
+{
-	picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
+    picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
-	char *p;
+    char *p;
-	int size;
+    int size;
-	double sum;
+    double sum;
-	size = dd->gp.cex * dd->gp.ps + 0.5;
+    size = dd->gp.cex * dd->gp.ps + 0.5;
-	SetFont(dd->gp.font, size, ptd);
+    SetFont(dd->gp.font, size, ptd);
-	sum = 0;
+    sum = 0;
-	for(p=str ; *p ; p++)
+    for(p=str ; *p ; p++)
-		sum += charwidth[ptd->fontface-1][(int)*p];
+	sum += charwidth[ptd->fontface-1][(int)*p];
-	return sum * ptd->fontsize;
+    return sum * ptd->fontsize;
+}
 /* Possibly Filled Rectangle */
 static void PicTeX_Rect(double x0, double y0, double x1, double y1,
 			int coords, int bg, int fg, DevDesc *dd)
+{
-	double x[4], y[4];
+    double x[4], y[4];
-	x[0] = x0; y[0] = y0;
+    x[0] = x0; y[0] = y0;
-	x[1] = x0; y[1] = y1;
+    x[1] = x0; y[1] = y1;
-	x[2] = x1; y[2] = y1;
+    x[2] = x1; y[2] = y1;
-	x[3] = x1; y[3] = y0;
+    x[3] = x1; y[3] = y0;
-	PicTeX_Polygon(4, x, y, coords, bg, fg, dd);
+    PicTeX_Polygon(4, x, y, coords, bg, fg, dd);
+}
 static void PicTeX_Circle(double x, double y, int coords, double r,
 			  int col, int border, DevDesc *dd)
+{
-	picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
+    picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
-	GConvert(&x, &y, coords, DEVICE, dd);
+    GConvert(&x, &y, coords, DEVICE, dd);
-	fprintf(ptd->texfp,
+    fprintf(ptd->texfp,
-	"\\circulararc 360 degrees from %.2f %.2f center at %.2f %.2f\n",
+	    "\\circulararc 360 degrees from %.2f %.2f center at %.2f %.2f\n",
-			x, (y + r), x, y);
+	    x, (y + r), x, y);
+}
 static void PicTeX_Polygon(int n, double *x, double *y, int coords,
 			   int bg, int fg, DevDesc* dd)
+{
-	double x1, y1, x2, y2;
+    double x1, y1, x2, y2;
-	int i;
+    int i;
-	picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
+    picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
-	SetLinetype(dd->gp.lty, dd->gp.lwd, dd);
+    SetLinetype(dd->gp.lty, dd->gp.lwd, dd);
-	x1 = x[0];
+    x1 = x[0];
-	y1 = y[0];
+    y1 = y[0];
-	GConvert(&x1, &y1, coords, DEVICE, dd);
+    GConvert(&x1, &y1, coords, DEVICE, dd);
-	for (i=1; i<n; i++) {
+    for (i=1; i<n; i++) {
-		x2 = x[i];
+	x2 = x[i];
-		y2 = y[i];
+	y2 = y[i];
-		GConvert(&x2, &y2, coords, DEVICE, dd);
-		PicTeX_ClipLine(x1, y1, x2, y2, ptd);
-		fprintf(ptd->texfp, "\\plot %.2f %.2f %.2f %.2f /\n",
-			ptd->clippedx0, ptd->clippedy0,
-			ptd->clippedx1, ptd->clippedy1);
-		x1 = x2;
-		y1 = y2;
-	}
-	x2 = x[0];
-	y2 = y[0];
 	GConvert(&x2, &y2, coords, DEVICE, dd);
 	PicTeX_ClipLine(x1, y1, x2, y2, ptd);
 	fprintf(ptd->texfp, "\\plot %.2f %.2f %.2f %.2f /\n",
 		ptd->clippedx0, ptd->clippedy0,
 		ptd->clippedx1, ptd->clippedy1);
+	x1 = x2;
+	y1 = y2;
+    }
+    x2 = x[0];
+    y2 = y[0];
+    GConvert(&x2, &y2, coords, DEVICE, dd);
+    PicTeX_ClipLine(x1, y1, x2, y2, ptd);
+    fprintf(ptd->texfp, "\\plot %.2f %.2f %.2f %.2f /\n",
+	    ptd->clippedx0, ptd->clippedy0,
+	    ptd->clippedx1, ptd->clippedy1);
+}
 /* TeX Text Translations */
 static void textext(char *str, picTeXDesc *ptd)
+{
-	fputc('{', ptd->texfp);
+    fputc('{', ptd->texfp);
-	for( ; *str ; str++)
+    for( ; *str ; str++)
-		switch(*str) {
+	switch(*str) {
-			case '$':
+	case '$':
-				fprintf(ptd->texfp, "\\$");
+	    fprintf(ptd->texfp, "\\$");
-				break;
+	    break;
-			case '%':
+	case '%':
-				fprintf(ptd->texfp, "\\%%");
+	    fprintf(ptd->texfp, "\\%%");
-				break;
+	    break;
-			case '{':
+	case '{':
-				fprintf(ptd->texfp, "\\{");
+	    fprintf(ptd->texfp, "\\{");
-				break;
+	    break;
-			case '}':
+	case '}':
-				fprintf(ptd->texfp, "\\}");
+	    fprintf(ptd->texfp, "\\}");
-				break;
+	    break;
-			case '^':
+	case '^':
-				fprintf(ptd->texfp, "\\^{}");
+	    fprintf(ptd->texfp, "\\^{}");
-				break;
+	    break;
-			default:
+	default:
-				fputc(*str, ptd->texfp);
+	    fputc(*str, ptd->texfp);
-				break;
+	    break;
-		}
+	}
-	fprintf(ptd->texfp,"} ");
+    fprintf(ptd->texfp,"} ");
+}
 /* Rotated Text */
 static void PicTeX_Text(double x, double y, int coords,
 			char *str, double rot, double hadj,
 			DevDesc *dd)
+{
-	int size;
+    int size;
-	double xoff = 0.0, yoff = 0.0;
+    double xoff = 0.0, yoff = 0.0;
-	picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
+    picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
-	size = dd->gp.cex * dd->gp.ps + 0.5;
+    size = dd->gp.cex * dd->gp.ps + 0.5;
-	SetFont(dd->gp.font, size, ptd);
+    SetFont(dd->gp.font, size, ptd);
-	GConvert(&x, &y, coords, DEVICE, dd);
+    GConvert(&x, &y, coords, DEVICE, dd);
-	if(ptd->debug) fprintf(ptd->texfp,
+    if(ptd->debug) fprintf(ptd->texfp,
-	"%% Writing string of length %.2f, at %.2f %.2f, xc = %.2f yc = %.2f\n",
+			   "%% Writing string of length %.2f, at %.2f %.2f, xc = %.2f yc = %.2f\n",
-	(double)PicTeX_StrWidth(str, dd), x, y, 0.0, 0.0);
+			   (double)PicTeX_StrWidth(str, dd), x, y, 0.0, 0.0);
-	if (ptd->debug) fprintf(ptd->texfp,
+    if (ptd->debug) fprintf(ptd->texfp,
-	"%% Writing string of length %.2f, at %.2f %.2f, xc = %.2f yc = %.2f\n",
+			    "%% Writing string of length %.2f, at %.2f %.2f, xc = %.2f yc = %.2f\n",
-	(double)PicTeX_StrWidth(str, dd), x, y, 0.0, 0.0);
+			    (double)PicTeX_StrWidth(str, dd), x, y, 0.0, 0.0);
-	fprintf(ptd->texfp,"\\put ");
+    fprintf(ptd->texfp,"\\put ");
-	textext(str, ptd);
+    textext(str, ptd);
-	if (rot == 90 )
+    if (rot == 90 )
 	fprintf(ptd->texfp," [rB] <%.2fpt,%.2fpt>", xoff, yoff);
-	else fprintf(ptd->texfp," [lB] <%.2fpt,%.2fpt>", xoff, yoff);
+    else fprintf(ptd->texfp," [lB] <%.2fpt,%.2fpt>", xoff, yoff);
-	fprintf(ptd->texfp," at %.2f %.2f\n", x, y);
+    fprintf(ptd->texfp," at %.2f %.2f\n", x, y);
+}
 /* Pick */
 static int PicTeX_Locator(double *x, double *y, DevDesc *dd)
+{
-	return 0;
+    return 0;
+}
 /* Set Graphics mode - not needed for PS */
 static void PicTeX_Mode(int mode, DevDesc* dd)
+}
 int PicTeXDeviceDriver(DevDesc *dd, char *filename, char *bg, char *fg,
 		       double width, double height, int debug)
+{
-	picTeXDesc *ptd;
+    picTeXDesc *ptd;
-	if (!(ptd = (picTeXDesc *) malloc(sizeof(picTeXDesc))))
+    if (!(ptd = (picTeXDesc *) malloc(sizeof(picTeXDesc))))
-		return 0;
+	return 0;
-	strcpy(ptd->filename, filename);
+    strcpy(ptd->filename, filename);
-	dd->dp.bg = dd->gp.bg = str2col(bg);
+    dd->dp.bg = dd->gp.bg = str2col(bg);
-	dd->dp.fg = dd->gp.fg = str2col(fg);
+    dd->dp.fg = dd->gp.fg = str2col(fg);
-	dd->dp.activate = PicTeX_Activate;
-	dd->dp.deactivate = PicTeX_Deactivate;
-	dd->dp.open = PicTeX_Open;
-	dd->dp.close = PicTeX_Close;
-	dd->dp.clip = PicTeX_Clip;
-	dd->dp.resize = PicTeX_Resize;
-	dd->dp.newPage = PicTeX_NewPage;
-	dd->dp.line = PicTeX_Line;
-	dd->dp.text = PicTeX_Text;
-	dd->dp.strWidth = PicTeX_StrWidth;
-	dd->dp.rect = PicTeX_Rect;
-	dd->dp.circle = PicTeX_Circle;
-	dd->dp.polygon = PicTeX_Polygon;
-	dd->dp.polyline = PicTeX_Polyline;
-	dd->dp.locator = PicTeX_Locator;
-	dd->dp.mode = PicTeX_Mode;
-	dd->dp.hold = PicTeX_Hold;
-	dd->dp.metricInfo = PicTeX_MetricInfo;
-	/* Screen Dimensions in Pixels */
-	dd->dp.left = 0;		/* left */
-	dd->dp.right = 72.27 * width;	/* right */
-	dd->dp.bottom = 0;		/* bottom */
-	dd->dp.top = 72.27 * height;	/* top */
-	ptd->width = width;
-	ptd->height = height;
-	if( ! PicTeX_Open(dd, ptd) ) return 0;
-		/* Base Pointsize */
-		/* Nominal Character Sizes in Pixels */
-	dd->dp.ps = 10;
-	dd->dp.cra[0] =	 (6.0/12.0) * 10.0;
-	dd->dp.cra[1] =	 (10.0/12.0) * 10.0;
-		/* Character Addressing Offsets */
-		/* These offsets should center a single */
-		/* plotting character over the plotting point. */
-		/* Pure guesswork and eyeballing ... */
-	dd->dp.xCharOffset =  0; /*0.4900;*/
-	dd->dp.yCharOffset =  0; /*0.3333;*/
-	dd->dp.yLineBias = 0; /*0.1;*/
-		/* Inches per Raster Unit */
-		/* We use printer points */
-		/* I.e. 72.27 dots per inch */
-	dd->dp.ipr[0] = 1.0/72.27;
-	dd->dp.ipr[1] = 1.0/72.27;
-	dd->dp.canResizePlot = 0;
-	dd->dp.canChangeFont = 1;
-	dd->dp.canRotateText = 0;
-	dd->dp.canResizeText = 1;
-	dd->dp.canClip = 1;
-	dd->dp.canHAdj = 0;
-	ptd->lty = 1;
-	ptd->pageno = 0;
-	ptd->debug = debug;
+    dd->dp.activate = PicTeX_Activate;
+    dd->dp.deactivate = PicTeX_Deactivate;
+    dd->dp.open = PicTeX_Open;
+    dd->dp.close = PicTeX_Close;
+    dd->dp.clip = PicTeX_Clip;
+    dd->dp.resize = PicTeX_Resize;
+    dd->dp.newPage = PicTeX_NewPage;
+    dd->dp.line = PicTeX_Line;
+    dd->dp.text = PicTeX_Text;
+    dd->dp.strWidth = PicTeX_StrWidth;
+    dd->dp.rect = PicTeX_Rect;
+    dd->dp.circle = PicTeX_Circle;
+    dd->dp.polygon = PicTeX_Polygon;
+    dd->dp.polyline = PicTeX_Polyline;
+    dd->dp.locator = PicTeX_Locator;
+    dd->dp.mode = PicTeX_Mode;
+    dd->dp.hold = PicTeX_Hold;
+    dd->dp.metricInfo = PicTeX_MetricInfo;
+    /* Screen Dimensions in Pixels */
+    dd->dp.left = 0;		/* left */
+    dd->dp.right = 72.27 * width;	/* right */
+    dd->dp.bottom = 0;		/* bottom */
+    dd->dp.top = 72.27 * height;	/* top */
+    ptd->width = width;
+    ptd->height = height;
+    if( ! PicTeX_Open(dd, ptd) ) return 0;
+    /* Base Pointsize */
+    /* Nominal Character Sizes in Pixels */
+    dd->dp.ps = 10;
+    dd->dp.cra[0] =	 (6.0/12.0) * 10.0;
+    dd->dp.cra[1] =	 (10.0/12.0) * 10.0;
+    /* Character Addressing Offsets */
+    /* These offsets should center a single */
+    /* plotting character over the plotting point. */
+    /* Pure guesswork and eyeballing ... */
+    dd->dp.xCharOffset =  0; /*0.4900;*/
+    dd->dp.yCharOffset =  0; /*0.3333;*/
-	dd->deviceSpecific = (void *) ptd;
+    dd->dp.yLineBias = 0; /*0.1;*/
+    /* Inches per Raster Unit */
+    /* We use printer points */
+    /* I.e. 72.27 dots per inch */
+    dd->dp.ipr[0] = 1.0/72.27;
+    dd->dp.ipr[1] = 1.0/72.27;
+    dd->dp.canResizePlot = 0;
+    dd->dp.canChangeFont = 1;
+    dd->dp.canRotateText = 0;
+    dd->dp.canResizeText = 1;
+    dd->dp.canClip = 1;
+    dd->dp.canHAdj = 0;
+    ptd->lty = 1;
+    ptd->pageno = 0;
+    ptd->debug = debug;
+    dd->deviceSpecific = (void *) ptd;
+    dd->displayListOn = 0;
-	return 1;
+    return 1;
+}

The R Project SVN R

(root)/branches/R-NaString/src/main/devPicTeX.c @ 28362 – Rev 8813 → 9004