/* GIF exporting file filter for GIMP * * Copyright * - Adam D. Moss * - Peter Mattis * - Spencer Kimball * * Based around original GIF code by David Koblas. * * * Version 4.1.0 - 2003-06-16 * Adam D. Moss - */ /* * This filter uses code taken from the "giftopnm" and "ppmtogif" programs * which are part of the "netpbm" package. */ /* * "The Graphics Interchange Format(c) is the Copyright property of * CompuServe Incorporated. GIF(sm) is a Service Mark property of * CompuServe Incorporated." */ /* Copyright notice for GIF code from which this plugin was long ago */ /* derived (David Koblas has granted permission to relicense): */ /* +-------------------------------------------------------------------+ */ /* | Copyright 1990, 1991, 1993, David Koblas. (koblas@extra.com) | */ /* +-------------------------------------------------------------------+ */ #include "config.h" #include #include #include #include "libgimp/stdplugins-intl.h" #define SAVE_PROC "file-gif-save" #define SAVE2_PROC "file-gif-save2" #define PLUG_IN_BINARY "file-gif-save" #define PLUG_IN_ROLE "gimp-file-gif-save" /* uncomment the line below for a little debugging info */ /* #define GIFDEBUG yesplease */ enum { DISPOSE_STORE_VALUE_COLUMN, DISPOSE_STORE_LABEL_COLUMN }; enum { DISPOSE_UNSPECIFIED, DISPOSE_COMBINE, DISPOSE_REPLACE }; typedef struct { gint interlace; gint save_comment; gint loop; gint default_delay; gint default_dispose; gboolean always_use_default_delay; gboolean always_use_default_dispose; gboolean as_animation; } GIFSaveVals; /* Declare some local functions. */ static void query (void); static void run (const gchar *name, gint nparams, const GimpParam *param, gint *nreturn_vals, GimpParam **return_vals); static gboolean save_image (GFile *file, gint32 image_ID, gint32 drawable_ID, gint32 orig_image_ID, GError **error); static GimpPDBStatusType sanity_check (GFile *file, gint32 *image_ID, GimpRunMode run_mode, GError **error); static gboolean bad_bounds_dialog (void); static gboolean save_dialog (gint32 image_ID); static void comment_entry_callback (GtkTextBuffer *buffer); static gboolean comment_was_edited = FALSE; static gchar *globalcomment = NULL; static gint Interlace; /* For compression code */ const GimpPlugInInfo PLUG_IN_INFO = { NULL, /* init_proc */ NULL, /* quit_proc */ query, /* query_proc */ run, /* run_proc */ }; static GIFSaveVals gsvals = { FALSE, /* interlace */ TRUE, /* save comment */ TRUE, /* loop infinitely */ 100, /* default_delay between frames (100ms) */ 0, /* default_dispose = "don't care" */ FALSE, /* don't always use default_delay */ FALSE, /* don't always use default_dispose */ FALSE /* as_animation */ }; MAIN () #define COMMON_SAVE_ARGS \ { GIMP_PDB_INT32, "run-mode", "The run mode { RUN-INTERACTIVE (0), RUN-NONINTERACTIVE (1) }" }, \ { GIMP_PDB_IMAGE, "image", "Image to export" }, \ { GIMP_PDB_DRAWABLE, "drawable", "Drawable to export" }, \ { GIMP_PDB_STRING, "uri", "The name of the URI to export the image in" }, \ { GIMP_PDB_STRING, "raw-uri", "The name of the URI to export the image in" }, \ { GIMP_PDB_INT32, "interlace", "Try to export as interlaced" }, \ { GIMP_PDB_INT32, "loop", "(animated gif) loop infinitely" }, \ { GIMP_PDB_INT32, "default-delay", "(animated gif) Default delay between frames in milliseconds" }, \ { GIMP_PDB_INT32, "default-dispose", "(animated gif) Default disposal type (0=`don't care`, 1=combine, 2=replace)" } static void query (void) { static const GimpParamDef save_args[] = { COMMON_SAVE_ARGS }; static const GimpParamDef save2_args[] = { COMMON_SAVE_ARGS, { GIMP_PDB_INT32, "as-animation", "Export GIF as animation?" }, { GIMP_PDB_INT32, "force-delay", "(animated gif) Use specified delay for all frames?" }, { GIMP_PDB_INT32, "force-dispose", "(animated gif) Use specified disposal for all frames?" } }; gimp_install_procedure (SAVE_PROC, "exports files in Compuserve GIF file format", "Export a file in Compuserve GIF format, with " "possible animation, transparency, and comment. " "To export an animation, operate on a multi-layer " "file. The plug-in will interpret <50% alpha as " "transparent. When run non-interactively, the " "value for the comment is taken from the " "'gimp-comment' parasite. ", "Spencer Kimball, Peter Mattis, Adam Moss, David Koblas", "Spencer Kimball, Peter Mattis, Adam Moss, David Koblas", "1995-1997", N_("GIF image"), "INDEXED*, GRAY*", GIMP_PLUGIN, G_N_ELEMENTS (save_args), 0, save_args, NULL); gimp_install_procedure (SAVE2_PROC, "exports files in Compuserve GIF file format", "Export a file in Compuserve GIF format, with " "possible animation, transparency, and comment. " "To export an animation, operate on a multi-layer " "file and give the 'as-animation' parameter " "as TRUE. The plug-in will interpret <50% " "alpha as transparent. When run " "non-interactively, the value for the comment " "is taken from the 'gimp-comment' parasite. ", "Spencer Kimball, Peter Mattis, Adam Moss, David Koblas", "Spencer Kimball, Peter Mattis, Adam Moss, David Koblas", "1995-1997", N_("GIF image"), "INDEXED*, GRAY*", GIMP_PLUGIN, G_N_ELEMENTS (save2_args), 0, save2_args, NULL); gimp_register_file_handler_mime (SAVE_PROC, "image/gif"); gimp_register_save_handler (SAVE_PROC, "gif", ""); gimp_register_file_handler_uri (SAVE_PROC); gimp_register_file_handler_uri (SAVE2_PROC); } static void run (const gchar *name, gint nparams, const GimpParam *param, gint *nreturn_vals, GimpParam **return_vals) { static GimpParam values[2]; GimpRunMode run_mode; GimpPDBStatusType status = GIMP_PDB_SUCCESS; GimpExportReturn export = GIMP_EXPORT_CANCEL; GError *error = NULL; 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, SAVE_PROC) == 0 || strcmp (name, SAVE2_PROC) == 0) { GFile *file; gint32 image_ID; gint32 orig_image_ID; gint32 sanitized_image_ID = 0; gint32 drawable_ID; image_ID = orig_image_ID = param[1].data.d_int32; drawable_ID = param[2].data.d_int32; file = g_file_new_for_uri (param[3].data.d_string); if (run_mode == GIMP_RUN_INTERACTIVE || run_mode == GIMP_RUN_WITH_LAST_VALS) gimp_ui_init (PLUG_IN_BINARY, FALSE); status = sanity_check (file, &image_ID, run_mode, &error); /* Get the export options */ if (status == GIMP_PDB_SUCCESS) { /* If the sanity check succeeded, the image_ID will point to * a duplicate image to delete later. */ sanitized_image_ID = image_ID; switch (run_mode) { case GIMP_RUN_INTERACTIVE: /* Possibly retrieve data */ gimp_get_data (SAVE_PROC, &gsvals); /* First acquire information with a dialog */ if (! save_dialog (image_ID)) { gimp_image_delete (sanitized_image_ID); status = GIMP_PDB_CANCEL; } break; case GIMP_RUN_NONINTERACTIVE: /* Make sure all the arguments are there! */ if (nparams != 9 && nparams != 12) { status = GIMP_PDB_CALLING_ERROR; } else { gsvals.interlace = (param[5].data.d_int32) ? TRUE : FALSE; gsvals.save_comment = TRUE; /* no way to to specify that through the PDB */ gsvals.loop = (param[6].data.d_int32) ? TRUE : FALSE; gsvals.default_delay = param[7].data.d_int32; gsvals.default_dispose = param[8].data.d_int32; if (nparams == 12) { gsvals.as_animation = (param[9].data.d_int32) ? TRUE : FALSE; gsvals.always_use_default_delay = (param[10].data.d_int32) ? TRUE : FALSE; gsvals.always_use_default_dispose = (param[11].data.d_int32) ? TRUE : FALSE; } } break; case GIMP_RUN_WITH_LAST_VALS: /* Possibly retrieve data */ gimp_get_data (SAVE_PROC, &gsvals); break; default: break; } } if (status == GIMP_PDB_SUCCESS) { /* Create an exportable image based on the export options */ switch (run_mode) { case GIMP_RUN_INTERACTIVE: case GIMP_RUN_WITH_LAST_VALS: { GimpExportCapabilities capabilities = GIMP_EXPORT_CAN_HANDLE_INDEXED | GIMP_EXPORT_CAN_HANDLE_GRAY | GIMP_EXPORT_CAN_HANDLE_ALPHA; if (gsvals.as_animation) capabilities |= GIMP_EXPORT_CAN_HANDLE_LAYERS; export = gimp_export_image (&image_ID, &drawable_ID, "GIF", capabilities); if (export == GIMP_EXPORT_CANCEL) { values[0].data.d_status = GIMP_PDB_CANCEL; if (sanitized_image_ID) gimp_image_delete (sanitized_image_ID); return; } } break; default: break; } /* Write the image to file */ if (save_image (file, image_ID, drawable_ID, orig_image_ID, &error)) { /* Store psvals data */ gimp_set_data (SAVE_PROC, &gsvals, sizeof (GIFSaveVals)); } else { status = GIMP_PDB_EXECUTION_ERROR; } gimp_image_delete (sanitized_image_ID); } if (export == GIMP_EXPORT_EXPORT) gimp_image_delete (image_ID); g_object_unref (file); } 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; } /* ppmtogif.c - read a portable pixmap and produce a GIF file ** ** Based on GIFENCOD by David Rowley . A ** Lempel-Ziv compression based on "compress". ** ** Modified by Marcel Wijkstra ** ** ** Copyright (C) 1989 by Jef Poskanzer. ** ** Permission to use, copy, modify, and distribute this software and its ** documentation for any purpose and without fee is hereby granted, provided ** that the above copyright notice appear in all copies and that both that ** copyright notice and this permission notice appear in supporting ** documentation. This software is provided "as is" without express or ** implied warranty. ** ** The Graphics Interchange Format(c) is the Copyright property of ** CompuServe Incorporated. GIF(sm) is a Service Mark property of ** CompuServe Incorporated. */ #define MAXCOLORS 256 /* * Pointer to function returning an int */ typedef gint (* ifunptr) (gint x, gint y); static gint find_unused_ia_color (const guchar *pixels, gint numpixels, gint num_indices, gint *colors); static void special_flatten_indexed_alpha (guchar *pixels, gint transparent, gint numpixels); static gint colors_to_bpp (gint colors); static gint bpp_to_colors (gint bpp); static gint get_pixel (gint x, gint y); static gint gif_next_pixel (ifunptr getpixel); static void bump_pixel (void); static gboolean gif_encode_header (GOutputStream *output, gboolean gif89, gint width, gint height, gint background, gint bpp, gint *red, gint *green, gint *blue, ifunptr get_pixel, GError **error); static gboolean gif_encode_graphic_control_ext (GOutputStream *output, gint disposal, gint delay89, gint n_frames, gint width, gint height, gint transparent, gint bpp, ifunptr get_pixel, GError **error); static gboolean gif_encode_image_data (GOutputStream *output, gint width, gint height, gint interlace, gint bpp, ifunptr get_pixel, gint offset_x, gint offset_y, GError **error); static gboolean gif_encode_close (GOutputStream *output, GError **error); static gboolean gif_encode_loop_ext (GOutputStream *output, guint n_loops, GError **error); static gboolean gif_encode_comment_ext (GOutputStream *output, const gchar *comment, GError **error); static gint rowstride; static guchar *pixels; static gint cur_progress; static gint max_progress; static gboolean compress (GOutputStream *output, gint init_bits, ifunptr ReadValue, GError **error); static gboolean no_compress (GOutputStream *output, gint init_bits, ifunptr ReadValue, GError **error); static gboolean rle_compress (GOutputStream *output, gint init_bits, ifunptr ReadValue, GError **error); static gboolean normal_compress (GOutputStream *output, gint init_bits, ifunptr ReadValue, GError **error); static gboolean put_byte (GOutputStream *output, guchar b, GError **error); static gboolean put_word (GOutputStream *output, gint w, GError **error); static gboolean put_string (GOutputStream *output, const gchar *s, GError **error); static gboolean output_code (GOutputStream *output, gint code, GError **error); static gboolean cl_block (GOutputStream *output, GError **error); static void cl_hash (glong hsize); static void char_init (void); static gboolean char_out (GOutputStream *output, gint c, GError **error); static gboolean char_flush (GOutputStream *output, GError **error); static gint find_unused_ia_color (const guchar *pixels, gint numpixels, gint num_indices, gint *colors) { gboolean ix_used[256]; gint i; #ifdef GIFDEBUG g_printerr ("GIF: fuiac: Image claims to use %d/%d indices - finding free " "index...\n", *colors, num_indices); #endif for (i = 0; i < 256; i++) ix_used[i] = FALSE; for (i = 0; i < numpixels; i++) { if (pixels[i * 2 + 1]) ix_used[pixels[i * 2]] = TRUE; } for (i = num_indices - 1; i >= 0; i--) { if (! ix_used[i]) { #ifdef GIFDEBUG g_printerr ("GIF: Found unused color index %d.\n", (int) i); #endif return i; } } /* Couldn't find an unused color index within the number of bits per * pixel we wanted. Will have to increment the number of colors in * the image and assign a transparent pixel there. */ if (*colors < 256) { (*colors)++; g_printerr ("GIF: 2nd pass " "- Increasing bounds and using color index %d.\n", *colors - 1); return ((*colors) - 1); } g_message (_("Couldn't simply reduce colors further. Exporting as opaque.")); return -1; } static void special_flatten_indexed_alpha (guchar *pixels, gint transparent, gint numpixels) { guint32 i; /* Each transparent pixel in the image is mapped to a uniform value * for encoding, if image already has <=255 colors */ if (transparent == -1) /* tough, no indices left for the trans. index */ { for (i = 0; i < numpixels; i++) pixels[i] = pixels[i * 2]; } else /* make transparent */ { for (i = 0; i < numpixels; i++) { if (! (pixels[i * 2 + 1] & 128)) { pixels[i] = (guchar) transparent; } else { pixels[i] = pixels[i * 2]; } } } } static gint parse_ms_tag (const gchar *str) { gint sum = 0; gint offset = 0; gint length; length = strlen (str); find_another_bra: while ((offset < length) && (str[offset] != '(')) offset++; if (offset >= length) return(-1); if (! g_ascii_isdigit (str[++offset])) goto find_another_bra; do { sum *= 10; sum += str[offset] - '0'; offset++; } while ((offset < length) && (g_ascii_isdigit (str[offset]))); if (length - offset <= 2) return(-3); if ((g_ascii_toupper (str[offset]) != 'M') || (g_ascii_toupper (str[offset + 1]) != 'S')) return -4; return sum; } static gint parse_disposal_tag (const gchar *str) { gint offset = 0; gint length; length = strlen (str); while ((offset + 9) <= length) { if (strncmp (&str[offset], "(combine)", 9) == 0) return 0x01; if (strncmp (&str[offset], "(replace)", 9) == 0) return 0x02 ; offset++; } return gsvals.default_dispose; } static GimpPDBStatusType sanity_check (GFile *file, gint32 *image_ID, GimpRunMode run_mode, GError **error) { gint32 *layers; gint nlayers; gint image_width; gint image_height; gint i; image_width = gimp_image_width (*image_ID); image_height = gimp_image_height (*image_ID); if (image_width > G_MAXUSHORT || image_height > G_MAXUSHORT) { g_set_error (error, 0, 0, _("Unable to export '%s'. " "The GIF file format does not support images that are " "more than %d pixels wide or tall."), gimp_file_get_utf8_name (file), G_MAXUSHORT); return GIMP_PDB_EXECUTION_ERROR; } /*** Iterate through the layers to make sure they're all ***/ /*** within the bounds of the image ***/ *image_ID = gimp_image_duplicate (*image_ID); layers = gimp_image_get_layers (*image_ID, &nlayers); for (i = 0; i < nlayers; i++) { gint offset_x; gint offset_y; gimp_drawable_offsets (layers[i], &offset_x, &offset_y); if (offset_x < 0 || offset_y < 0 || offset_x + gimp_drawable_width (layers[i]) > image_width || offset_y + gimp_drawable_height (layers[i]) > image_height) { g_free (layers); /* Image has illegal bounds - ask the user what it wants to do */ /* Do the crop if we can't talk to the user, or if we asked * the user and they said yes. */ if ((run_mode == GIMP_RUN_NONINTERACTIVE) || bad_bounds_dialog ()) { gimp_image_crop (*image_ID, image_width, image_height, 0, 0); return GIMP_PDB_SUCCESS; } else { gimp_image_delete (*image_ID); return GIMP_PDB_CANCEL; } } } g_free (layers); return GIMP_PDB_SUCCESS; } static gboolean save_image (GFile *file, gint32 image_ID, gint32 drawable_ID, gint32 orig_image_ID, GError **error) { GeglBuffer *buffer; GimpImageType drawable_type; const Babl *format = NULL; GOutputStream *output; gint Red[MAXCOLORS]; gint Green[MAXCOLORS]; gint Blue[MAXCOLORS]; guchar *cmap; guint rows, cols; gint BitsPerPixel; gint liberalBPP = 0; gint useBPP = 0; gint colors; gint i; gint transparent; gint offset_x, offset_y; gint32 *layers; gint nlayers; gboolean is_gif89 = FALSE; gint Delay89; gint Disposal; gchar *layer_name; GimpRGB background; guchar bgred, bggreen, bgblue; guchar bgindex = 0; guint best_error = 0xFFFFFFFF; /* Save the comment back to the ImageID, if appropriate */ if (globalcomment != NULL && comment_was_edited) { GimpParasite *parasite; parasite = gimp_parasite_new ("gimp-comment", GIMP_PARASITE_PERSISTENT, strlen (globalcomment) + 1, (gpointer) globalcomment); gimp_image_attach_parasite (orig_image_ID, parasite); gimp_parasite_free (parasite); } /* The GIF spec says 7bit ASCII for the comment block. */ if (gsvals.save_comment && globalcomment) { const gchar *c = globalcomment; gint len; for (len = strlen (c); len; c++, len--) { if ((guchar) *c > 127) { g_message (_("The GIF format only supports comments in " "7bit ASCII encoding. No comment is saved.")); g_free (globalcomment); globalcomment = NULL; break; } } } /* get a list of layers for this image_ID */ layers = gimp_image_get_layers (image_ID, &nlayers); drawable_type = gimp_drawable_type (layers[0]); /* If the image has multiple layers (i.e. will be animated), a * comment, or transparency, then it must be encoded as a GIF89a * file, not a vanilla GIF87a. */ if (nlayers > 1) { is_gif89 = TRUE; /* Layers can be with or without alpha channel. Make sure we set * alpha if there is at least one layer with alpha channel. */ if (drawable_type == GIMP_GRAY_IMAGE || drawable_type == GIMP_INDEXED_IMAGE) { for (i = nlayers - 1; i >= 0; i--) { GimpImageType dr_type = gimp_drawable_type (layers[i]); if (dr_type == GIMP_GRAYA_IMAGE || dr_type == GIMP_INDEXEDA_IMAGE) { drawable_type = dr_type; break; } } } } if (gsvals.save_comment) is_gif89 = TRUE; switch (drawable_type) { case GIMP_INDEXEDA_IMAGE: is_gif89 = TRUE; case GIMP_INDEXED_IMAGE: cmap = gimp_image_get_colormap (image_ID, &colors); gimp_context_get_background (&background); gimp_rgb_get_uchar (&background, &bgred, &bggreen, &bgblue); for (i = 0; i < colors; i++) { Red[i] = *cmap++; Green[i] = *cmap++; Blue[i] = *cmap++; } for ( ; i < 256; i++) { Red[i] = bgred; Green[i] = bggreen; Blue[i] = bgblue; } break; case GIMP_GRAYA_IMAGE: is_gif89 = TRUE; case GIMP_GRAY_IMAGE: colors = 256; /* FIXME: Not ideal. */ for ( i = 0; i < 256; i++) { Red[i] = Green[i] = Blue[i] = i; } break; default: g_message (_("Cannot export RGB color images. Convert to " "indexed color or grayscale first.")); return FALSE; } /* find earliest index in palette which is closest to the background * color, and ATTEMPT to use that as the GIF's default background * color. */ for (i = 255; i >= 0; --i) { guint local_error = 0; local_error += (Red[i] - bgred) * (Red[i] - bgred); local_error += (Green[i] - bggreen) * (Green[i] - bggreen); local_error += (Blue[i] - bgblue) * (Blue[i] - bgblue); if (local_error <= best_error) { bgindex = i; best_error = local_error; } } /* init the progress meter */ gimp_progress_init_printf (_("Exporting '%s'"), gimp_file_get_utf8_name (file)); /* open the destination file for writing */ output = G_OUTPUT_STREAM (g_file_replace (file, NULL, FALSE, G_FILE_CREATE_NONE, NULL, error)); if (output) { GDataOutputStream *data_output; data_output = g_data_output_stream_new (output); g_object_unref (output); g_data_output_stream_set_byte_order (data_output, G_DATA_STREAM_BYTE_ORDER_LITTLE_ENDIAN); output = G_OUTPUT_STREAM (data_output); } else { return FALSE; } /* write the GIFheader */ if (colors < 256) { /* we keep track of how many bits we promised to have in * liberalBPP, so that we don't accidentally come under this * when doing clever transparency stuff where we can re-use * wasted indices. */ liberalBPP = BitsPerPixel = colors_to_bpp (colors + ((drawable_type==GIMP_INDEXEDA_IMAGE) ? 1 : 0)); } else { liberalBPP = BitsPerPixel = colors_to_bpp (256); if (drawable_type == GIMP_INDEXEDA_IMAGE) { g_printerr ("GIF: Too many colors?\n"); } } cols = gimp_image_width (image_ID); rows = gimp_image_height (image_ID); Interlace = gsvals.interlace; if (! gif_encode_header (output, is_gif89, cols, rows, bgindex, BitsPerPixel, Red, Green, Blue, get_pixel, error)) return FALSE; /* If the image has multiple layers it'll be made into an animated * GIF, so write out the infinite-looping extension */ if ((nlayers > 1) && (gsvals.loop)) if (! gif_encode_loop_ext (output, 0, error)) return FALSE; /* Write comment extension - mustn't be written before the looping ext. */ if (gsvals.save_comment && globalcomment) { if (! gif_encode_comment_ext (output, globalcomment, error)) return FALSE; } /*** Now for each layer in the image, save an image in a compound GIF ***/ /************************************************************************/ cur_progress = 0; max_progress = nlayers * rows; for (i = nlayers - 1; i >= 0; i--, cur_progress = (nlayers - i) * rows) { drawable_type = gimp_drawable_type (layers[i]); if (drawable_type == GIMP_GRAYA_IMAGE) { format = babl_format ("Y'A u8"); } else if (drawable_type == GIMP_GRAY_IMAGE) { format = babl_format ("Y' u8"); } buffer = gimp_drawable_get_buffer (layers[i]); gimp_drawable_offsets (layers[i], &offset_x, &offset_y); cols = gimp_drawable_width (layers[i]); rows = gimp_drawable_height (layers[i]); rowstride = cols; pixels = g_new (guchar, (cols * rows * (((drawable_type == GIMP_INDEXEDA_IMAGE) || (drawable_type == GIMP_GRAYA_IMAGE)) ? 2 : 1))); gegl_buffer_get (buffer, GEGL_RECTANGLE (0, 0, cols, rows), 1.0, format, pixels, GEGL_AUTO_ROWSTRIDE, GEGL_ABYSS_NONE); /* sort out whether we need to do transparency jiggery-pokery */ if ((drawable_type == GIMP_INDEXEDA_IMAGE) || (drawable_type == GIMP_GRAYA_IMAGE)) { /* Try to find an entry which isn't actually used in the * image, for a transparency index. */ transparent = find_unused_ia_color (pixels, cols * rows, bpp_to_colors (colors_to_bpp (colors)), &colors); special_flatten_indexed_alpha (pixels, transparent, cols * rows); } else { transparent = -1; } BitsPerPixel = colors_to_bpp (colors); if (BitsPerPixel != liberalBPP) { /* We were able to re-use an index within the existing * bitspace, whereas the estimate in the header was * pessimistic but still needs to be upheld... */ #ifdef GIFDEBUG static gboolean onceonly = FALSE; if (! onceonly) { g_warning ("Promised %d bpp, pondered writing chunk with %d bpp!", liberalBPP, BitsPerPixel); onceonly = TRUE; } #endif } useBPP = (BitsPerPixel > liberalBPP) ? BitsPerPixel : liberalBPP; if (is_gif89) { if (i > 0 && ! gsvals.always_use_default_dispose) { layer_name = gimp_item_get_name (layers[i - 1]); Disposal = parse_disposal_tag (layer_name); g_free (layer_name); } else { Disposal = gsvals.default_dispose; } layer_name = gimp_item_get_name (layers[i]); Delay89 = parse_ms_tag (layer_name); g_free (layer_name); if (Delay89 < 0 || gsvals.always_use_default_delay) Delay89 = (gsvals.default_delay + 5) / 10; else Delay89 = (Delay89 + 5) / 10; /* don't allow a CPU-sucking completely 0-delay looping anim */ if ((nlayers > 1) && gsvals.loop && (Delay89 == 0)) { static gboolean onceonly = FALSE; if (! onceonly) { g_message (_("Delay inserted to prevent evil " "CPU-sucking animation.")); onceonly = TRUE; } Delay89 = 1; } if (! gif_encode_graphic_control_ext (output, Disposal, Delay89, nlayers, cols, rows, transparent, useBPP, get_pixel, error)) return FALSE; } if (! gif_encode_image_data (output, cols, rows, (rows > 4) ? gsvals.interlace : 0, useBPP, get_pixel, offset_x, offset_y, error)) return FALSE; gimp_progress_update (1.0); g_object_unref (buffer); g_free (pixels); } g_free (layers); if (! gif_encode_close (output, error)) return FALSE; return TRUE; } static gboolean bad_bounds_dialog (void) { GtkWidget *dialog; gboolean crop; dialog = gtk_message_dialog_new (NULL, 0, GTK_MESSAGE_WARNING, GTK_BUTTONS_NONE, _("The image you are trying to export as a " "GIF contains layers which extend beyond " "the actual borders of the image.")); gtk_dialog_add_buttons (GTK_DIALOG (dialog), _("_Cancel"), GTK_RESPONSE_CANCEL, _("Cr_op"), GTK_RESPONSE_OK, NULL); gtk_dialog_set_alternative_button_order (GTK_DIALOG (dialog), GTK_RESPONSE_OK, GTK_RESPONSE_CANCEL, -1); gimp_window_set_transient (GTK_WINDOW (dialog)); gtk_message_dialog_format_secondary_text (GTK_MESSAGE_DIALOG (dialog), _("The GIF file format does not " "allow this. You may choose " "whether to crop all of the " "layers to the image borders, " "or cancel this export.")); gtk_widget_show (dialog); crop = (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_OK); gtk_widget_destroy (dialog); return crop; } static GtkWidget * file_gif_toggle_button_init (GtkBuilder *builder, const gchar *name, gboolean initial_value, gboolean *value_pointer) { GtkWidget *toggle = NULL; toggle = GTK_WIDGET (gtk_builder_get_object (builder, name)); gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (toggle), initial_value); g_signal_connect (toggle, "toggled", G_CALLBACK (gimp_toggle_button_update), value_pointer); return toggle; } static GtkWidget * file_gif_spin_button_int_init (GtkBuilder *builder, const gchar *name, int initial_value, int *value_pointer) { GtkWidget *spin_button = NULL; GtkAdjustment *adjustment = NULL; spin_button = GTK_WIDGET (gtk_builder_get_object (builder, name)); adjustment = gtk_spin_button_get_adjustment (GTK_SPIN_BUTTON (spin_button)); gtk_adjustment_set_value (adjustment, initial_value); g_signal_connect (adjustment, "value-changed", G_CALLBACK (gimp_int_adjustment_update), value_pointer); return spin_button; } static void file_gif_combo_box_int_update_value (GtkComboBox *combo, gint *value) { GtkTreeIter iter; if (gtk_combo_box_get_active_iter (GTK_COMBO_BOX (combo), &iter)) { gtk_tree_model_get (gtk_combo_box_get_model (GTK_COMBO_BOX (combo)), &iter, DISPOSE_STORE_VALUE_COLUMN, value, -1); } } static GtkWidget * file_gif_combo_box_int_init (GtkBuilder *builder, const gchar *name, int initial_value, int *value_pointer, const gchar *first_label, gint first_value, ...) { GtkWidget *combo = NULL; GtkListStore *store = NULL; const gchar *label = NULL; gint value = 0; GtkTreeIter iter = { 0, }; va_list values; combo = GTK_WIDGET (gtk_builder_get_object (builder, name)); store = GTK_LIST_STORE (gtk_combo_box_get_model (GTK_COMBO_BOX (combo))); /* Populate */ va_start (values, first_value); for (label = first_label, value = first_value; label; label = va_arg (values, const gchar *), value = va_arg (values, gint)) { gtk_list_store_append (store, &iter); gtk_list_store_set (store, &iter, DISPOSE_STORE_VALUE_COLUMN, value, DISPOSE_STORE_LABEL_COLUMN, label, -1); } va_end (values); /* Set initial value */ gtk_tree_model_iter_nth_child (GTK_TREE_MODEL (store), &iter, NULL, initial_value); gtk_combo_box_set_active_iter (GTK_COMBO_BOX (combo), &iter); /* Arrange update of value */ g_signal_connect (combo, "changed", G_CALLBACK (file_gif_combo_box_int_update_value), value_pointer); return combo; } static gboolean save_dialog (gint32 image_ID) { GtkBuilder *builder = NULL; gchar *ui_file = NULL; GError *error = NULL; GtkWidget *dialog; GtkWidget *text_view; GtkTextBuffer *text_buffer; GtkWidget *toggle; GtkWidget *frame; GimpParasite *GIF2_CMNT; gint32 nlayers; gboolean animation_supported = FALSE; gboolean run; g_free (gimp_image_get_layers (image_ID, &nlayers)); animation_supported = nlayers > 1; dialog = gimp_export_dialog_new (_("GIF"), PLUG_IN_BINARY, SAVE_PROC); /* GtkBuilder init */ builder = gtk_builder_new (); ui_file = g_build_filename (gimp_data_directory (), "ui/plug-ins/plug-in-file-gif.ui", NULL); if (! gtk_builder_add_from_file (builder, ui_file, &error)) g_printerr (_("Error loading UI file '%s':\n%s"), ui_file, error ? error->message : "???"); g_free (ui_file); /* Main vbox */ gtk_box_pack_start (GTK_BOX (gimp_export_dialog_get_content_area (dialog)), GTK_WIDGET (gtk_builder_get_object (builder, "main-vbox")), TRUE, TRUE, 0); /* regular gif parameter settings */ file_gif_toggle_button_init (builder, "interlace", gsvals.interlace, &gsvals.interlace); file_gif_toggle_button_init (builder, "save-comment", gsvals.save_comment, &gsvals.save_comment); file_gif_toggle_button_init (builder, "as-animation", gsvals.as_animation, &gsvals.as_animation); text_view = GTK_WIDGET (gtk_builder_get_object (builder, "comment")); text_buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (text_view)); if (globalcomment) g_free (globalcomment); GIF2_CMNT = gimp_image_get_parasite (image_ID, "gimp-comment"); if (GIF2_CMNT) { globalcomment = g_strndup (gimp_parasite_data (GIF2_CMNT), gimp_parasite_data_size (GIF2_CMNT)); gimp_parasite_free (GIF2_CMNT); } else { globalcomment = gimp_get_default_comment (); } if (globalcomment) gtk_text_buffer_set_text (text_buffer, globalcomment, -1); g_signal_connect (text_buffer, "changed", G_CALLBACK (comment_entry_callback), NULL); /* additional animated gif parameter settings */ file_gif_toggle_button_init (builder, "loop-forever", gsvals.loop, &gsvals.loop); /* default_delay entry field */ file_gif_spin_button_int_init (builder, "delay-spin", gsvals.default_delay, &gsvals.default_delay); /* Disposal selector */ file_gif_combo_box_int_init (builder, "dispose-combo", gsvals.default_dispose, &gsvals.default_dispose, _("I don't care"), DISPOSE_UNSPECIFIED, _("Cumulative layers (combine)"), DISPOSE_COMBINE, _("One frame per layer (replace)"), DISPOSE_REPLACE, NULL); /* The "Always use default values" toggles */ file_gif_toggle_button_init (builder, "use-default-delay", gsvals.always_use_default_delay, &gsvals.always_use_default_delay); file_gif_toggle_button_init (builder, "use-default-dispose", gsvals.always_use_default_dispose, &gsvals.always_use_default_dispose); frame = GTK_WIDGET (gtk_builder_get_object (builder, "animation-frame")); toggle = GTK_WIDGET (gtk_builder_get_object (builder, "as-animation")); if (! animation_supported) { gimp_help_set_help_data (toggle, _("You can only export as animation when the " "image has more than one layer. The image " "you are trying to export only has one " "layer."), NULL); /* Make sure the checkbox is not checked from session data. */ gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (toggle), FALSE); } gtk_widget_set_sensitive (toggle, animation_supported); g_object_bind_property (toggle, "active", frame, "sensitive", G_BINDING_SYNC_CREATE); gtk_widget_show (dialog); run = (gimp_dialog_run (GIMP_DIALOG (dialog)) == GTK_RESPONSE_OK); gtk_widget_destroy (dialog); return run; } static int colors_to_bpp (gint colors) { gint bpp; if (colors <= 2) bpp = 1; else if (colors <= 4) bpp = 2; else if (colors <= 8) bpp = 3; else if (colors <= 16) bpp = 4; else if (colors <= 32) bpp = 5; else if (colors <= 64) bpp = 6; else if (colors <= 128) bpp = 7; else if (colors <= 256) bpp = 8; else { g_warning ("GIF: colors_to_bpp - Eep! too many colors: %d\n", colors); return 8; } return bpp; } static int bpp_to_colors (gint bpp) { gint colors; if (bpp > 8) { g_warning ("GIF: bpp_to_colors - Eep! bpp==%d !\n", bpp); return 256; } colors = 1 << bpp; return colors; } static gint get_pixel (gint x, gint y) { return *(pixels + (rowstride * (long) y) + (long) x); } /***************************************************************************** * * GIFENCODE.C - GIF Image compression interface * * GIFEncode( FName, GHeight, GWidth, GInterlace, Background, Transparent, * BitsPerPixel, Red, Green, Blue, get_pixel ) * *****************************************************************************/ static gint Width, Height; static gint curx, cury; static glong CountDown; static gint Pass = 0; /* * Bump the 'curx' and 'cury' to point to the next pixel */ static void bump_pixel (void) { /* * Bump the current X position */ curx++; /* * If we are at the end of a scan line, set curx back to the beginning * If we are interlaced, bump the cury to the appropriate spot, * otherwise, just increment it. */ if (curx == Width) { cur_progress++; if ((cur_progress % 20) == 0) gimp_progress_update ((gdouble) cur_progress / (gdouble) max_progress); curx = 0; if (! Interlace) ++cury; else { switch (Pass) { case 0: cury += 8; if (cury >= Height) { Pass++; cury = 4; } break; case 1: cury += 8; if (cury >= Height) { Pass++; cury = 2; } break; case 2: cury += 4; if (cury >= Height) { Pass++; cury = 1; } break; case 3: cury += 2; break; } } } } /* * Return the next pixel from the image */ static gint gif_next_pixel (ifunptr getpixel) { gint r; if (CountDown == 0) return EOF; --CountDown; r = (*getpixel) (curx, cury); bump_pixel (); return r; } /* public */ static gboolean gif_encode_header (GOutputStream *output, gboolean gif89, gint GWidth, gint GHeight, gint Background, gint BitsPerPixel, gint Red[], gint Green[], gint Blue[], ifunptr get_pixel, GError **error) { gint B; gint RWidth, RHeight; gint Resolution; gint ColorMapSize; gint i; ColorMapSize = 1 << BitsPerPixel; RWidth = Width = GWidth; RHeight = Height = GHeight; Resolution = BitsPerPixel; /* * Calculate number of bits we are expecting */ CountDown = (long) Width *(long) Height; /* * Indicate which pass we are on (if interlace) */ Pass = 0; /* * Set up the current x and y position */ curx = cury = 0; /* * Write the Magic header */ if (! put_string (output, gif89 ? "GIF89a" : "GIF87a", error)) return FALSE; /* * Write out the screen width and height */ if (! put_word (output, RWidth, error) || ! put_word (output, RHeight, error)) return FALSE; /* * Indicate that there is a global color map */ B = 0x80; /* Yes, there is a color map */ /* * OR in the resolution */ B |= (Resolution - 1) << 5; /* * OR in the Bits per Pixel */ B |= (BitsPerPixel - 1); /* * Write it out */ if (! put_byte (output, B, error)) return FALSE; /* * Write out the Background color */ if (! put_byte (output, Background, error)) return FALSE; /* * Byte of 0's (future expansion) */ if (! put_byte (output, 0, error)) return FALSE; /* * Write out the Global Color Map */ for (i = 0; i < ColorMapSize; i++) { if (! put_byte (output, Red[i], error) || ! put_byte (output, Green[i], error) || ! put_byte (output, Blue[i], error)) return FALSE; } return TRUE; } static gboolean gif_encode_graphic_control_ext (GOutputStream *output, int Disposal, int Delay89, int NumFramesInImage, int GWidth, int GHeight, int Transparent, int BitsPerPixel, ifunptr get_pixel, GError **error) { Width = GWidth; Height = GHeight; /* * Calculate number of bits we are expecting */ CountDown = (long) Width *(long) Height; /* * Indicate which pass we are on (if interlace) */ Pass = 0; /* * Set up the current x and y position */ curx = cury = 0; /* * Write out extension for transparent color index, if necessary. */ if ( (Transparent >= 0) || (NumFramesInImage > 1) ) { /* Extension Introducer - fixed. */ if (! put_byte (output, '!', error)) return FALSE; /* Graphic Control Label - fixed. */ if (! put_byte (output, 0xf9, error)) return FALSE; /* Block Size - fixed. */ if (! put_byte (output, 4, error)) return FALSE; /* Packed Fields - XXXdddut (d=disposal, u=userInput, t=transFlag) */ /* s8421 */ if (! put_byte (output, ((Transparent >= 0) ? 0x01 : 0x00) /* TRANSPARENCY */ /* DISPOSAL */ | ((NumFramesInImage > 1) ? (Disposal << 2) : 0x00 ), /* 0x03 or 0x01 build frames cumulatively */ /* 0x02 clears frame before drawing */ /* 0x00 'don't care' */ error)) return FALSE; if (! put_word (output, Delay89, error)) return FALSE; if (! put_byte (output, Transparent, error) || ! put_byte (output, 0, error)) return FALSE; } return TRUE; } static gboolean gif_encode_image_data (GOutputStream *output, int GWidth, int GHeight, int GInterlace, int BitsPerPixel, ifunptr get_pixel, gint offset_x, gint offset_y, GError **error) { gint LeftOfs, TopOfs; gint InitCodeSize; Interlace = GInterlace; Width = GWidth; Height = GHeight; LeftOfs = (gint) offset_x; TopOfs = (gint) offset_y; /* * Calculate number of bits we are expecting */ CountDown = (long) Width * (long) Height; /* * Indicate which pass we are on (if interlace) */ Pass = 0; /* * The initial code size */ if (BitsPerPixel <= 1) InitCodeSize = 2; else InitCodeSize = BitsPerPixel; /* * Set up the current x and y position */ curx = cury = 0; /* * Write an Image separator */ if (! put_byte (output, ',', error)) return FALSE; /* * Write the Image header */ if (! put_word (output, LeftOfs, error) || ! put_word (output, TopOfs, error) || ! put_word (output, Width, error) || ! put_word (output, Height, error)) return FALSE; /* * Write out whether or not the image is interlaced */ if (Interlace) { if (! put_byte (output, 0x40, error)) return FALSE; } else { if (! put_byte (output, 0x00, error)) return FALSE; } /* * Write out the initial code size */ if (! put_byte (output, InitCodeSize, error)) return FALSE; /* * Go and actually compress the data */ if (! compress (output, InitCodeSize + 1, get_pixel, error)) return FALSE; /* * Write out a Zero-length packet (to end the series) */ if (! put_byte (output, 0, error)) return FALSE; #if 0 /***************************/ Interlace = GInterlace; Width = GWidth; Height = GHeight; LeftOfs = TopOfs = 0; CountDown = (long) Width *(long) Height; Pass = 0; /* * The initial code size */ if (BitsPerPixel <= 1) InitCodeSize = 2; else InitCodeSize = BitsPerPixel; /* * Set up the current x and y position */ curx = cury = 0; #endif return TRUE; } static gboolean gif_encode_close (GOutputStream *output, GError **error) { /* * Write the GIF file terminator */ if (! put_byte (output, ';', error)) return FALSE; /* * And close the file */ return g_output_stream_close (output, NULL, error); } static gboolean gif_encode_loop_ext (GOutputStream *output, guint num_loops, GError **error) { return (put_byte (output, 0x21, error) && put_byte (output, 0xff, error) && put_byte (output, 0x0b, error) && put_string (output, "NETSCAPE2.0", error) && put_byte (output, 0x03, error) && put_byte (output, 0x01, error) && put_word (output, num_loops, error) && put_byte (output, 0x00, error)); /* NOTE: num_loops == 0 means 'loop infinitely' */ } static gboolean gif_encode_comment_ext (GOutputStream *output, const gchar *comment, GError **error) { if (!comment || !*comment) return TRUE; if (strlen (comment) > 240) { g_printerr ("GIF: warning:" "comment too large - comment block not written.\n"); return TRUE; } return (put_byte (output, 0x21, error) && put_byte (output, 0xfe, error) && put_byte (output, strlen (comment), error) && put_string (output, comment, error) && put_byte (output, 0x00, error)); } /* * Write stuff to the GIF file */ static gboolean put_byte (GOutputStream *output, guchar b, GError **error) { return g_data_output_stream_put_byte (G_DATA_OUTPUT_STREAM (output), b, NULL, error); } static gboolean put_word (GOutputStream *output, gint w, GError **error) { return g_data_output_stream_put_int16 (G_DATA_OUTPUT_STREAM (output), w, NULL, error); } static gboolean put_string (GOutputStream *output, const gchar *s, GError **error) { return g_data_output_stream_put_string (G_DATA_OUTPUT_STREAM (output), s, NULL, error); } /*************************************************************************** * * GIFCOMPR.C - GIF Image compression routines * * Lempel-Ziv compression based on 'compress'. GIF modifications by * David Rowley (mgardi@watdcsu.waterloo.edu) * ***************************************************************************/ /* * General DEFINEs */ #define GIF_BITS 12 #define HSIZE 5003 /* 80% occupancy */ /* * GIF Image compression - modified 'compress' * * Based on: compress.c - File compression ala IEEE Computer, June 1984. * * By Authors: Spencer W. Thomas (decvax!harpo!utah-cs!utah-gr!thomas) * Jim McKie (decvax!mcvax!jim) * Steve Davies (decvax!vax135!petsd!peora!srd) * Ken Turkowski (decvax!decwrl!turtlevax!ken) * James A. Woods (decvax!ihnp4!ames!jaw) * Joe Orost (decvax!vax135!petsd!joe) * */ static gint n_bits; /* number of bits/code */ static gint maxbits = GIF_BITS; /* user settable max # bits/code */ static gint maxcode; /* maximum code, given n_bits */ static gint maxmaxcode = (gint) 1 << GIF_BITS; /* should NEVER generate this code */ #ifdef COMPATIBLE /* But wrong! */ #define MAXCODE(Mn_bits) ((gint) 1 << (Mn_bits) - 1) #else /*COMPATIBLE */ #define MAXCODE(Mn_bits) (((gint) 1 << (Mn_bits)) - 1) #endif /*COMPATIBLE */ static glong htab[HSIZE]; static gushort codetab[HSIZE]; #define HashTabOf(i) htab[i] #define CodeTabOf(i) codetab[i] static const gint hsize = HSIZE; /* the original reason for this being variable was "for dynamic table sizing", but since it was never actually changed I made it const --Adam. */ static gint free_ent = 0; /* first unused entry */ /* * block compression parameters -- after all codes are used up, * and compression rate changes, start over. */ static gint clear_flg = 0; static gint offset; static glong in_count = 1; /* length of input */ static glong out_count = 0; /* # of codes output (for debugging) */ /* * compress stdin to stdout * * Algorithm: use open addressing double hashing (no chaining) on the * prefix code / next character combination. We do a variant of Knuth's * algorithm D (vol. 3, sec. 6.4) along with G. Knott's relatively-prime * secondary probe. Here, the modular division first probe is gives way * to a faster exclusive-or manipulation. Also do block compression with * an adaptive reset, whereby the code table is cleared when the compression * ratio decreases, but after the table fills. The variable-length output * codes are re-sized at this point, and a special CLEAR code is generated * for the decompressor. Late addition: construct the table according to * file size for noticeable speed improvement on small files. Please direct * questions about this implementation to ames!jaw. */ static gint g_init_bits; static gint ClearCode; static gint EOFCode; static gulong cur_accum; static gint cur_bits; static gulong masks[] = { 0x0000, 0x0001, 0x0003, 0x0007, 0x000F, 0x001F, 0x003F, 0x007F, 0x00FF, 0x01FF, 0x03FF, 0x07FF, 0x0FFF, 0x1FFF, 0x3FFF, 0x7FFF, 0xFFFF }; static gboolean compress (GOutputStream *output, gint init_bits, ifunptr ReadValue, GError **error) { if (FALSE) return no_compress (output, init_bits, ReadValue, error); else if (FALSE) return rle_compress (output, init_bits, ReadValue, error); else return normal_compress (output, init_bits, ReadValue, error); } static gboolean no_compress (GOutputStream *output, gint init_bits, ifunptr ReadValue, GError **error) { glong fcode; gint i /* = 0 */ ; gint c; gint ent; gint hsize_reg; gint hshift; /* * Set up the globals: g_init_bits - initial number of bits */ g_init_bits = init_bits; cur_bits = 0; cur_accum = 0; /* * Set up the necessary values */ offset = 0; out_count = 0; clear_flg = 0; in_count = 1; ClearCode = (1 << (init_bits - 1)); EOFCode = ClearCode + 1; free_ent = ClearCode + 2; /* Had some problems here... should be okay now. --Adam */ n_bits = g_init_bits; maxcode = MAXCODE (n_bits); char_init(); ent = gif_next_pixel (ReadValue); hshift = 0; for (fcode = (long) hsize; fcode < 65536L; fcode *= 2L) ++hshift; hshift = 8 - hshift; /* set hash code range bound */ hsize_reg = hsize; cl_hash ((glong) hsize_reg); /* clear hash table */ if (! output_code (output, (gint) ClearCode, error)) return FALSE; while ((c = gif_next_pixel (ReadValue)) != EOF) { ++in_count; fcode = (long) (((long) c << maxbits) + ent); i = (((gint) c << hshift) ^ ent); /* xor hashing */ if (! output_code (output, (gint) ent, error)) return FALSE; ++out_count; ent = c; if (free_ent < maxmaxcode) { CodeTabOf (i) = free_ent++; /* code -> hashtable */ HashTabOf (i) = fcode; } else { if (! cl_block (output, error)) return FALSE; } } /* * Put out the final code. */ if (! output_code (output, (gint) ent, error)) return FALSE; ++out_count; if (! output_code (output, (gint) EOFCode, error)) return FALSE; return TRUE; } static gboolean rle_compress (GOutputStream *output, gint init_bits, ifunptr ReadValue, GError **error) { glong fcode; gint i /* = 0 */ ; gint c, last; gint ent; gint disp; gint hsize_reg; gint hshift; /* * Set up the globals: g_init_bits - initial number of bits */ g_init_bits = init_bits; cur_bits = 0; cur_accum = 0; /* * Set up the necessary values */ offset = 0; out_count = 0; clear_flg = 0; in_count = 1; ClearCode = (1 << (init_bits - 1)); EOFCode = ClearCode + 1; free_ent = ClearCode + 2; /* Had some problems here... should be okay now. --Adam */ n_bits = g_init_bits; maxcode = MAXCODE (n_bits); char_init (); last = ent = gif_next_pixel (ReadValue); hshift = 0; for (fcode = (long) hsize; fcode < 65536L; fcode *= 2L) ++hshift; hshift = 8 - hshift; /* set hash code range bound */ hsize_reg = hsize; cl_hash ((glong) hsize_reg); /* clear hash table */ if (! output_code (output, (gint) ClearCode, error)) return FALSE; while ((c = gif_next_pixel (ReadValue)) != EOF) { ++in_count; fcode = (long) (((long) c << maxbits) + ent); i = (((gint) c << hshift) ^ ent); /* xor hashing */ if (last == c) { if (HashTabOf (i) == fcode) { ent = CodeTabOf (i); continue; } else if ((long) HashTabOf (i) < 0) /* empty slot */ goto nomatch; disp = hsize_reg - i; /* secondary hash (after G. Knott) */ if (i == 0) disp = 1; probe: if ((i -= disp) < 0) i += hsize_reg; if (HashTabOf (i) == fcode) { ent = CodeTabOf (i); continue; } if ((long) HashTabOf (i) > 0) goto probe; } nomatch: if (! output_code (output, (gint) ent, error)) return FALSE; ++out_count; last = ent = c; if (free_ent < maxmaxcode) { CodeTabOf (i) = free_ent++; /* code -> hashtable */ HashTabOf (i) = fcode; } else { if (! cl_block (output, error)) return FALSE; } } /* * Put out the final code. */ if (! output_code (output, (gint) ent, error)) return FALSE; ++out_count; if (! output_code (output, (gint) EOFCode, error)) return FALSE; return TRUE; } static gboolean normal_compress (GOutputStream *output, gint init_bits, ifunptr ReadValue, GError **error) { glong fcode; gint i /* = 0 */ ; gint c; gint ent; gint disp; gint hsize_reg; gint hshift; /* * Set up the globals: g_init_bits - initial number of bits */ g_init_bits = init_bits; cur_bits = 0; cur_accum = 0; /* * Set up the necessary values */ offset = 0; out_count = 0; clear_flg = 0; in_count = 1; ClearCode = (1 << (init_bits - 1)); EOFCode = ClearCode + 1; free_ent = ClearCode + 2; /* Had some problems here... should be okay now. --Adam */ n_bits = g_init_bits; maxcode = MAXCODE (n_bits); char_init(); ent = gif_next_pixel (ReadValue); hshift = 0; for (fcode = (long) hsize; fcode < 65536L; fcode *= 2L) ++hshift; hshift = 8 - hshift; /* set hash code range bound */ hsize_reg = hsize; cl_hash ((glong) hsize_reg); /* clear hash table */ if (! output_code (output, (gint) ClearCode, error)) return FALSE; while ((c = gif_next_pixel (ReadValue)) != EOF) { ++in_count; fcode = (long) (((long) c << maxbits) + ent); i = (((gint) c << hshift) ^ ent); /* xor hashing */ if (HashTabOf (i) == fcode) { ent = CodeTabOf (i); continue; } else if ((long) HashTabOf (i) < 0) /* empty slot */ goto nomatch; disp = hsize_reg - i; /* secondary hash (after G. Knott) */ if (i == 0) disp = 1; probe: if ((i -= disp) < 0) i += hsize_reg; if (HashTabOf (i) == fcode) { ent = CodeTabOf (i); continue; } if ((long) HashTabOf (i) > 0) goto probe; nomatch: if (! output_code (output, (gint) ent, error)) return FALSE; ++out_count; ent = c; if (free_ent < maxmaxcode) { CodeTabOf (i) = free_ent++; /* code -> hashtable */ HashTabOf (i) = fcode; } else { if (! cl_block (output, error)) return FALSE; } } /* * Put out the final code. */ if (! output_code (output, (gint) ent, error)) return FALSE; ++out_count; if (! output_code (output, (gint) EOFCode, error)) return FALSE; return TRUE; } /***************************************************************** * TAG( output ) * * Output the given code. * Inputs: * code: A n_bits-bit integer. If == -1, then EOF. This assumes * that n_bits =< (long)wordsize - 1. * Outputs: * Outputs code to the file. * Assumptions: * Chars are 8 bits long. * Algorithm: * Maintain a GIF_BITS character long buffer (so that 8 codes will * fit in it exactly). Use the VAX insv instruction to insert each * code in turn. When the buffer fills up empty it and start over. */ static gboolean output_code (GOutputStream *output, gint code, GError **error) { cur_accum &= masks[cur_bits]; if (cur_bits > 0) cur_accum |= ((long) code << cur_bits); else cur_accum = code; cur_bits += n_bits; while (cur_bits >= 8) { if (! char_out (output, (guchar) (cur_accum & 0xff), error)) return FALSE; cur_accum >>= 8; cur_bits -= 8; } /* * If the next entry is going to be too big for the code size, * then increase it, if possible. */ if (free_ent > maxcode || clear_flg) { if (clear_flg) { maxcode = MAXCODE (n_bits = g_init_bits); clear_flg = 0; } else { ++n_bits; if (n_bits == maxbits) maxcode = maxmaxcode; else maxcode = MAXCODE (n_bits); } } if (code == EOFCode) { /* * At EOF, write the rest of the buffer. */ while (cur_bits > 0) { if (! char_out (output, (guchar) (cur_accum & 0xff), error)) return FALSE; cur_accum >>= 8; cur_bits -= 8; } if (! char_flush (output, error)) return FALSE; } return TRUE; } /* * Clear out the hash table */ static gboolean cl_block (GOutputStream *output, GError **error) /* table clear for block compress */ { cl_hash ((glong) hsize); free_ent = ClearCode + 2; clear_flg = 1; return output_code (output, (gint) ClearCode, error); } static void cl_hash (glong hsize) /* reset code table */ { glong *htab_p = htab + hsize; long i; long m1 = -1; i = hsize - 16; do { /* might use Sys V memset(3) here */ *(htab_p - 16) = m1; *(htab_p - 15) = m1; *(htab_p - 14) = m1; *(htab_p - 13) = m1; *(htab_p - 12) = m1; *(htab_p - 11) = m1; *(htab_p - 10) = m1; *(htab_p - 9) = m1; *(htab_p - 8) = m1; *(htab_p - 7) = m1; *(htab_p - 6) = m1; *(htab_p - 5) = m1; *(htab_p - 4) = m1; *(htab_p - 3) = m1; *(htab_p - 2) = m1; *(htab_p - 1) = m1; htab_p -= 16; } while ((i -= 16) >= 0); for (i += 16; i > 0; --i) *--htab_p = m1; } /****************************************************************************** * GIF Specific routines ******************************************************************************/ /* * Number of characters so far in this 'packet' */ static int a_count; /* * Set up the 'byte output' routine */ static void char_init (void) { a_count = 0; } /* * Define the storage for the packet accumulator */ static char accum[256]; /* * Add a character to the end of the current packet, and if it is 254 * characters, flush the packet to disk. */ static gboolean char_out (GOutputStream *output, gint c, GError **error) { accum[a_count++] = c; if (a_count >= 254) return char_flush (output, error); return TRUE; } /* * Flush the packet to disk, and reset the accumulator */ static gboolean char_flush (GOutputStream *output, GError **error) { if (a_count > 0) { if (! put_byte (output, a_count, error)) return FALSE; if (! g_output_stream_write_all (output, accum, a_count, NULL, NULL, error)) return FALSE; a_count = 0; } return TRUE; } /* Save interface functions */ static void comment_entry_callback (GtkTextBuffer *buffer) { GtkTextIter start_iter; GtkTextIter end_iter; gchar *text; gtk_text_buffer_get_bounds (buffer, &start_iter, &end_iter); text = gtk_text_buffer_get_text (buffer, &start_iter, &end_iter, FALSE); #define MAX_COMMENT 240 if (strlen (text) > MAX_COMMENT) { /* translators: the %d is *always* 240 here */ g_message (_("The default comment is limited to %d characters."), MAX_COMMENT); gtk_text_buffer_get_iter_at_offset (buffer, &start_iter, MAX_COMMENT - 1); gtk_text_buffer_get_end_iter (buffer, &end_iter); /* this calls us recursivaly, but in the else branch */ gtk_text_buffer_delete (buffer, &start_iter, &end_iter); } else { g_free (globalcomment); globalcomment = g_strdup (text); comment_was_edited = TRUE; } g_free (text); }