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

 #endif
 #include "Defn.h"
 #include "Graphics.h"
 #include "Fileio.h"
+#include "Devices.h"
 	/* device-specific information per picTeX device */
+#define DOTSperIN	72.27
+#define in2dots(x) 	(DOTSperIN * x)
 typedef struct {
     FILE *texfp;
     char filename[128];
     int pageno;
     int landscape;
     rcolor col;
     rcolor fg;
     rcolor bg;
     int fontsize;
     int fontface;
-    int debug;
+    Rboolean debug;
 } picTeXDesc;
 	/* Global device information */
 static void   PicTeX_Clip(double, double, double, double, DevDesc*);
 static void   PicTeX_Close(DevDesc*);
 static void   PicTeX_Deactivate(DevDesc *);
 static void   PicTeX_Hold(DevDesc*);
 static void   PicTeX_Line(double, double, double, double, int, DevDesc*);
-static int    PicTeX_Locator(double*, double*, DevDesc*);
+static Rboolean PicTeX_Locator(double*, double*, DevDesc*);
 static void   PicTeX_Mode(int, DevDesc*);
 static void   PicTeX_NewPage(DevDesc*);
-static int    PicTeX_Open(DevDesc*, picTeXDesc*);
+static Rboolean PicTeX_Open(DevDesc*, picTeXDesc*);
 static void   PicTeX_Polygon(int, double*, double*, int, int, int, DevDesc*);
 static void   PicTeX_Polyline(int, double*, double*, int, DevDesc*);
 static void   PicTeX_Rect(double, double, double, double, int, int, int,
 			  DevDesc*);
 static void   PicTeX_Resize(DevDesc*);
     *width = 0.0;
+}
 	/* Initialize the device */
-static int PicTeX_Open(DevDesc *dd, picTeXDesc *ptd)
+static Rboolean PicTeX_Open(DevDesc *dd, picTeXDesc *ptd)
+{
     ptd->fontsize = 0;
     ptd->fontface = 0;
-    ptd->debug = 0;
+    ptd->debug = FALSE;
     if (!(ptd->texfp = R_fopen(R_ExpandFileName(ptd->filename), "w")))
-	return 0;
+	return FALSE;
     fprintf(ptd->texfp, "\\hbox{\\beginpicture\n");
     fprintf(ptd->texfp, "\\setcoordinatesystem units <1pt,1pt>\n");
     fprintf(ptd->texfp,
 	    "\\setplotarea x from 0 to %.2f, y from 0 to %.2f\n",
-	    ptd->width * 72.27, ptd->height * 72.27);
+	    in2dots(ptd->width), in2dots(ptd->height));
     fprintf(ptd->texfp,"\\setlinear\n");
     fprintf(ptd->texfp, "\\font\\picfont cmss10\\picfont\n");
     SetFont(1, 10, ptd);
-    ptd->pageno += 1;
+    ptd->pageno++;
-    return 1;
+    return TRUE;
+}
 	/* Interactive Resize */
 	fprintf(ptd->texfp, "\\endpicture\n}\n\n\n");
 	fprintf(ptd->texfp, "\\hbox{\\beginpicture\n");
 	fprintf(ptd->texfp, "\\setcoordinatesystem units <1pt,1pt>\n");
 	fprintf(ptd->texfp,
 		"\\setplotarea x from 0 to %.2f, y from 0 to %.2f\n",
-		ptd->width * 72.27, ptd->height * 72.27);
+		in2dots(ptd->width), in2dots(ptd->height));
 	fprintf(ptd->texfp,"\\setlinear\n");
 	fprintf(ptd->texfp, "\\font\\picfont cmss10\\picfont\n");
