The R Project SVN – R – Diff – /trunk/src/gnuwin32/front-ends/rproxy_dev.c

  *  You should have received a copy of the GNU Library General Public
  *  License along with this library; if not, write to the Free
  *  Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  *  MA 02111-1307, USA
+ *
- *  $Id: rproxy_dev.c,v 1.6 2003/09/13 15:14:09 murdoch Exp $
+ *  $Id: rproxy_dev.c,v 1.7 2003/11/26 20:50:15 murrell Exp $
  */
 /* virtual device size */
 #define DEV_X 500
 #define DEV_Y 500
 #endif
 #define MessageBox(a,b,c,d)
 static void R_Proxy_Graphics_Activate(NewDevDesc *dd);
 static void R_Proxy_Graphics_Circle(double x, double y, double r,
-		      int col, int fill, double gamma, int lty, double lwd,
+				    R_GE_gcontext *gc,
-		      NewDevDesc *dd);
+				    NewDevDesc *dd);
 static void R_Proxy_Graphics_Clip(double x0, double x1, double y0, double y1,
 		     NewDevDesc *dd);
 static void R_Proxy_Graphics_Close(NewDevDesc *dd);
 static void R_Proxy_Graphics_Deactivate(NewDevDesc *dd);
 static void R_Proxy_Graphics_Hold(NewDevDesc *dd);
 static Rboolean R_Proxy_Graphics_Locator(double *x, double *y, NewDevDesc *dd);
 static void R_Proxy_Graphics_Line(double x1, double y1, double x2, double y2,
-		    int col, double gamma, int lty, double lwd,
+				  R_GE_gcontext *gc,
-		    NewDevDesc *dd);
+				  NewDevDesc *dd);
-static void R_Proxy_Graphics_MetricInfo(int c, int font, double cex, double ps,
+static void R_Proxy_Graphics_MetricInfo(int c,
+					R_GE_gcontext *gc,
-			  double* ascent, double* descent,
+					double* ascent, double* descent,
-			  double* width, NewDevDesc *dd);
+					double* width, NewDevDesc *dd);
 static void R_Proxy_Graphics_Mode(int mode, NewDevDesc *dd);
-static void R_Proxy_Graphics_NewPage(int fill, double gamma, NewDevDesc *dd);
+static void R_Proxy_Graphics_NewPage(R_GE_gcontext *gc,
+				     NewDevDesc *dd);
 static void R_Proxy_Graphics_Polygon(int n, double *x, double *y,
-		       int col, int fill, double gamma, int lty, double lwd,
+				     R_GE_gcontext *gc,
-		       NewDevDesc *dd);
+				     NewDevDesc *dd);
 static void R_Proxy_Graphics_Polyline(int n, double *x, double *y,
-			int col, double gamma, int lty, double lwd,
+				      R_GE_gcontext *gc,
-			NewDevDesc *dd);
+				      NewDevDesc *dd);
 static void R_Proxy_Graphics_Rect(double x0, double y0, double x1, double y1,
-		    int col, int fill, double gamma, int lty, double lwd,
+				  R_GE_gcontext *gc,
-		    NewDevDesc *dd);
+				  NewDevDesc *dd);
 static void R_Proxy_Graphics_Size(double *left, double *right,
-		    double *bottom, double *top,
+				  double *bottom, double *top,
-		    NewDevDesc *dd);
+				  NewDevDesc *dd);
 #ifdef UNUSED
 static void R_Proxy_Graphics_Resize(NewDevDesc *dd);
 #endif
