diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-19 03:13:10 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-19 03:13:10 +0000 |
commit | 3c57dd931145d43f2b0aef96c4d178135956bf91 (patch) | |
tree | 3de698981e9f0cc2c4f9569b19a5f3595e741f6b /plug-ins/common/file-wmf.c | |
parent | Initial commit. (diff) | |
download | gimp-3c57dd931145d43f2b0aef96c4d178135956bf91.tar.xz gimp-3c57dd931145d43f2b0aef96c4d178135956bf91.zip |
Adding upstream version 2.10.36.upstream/2.10.36
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'plug-ins/common/file-wmf.c')
-rw-r--r-- | plug-ins/common/file-wmf.c | 1049 |
1 files changed, 1049 insertions, 0 deletions
diff --git a/plug-ins/common/file-wmf.c b/plug-ins/common/file-wmf.c new file mode 100644 index 0000000..8c86510 --- /dev/null +++ b/plug-ins/common/file-wmf.c @@ -0,0 +1,1049 @@ +/* GIMP - The GNU Image Manipulation Program + * Copyright (C) 1995 Spencer Kimball and Peter Mattis + * + * This program is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or + * (at your option) any later version. + * + * This program 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 General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program. If not, see <https://www.gnu.org/licenses/>. + */ + +/* WMF loading file filter for GIMP + * -Dom Lachowicz <cinamod@hotmail.com> 2003 + * -Francis James Franklin <fjf@alinameridon.com> + */ + +#include "config.h" + +#include <libwmf/api.h> +#include <libwmf/gd.h> + +#include <libgimp/gimp.h> +#include <libgimp/gimpui.h> +#include <libgimpmath/gimpmath.h> + +#include "libgimp/stdplugins-intl.h" + + +#define LOAD_PROC "file-wmf-load" +#define LOAD_THUMB_PROC "file-wmf-load-thumb" +#define PLUG_IN_BINARY "file-wmf" +#define PLUG_IN_ROLE "gimp-file-wmf" + +#define WMF_DEFAULT_RESOLUTION 90.0 +#define WMF_DEFAULT_SIZE 500 +#define WMF_PREVIEW_SIZE 128 + +typedef struct +{ + gdouble resolution; + gint width; + gint height; +} WmfLoadVals; + +static WmfLoadVals load_vals = +{ + WMF_DEFAULT_RESOLUTION, + 0, + 0, +}; + + +static void query (void); +static void run (const gchar *name, + gint nparams, + const GimpParam *param, + gint *nreturn_vals, + GimpParam **return_vals); +static gint32 load_image (const gchar *filename, + GError **error); +static gboolean load_wmf_size (const gchar *filename, + WmfLoadVals *vals); +static gboolean load_dialog (const gchar *filename); +static guchar *wmf_get_pixbuf (const gchar *filename, + gint *width, + gint *height); +static guchar *wmf_load_file (const gchar *filename, + guint *width, + guint *height, + GError **error); + + +const GimpPlugInInfo PLUG_IN_INFO = +{ + NULL, /* init_proc */ + NULL, /* quit_proc */ + query, /* query_proc */ + run /* run_proc */ +}; + +MAIN () + + +/* + * 'query()' - Respond to a plug-in query... + */ +static void +query (void) +{ + static const GimpParamDef load_args[] = + { + { GIMP_PDB_INT32, "run-mode", "The run mode { RUN-INTERACTIVE (0), RUN-NONINTERACTIVE (1) }" }, + { GIMP_PDB_STRING, "filename", "The name of the file to load" }, + { GIMP_PDB_STRING, "raw-filename", "The name of the file to load" }, + { GIMP_PDB_FLOAT, "resolution", "Resolution to use for rendering the WMF (defaults to 72 dpi" }, + { GIMP_PDB_INT32, "width", "Width (in pixels) to load the WMF in, 0 for original width" }, + { GIMP_PDB_INT32, "height", "Height (in pixels) to load the WMF in, 0 for original height" } + }; + + static const GimpParamDef load_return_vals[] = + { + { GIMP_PDB_IMAGE, "image", "Output image" } + }; + + static const GimpParamDef thumb_args[] = + { + { GIMP_PDB_STRING, "filename", "The name of the file to load" }, + { GIMP_PDB_INT32, "thumb-size", "Preferred thumbnail size" } + }; + static const GimpParamDef thumb_return_vals[] = + { + { GIMP_PDB_IMAGE, "image", "Thumbnail image" }, + { GIMP_PDB_INT32, "image-width", "Width of full-sized image" }, + { GIMP_PDB_INT32, "image-height", "Height of full-sized image" } + }; + + gimp_install_procedure (LOAD_PROC, + "Loads files in the WMF file format", + "Loads files in the WMF file format", + "Dom Lachowicz <cinamod@hotmail.com>", + "Dom Lachowicz <cinamod@hotmail.com>", + "(c) 2003 - Version 0.3.0", + N_("Microsoft WMF file"), + NULL, + GIMP_PLUGIN, + G_N_ELEMENTS (load_args), + G_N_ELEMENTS (load_return_vals), + load_args, load_return_vals); + + gimp_register_file_handler_mime (LOAD_PROC, "image/x-wmf"); + gimp_register_magic_load_handler (LOAD_PROC, + "wmf,apm", "", + "0,string,\\327\\315\\306\\232,0,string,\\1\\0\\11\\0"); + + gimp_install_procedure (LOAD_THUMB_PROC, + "Loads a small preview from a WMF image", + "", + "Dom Lachowicz <cinamod@hotmail.com>", + "Dom Lachowicz <cinamod@hotmail.com>", + "(c) 2003 - Version 0.3.0", + NULL, + NULL, + GIMP_PLUGIN, + G_N_ELEMENTS (thumb_args), + G_N_ELEMENTS (thumb_return_vals), + thumb_args, thumb_return_vals); + + gimp_register_thumbnail_loader (LOAD_PROC, LOAD_THUMB_PROC); +} + +/* + * 'run()' - Run the plug-in... + */ +static void +run (const gchar *name, + gint nparams, + const GimpParam *param, + gint *nreturn_vals, + GimpParam **return_vals) +{ + static GimpParam values[4]; + GimpRunMode run_mode; + GimpPDBStatusType status = GIMP_PDB_SUCCESS; + const gchar *filename = NULL; + GError *error = NULL; + gint32 image_ID = -1; + gint width = 0; + gint height = 0; + + INIT_I18N (); + gegl_init (NULL, NULL); + + run_mode = param[0].data.d_int32; + + *nreturn_vals = 1; + *return_vals = values; + + values[0].type = GIMP_PDB_STATUS; + values[0].data.d_status = GIMP_PDB_EXECUTION_ERROR; + + if (strcmp (name, LOAD_PROC) == 0) + { + filename = param[1].data.d_string; + + gimp_get_data (LOAD_PROC, &load_vals); + + switch (run_mode) + { + case GIMP_RUN_NONINTERACTIVE: + if (nparams > 3) load_vals.resolution = param[3].data.d_float; + if (nparams > 4) load_vals.width = param[4].data.d_int32; + if (nparams > 5) load_vals.height = param[5].data.d_int32; + break; + + case GIMP_RUN_INTERACTIVE: + if (!load_dialog (param[1].data.d_string)) + status = GIMP_PDB_CANCEL; + break; + + case GIMP_RUN_WITH_LAST_VALS: + break; + } + } + else if (strcmp (name, LOAD_THUMB_PROC) == 0) + { + gint size = param[1].data.d_int32; + + filename = param[0].data.d_string; + + if (size > 0 && + load_wmf_size (filename, &load_vals) && + load_vals.width > 0 && + load_vals.height > 0) + { + width = load_vals.width; + height = load_vals.height; + + if ((gdouble) load_vals.width > (gdouble) load_vals.height) + { + load_vals.width = size; + load_vals.height *= size / (gdouble) load_vals.width; + } + else + { + load_vals.width *= size / (gdouble) load_vals.height; + load_vals.height = size; + } + } + else + { + status = GIMP_PDB_EXECUTION_ERROR; + } + } + else + { + status = GIMP_PDB_CALLING_ERROR; + } + + if (status == GIMP_PDB_SUCCESS) + { + if (load_vals.resolution < GIMP_MIN_RESOLUTION || + load_vals.resolution > GIMP_MAX_RESOLUTION) + { + load_vals.resolution = WMF_DEFAULT_RESOLUTION; + } + + image_ID = load_image (filename, &error); + + if (image_ID != -1) + { + *nreturn_vals = 2; + values[1].type = GIMP_PDB_IMAGE; + values[1].data.d_image = image_ID; + } + else + { + status = GIMP_PDB_EXECUTION_ERROR; + } + } + + if (status == GIMP_PDB_SUCCESS) + { + if (strcmp (name, LOAD_THUMB_PROC) == 0) + { + *nreturn_vals = 4; + values[2].type = GIMP_PDB_INT32; + values[2].data.d_int32 = width; + values[3].type = GIMP_PDB_INT32; + values[3].data.d_int32 = height; + } + else + { + gimp_set_data (LOAD_PROC, &load_vals, sizeof (load_vals)); + } + } + + if (status != GIMP_PDB_SUCCESS && error) + { + *nreturn_vals = 2; + values[1].type = GIMP_PDB_STRING; + values[1].data.d_string = error->message; + } + + values[0].data.d_status = status; +} + + +static GtkWidget *size_label = NULL; + + +/* This function retrieves the pixel size from a WMF file. */ +static gboolean +load_wmf_size (const gchar *filename, + WmfLoadVals *vals) +{ + GMappedFile *file; + /* the bits we need to decode the WMF via libwmf2's GD layer */ + wmf_error_t err; + gulong flags; + wmf_gd_t *ddata = NULL; + wmfAPI *API = NULL; + wmfAPI_Options api_options; + wmfD_Rect bbox; + guint width = -1; + guint height = -1; + gboolean success = TRUE; + char* wmffontdirs[2] = { NULL, NULL }; + + file = g_mapped_file_new (filename, FALSE, NULL); + if (! file) + return FALSE; + + flags = WMF_OPT_IGNORE_NONFATAL | WMF_OPT_FUNCTION; + api_options.function = wmf_gd_function; + +#ifdef ENABLE_RELOCATABLE_RESOURCES + wmffontdirs[0] = g_build_filename (gimp_installation_directory (), + "share/libwmf/fonts", NULL); + flags |= WMF_OPT_FONTDIRS; + api_options.fontdirs = wmffontdirs; +#endif + + err = wmf_api_create (&API, flags, &api_options); + if (wmffontdirs[0]) + g_free (wmffontdirs[0]); + if (err != wmf_E_None) + success = FALSE; + + ddata = WMF_GD_GetData (API); + ddata->type = wmf_gd_image; + + err = wmf_mem_open (API, + (guchar *) g_mapped_file_get_contents (file), + g_mapped_file_get_length (file)); + if (err != wmf_E_None) + success = FALSE; + + err = wmf_scan (API, 0, &bbox); + if (err != wmf_E_None) + success = FALSE; + + err = wmf_display_size (API, &width, &height, + vals->resolution, vals->resolution); + if (err != wmf_E_None || width <= 0 || height <= 0) + success = FALSE; + + wmf_mem_close (API); + g_mapped_file_unref (file); + + if (width < 1 || height < 1) + { + width = WMF_DEFAULT_SIZE; + height = WMF_DEFAULT_SIZE; + + if (size_label) + gtk_label_set_text (GTK_LABEL (size_label), + _("WMF file does not\nspecify a size!")); + } + else + { + if (size_label) + { + gchar *text = g_strdup_printf (_("%d × %d"), width, height); + + gtk_label_set_text (GTK_LABEL (size_label), text); + g_free (text); + } + } + + vals->width = width; + vals->height = height; + + return success; +} + + +/* User interface */ + +static GimpSizeEntry *size = NULL; +static GtkAdjustment *xadj = NULL; +static GtkAdjustment *yadj = NULL; +static GtkWidget *constrain = NULL; +static gdouble ratio_x = 1.0; +static gdouble ratio_y = 1.0; +static gint wmf_width = 0; +static gint wmf_height = 0; + +static void load_dialog_set_ratio (gdouble x, + gdouble y); + + +static void +load_dialog_size_callback (GtkWidget *widget, + gpointer data) +{ + if (gimp_chain_button_get_active (GIMP_CHAIN_BUTTON (constrain))) + { + gdouble x = gimp_size_entry_get_refval (size, 0) / (gdouble) wmf_width; + gdouble y = gimp_size_entry_get_refval (size, 1) / (gdouble) wmf_height; + + if (x != ratio_x) + { + load_dialog_set_ratio (x, x); + } + else if (y != ratio_y) + { + load_dialog_set_ratio (y, y); + } + } +} + +static void +load_dialog_ratio_callback (GtkAdjustment *adj, + gpointer data) +{ + gdouble x = gtk_adjustment_get_value (xadj); + gdouble y = gtk_adjustment_get_value (yadj); + + if (gimp_chain_button_get_active (GIMP_CHAIN_BUTTON (constrain))) + { + if (x != ratio_x) + y = x; + else + x = y; + } + + load_dialog_set_ratio (x, y); +} + +static void +load_dialog_resolution_callback (GimpSizeEntry *res, + const gchar *filename) +{ + WmfLoadVals vals = { 0.0, 0, 0 }; + + load_vals.resolution = vals.resolution = gimp_size_entry_get_refval (res, 0); + + if (!load_wmf_size (filename, &vals)) + return; + + wmf_width = vals.width; + wmf_height = vals.height; + + load_dialog_set_ratio (ratio_x, ratio_y); +} + +static void +wmf_preview_callback (GtkWidget *widget, + GtkAllocation *allocation, + guchar *pixels) +{ + gimp_preview_area_draw (GIMP_PREVIEW_AREA (widget), + 0, 0, allocation->width, allocation->height, + GIMP_RGBA_IMAGE, + pixels, allocation->width * 4); +} + +static void +load_dialog_set_ratio (gdouble x, + gdouble y) +{ + ratio_x = x; + ratio_y = y; + + g_signal_handlers_block_by_func (size, load_dialog_size_callback, NULL); + + gimp_size_entry_set_refval (size, 0, wmf_width * x); + gimp_size_entry_set_refval (size, 1, wmf_height * y); + + g_signal_handlers_unblock_by_func (size, load_dialog_size_callback, NULL); + + g_signal_handlers_block_by_func (xadj, load_dialog_ratio_callback, NULL); + g_signal_handlers_block_by_func (yadj, load_dialog_ratio_callback, NULL); + + gtk_adjustment_set_value (xadj, x); + gtk_adjustment_set_value (yadj, y); + + g_signal_handlers_unblock_by_func (xadj, load_dialog_ratio_callback, NULL); + g_signal_handlers_unblock_by_func (yadj, load_dialog_ratio_callback, NULL); +} + +static gboolean +load_dialog (const gchar *filename) +{ + GtkWidget *dialog; + GtkWidget *frame; + GtkWidget *hbox; + GtkWidget *vbox; + GtkWidget *image; + GtkWidget *table; + GtkWidget *table2; + GtkWidget *abox; + GtkWidget *res; + GtkWidget *label; + GtkWidget *spinbutton; + GtkAdjustment *adj; + guchar *pixels; + gboolean run = FALSE; + + WmfLoadVals vals = { WMF_DEFAULT_RESOLUTION, + - WMF_PREVIEW_SIZE, - WMF_PREVIEW_SIZE }; + + gimp_ui_init (PLUG_IN_BINARY, FALSE); + + dialog = gimp_dialog_new (_("Render Windows Metafile"), PLUG_IN_ROLE, + NULL, 0, + gimp_standard_help_func, LOAD_PROC, + + _("_Cancel"), GTK_RESPONSE_CANCEL, + _("_OK"), GTK_RESPONSE_OK, + + NULL); + + gtk_dialog_set_alternative_button_order (GTK_DIALOG (dialog), + GTK_RESPONSE_OK, + GTK_RESPONSE_CANCEL, + -1); + + gtk_window_set_resizable (GTK_WINDOW (dialog), FALSE); + + gimp_window_set_transient (GTK_WINDOW (dialog)); + + hbox = gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 12); + gtk_container_set_border_width (GTK_CONTAINER (hbox), 12); + gtk_box_pack_start (GTK_BOX (gtk_dialog_get_content_area (GTK_DIALOG (dialog))), + hbox, TRUE, TRUE, 0); + gtk_widget_show (hbox); + + /* The WMF preview */ + vbox = gtk_box_new (GTK_ORIENTATION_VERTICAL, 6); + gtk_box_pack_start (GTK_BOX (hbox), vbox, FALSE, FALSE, 0); + gtk_widget_show (vbox); + + abox = gtk_alignment_new (0.5, 0.5, 0.0, 0.0); + gtk_box_pack_start (GTK_BOX (vbox), abox, FALSE, FALSE, 0); + gtk_widget_show (abox); + + frame = gtk_frame_new (NULL); + gtk_frame_set_shadow_type (GTK_FRAME (frame), GTK_SHADOW_IN); + gtk_container_add (GTK_CONTAINER (abox), frame); + gtk_widget_show (frame); + + pixels = wmf_get_pixbuf (filename, &vals.width, &vals.height); + image = gimp_preview_area_new (); + gtk_widget_set_size_request (image, vals.width, vals.height); + gtk_container_add (GTK_CONTAINER (frame), image); + gtk_widget_show (image); + + g_signal_connect (image, "size-allocate", + G_CALLBACK (wmf_preview_callback), + pixels); + + size_label = gtk_label_new (NULL); + gtk_label_set_justify (GTK_LABEL (size_label), GTK_JUSTIFY_CENTER); + gtk_box_pack_start (GTK_BOX (vbox), size_label, TRUE, TRUE, 4); + gtk_widget_show (size_label); + + /* query the initial size after the size label is created */ + vals.resolution = load_vals.resolution; + + load_wmf_size (filename, &vals); + + wmf_width = vals.width; + wmf_height = vals.height; + + table = gtk_table_new (7, 3, FALSE); + gtk_table_set_row_spacings (GTK_TABLE (table), 6); + gtk_table_set_col_spacings (GTK_TABLE (table), 6); + gtk_table_set_row_spacing (GTK_TABLE (table), 0, 2); + gtk_table_set_row_spacing (GTK_TABLE (table), 2, 2); + gtk_box_pack_start (GTK_BOX (hbox), table, TRUE, TRUE, 0); + gtk_widget_show (table); + + /* Width and Height */ + label = gtk_label_new (_("Width:")); + gtk_label_set_xalign (GTK_LABEL (label), 0.0); + gtk_table_attach (GTK_TABLE (table), label, 0, 1, 0, 1, + GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0); + gtk_widget_show (label); + + label = gtk_label_new (_("Height:")); + gtk_label_set_xalign (GTK_LABEL (label), 0.0); + gtk_table_attach (GTK_TABLE (table), label, 0, 1, 1, 2, + GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0); + gtk_widget_show (label); + + hbox = gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 0); + gtk_table_attach (GTK_TABLE (table), hbox, 1, 2, 0, 1, + GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0); + gtk_widget_show (hbox); + + adj = (GtkAdjustment *) gtk_adjustment_new (1, 1, 1, 1, 10, 0); + spinbutton = gimp_spin_button_new (adj, 1.0, 2); + gtk_spin_button_set_numeric (GTK_SPIN_BUTTON (spinbutton), TRUE); + gtk_entry_set_width_chars (GTK_ENTRY (spinbutton), 10); + gtk_box_pack_start (GTK_BOX (hbox), spinbutton, FALSE, FALSE, 0); + gtk_widget_show (spinbutton); + + hbox = gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 0); + gtk_table_attach (GTK_TABLE (table), hbox, 1, 2, 1, 2, + GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0); + gtk_widget_show (hbox); + + size = GIMP_SIZE_ENTRY (gimp_size_entry_new (1, GIMP_UNIT_PIXEL, "%a", + TRUE, FALSE, FALSE, 10, + GIMP_SIZE_ENTRY_UPDATE_SIZE)); + gtk_table_set_col_spacing (GTK_TABLE (size), 1, 6); + + gimp_size_entry_add_field (size, GTK_SPIN_BUTTON (spinbutton), NULL); + + gtk_box_pack_start (GTK_BOX (hbox), GTK_WIDGET (size), FALSE, FALSE, 0); + gtk_widget_show (GTK_WIDGET (size)); + + gimp_size_entry_set_refval_boundaries (size, 0, + GIMP_MIN_IMAGE_SIZE, + GIMP_MAX_IMAGE_SIZE); + gimp_size_entry_set_refval_boundaries (size, 1, + GIMP_MIN_IMAGE_SIZE, + GIMP_MAX_IMAGE_SIZE); + + gimp_size_entry_set_refval (size, 0, wmf_width); + gimp_size_entry_set_refval (size, 1, wmf_height); + + gimp_size_entry_set_resolution (size, 0, load_vals.resolution, FALSE); + gimp_size_entry_set_resolution (size, 1, load_vals.resolution, FALSE); + + g_signal_connect (size, "value-changed", + G_CALLBACK (load_dialog_size_callback), + NULL); + + /* Scale ratio */ + hbox = gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 0); + gtk_table_attach (GTK_TABLE (table), hbox, 1, 2, 2, 4, + GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0); + gtk_widget_show (hbox); + + table2 = gtk_table_new (2, 2, FALSE); + gtk_table_set_col_spacing (GTK_TABLE (table2), 0, 2); + gtk_table_set_row_spacing (GTK_TABLE (table2), 0, 4); + gtk_box_pack_start (GTK_BOX (hbox), table2, FALSE, FALSE, 0); + + xadj = (GtkAdjustment *) + gtk_adjustment_new (ratio_x, + (gdouble) GIMP_MIN_IMAGE_SIZE / (gdouble) wmf_width, + (gdouble) GIMP_MAX_IMAGE_SIZE / (gdouble) wmf_width, + 0.01, 0.1, 0); + spinbutton = gimp_spin_button_new (xadj, 0.01, 4); + gtk_spin_button_set_numeric (GTK_SPIN_BUTTON (spinbutton), TRUE); + gtk_entry_set_width_chars (GTK_ENTRY (spinbutton), 10); + gtk_table_attach_defaults (GTK_TABLE (table2), spinbutton, 0, 1, 0, 1); + gtk_widget_show (spinbutton); + + g_signal_connect (xadj, "value-changed", + G_CALLBACK (load_dialog_ratio_callback), + NULL); + + label = gtk_label_new_with_mnemonic (_("_X ratio:")); + gtk_label_set_mnemonic_widget (GTK_LABEL (label), spinbutton); + gtk_label_set_xalign (GTK_LABEL (label), 0.0); + gtk_table_attach (GTK_TABLE (table), label, 0, 1, 2, 3, + GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0); + gtk_widget_show (label); + + yadj = (GtkAdjustment *) + gtk_adjustment_new (ratio_y, + (gdouble) GIMP_MIN_IMAGE_SIZE / (gdouble) wmf_height, + (gdouble) GIMP_MAX_IMAGE_SIZE / (gdouble) wmf_height, + 0.01, 0.1, 0); + spinbutton = gimp_spin_button_new (yadj, 0.01, 4); + gtk_spin_button_set_numeric (GTK_SPIN_BUTTON (spinbutton), TRUE); + gtk_entry_set_width_chars (GTK_ENTRY (spinbutton), 10); + gtk_table_attach_defaults (GTK_TABLE (table2), spinbutton, 0, 1, 1, 2); + gtk_widget_show (spinbutton); + + g_signal_connect (yadj, "value-changed", + G_CALLBACK (load_dialog_ratio_callback), + NULL); + + label = gtk_label_new_with_mnemonic (_("_Y ratio:")); + gtk_label_set_mnemonic_widget (GTK_LABEL (label), spinbutton); + gtk_label_set_xalign (GTK_LABEL (label), 0.0); + gtk_table_attach (GTK_TABLE (table), label, 0, 1, 3, 4, + GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0); + gtk_widget_show (label); + + /* the constrain ratio chainbutton */ + constrain = gimp_chain_button_new (GIMP_CHAIN_RIGHT); + gimp_chain_button_set_active (GIMP_CHAIN_BUTTON (constrain), TRUE); + gtk_table_attach_defaults (GTK_TABLE (table2), constrain, 1, 2, 0, 2); + gtk_widget_show (constrain); + + gimp_help_set_help_data (GIMP_CHAIN_BUTTON (constrain)->button, + _("Constrain aspect ratio"), NULL); + + gtk_widget_show (table2); + + /* Resolution */ + label = gtk_label_new (_("Resolution:")); + gtk_label_set_xalign (GTK_LABEL (label), 0.0); + gtk_table_attach (GTK_TABLE (table), label, 0, 1, 4, 5, + GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0); + gtk_widget_show (label); + + res = gimp_size_entry_new (1, GIMP_UNIT_INCH, _("pixels/%a"), + FALSE, FALSE, FALSE, 10, + GIMP_SIZE_ENTRY_UPDATE_RESOLUTION); + gtk_table_set_col_spacing (GTK_TABLE (res), 1, 6); + + gtk_table_attach (GTK_TABLE (table), res, 1, 2, 4, 5, + GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 0); + gtk_widget_show (res); + + /* don't let the resolution become too small ? does libwmf tend to + crash with very small resolutions */ + gimp_size_entry_set_refval_boundaries (GIMP_SIZE_ENTRY (res), 0, + 5.0, GIMP_MAX_RESOLUTION); + gimp_size_entry_set_refval (GIMP_SIZE_ENTRY (res), 0, load_vals.resolution); + + g_signal_connect (res, "value-changed", + G_CALLBACK (load_dialog_resolution_callback), + (gpointer) filename); + + gtk_widget_show (dialog); + + if (gimp_dialog_run (GIMP_DIALOG (dialog)) == GTK_RESPONSE_OK) + { + load_vals.width = ROUND (gimp_size_entry_get_refval (size, 0)); + load_vals.height = ROUND (gimp_size_entry_get_refval (size, 1)); + run = TRUE; + } + + gtk_widget_destroy (GTK_WIDGET (dialog)); + + return run; +} + +static guchar * +pixbuf_gd_convert (const gint *gd_pixels, + gint width, + gint height) +{ + const gint *gd_ptr = gd_pixels; + guchar *pixels; + guchar *px_ptr; + gint i, j; + + pixels = (guchar *) g_try_malloc (width * height * sizeof (guchar) * 4); + if (! pixels) + return NULL; + + px_ptr = pixels; + + for (i = 0; i < height; i++) + for (j = 0; j < width; j++) + { + guchar r, g, b, a; + guint pixel = (guint) (*gd_ptr++); + + b = (guchar) (pixel & 0xff); + pixel >>= 8; + g = (guchar) (pixel & 0xff); + pixel >>= 8; + r = (guchar) (pixel & 0xff); + pixel >>= 7; + a = (guchar) (pixel & 0xfe); + a ^= 0xff; + + *px_ptr++ = r; + *px_ptr++ = g; + *px_ptr++ = b; + *px_ptr++ = a; + } + + return pixels; +} + +static guchar * +wmf_get_pixbuf (const gchar *filename, + gint *width, + gint *height) +{ + GMappedFile *file; + guchar *pixels = NULL; + + /* the bits we need to decode the WMF via libwmf2's GD layer */ + wmf_error_t err; + gulong flags; + wmf_gd_t *ddata = NULL; + wmfAPI *API = NULL; + wmfAPI_Options api_options; + guint file_width; + guint file_height; + wmfD_Rect bbox; + gint *gd_pixels = NULL; + char* wmffontdirs[2] = { NULL, NULL }; + + file = g_mapped_file_new (filename, FALSE, NULL); + if (! file) + return NULL; + + flags = WMF_OPT_IGNORE_NONFATAL | WMF_OPT_FUNCTION; + api_options.function = wmf_gd_function; + +#ifdef ENABLE_RELOCATABLE_RESOURCES + wmffontdirs[0] = g_build_filename (gimp_installation_directory (), + "share/libwmf/fonts", NULL); + flags |= WMF_OPT_FONTDIRS; + api_options.fontdirs = wmffontdirs; +#endif + + err = wmf_api_create (&API, flags, &api_options); + if (wmffontdirs[0]) + g_free (wmffontdirs[0]); + if (err != wmf_E_None) + goto _wmf_error; + + ddata = WMF_GD_GetData (API); + ddata->type = wmf_gd_image; + + err = wmf_mem_open (API, + (guchar *) g_mapped_file_get_contents (file), + g_mapped_file_get_length (file)); + if (err != wmf_E_None) + goto _wmf_error; + + err = wmf_scan (API, 0, &bbox); + if (err != wmf_E_None) + goto _wmf_error; + + err = wmf_display_size (API, &file_width, &file_height, + WMF_DEFAULT_RESOLUTION, WMF_DEFAULT_RESOLUTION); + if (err != wmf_E_None || file_width <= 0 || file_height <= 0) + goto _wmf_error; + + if (!*width || !*height) + goto _wmf_error; + + /* either both arguments negative or none */ + if ((*width * *height) < 0) + goto _wmf_error; + + ddata->bbox = bbox; + + if (*width > 0) + { + ddata->width = *width; + ddata->height = *height; + } + else + { + gdouble w = file_width; + gdouble h = file_height; + gdouble aspect = ((gdouble) *width) / (gdouble) *height; + + if (aspect > (w / h)) + { + ddata->height = abs (*height); + ddata->width = (gdouble) abs (*width) * (w / h) + 0.5; + } + else + { + ddata->width = abs (*width); + ddata->height = (gdouble) abs (*height) / (w / h) + 0.5; + } + } + + err = wmf_play (API, 0, &bbox); + if (err != wmf_E_None) + goto _wmf_error; + + if (ddata->gd_image != NULL) + gd_pixels = wmf_gd_image_pixels (ddata->gd_image); + if (gd_pixels == NULL) + goto _wmf_error; + + pixels = pixbuf_gd_convert (gd_pixels, ddata->width, ddata->height); + if (pixels == NULL) + goto _wmf_error; + + *width = ddata->width; + *height = ddata->height; + + _wmf_error: + if (API) + { + wmf_mem_close (API); + wmf_api_destroy (API); + } + + g_mapped_file_unref (file); + + return pixels; +} + +static guchar * +wmf_load_file (const gchar *filename, + guint *width, + guint *height, + GError **error) +{ + GMappedFile *file; + guchar *pixels = NULL; + + /* the bits we need to decode the WMF via libwmf2's GD layer */ + wmf_error_t err; + gulong flags; + wmf_gd_t *ddata = NULL; + wmfAPI *API = NULL; + wmfAPI_Options api_options; + wmfD_Rect bbox; + gint *gd_pixels = NULL; + char* wmffontdirs[2] = { NULL, NULL }; + + *width = *height = -1; + + file = g_mapped_file_new (filename, FALSE, error); + if (! file) + return NULL; + + flags = WMF_OPT_IGNORE_NONFATAL | WMF_OPT_FUNCTION; + api_options.function = wmf_gd_function; + +#ifdef ENABLE_RELOCATABLE_RESOURCES + wmffontdirs[0] = g_build_filename (gimp_installation_directory (), + "share/libwmf/fonts/", NULL); + flags |= WMF_OPT_FONTDIRS; + api_options.fontdirs = wmffontdirs; +#endif + + err = wmf_api_create (&API, flags, &api_options); + if (wmffontdirs[0]) + g_free (wmffontdirs[0]); + if (err != wmf_E_None) + goto _wmf_error; + + ddata = WMF_GD_GetData (API); + ddata->type = wmf_gd_image; + + err = wmf_mem_open (API, + (guchar *) g_mapped_file_get_contents (file), + g_mapped_file_get_length (file)); + if (err != wmf_E_None) + goto _wmf_error; + + err = wmf_scan (API, 0, &bbox); + if (err != wmf_E_None) + goto _wmf_error; + + err = wmf_display_size (API, + width, height, + load_vals.resolution, load_vals.resolution); + if (err != wmf_E_None || *width <= 0 || *height <= 0) + goto _wmf_error; + + if (load_vals.width > 0 && load_vals.height > 0) + { + *width = load_vals.width; + *height = load_vals.height; + } + + ddata->bbox = bbox; + ddata->width = *width; + ddata->height = *height; + + err = wmf_play (API, 0, &bbox); + if (err != wmf_E_None) + goto _wmf_error; + + if (ddata->gd_image != NULL) + gd_pixels = wmf_gd_image_pixels (ddata->gd_image); + if (gd_pixels == NULL) + goto _wmf_error; + + pixels = pixbuf_gd_convert (gd_pixels, *width, *height); + if (pixels == NULL) + goto _wmf_error; + + _wmf_error: + if (API) + { + wmf_mem_close (API); + wmf_api_destroy (API); + } + + g_mapped_file_unref (file); + + /* FIXME: improve error message */ + g_set_error (error, G_FILE_ERROR, G_FILE_ERROR_FAILED, + _("Could not open '%s' for reading"), + gimp_filename_to_utf8 (filename)); + + return pixels; +} + +/* + * 'load_image()' - Load a WMF image into a new image window. + */ +static gint32 +load_image (const gchar *filename, + GError **error) +{ + gint32 image; + gint32 layer; + GeglBuffer *buffer; + guchar *pixels; + guint width, height; + + gimp_progress_init_printf (_("Opening '%s'"), + gimp_filename_to_utf8 (filename)); + + pixels = wmf_load_file (filename, &width, &height, error); + + if (! pixels) + return -1; + + image = gimp_image_new (width, height, GIMP_RGB); + gimp_image_set_filename (image, filename); + gimp_image_set_resolution (image, + load_vals.resolution, load_vals.resolution); + + layer = gimp_layer_new (image, + _("Rendered WMF"), + width, height, + GIMP_RGBA_IMAGE, + 100, + gimp_image_get_default_new_layer_mode (image)); + + buffer = gimp_drawable_get_buffer (layer); + + gegl_buffer_set (buffer, GEGL_RECTANGLE (0, 0, width, height), 0, + babl_format ("R'G'B'A u8"), + pixels, GEGL_AUTO_ROWSTRIDE); + + g_object_unref (buffer); + + g_free (pixels); + + gimp_image_insert_layer (image, layer, -1, 0); + + gimp_progress_update (1.0); + + return image; +} |