The R Project SVN – R – Diff – /trunk/src/modules/gnome/devGNOME.c

 /* routines from here */
 /* Device driver actions */
 static void GNOME_Activate(NewDevDesc *dd);
 static void GNOME_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 GNOME_Clip(double x0, double x1, double y0, double y1,
 		     NewDevDesc *dd);
 static void GNOME_Close(NewDevDesc *dd);
 static void GNOME_Deactivate(NewDevDesc *dd);
 static void GNOME_Hold(NewDevDesc *dd);
 static Rboolean GNOME_Locator(double *x, double *y, NewDevDesc *dd);
 static void GNOME_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 GNOME_MetricInfo(int c, int font, double cex, double ps,
+static void GNOME_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 GNOME_Mode(int mode, NewDevDesc *dd);
-static void GNOME_NewPage(int fill, double gamma, NewDevDesc *dd);
+static void GNOME_NewPage(R_GE_gcontext *gc, NewDevDesc *dd);
 static void GNOME_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 GNOME_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 GNOME_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 GNOME_Resize(NewDevDesc *dd);
 static void GNOME_Size(double *left, double *right,
 		     double *bottom, double *top,
 		     NewDevDesc *dd);
-static double GNOME_StrWidth(char *str, int font,
+static double GNOME_StrWidth(char *str,
+			     R_GE_gcontext *gc,
-			      double cex, double ps, NewDevDesc *dd);
+			     NewDevDesc *dd);
 static void GNOME_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 GNOME_Open(NewDevDesc*, gnomeDesc*, char*, double, double);
 			/* Pixel Dimensions (Inches) */
 static double pixelWidth(void)
       GNOME_APP_PIXMAP_STOCK, GNOME_STOCK_PIXMAP_CLOSE, 0,
       (GdkModifierType) 0, NULL },
     GNOMEUIINFO_END
 };
-static void GNOME_NewPage(int fill, double gamma, NewDevDesc *dd)
+static void GNOME_NewPage(R_GE_gcontext *gc,
+			  NewDevDesc *dd)
+{
   GnomeCanvasItem *group;
   gnomeDesc *gd = (gnomeDesc*) dd->deviceSpecific;
   g_return_if_fail(gd->canvas);
 			   "y1", (double) 0.0,
 			   "x2", (double) gd->windowWidth,
 			   "y2", (double) gd->windowHeight,
 			   NULL);
-  if (R_OPAQUE(fill))
+  if (R_OPAQUE(gc->fill))
+    {
       gnome_canvas_item_set(gd->plotarea,
-			    "fill_color_rgba", Color_RGBA(fill),
+			    "fill_color_rgba", Color_RGBA(gc->fill),
 			    NULL);
+    }
   else