-static double R_Proxy_Graphics_StrWidth(char *str, int font,
+static double R_Proxy_Graphics_StrWidth(char *str,
+					R_GE_gcontext *gc,
-			  double cex, double ps, NewDevDesc *dd);
+					NewDevDesc *dd);
 static void R_Proxy_Graphics_Text(double x, double y, char *str,
-		    double rot, double hadj,
+				  double rot, double hadj,
-		    int col, double gamma, int font, double cex, double ps,
+				  R_GE_gcontext *gc,
-		    NewDevDesc *dd);
+				  NewDevDesc *dd);
 static Rboolean R_Proxy_Graphics_Open (NewDevDesc* pDD,
 				       void* pAXD,
 				       char* pDisplay,
 				       double pWidth,
 				       double pHeight,
 /* 00-06-22 | baier | added line type and width */
 static void R_Proxy_Graphics_Circle (double pX,
 				     double pY,
 				     double pRad,
-				     int pCol,
-				     int pFill,
+				     R_GE_gcontext *gc,
-				     double pGamma,
-				     int pLty,
-				     double pLwd,
 				     NewDevDesc* pDD)
+{
   if (__graphics_device)
+    {
       __graphics_device->vtbl->circle (__graphics_device,
 				       pX,
 				       pY,
 				       pRad,
-				       pFill,
+				       gc->fill,
-				       pCol,
+				       gc->col,
-				       pLty,
+				       gc->lty,
-				       pLwd);
+				       gc->lwd);
       return;
+    }
   MessageBox (GetDesktopWindow (),"Circle()","R_Proxy_Graphics",MB_OK);
+}
 /* 00-06-22 | baier | added color, line type and width */
 static void R_Proxy_Graphics_Line (double pX0,
 				   double pY0,
 				   double pX1,
 				   double pY1,
-				   int pCol,
-				   double pGamma,
-				   int pLty,
-				   double pLwd,
+				   R_GE_gcontext *gc,
 				   NewDevDesc* pDD)
+{
   if (__graphics_device)
+    {
       __graphics_device->vtbl->line (__graphics_device,
-				     pX0,pY0,pX1,pY1,pCol,
+				     pX0,pY0,pX1,pY1,gc->col,
-				     pLty,pLwd);
+				     gc->lty,gc->lwd);
       return;
+    }
   MessageBox (GetDesktopWindow (),"Line()","R_Proxy_Graphics",MB_OK);
+}
       return;
+    }
   MessageBox (GetDesktopWindow (),"Mode()","R_Proxy_Graphics",MB_OK);
+}
-static void R_Proxy_Graphics_NewPage (int pFill,
+static void R_Proxy_Graphics_NewPage (R_GE_gcontext *gc,
-				      double pGamma,
 				      NewDevDesc* pDD)
+{
   if (__graphics_device)
+    {
       __graphics_device->vtbl->newpage (__graphics_device);
+}
 static void R_Proxy_Graphics_Polygon (int pCount,
 				      double* pX,
 				      double* pY,
-				      int pCol,
-				      int pFill,
+				      R_GE_gcontext *gc,
-				      double pGamma,
-				      int pLty,
-				      double pLwd,
 				      NewDevDesc* pDD)
+{
   if (__graphics_device)
+    {
       /* convert coordinates here: don't use alloca() -> overflow? */
 	  lX[i] = pX[i];
 	  lY[i] = pY[i];
+	}
-      /*      sprintf (x,"device::Polygon: bg is %08x, fg is %08x\n",pFill,pCol); */
+      /*      sprintf (x,"device::Polygon: bg is %08x, fg is %08x\n",fill,col); */
       /*      OutputDebugString (x); */
       __graphics_device->vtbl->polygon (__graphics_device,
-					pCount,lX,lY,pFill,pCol);
+					pCount,lX,lY,gc->fill,gc->col);
       free (lX);
       free (lY);
       return;
+}
 /* 01-01-23 | baier | added "col" parameter */
 static void R_Proxy_Graphics_Polyline (int pCount,
 				       double* pX,
 				       double* pY,
-				       int pCol,
-				       double pGamma,
-				       int pLty,
+				       R_GE_gcontext *gc,
-				       double pLwd,
 				       NewDevDesc* pDD)
+{
   if (__graphics_device)
+    {
       /* convert coordinates here: don't use alloca() -> overflow? */
 	  /*	  OutputDebugString (x); */
+	}
       __graphics_device->vtbl->polyline (__graphics_device,
-					 pCount,lX,lY,pCol);
+					 pCount,lX,lY,gc->col);
       free (lX);
       free (lY);
       return;
 /* 00-06-22 | baier | added line type and width */
 static void R_Proxy_Graphics_Rect (double pX0,
 				   double pY0,
 				   double pX1,
 				   double pY1,
-				   int pCol,
-				   int pFill,
+				   R_GE_gcontext *gc,
-				   double pGamma,
-				   int pLty,
-				   double pLwd,
 				   NewDevDesc* pDD)
+{
   if (__graphics_device)
+    {
       __graphics_device->vtbl->rect (__graphics_device,
-				     pX0,pY0,pX1,pY1,pFill,pCol,
+				     pX0,pY0,pX1,pY1,gc->fill,gc->col,
-				     pLty,pLwd);
+				     gc->lty,gc->lwd);
       return;
+    }
   MessageBox (GetDesktopWindow (),"Rect()","R_Proxy_Graphics",MB_OK);
+}
+}
 #endif
 /* 00-06-22 | baier | added font and size parameters */
 static double R_Proxy_Graphics_StrWidth (char* pString,
-					 int pFont,
+					 R_GE_gcontext *gc,
-					 double pCex,
-					 double pPs,
 					 NewDevDesc* pDD)
