Rename pango-view/ dir to utils/

1 files changed, 462 insertions, 0 deletions

diff --git a/utils/viewer-pangocairo.c b/utils/viewer-pangocairo.c
new file mode 100644
index 00000000..3e893207
--- /dev/null
+++ b/utils/viewer-pangocairo.c
@@ -0,0 +1,462 @@
+/* viewer-pangocairo.c: PangoCairo viewer backend.
+ *
+ * Copyright (C) 1999,2004,2005 Red Hat, Inc.
+ * Copyright (C) 2001 Sun Microsystems
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU
+ * Library General Public License for more details.
+ *
+ * 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.
+ */
+
+#include "config.h"
+
+#include "viewer-render.h"
+#include "viewer-cairo.h"
+
+#include <pango/pangocairo.h>
+
+static int opt_annotate = 0;
+
+typedef struct
+{
+  const CairoViewerIface *iface;
+
+  gpointer backend;
+
+  PangoFontMap *fontmap;
+  cairo_font_options_t *font_options;
+} CairoViewer;
+
+static gpointer
+pangocairo_view_create (const PangoViewer *klass G_GNUC_UNUSED)
+{
+  CairoViewer *instance;
+
+  instance = g_slice_new (CairoViewer);
+
+  instance->backend = cairo_viewer_iface_create (&instance->iface);
+
+  instance->fontmap = pango_cairo_font_map_new ();
+  pango_cairo_font_map_set_resolution (PANGO_CAIRO_FONT_MAP (instance->fontmap), opt_dpi);
+
+  instance->font_options = cairo_font_options_create ();
+  if (opt_hinting != HINT_DEFAULT)
+    {
+      if (opt_hinting == HINT_NONE)
+	cairo_font_options_set_hint_style (instance->font_options, CAIRO_HINT_STYLE_NONE);
+      else if (opt_hinting == HINT_FULL)
+	cairo_font_options_set_hint_style (instance->font_options, CAIRO_HINT_STYLE_FULL);
+    }
+
+  return instance;
+}
+
+static void
+pangocairo_view_destroy (gpointer instance)
+{
+  CairoViewer *c = (CairoViewer *) instance;
+
+  cairo_font_options_destroy (c->font_options);
+
+  g_object_unref (c->fontmap);
+
+  c->iface->backend_class->destroy (c->backend);
+
+  cairo_debug_reset_static_data ();
+
+  g_slice_free (CairoViewer, c);
+}
+
+static PangoContext *
+pangocairo_view_get_context (gpointer instance)
+{
+  CairoViewer *c = (CairoViewer *) instance;
+  PangoContext *context;
+
+  context = pango_font_map_create_context (c->fontmap);
+  pango_cairo_context_set_font_options (context, c->font_options);
+
+  return context;
+}
+
+typedef struct
+{
+  gpointer backend;
+
+  cairo_surface_t *cairo;
+} CairoSurface;
+
+static gpointer
+pangocairo_view_create_surface (gpointer instance,
+				int      width,
+				int      height)
+{
+  CairoViewer *c = (CairoViewer *) instance;
+  CairoSurface *surface;
+
+  surface = g_slice_new (CairoSurface);
+
+  surface->backend = c->iface->backend_class->create_surface (c->backend,
+							      width, height);
+
+  surface->cairo = c->iface->create_surface (c->backend,
+					     surface->backend,
+					     width, height);
+
+  return surface;
+}
+
+static void
+pangocairo_view_destroy_surface (gpointer instance,
+				 gpointer surface)
+{
+  CairoViewer *c = (CairoViewer *) instance;
+  CairoSurface *c_surface = (CairoSurface *) surface;
+
+  c->iface->backend_class->destroy_surface (c->backend, c_surface->backend);
+  cairo_surface_destroy (c_surface->cairo);
+
+  g_slice_free (CairoSurface, surface);
+}
+
+static void
+render_callback (PangoLayout *layout,
+		 int          x,
+		 int          y,
+		 gpointer     context,
+		 gpointer     state)
+{
+  cairo_t *cr = (cairo_t *) context;
+  int annotate = (GPOINTER_TO_INT (state) + opt_annotate) % 3;
+
+  cairo_save (cr);
+  cairo_translate (cr, x, y);
+
+  if (annotate)
+    {
+      cairo_pattern_t *pattern;
+      PangoRectangle ink, logical;
+      double lw = cairo_get_line_width (cr);
+      PangoLayoutIter* iter;
+
+      pango_layout_get_extents (layout, &ink, &logical);
+
+      if (annotate >= 2)
+        {
+	  /* draw resolved gravity "roof" in blue */
+	  cairo_save (cr);
+	  cairo_translate (cr,
+			   (double)logical.x / PANGO_SCALE,
+			   (double)logical.y / PANGO_SCALE);
+	  cairo_scale     (cr,
+			   (double)logical.width / PANGO_SCALE * 0.5,
+			   (double)logical.height / PANGO_SCALE * 0.5);
+	  cairo_translate   (cr,  1.0,  1.0);
+	  cairo_rotate (cr,
+	    pango_gravity_to_rotation (
+	      pango_context_get_gravity (
+		pango_layout_get_context (layout))));
+	  cairo_move_to     (cr, -1.0, -1.0);
+	  cairo_rel_line_to (cr, +1.0, -0.2); /* /   */
+	  cairo_rel_line_to (cr, +1.0, +0.2); /*   \ */
+	  cairo_close_path  (cr);             /*  -  */
+	  pattern = cairo_pattern_create_linear (0, -1.0, 0, -1.2);
+	  cairo_pattern_add_color_stop_rgba (pattern, 0.0, 0.0, 0.0, 1.0, 0.0);
+	  cairo_pattern_add_color_stop_rgba (pattern, 1.0, 0.0, 0.0, 1.0, 0.15);
+	  cairo_set_source (cr, pattern);
+	  cairo_fill (cr);
+	  /* once more, without close_path this time */
+	  cairo_move_to     (cr, -1.0, -1.0);
+	  cairo_rel_line_to (cr, +1.0, -0.2); /* /   */
+	  cairo_rel_line_to (cr, +1.0, +0.2); /*   \ */
+	  /* silly line_width is not locked :(. get rid of scale. */
+	  cairo_restore (cr);
+	  cairo_save (cr);
+	  cairo_set_source_rgba (cr, 0.0, 0.0, 0.7, 0.2);
+	  cairo_stroke (cr);
+	  cairo_restore (cr);
+
+
+	  /* draw block progression arrow in green */
+	  cairo_save (cr);
+	  cairo_translate (cr,
+			   (double)logical.x / PANGO_SCALE,
+			   (double)logical.y / PANGO_SCALE);
+	  cairo_scale     (cr,
+			   (double)logical.width / PANGO_SCALE * 0.5,
+			   (double)logical.height / PANGO_SCALE * 0.5);
+	  cairo_translate   (cr,  1.0,  1.0);
+	  cairo_move_to     (cr, -0.4, -0.7);
+	  cairo_rel_line_to (cr, +0.8,  0.0); /*  --   */
+	  cairo_rel_line_to (cr,  0.0, +0.9); /*    |  */
+	  cairo_rel_line_to (cr, +0.4,  0.0); /*     - */
+	  cairo_rel_line_to (cr, -0.8, +0.5); /*    /  */
+	  cairo_rel_line_to (cr, -0.8, -0.5); /*  \    */
+	  cairo_rel_line_to (cr, +0.4,  0.0); /* -     */
+	  cairo_close_path  (cr);             /*  |    */
+	  pattern = cairo_pattern_create_linear (0, -0.7, 0, 0.7);
+	  cairo_pattern_add_color_stop_rgba (pattern, 0.0, 0.0, 1.0, 0.0, 0.0);
+	  cairo_pattern_add_color_stop_rgba (pattern, 1.0, 0.0, 1.0, 0.0, 0.15);
+	  cairo_set_source (cr, pattern);
+	  cairo_fill_preserve (cr);
+	  /* silly line_width is not locked :(. get rid of scale. */
+	  cairo_restore (cr);
+	  cairo_save (cr);
+	  cairo_set_source_rgba (cr, 0.0, 0.7, 0.0, 0.2);
+	  cairo_stroke (cr);
+	  cairo_restore (cr);
+	}
+
+      /* draw baselines with line direction arrow in orange */
+      cairo_save (cr);
+      cairo_set_source_rgba (cr, 1.0, 0.5, 0.0, 0.5);
+      iter = pango_layout_get_iter (layout);
+      do
+	{
+	  PangoLayoutLine *line = pango_layout_iter_get_line (iter);
+	  double width = (double)logical.width / PANGO_SCALE;
+
+	  y = pango_layout_iter_get_baseline (iter);
+	  cairo_save (cr);
+	  cairo_translate (cr,
+			 (double)logical.x / PANGO_SCALE + width * 0.5,
+			 (double)y / PANGO_SCALE);
+	  if (line->resolved_dir)
+	    cairo_scale (cr, -1, 1);
+	  cairo_move_to     (cr, -width * .5, -lw*0.2);
+	  cairo_rel_line_to (cr, +width * .9, -lw*0.3);
+	  cairo_rel_line_to (cr,  0,          -lw);
+	  cairo_rel_line_to (cr, +width * .1, +lw*1.5);
+	  cairo_rel_line_to (cr, -width * .1, +lw*1.5);
+	  cairo_rel_line_to (cr, 0,           -lw);
+	  cairo_rel_line_to (cr, -width * .9, -lw*0.3);
+	  cairo_close_path (cr);
+	  cairo_fill (cr);
+	  cairo_restore (cr);
+	}
+      while (pango_layout_iter_next_line (iter));
+      pango_layout_iter_free (iter);
+      cairo_restore (cr);
+
+      /* draw the logical rect in red */
+      cairo_save (cr);
+      cairo_set_source_rgba (cr, 1.0, 0.0, 0.0, 0.5);
+      cairo_rectangle (cr,
+		       (double)logical.x / PANGO_SCALE - lw / 2,
+		       (double)logical.y / PANGO_SCALE - lw / 2,
+		       (double)logical.width / PANGO_SCALE + lw,
+		       (double)logical.height / PANGO_SCALE + lw);
+      cairo_stroke (cr);
+      cairo_restore (cr);
+
+      /* draw the ink rect in green */
+      cairo_save (cr);
+      cairo_set_source_rgba (cr, 0.0, 1.0, 0.0, 0.5);
+      cairo_rectangle (cr,
+		       (double)ink.x / PANGO_SCALE - lw / 2,
+		       (double)ink.y / PANGO_SCALE - lw / 2,
+		       (double)ink.width / PANGO_SCALE + lw,
+		       (double)ink.height / PANGO_SCALE + lw);
+      cairo_stroke (cr);
+      cairo_restore (cr);
+    }
+
+  cairo_move_to (cr, 0, 0);
+  pango_cairo_show_layout (cr, layout);
+
+  cairo_restore (cr);
+
+  cairo_surface_flush (cairo_get_target (cr));
+}
+
+static void
+transform_callback (PangoContext *context,
+		    PangoMatrix  *matrix,
+		    gpointer      cr_context,
+		    gpointer      state G_GNUC_UNUSED)
+{
+  cairo_t *cr = (cairo_t *)cr_context;
+  cairo_matrix_t cairo_matrix;
+
+  if (matrix)
+    {
+      cairo_matrix.xx = matrix->xx;
+      cairo_matrix.yx = matrix->yx;
+      cairo_matrix.xy = matrix->xy;
+      cairo_matrix.yy = matrix->yy;
+      cairo_matrix.x0 = matrix->x0;
+      cairo_matrix.y0 = matrix->y0;
+    }
+  else
+    {
+      cairo_matrix_init_identity (&cairo_matrix);
+    }
+
+  cairo_set_matrix (cr, &cairo_matrix);
+
+  pango_cairo_update_context (cr, context);
+}
+
+static void
+pangocairo_view_render (gpointer      instance,
+			gpointer      surface,
+			PangoContext *context,
+			int          *width,
+			int          *height,
+			gpointer      state)
+{
+  CairoViewer *c = (CairoViewer *) instance;
+  cairo_t *cr;
+  CairoSurface *c_surface = (CairoSurface *) surface;
+
+  g_assert (surface);
+
+  cr = cairo_create (c_surface->cairo);
+
+  transform_callback (context, NULL, cr, state);
+
+  c->iface->paint_background (instance, cr);
+
+  cairo_set_operator (cr, CAIRO_OPERATOR_OVER);
+  cairo_set_source_rgba (cr,
+			 opt_fg_color.red / 65535.,
+			 opt_fg_color.green / 65535.,
+			 opt_fg_color.blue / 65535.,
+			 opt_fg_alpha / 65535.);
+
+  do_output (context, render_callback, transform_callback, cr, state, width, height);
+
+  cairo_destroy (cr);
+}
+
+#ifdef HAVE_CAIRO_PNG
+static cairo_status_t
+write_func (void                *closure,
+	    const unsigned char *data,
+	    unsigned int         length)
+{
+  FILE *stream = (FILE *) closure;
+  unsigned int l;
+
+  l = fwrite (data, 1, length, stream);
+
+  return l == length ? CAIRO_STATUS_SUCCESS : CAIRO_STATUS_WRITE_ERROR;
+}
+
+static void
+pangocairo_view_write (gpointer instance G_GNUC_UNUSED,
+		       gpointer surface,
+		       FILE    *stream,
+		       int      width G_GNUC_UNUSED,
+		       int      height G_GNUC_UNUSED)
+{
+  CairoSurface *c_surface = (CairoSurface *) surface;
+
+  cairo_surface_write_to_png_stream (c_surface->cairo, write_func, stream);
+}
+#endif
+
+static gpointer
+pangocairo_view_create_window (gpointer    instance,
+			       const char *title,
+			       int         width,
+			       int         height)
+{
+  CairoViewer *c = (CairoViewer *) instance;
+
+  if (!c->iface->backend_class->create_window)
+    return NULL;
+
+  return c->iface->backend_class->create_window (c->backend,
+						 title,
+						 width, height);
+}
+
+static void
+pangocairo_view_destroy_window (gpointer instance,
+				gpointer window)
+{
+  CairoViewer *c = (CairoViewer *) instance;
+
+  c->iface->backend_class->destroy_window (c->backend,
+					   window);
+}
+
+static gpointer
+pangocairo_view_display (gpointer instance,
+			 gpointer surface,
+			 gpointer window,
+			 int width, int height,
+			 gpointer state)
+{
+  CairoViewer *c = (CairoViewer *) instance;
+  CairoSurface *c_surface = (CairoSurface *) surface;
+
+  return c->iface->backend_class->display (c->backend,
+					   c_surface->backend,
+					   window,
+					   width, height,
+					   state);
+}
+
+static GOptionGroup *
+pangocairo_view_get_option_group (const PangoViewer *klass G_GNUC_UNUSED)
+{
+  GOptionEntry entries[] =
+  {
+    {"annotate",	0, 0, G_OPTION_ARG_INT, &opt_annotate,
+     "Annotate the output",				"1 or 2"},
+    {NULL}
+  };
+  GOptionGroup *group;
+
+  group = g_option_group_new ("cairo",
+			      "Cairo backend options:",
+			      "Options understood by the cairo backend",
+			      NULL,
+			      NULL);
+
+  g_option_group_add_entries (group, entries);
+
+  cairo_viewer_add_options (group);
+
+  return group;
+}
+
+const PangoViewer pangocairo_viewer = {
+  "PangoCairo",
+  "cairo",
+#ifdef HAVE_CAIRO_PNG
+  "png",
+#else
+  NULL,
+#endif
+  pangocairo_view_create,
+  pangocairo_view_destroy,
+  pangocairo_view_get_context,
+  pangocairo_view_create_surface,
+  pangocairo_view_destroy_surface,
+  pangocairo_view_render,
+#ifdef HAVE_CAIRO_PNG
+  pangocairo_view_write,
+#else
+  NULL,
+#endif
+  pangocairo_view_create_window,
+  pangocairo_view_destroy_window,
+  pangocairo_view_display,
+  NULL,
+  NULL,
+  pangocairo_view_get_option_group
+};