+    {
       gnome_canvas_item_set(gd->plotarea,
 /* create window etc */
 static Rboolean
 GNOME_Open(NewDevDesc *dd, gnomeDesc *gd, char *dsp, double w, double h)
+{
     gint iw, ih;
+    R_GE_gcontext gc;
     /*gdk_rgb_set_install(TRUE); */
     /* gdk_rgb_set_verbose(TRUE);*/
     gdk_rgb_init();
     gtk_widget_push_visual(gdk_rgb_get_visual());
     gnome_canvas_set_scroll_region(GNOME_CANVAS(gd->canvas), 0, 0, iw, ih);
     /* create new plot area on canvas */
     /* FIXME: We should have a canvas color argument */
     /* gamma is defaulted to 1 here */
+    /*
+     * WARNING: Many graphical parameters are unset - if GNOME_NewPage
+     * starts to make use of more than fill and gamma then more
+     * parameters need setting here.
+     */
-    GNOME_NewPage(R_RGB(255,255,255), 1, dd);
+    gc.fill = R_RGB(255,255,255);
+    gc.gamma = 1;
+    GNOME_NewPage(&gc, dd);
     /* place and realize the canvas */
     gnome_app_set_contents(GNOME_APP(gd->window), gd->canvas);
     gtk_widget_realize(gd->canvas);
     /* we made it! */
     return TRUE;
+}
-static double GNOME_StrWidth(char *str, int font,
+static double GNOME_StrWidth(char *str,
+			     R_GE_gcontext *gc,
-			      double cex, double ps, NewDevDesc *dd)
+			     NewDevDesc *dd)
+{
   int size;
   gnomeDesc *gd = (gnomeDesc *) dd->deviceSpecific;
-  size = cex * ps + 0.5;
+  size = gc->cex * gc->ps + 0.5;
-  SetFont(dd, font, size);
+  SetFont(dd, gc->fontface, size);
   return (double) gdk_string_width(gd->font, str);
+}
-static void GNOME_MetricInfo(int c, int font, double cex, double ps,
+static void GNOME_MetricInfo(int c,
+			     R_GE_gcontext *gc,
-			      double* ascent, double* descent,
+			     double* ascent, double* descent,
-			      double* width, NewDevDesc *dd)
+			     double* width, NewDevDesc *dd)
+{
   gint size;
   gint lbearing, rbearing, iascent, idescent, iwidth;
   gint maxwidth;
   gchar tmp[2];
   gnomeDesc *gd = (gnomeDesc *) dd->deviceSpecific;
-  size = cex * ps + 0.5;
+  size = gc->cex * gc->ps + 0.5;
-  SetFont(dd, font, size);
+  SetFont(dd, gc->fontface, size);
   if(c == 0) {
     maxwidth = 0;
     for(c = 0; c <= 255; c++) {
+}
 /* drawing stuff */
 static void GNOME_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)
+{
     double tmp;
     gnomeDesc *gd = (gnomeDesc *) dd->deviceSpecific;
     GnomeCanvasItem *item;
 				 gnome_canvas_rect_get_type(),
 				 "x1", x0,
 				 "y1", y0,
 				 "x2", x1,
 				 "y2", y1,
-				 "width_units", (double) lwd,
+				 "width_units", (double) gc->lwd,
 				 NULL);
-    if(fill != NA_INTEGER) {
+    if(gc->fill != NA_INTEGER) {
 	gnome_canvas_item_set(item,
-			      "fill_color_rgba", Color_RGBA(fill),
+			      "fill_color_rgba", Color_RGBA(gc->fill),
 			      NULL);
+    }
-    if(col != NA_INTEGER) {
+    if(gc->col != NA_INTEGER) {
 	gnome_canvas_item_set(item,
-			      "outline_color_rgba", Color_RGBA(col),
+			      "outline_color_rgba", Color_RGBA(gc->col),
 			      NULL);
+    }
+}
 static void GNOME_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)
+{
     double x1, y1, x2, y2;
     gnomeDesc *gd = (gnomeDesc *) dd->deviceSpecific;
     GnomeCanvasItem *item;
 				 gnome_canvas_ellipse_get_type(),
 				 "x1", x1,
 				 "y1", y1,
 				 "x2", x2,
 				 "y2", y2,
-				 "width_units", (double) lwd,
+				 "width_units", (double) gc->lwd,
 				 NULL);
-    if(fill != NA_INTEGER) {
+    if(gc->fill != NA_INTEGER) {
 	gnome_canvas_item_set(item,
-			      "fill_color_rgba", Color_RGBA(fill),
+			      "fill_color_rgba", Color_RGBA(gc->fill),
 			      NULL);
+    }
-    if(col != NA_INTEGER) {
+    if(gc->col != NA_INTEGER) {
 	gnome_canvas_item_set(item,
-			      "outline_color_rgba", Color_RGBA(col),
+			      "outline_color_rgba", Color_RGBA(gc->col),
 			      NULL);
+    }
+}
 static void GNOME_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)
+{
     GnomeCanvasPoints *points;
     gnomeDesc *gd = (gnomeDesc *) dd->deviceSpecific;
     GnomeCanvasItem *item;
     points->coords[3] = y2;
     item = gnome_canvas_item_new(gd->group,
 				 gnome_canvas_line_get_type(),
 				 "points", points,
-				 "width_units", (double) lwd,
+				 "width_units", (double) gc->lwd,
 				 NULL);
-    if(col != NA_INTEGER) {
+    if(gc->col != NA_INTEGER) {
-	if(lty != 0) {
+	if(gc->lty != 0) {
 	    /*SetLineType(GNOME_CANVAS_LINE(item)->gc, lty, lwd);*/
 	    gnome_canvas_item_set(item,
 				  "line_style", GDK_LINE_ON_OFF_DASH,
 				  NULL);
+	}
 	gnome_canvas_item_set(item,
-			      "fill_color_rgba", Color_RGBA(col),
+			      "fill_color_rgba", Color_RGBA(gc->col),
 			      NULL);
+    }
     gnome_canvas_points_free(points);
+}
 static void GNOME_Polyline(int n, double *x, double *y,
-			    int col, double gamma, int lty, double lwd,
+			   R_GE_gcontext *gc,
-			    NewDevDesc *dd)
+			   NewDevDesc *dd)
+{
     int i;
     GnomeCanvasPoints *points;
     gnomeDesc *gd = (gnomeDesc *) dd->deviceSpecific;
     GnomeCanvasItem *item;
+    }
     item = gnome_canvas_item_new(gd->group,
 				 gnome_canvas_line_get_type(),
 				 "points", points,
-				 "width_units", (double) lwd,
+				 "width_units", (double) gc->lwd,
 				 NULL);
-    if(col != NA_INTEGER) {
+    if(gc->col != NA_INTEGER) {
-	if(lty != 0) {
+	if(gc->lty != 0) {
 	  /*
 	    SetLineType(&stipple, lty, lwd);
 	    gnome_canvas_item_set(item,
 				  "fill_stipple", &stipple,
 				  NULL);
 	    gnome_canvas_item_set(item,
 				  "line_style", GDK_LINE_ON_OFF_DASH,
 				  NULL);
+	}
 	gnome_canvas_item_set(item,
-			      "fill_color_rgba", Color_RGBA(col),
+			      "fill_color_rgba", Color_RGBA(gc->col),
 			      NULL);
+    }
     gnome_canvas_points_free(points);
+}
 static void GNOME_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)
+{
     int i;
     GnomeCanvasPoints *points;
     gnomeDesc *gd = (gnomeDesc *) dd->deviceSpecific;
     GnomeCanvasItem *item;
 				 gnome_canvas_polygon_get_type(),
 				 "points", points,
 				 "width_units", (double) 2,
 				 NULL);
-    if(fill != NA_INTEGER) {
+    if(gc->fill != NA_INTEGER) {
 	gnome_canvas_item_set(item,
-			      "fill_color_rgba", Color_RGBA(fill),
+			      "fill_color_rgba", Color_RGBA(gc->fill),
 			      NULL);
+    }
-    if(col != NA_INTEGER) {
+    if(gc->col != NA_INTEGER) {
 	gnome_canvas_item_set(item,
-			      "outline_color_rgba", Color_RGBA(col),
+			      "outline_color_rgba", Color_RGBA(gc->col),
 			      NULL);
+    }
     gnome_canvas_points_free(points);
+}
 static void GNOME_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)
+{
   double affine[6] = {1, 0, 0, 1, 0, 0};
   double rrot = DEG2RAD * rot;
   GnomeCanvasItem *item;
   gnomeDesc *gd = (gnomeDesc *) dd->deviceSpecific;
   int size;
-  size = cex * ps + 0.5;
+  size = gc->cex * gc->ps + 0.5;
-  SetFont(dd, font, size);
+  SetFont(dd, gc->fontface, size);
   if (rot != 0)
+    {
       affine[0] = affine[3] = cos(rrot);
       affine[1] = -sin(rrot);
 				"text", str,
 				"anchor", GTK_ANCHOR_SOUTH_WEST,
 				"x", x,
 				"y", y,
 				"font_gdk", gd->font,
-				"fill_color_rgba", Color_RGBA(col),
+				"fill_color_rgba", Color_RGBA(gc->col),
 				NULL);
   if (rot != 0)
     gnome_canvas_item_affine_relative (item, affine);
+}

The R Project SVN R

(root)/trunk/src/modules/gnome/devGNOME.c @ 28362 – Rev 27117 → 27236