+{
   if (__graphics_device)
+    {
-      int lSize = pCex * pPs + 0.5;
+      int lSize = gc->cex * gc->ps + 0.5;
       return __graphics_device->vtbl->strwidth (__graphics_device,
 						pString,
-						pFont,
+						gc->fontface,
 						lSize);
+    }
   MessageBox (GetDesktopWindow (),"StrWidth()","R_Proxy_Graphics",MB_OK);
   return 0.0;
 static void R_Proxy_Graphics_Text (double pX,
 				   double pY,
 				   char* pString,
 				   double pRot,
 				   double pHadj,
-				   int pCol,
-				   double pGamma,
-				   int pFont,
+				   R_GE_gcontext *gc,
-				   double pCex,
-				   double pPs,
 				   NewDevDesc* pDD)
+{
   if (__graphics_device)
+    {
-      int lSize = pCex * pPs + 0.5;
+      int lSize = gc->cex * gc->ps + 0.5;
       __graphics_device->vtbl->text (__graphics_device,
 				     pX,pY,pString,pRot,pHadj,
-				     pCol,pFont,lSize);
+				     gc->col,gc->fontface,lSize);
       return;
+    }
   MessageBox (GetDesktopWindow (),"Text()","R_Proxy_Graphics",MB_OK);
+}
 /* 00-06-22 | baier | added font and size parameters */
-static void R_Proxy_Graphics_MetricInfo(int c, int font, double cex, double ps,
+static void R_Proxy_Graphics_MetricInfo(int c,
+					R_GE_gcontext *gc,
-			  double* ascent, double* descent,
+					double* ascent, double* descent,
-			  double* width, NewDevDesc *dd);
+					double* width, NewDevDesc *dd);
 static void R_Proxy_Graphics_MetricInfo (int pC,
-					 int pFont,
+					 R_GE_gcontext *gc,
-					 double pCex,
-					 double pPs,
 					 double* pAscent,
 					 double* pDescent,
 					 double* pWidth,
 					 NewDevDesc* pDD)
+{
   if (__graphics_device)
+    {
-      int lSize = pCex * pPs + 0.5;
+      int lSize = gc->cex * gc->ps + 0.5;
       __graphics_device->vtbl->metricinfo (__graphics_device,
 					   pC,
 					   pAscent,
 					   pDescent,
 					   pWidth,
-					   pFont,
+					   gc->fontface,
 					   lSize);
       return;
+    }
   MessageBox (GetDesktopWindow (),"MetricInfo()","R_Proxy_Graphics",MB_OK);

The R Project SVN R

(root)/trunk/src/gnuwin32/front-ends/rproxy_dev.c @ 28362 – Rev 26207 → 27236