+    }
-    ptd->pageno +=1;
+    ptd->pageno++;
     face = ptd->fontface;
     size = ptd->fontsize;
     ptd->fontface = 0;
     ptd->fontsize = 0;
     SetFont(face, size, ptd);
 			"%% Drawing line from %.2f, %.2f to %.2f, %.2f\n",
 			x1, y1, x2, y2);
 	PicTeX_ClipLine(x1, y1, x2, y2, ptd);
 	if (ptd->debug)
 		fprintf(ptd->texfp,
-			"%% Drawing cliped ine from %.2f, %.2f to %.2f, %.2f\n",
+			"%% Drawing clipped line from %.2f, %.2f to %.2f, %.2f\n",
 			ptd->clippedx0, ptd->clippedy0,
 			ptd->clippedx1, ptd->clippedy1);
 	fprintf(ptd->texfp, "\\plot %.2f %.2f %.2f %.2f /\n",
 		ptd->clippedx0, ptd->clippedy0,
 		ptd->clippedx1, ptd->clippedy1);
     picTeXDesc *ptd = (picTeXDesc *) dd->deviceSpecific;
     size = dd->gp.cex * dd->gp.ps + 0.5;
     SetFont(dd->gp.font, size, ptd);
     GConvert(&x, &y, coords, DEVICE, dd);
-    if(ptd->debug) fprintf(ptd->texfp,
+    if(ptd->debug)
-			   "%% Writing string of length %.2f, at %.2f %.2f, xc = %.2f yc = %.2f\n",
-			   (double)PicTeX_StrWidth(str, dd), x, y, 0.0, 0.0);
-    if (ptd->debug) fprintf(ptd->texfp,
+	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 ");
     textext(str, ptd);
     if (rot == 90 )
-	fprintf(ptd->texfp," [rB] <%.2fpt,%.2fpt>", xoff, yoff);
+	 fprintf(ptd->texfp," [rB] <%.2fpt,%.2fpt>", xoff, yoff);
     else fprintf(ptd->texfp," [lB] <%.2fpt,%.2fpt>", xoff, yoff);
     fprintf(ptd->texfp," at %.2f %.2f\n", x, y);
+}
 /* Pick */
-static int PicTeX_Locator(double *x, double *y, DevDesc *dd)
+static Rboolean PicTeX_Locator(double *x, double *y, DevDesc *dd)
+{
-    return 0;
+    return FALSE;
+}
 /* Set Graphics mode - not needed for PS */
 static void PicTeX_Mode(int mode, DevDesc* dd)
 /* GraphicsInteraction() for the Mac */
 static void PicTeX_Hold(DevDesc *dd)
+{
+}
-int PicTeXDeviceDriver(DevDesc *dd, char *filename, char *bg, char *fg,
+Rboolean PicTeXDeviceDriver(DevDesc *dd, char *filename, char *bg, char *fg,
-		       double width, double height, int debug)
+			    double width, double height, Rboolean debug)
+{
     picTeXDesc *ptd;
     if (!(ptd = (picTeXDesc *) malloc(sizeof(picTeXDesc))))
-	return 0;
+	return FALSE;
     strcpy(ptd->filename, filename);
     dd->dp.bg = dd->gp.bg = str2col(bg);
     dd->dp.fg = dd->gp.fg = str2col(fg);
     dd->dp.metricInfo = PicTeX_MetricInfo;
     /* Screen Dimensions in Pixels */
     dd->dp.left = 0;		/* left */
-    dd->dp.right = 72.27 * width;	/* right */
+    dd->dp.right = in2dots(width);/* right */
     dd->dp.bottom = 0;		/* bottom */
-    dd->dp.top = 72.27 * height;	/* top */
+    dd->dp.top = in2dots(height);/* top */
     ptd->width = width;
     ptd->height = height;
-    if( ! PicTeX_Open(dd, ptd) ) return 0;
+    if( ! PicTeX_Open(dd, ptd) )
+	return FALSE;
     /* 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;
+    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 */
+    /* 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.ipr[0] = dd->dp.ipr[1] = 1./DOTSperIN;
-    dd->dp.canResizePlot = 0;
+    dd->dp.canResizePlot = FALSE;
-    dd->dp.canChangeFont = 1;
+    dd->dp.canChangeFont = TRUE;
-    dd->dp.canRotateText = 0;
+    dd->dp.canRotateText = FALSE;
-    dd->dp.canResizeText = 1;
+    dd->dp.canResizeText = TRUE;
-    dd->dp.canClip = 1;
+    dd->dp.canClip = TRUE;
     dd->dp.canHAdj = 0;
     ptd->lty = 1;
     ptd->pageno = 0;
     ptd->debug = debug;
     dd->deviceSpecific = (void *) ptd;
-    dd->displayListOn = 0;
+    dd->displayListOn = FALSE;
-    return 1;
+    return TRUE;
+}

The R Project SVN R

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