diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 18:30:19 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 18:30:19 +0000 |
commit | 5c1676dfe6d2f3c837a5e074117b45613fd29a72 (patch) | |
tree | cbffb45144febf451e54061db2b21395faf94bfe /plug-ins/file-bmp/bmp-save.c | |
parent | Initial commit. (diff) | |
download | gimp-upstream.tar.xz gimp-upstream.zip |
Adding upstream version 2.10.34.upstream/2.10.34upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to '')
-rw-r--r-- | plug-ins/file-bmp/bmp-save.c | 1104 |
1 files changed, 1104 insertions, 0 deletions
diff --git a/plug-ins/file-bmp/bmp-save.c b/plug-ins/file-bmp/bmp-save.c new file mode 100644 index 0000000..6654f12 --- /dev/null +++ b/plug-ins/file-bmp/bmp-save.c @@ -0,0 +1,1104 @@ +/* bmpwrite.c Writes Bitmap files. Even RLE encoded ones. */ +/* (Windows (TM) doesn't read all of those, but who */ +/* cares? ;-) */ +/* I changed a few things over the time, so perhaps */ +/* it dos now, but now there's no Windows left on */ +/* my computer... */ + +/* Alexander.Schulz@stud.uni-karlsruhe.de */ + +/* + * 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/>. + * ---------------------------------------------------------------------------- + */ + +#include "config.h" + +#include <errno.h> +#include <string.h> + +#include <glib/gstdio.h> + +#include <libgimp/gimp.h> +#include <libgimp/gimpui.h> + +#include "bmp.h" +#include "bmp-save.h" + +#include "libgimp/stdplugins-intl.h" + + +typedef enum +{ + RGB_565, + RGBA_5551, + RGB_555, + RGB_888, + RGBA_8888, + RGBX_8888 +} RGBMode; + + +static void write_image (FILE *f, + guchar *src, + gint width, + gint height, + gint use_run_length_encoding, + gint channels, + gint bpp, + gint spzeile, + gint MapSize, + RGBMode rgb_format, + gint mask_info_size, + gint color_space_size); + +static gboolean save_dialog (gint channels, + gint bpp); + + +static struct +{ + RGBMode rgb_format; + gint use_run_length_encoding; + + /* Whether or not to write BITMAPV5HEADER color space data */ + gint dont_write_color_space_data; + gboolean overwrite_RGB_format; +} BMPSaveData; + + +static void +write_color_map (FILE *f, + gint red[MAXCOLORS], + gint green[MAXCOLORS], + gint blue[MAXCOLORS], + gint size) +{ + gchar trgb[4]; + gint i; + + size /= 4; + trgb[3] = 0; + for (i = 0; i < size; i++) + { + trgb[0] = (guchar) blue[i]; + trgb[1] = (guchar) green[i]; + trgb[2] = (guchar) red[i]; + Write (f, trgb, 4); + } +} + +static gboolean +warning_dialog (const gchar *primary, + const gchar *secondary) +{ + GtkWidget *dialog; + gboolean ok; + + dialog = gtk_message_dialog_new (NULL, 0, + GTK_MESSAGE_WARNING, GTK_BUTTONS_OK_CANCEL, + "%s", primary); + + gtk_message_dialog_format_secondary_text (GTK_MESSAGE_DIALOG (dialog), + "%s", secondary); + + gimp_window_set_transient (GTK_WINDOW (dialog)); + + ok = (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_OK); + + gtk_widget_destroy (dialog); + + return ok; +} + +GimpPDBStatusType +save_image (const gchar *filename, + gint32 image, + gint32 drawable_ID, + GimpRunMode run_mode, + GError **error) +{ + FILE *outfile; + BitmapFileHead bitmap_file_head; + BitmapHead bitmap_head; + gint Red[MAXCOLORS]; + gint Green[MAXCOLORS]; + gint Blue[MAXCOLORS]; + guchar *cmap; + gint rows, cols, Spcols, channels, MapSize, SpZeile; + glong BitsPerPixel; + gint colors; + guchar *pixels; + GeglBuffer *buffer; + const Babl *format; + GimpImageType drawable_type; + gint drawable_width; + gint drawable_height; + gint i; + gint mask_info_size; + gint color_space_size; + guint32 Mask[4]; + + buffer = gimp_drawable_get_buffer (drawable_ID); + + drawable_type = gimp_drawable_type (drawable_ID); + drawable_width = gimp_drawable_width (drawable_ID); + drawable_height = gimp_drawable_height (drawable_ID); + + switch (drawable_type) + { + case GIMP_RGBA_IMAGE: + format = babl_format ("R'G'B'A u8"); + colors = 0; + BitsPerPixel = 32; + MapSize = 0; + channels = 4; + if (!BMPSaveData.overwrite_RGB_format) + BMPSaveData.rgb_format = RGBA_8888; + break; + + case GIMP_RGB_IMAGE: + format = babl_format ("R'G'B' u8"); + colors = 0; + BitsPerPixel = 24; + MapSize = 0; + channels = 3; + if (!BMPSaveData.overwrite_RGB_format) + BMPSaveData.rgb_format = RGB_888; + break; + + case GIMP_GRAYA_IMAGE: + if (run_mode == GIMP_RUN_INTERACTIVE && + ! warning_dialog (_("Cannot export indexed image with " + "transparency in BMP file format."), + _("Alpha channel will be ignored."))) + return GIMP_PDB_CANCEL; + + /* fallthrough */ + + case GIMP_GRAY_IMAGE: + colors = 256; + BitsPerPixel = 8; + MapSize = 1024; + + if (drawable_type == GIMP_GRAYA_IMAGE) + { + format = babl_format ("Y'A u8"); + channels = 2; + } + else + { + format = babl_format ("Y' u8"); + channels = 1; + } + + for (i = 0; i < colors; i++) + { + Red[i] = i; + Green[i] = i; + Blue[i] = i; + } + break; + + case GIMP_INDEXEDA_IMAGE: + if (run_mode == GIMP_RUN_INTERACTIVE && + ! warning_dialog (_("Cannot export indexed image with " + "transparency in BMP file format."), + _("Alpha channel will be ignored."))) + return GIMP_PDB_CANCEL; + + /* fallthrough */ + + case GIMP_INDEXED_IMAGE: + format = gimp_drawable_get_format (drawable_ID); + cmap = gimp_image_get_colormap (image, &colors); + MapSize = 4 * colors; + + if (drawable_type == GIMP_INDEXEDA_IMAGE) + channels = 2; + else + channels = 1; + + if (colors > 16) + BitsPerPixel = 8; + else if (colors > 2) + BitsPerPixel = 4; + else + BitsPerPixel = 1; + + for (i = 0; i < colors; i++) + { + Red[i] = *cmap++; + Green[i] = *cmap++; + Blue[i] = *cmap++; + } + break; + + default: + g_assert_not_reached (); + } + + /* Don't alter option data if already defined in non-interactive mode Script-fu */ + if (BMPSaveData.use_run_length_encoding != 1) + BMPSaveData.use_run_length_encoding = 0; + + if (BMPSaveData.dont_write_color_space_data != 1) + BMPSaveData.dont_write_color_space_data = 0; + mask_info_size = 0; + + if (run_mode != GIMP_RUN_NONINTERACTIVE) + { + gimp_get_data (SAVE_PROC, &BMPSaveData); + } + + if (run_mode == GIMP_RUN_INTERACTIVE && + (BitsPerPixel == 8 || + BitsPerPixel == 4 || + BitsPerPixel == 1)) + { + if (! save_dialog (1, BitsPerPixel)) + return GIMP_PDB_CANCEL; + } + else if (BitsPerPixel == 24 || + BitsPerPixel == 32) + { + if (run_mode == GIMP_RUN_INTERACTIVE) + { + if (! save_dialog (channels, BitsPerPixel)) + return GIMP_PDB_CANCEL; + } + + /* mask_info_size is only set to non-zero for 16- and 32-bpp */ + switch (BMPSaveData.rgb_format) + { + case RGB_888: + BitsPerPixel = 24; + break; + case RGBA_8888: + BitsPerPixel = 32; + mask_info_size = 16; + break; + case RGBX_8888: + BitsPerPixel = 32; + mask_info_size = 16; + break; + case RGB_565: + BitsPerPixel = 16; + mask_info_size = 16; + break; + case RGBA_5551: + BitsPerPixel = 16; + mask_info_size = 16; + break; + case RGB_555: + BitsPerPixel = 16; + mask_info_size = 16; + break; + default: + g_return_val_if_reached (GIMP_PDB_EXECUTION_ERROR); + } + } + + gimp_set_data (SAVE_PROC, &BMPSaveData, sizeof (BMPSaveData)); + + /* Let's begin the progress */ + gimp_progress_init_printf (_("Exporting '%s'"), + gimp_filename_to_utf8 (filename)); + + /* Let's take some file */ + outfile = g_fopen (filename, "wb"); + if (!outfile) + { + g_set_error (error, G_FILE_ERROR, g_file_error_from_errno (errno), + _("Could not open '%s' for writing: %s"), + gimp_filename_to_utf8 (filename), g_strerror (errno)); + return GIMP_PDB_EXECUTION_ERROR; + } + + /* fetch the image */ + pixels = g_new (guchar, drawable_width * drawable_height * channels); + + gegl_buffer_get (buffer, GEGL_RECTANGLE (0, 0, + drawable_width, drawable_height), 1.0, + format, pixels, + GEGL_AUTO_ROWSTRIDE, GEGL_ABYSS_NONE); + + g_object_unref (buffer); + + /* Now, we need some further information ... */ + cols = drawable_width; + rows = drawable_height; + + /* ... that we write to our headers. */ + if ((BitsPerPixel <= 8) && (cols % (8 / BitsPerPixel))) + Spcols = (((cols / (8 / BitsPerPixel)) + 1) * (8 / BitsPerPixel)); + else + Spcols = cols; + + if ((((Spcols * BitsPerPixel) / 8) % 4) == 0) + SpZeile = ((Spcols * BitsPerPixel) / 8); + else + SpZeile = ((gint) (((Spcols * BitsPerPixel) / 8) / 4) + 1) * 4; + + if (! BMPSaveData.dont_write_color_space_data) + { + /* Always include color mask for BITMAPV5HEADER, see #4155. */ + mask_info_size = 16; + color_space_size = 68; + } + else + { + color_space_size = 0; + } + + bitmap_file_head.bfSize = (0x36 + MapSize + (rows * SpZeile) + + mask_info_size + color_space_size); + bitmap_file_head.zzHotX = 0; + bitmap_file_head.zzHotY = 0; + bitmap_file_head.bfOffs = (0x36 + MapSize + + mask_info_size + color_space_size); + bitmap_file_head.biSize = 40 + mask_info_size + color_space_size; + + bitmap_head.biWidth = cols; + bitmap_head.biHeight = rows; + bitmap_head.biPlanes = 1; + bitmap_head.biBitCnt = BitsPerPixel; + + if (BMPSaveData.use_run_length_encoding == 0) + { + /* The Microsoft specification for BITMAPV5HEADER says that + * BI_BITFIELDS is valid for 16 and 32-bits per pixel, + * Since it doesn't mention 24 bpp or other numbers + * use BI_RGB for that. See issue #6114. */ + if (mask_info_size > 0 && (BitsPerPixel == 16 || BitsPerPixel == 32)) + bitmap_head.biCompr = 3; /* BI_BITFIELDS */ + else + bitmap_head.biCompr = 0; /* BI_RGB */ + } + else if (BitsPerPixel == 8) + { + bitmap_head.biCompr = 1; + } + else if (BitsPerPixel == 4) + { + bitmap_head.biCompr = 2; + } + else + { + bitmap_head.biCompr = 0; + } + + bitmap_head.biSizeIm = SpZeile * rows; + + { + gdouble xresolution; + gdouble yresolution; + gimp_image_get_resolution (image, &xresolution, &yresolution); + + if (xresolution > GIMP_MIN_RESOLUTION && + yresolution > GIMP_MIN_RESOLUTION) + { + /* + * xresolution and yresolution are in dots per inch. + * the BMP spec says that biXPels and biYPels are in + * pixels per meter as long ints (actually, "DWORDS"), + * so... + * n dots inch 100 cm m dots + * ------ * ------- * ------ = ------ + * inch 2.54 cm m inch + * + * We add 0.5 for proper rounding. + */ + bitmap_head.biXPels = (long int) (xresolution * 100.0 / 2.54 + 0.5); + bitmap_head.biYPels = (long int) (yresolution * 100.0 / 2.54 + 0.5); + } + } + + if (BitsPerPixel <= 8) + bitmap_head.biClrUsed = colors; + else + bitmap_head.biClrUsed = 0; + + bitmap_head.biClrImp = bitmap_head.biClrUsed; + +#ifdef DEBUG + printf ("\nSize: %u, Colors: %u, Bits: %u, Width: %u, Height: %u, Comp: %u, Zeile: %u\n", + (int)bitmap_file_head.bfSize, + (int)bitmap_head.biClrUsed, + bitmap_head.biBitCnt, + (int)bitmap_head.biWidth, + (int)bitmap_head.biHeight, + (int)bitmap_head.biCompr,SpZeile); +#endif + + /* And now write the header and the colormap (if any) to disk */ + + Write (outfile, "BM", 2); + + bitmap_file_head.bfSize = GUINT32_TO_LE (bitmap_file_head.bfSize); + bitmap_file_head.zzHotX = GUINT16_TO_LE (bitmap_file_head.zzHotX); + bitmap_file_head.zzHotY = GUINT16_TO_LE (bitmap_file_head.zzHotY); + bitmap_file_head.bfOffs = GUINT32_TO_LE (bitmap_file_head.bfOffs); + bitmap_file_head.biSize = GUINT32_TO_LE (bitmap_file_head.biSize); + + Write (outfile, &bitmap_file_head.bfSize, 16); + + bitmap_head.biWidth = GINT32_TO_LE (bitmap_head.biWidth); + bitmap_head.biHeight = GINT32_TO_LE (bitmap_head.biHeight); + bitmap_head.biPlanes = GUINT16_TO_LE (bitmap_head.biPlanes); + bitmap_head.biBitCnt = GUINT16_TO_LE (bitmap_head.biBitCnt); + bitmap_head.biCompr = GUINT32_TO_LE (bitmap_head.biCompr); + bitmap_head.biSizeIm = GUINT32_TO_LE (bitmap_head.biSizeIm); + bitmap_head.biXPels = GUINT32_TO_LE (bitmap_head.biXPels); + bitmap_head.biYPels = GUINT32_TO_LE (bitmap_head.biYPels); + bitmap_head.biClrUsed = GUINT32_TO_LE (bitmap_head.biClrUsed); + bitmap_head.biClrImp = GUINT32_TO_LE (bitmap_head.biClrImp); + + Write (outfile, &bitmap_head, 36); + + if (mask_info_size > 0) + { + switch (BMPSaveData.rgb_format) + { + default: + case RGB_888: + case RGBX_8888: + Mask[0] = 0x00ff0000; + Mask[1] = 0x0000ff00; + Mask[2] = 0x000000ff; + Mask[3] = 0x00000000; + break; + + case RGBA_8888: + Mask[0] = 0x00ff0000; + Mask[1] = 0x0000ff00; + Mask[2] = 0x000000ff; + Mask[3] = 0xff000000; + break; + + case RGB_565: + Mask[0] = 0xf800; + Mask[1] = 0x7e0; + Mask[2] = 0x1f; + Mask[3] = 0x0; + break; + + case RGBA_5551: + Mask[0] = 0x7c00; + Mask[1] = 0x3e0; + Mask[2] = 0x1f; + Mask[3] = 0x8000; + break; + + case RGB_555: + Mask[0] = 0x7c00; + Mask[1] = 0x3e0; + Mask[2] = 0x1f; + Mask[3] = 0x0; + break; + } + + Mask[0] = GUINT32_TO_LE (Mask[0]); + Mask[1] = GUINT32_TO_LE (Mask[1]); + Mask[2] = GUINT32_TO_LE (Mask[2]); + Mask[3] = GUINT32_TO_LE (Mask[3]); + + Write (outfile, &Mask, mask_info_size); + } + + if (! BMPSaveData.dont_write_color_space_data) + { + guint32 buf[0x11]; + + /* Write V5 color space fields */ + + /* bV5CSType = LCS_sRGB */ + buf[0x00] = GUINT32_TO_LE (0x73524742); + + /* bV5Endpoints is set to 0 (ignored) */ + for (i = 0; i < 0x09; i++) + buf[i + 1] = 0x00; + + /* bV5GammaRed is set to 0 (ignored) */ + buf[0x0a] = GUINT32_TO_LE (0x0); + + /* bV5GammaGreen is set to 0 (ignored) */ + buf[0x0b] = GUINT32_TO_LE (0x0); + + /* bV5GammaBlue is set to 0 (ignored) */ + buf[0x0c] = GUINT32_TO_LE (0x0); + + /* bV5Intent = LCS_GM_GRAPHICS */ + buf[0x0d] = GUINT32_TO_LE (0x00000002); + + /* bV5ProfileData is set to 0 (ignored) */ + buf[0x0e] = GUINT32_TO_LE (0x0); + + /* bV5ProfileSize is set to 0 (ignored) */ + buf[0x0f] = GUINT32_TO_LE (0x0); + + /* bV5Reserved = 0 */ + buf[0x10] = GUINT32_TO_LE (0x0); + + Write (outfile, buf, color_space_size); + } + + write_color_map (outfile, Red, Green, Blue, MapSize); + + /* After that is done, we write the image ... */ + + write_image (outfile, + pixels, cols, rows, + BMPSaveData.use_run_length_encoding, + channels, BitsPerPixel, SpZeile, + MapSize, BMPSaveData.rgb_format, + mask_info_size, color_space_size); + + /* ... and exit normally */ + + fclose (outfile); + g_free (pixels); + + return GIMP_PDB_SUCCESS; +} + +/* Entry point for file-bmp-save2 */ +GimpPDBStatusType +save_image2 (const gchar *filename, + gint32 image, + gint32 drawable_ID, + gint32 use_rle, + gint32 write_color_space, + gint32 rgb_format, + GimpRunMode run_mode, + GError **error) +{ + BMPSaveData.use_run_length_encoding = use_rle; + BMPSaveData.dont_write_color_space_data = write_color_space; + BMPSaveData.rgb_format = (RGBMode) rgb_format; + /* Prevents save_image () from overwriting user's RGB format */ + BMPSaveData.overwrite_RGB_format = TRUE; + + return save_image (filename, image, drawable_ID, + run_mode, error); +} + +static inline void +Make565 (guchar r, + guchar g, + guchar b, + guchar *buf) +{ + gint p; + + p = ((((gint) (r / 255.0 * 31.0 + 0.5)) << 11) | + (((gint) (g / 255.0 * 63.0 + 0.5)) << 5) | + (((gint) (b / 255.0 * 31.0 + 0.5)))); + + buf[0] = (guchar) (p & 0xff); + buf[1] = (guchar) (p >> 8); +} + +static inline void +Make5551 (guchar r, + guchar g, + guchar b, + guchar a, + guchar *buf) +{ + gint p; + + p = ((((gint) (r / 255.0 * 31.0 + 0.5)) << 10) | + (((gint) (g / 255.0 * 31.0 + 0.5)) << 5) | + (((gint) (b / 255.0 * 31.0 + 0.5))) | + (((gint) (a / 255.0 + 0.5) << 15))); + + buf[0] = (guchar) (p & 0xff); + buf[1] = (guchar) (p >> 8); +} + +static void +write_image (FILE *f, + guchar *src, + gint width, + gint height, + gint use_run_length_encoding, + gint channels, + gint bpp, + gint spzeile, + gint MapSize, + RGBMode rgb_format, + gint mask_info_size, + gint color_space_size) +{ + guchar buf[16] = { 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0 }; + guint32 uint32buf; + guchar *temp, v; + guchar *row, *ketten; + gint xpos, ypos, i, j, rowstride, length, thiswidth; + gint breite, k; + guchar n, r, g, b, a; + gint cur_progress; + gint max_progress; + + xpos = 0; + rowstride = width * channels; + + cur_progress = 0; + max_progress = height; + + /* We'll begin with the 16/24/32 bit Bitmaps, they are easy :-) */ + + if (bpp > 8) + { + for (ypos = height - 1; ypos >= 0; ypos--) /* for each row */ + { + for (i = 0; i < width; i++) /* for each pixel */ + { + temp = src + (ypos * rowstride) + (xpos * channels); + switch (rgb_format) + { + default: + case RGB_888: + buf[2] = *temp++; + buf[1] = *temp++; + buf[0] = *temp++; + xpos++; + if (channels > 3 && (guchar) *temp == 0) + buf[0] = buf[1] = buf[2] = 0xff; + Write (f, buf, 3); + break; + case RGBX_8888: + buf[2] = *temp++; + buf[1] = *temp++; + buf[0] = *temp++; + buf[3] = 0; + xpos++; + if (channels > 3 && (guchar) *temp == 0) + buf[0] = buf[1] = buf[2] = 0xff; + Write (f, buf, 4); + break; + case RGBA_8888: + buf[2] = *temp++; + buf[1] = *temp++; + buf[0] = *temp++; + buf[3] = *temp; + xpos++; + Write (f, buf, 4); + break; + case RGB_565: + r = *temp++; + g = *temp++; + b = *temp++; + if (channels > 3 && (guchar) *temp == 0) + r = g = b = 0xff; + Make565 (r, g, b, buf); + xpos++; + Write (f, buf, 2); + break; + case RGB_555: + r = *temp++; + g = *temp++; + b = *temp++; + if (channels > 3 && (guchar) *temp == 0) + r = g = b = 0xff; + Make5551 (r, g, b, 0x0, buf); + xpos++; + Write (f, buf, 2); + break; + case RGBA_5551: + r = *temp++; + g = *temp++; + b = *temp++; + a = *temp; + Make5551 (r, g, b, a, buf); + xpos++; + Write (f, buf, 2); + break; + } + } + + Write (f, &buf[4], spzeile - (width * (bpp/8))); + + cur_progress++; + if ((cur_progress % 5) == 0) + gimp_progress_update ((gdouble) cur_progress / + (gdouble) max_progress); + + xpos = 0; + } + } + else + { + if (bpp == 1) + use_run_length_encoding = 0; + switch (use_run_length_encoding) /* now it gets more difficult */ + { /* uncompressed 1,4 and 8 bit */ + case 0: + { + thiswidth = (width / (8 / bpp)); + if (width % (8 / bpp)) + thiswidth++; + + for (ypos = height - 1; ypos >= 0; ypos--) /* for each row */ + { + for (xpos = 0; xpos < width;) /* for each _byte_ */ + { + v = 0; + for (i = 1; + (i <= (8 / bpp)) && (xpos < width); + i++, xpos++) /* for each pixel */ + { + temp = src + (ypos * rowstride) + (xpos * channels); + if (channels > 1 && *(temp+1) == 0) *temp = 0x0; + v=v | ((guchar) *temp << (8 - (i * bpp))); + } + Write (f, &v, 1); + } + Write (f, &buf[3], spzeile - thiswidth); + xpos = 0; + + cur_progress++; + if ((cur_progress % 5) == 0) + gimp_progress_update ((gdouble) cur_progress / + (gdouble) max_progress); + } + break; + } + default: + { /* Save RLE encoded file, quite difficult */ + length = 0; + buf[12] = 0; + buf[13] = 1; + buf[14] = 0; + buf[15] = 0; + row = g_new (guchar, width / (8 / bpp) + 10); + ketten = g_new (guchar, width / (8 / bpp) + 10); + for (ypos = height - 1; ypos >= 0; ypos--) + { /* each row separately */ + j = 0; + /* first copy the pixels to a buffer, + * making one byte from two 4bit pixels + */ + for (xpos = 0; xpos < width;) + { + v = 0; + for (i = 1; + (i <= (8 / bpp)) && (xpos < width); + i++, xpos++) + { /* for each pixel */ + temp = src + (ypos * rowstride) + (xpos * channels); + if (channels > 1 && *(temp+1) == 0) *temp = 0x0; + v = v | ((guchar) * temp << (8 - (i * bpp))); + } + row[j++] = v; + } + breite = width / (8 / bpp); + if (width % (8 / bpp)) + breite++; + + /* then check for strings of equal bytes */ + for (i = 0; i < breite; i += j) + { + j = 0; + while ((i + j < breite) && + (j < (255 / (8 / bpp))) && + (row[i + j] == row[i])) + j++; + + ketten[i] = j; + } + + /* then write the strings and the other pixels to the file */ + for (i = 0; i < breite;) + { + if (ketten[i] < 3) + /* strings of different pixels ... */ + { + j = 0; + while ((i + j < breite) && + (j < (255 / (8 / bpp))) && + (ketten[i + j] < 3)) + j += ketten[i + j]; + + /* this can only happen if j jumps over + * the end with a 2 in ketten[i+j] + */ + if (j > (255 / (8 / bpp))) + j -= 2; + /* 00 01 and 00 02 are reserved */ + if (j > 2) + { + Write (f, &buf[12], 1); + n = j * (8 / bpp); + if (n + i * (8 / bpp) > width) + n--; + Write (f, &n, 1); + length += 2; + Write (f, &row[i], j); + length += j; + if ((j) % 2) + { + Write (f, &buf[12], 1); + length++; + } + } + else + { + for (k = i; k < i + j; k++) + { + n = (8 / bpp); + if (n + i * (8 / bpp) > width) + n--; + Write (f, &n, 1); + Write (f, &row[k], 1); + /*printf("%i.#|",n); */ + length += 2; + } + } + i += j; + } + else + /* strings of equal pixels */ + { + n = ketten[i] * (8 / bpp); + if (n + i * (8 / bpp) > width) + n--; + Write (f, &n, 1); + Write (f, &row[i], 1); + i += ketten[i]; + length += 2; + } + } + + Write (f, &buf[14], 2); /* End of row */ + length += 2; + + cur_progress++; + if ((cur_progress % 5) == 0) + gimp_progress_update ((gdouble) cur_progress / + (gdouble) max_progress); + } + + fseek (f, -2, SEEK_CUR); /* Overwrite last End of row ... */ + Write (f, &buf[12], 2); /* ... with End of file */ + + fseek (f, 0x22, SEEK_SET); /* Write length of image */ + uint32buf = GUINT32_TO_LE (length); + Write (f, &uint32buf, 4); + + fseek (f, 0x02, SEEK_SET); /* Write length of file */ + length += (0x36 + MapSize + mask_info_size + color_space_size); + uint32buf = GUINT32_TO_LE (length); + Write (f, &uint32buf, 4); + + g_free (ketten); + g_free (row); + break; + } + } + } + + gimp_progress_update (1.0); +} + +static void +format_callback (GtkToggleButton *toggle, + gpointer data) +{ + if (gtk_toggle_button_get_active (toggle)) + BMPSaveData.rgb_format = GPOINTER_TO_INT (data); +} + +static gboolean +save_dialog (gint channels, gint bpp) +{ + GtkWidget *dialog; + GtkWidget *toggle; + GtkWidget *vbox_main; + GtkWidget *vbox; + GtkWidget *vbox2; + GtkWidget *expander; + GtkWidget *frame; + GSList *group; + gboolean run; + + /* Dialog init */ + dialog = gimp_export_dialog_new ("BMP", PLUG_IN_BINARY, SAVE_PROC); + + gtk_window_set_resizable (GTK_WINDOW (dialog), FALSE); + + vbox_main = gtk_box_new (GTK_ORIENTATION_VERTICAL, 12); + gtk_container_set_border_width (GTK_CONTAINER (vbox_main), 12); + gtk_box_pack_start (GTK_BOX (gimp_export_dialog_get_content_area (dialog)), + vbox_main, TRUE, TRUE, 0); + gtk_widget_show (vbox_main); + + /* Run-Length Encoded */ + toggle = gtk_check_button_new_with_mnemonic (_("_Run-Length Encoded")); + gtk_box_pack_start (GTK_BOX (vbox_main), toggle, FALSE, FALSE, 0); + gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (toggle), + BMPSaveData.use_run_length_encoding); + gtk_widget_show (toggle); + if (channels > 1 || bpp == 1) + gtk_widget_set_sensitive (toggle, FALSE); + + g_signal_connect (toggle, "toggled", + G_CALLBACK (gimp_toggle_button_update), + &BMPSaveData.use_run_length_encoding); + + /* Compatibility Options */ + expander = gtk_expander_new_with_mnemonic (_("Co_mpatibility Options")); + + gtk_box_pack_start (GTK_BOX (vbox_main), expander, TRUE, TRUE, 0); + gtk_widget_show (expander); + + vbox2 = gtk_box_new (GTK_ORIENTATION_VERTICAL, 12); + gtk_container_set_border_width (GTK_CONTAINER (vbox2), 12); + gtk_container_add (GTK_CONTAINER (expander), vbox2); + gtk_widget_show (vbox2); + + toggle = gtk_check_button_new_with_mnemonic (_("_Do not write color space information")); + gimp_help_set_help_data (toggle, + _("Some applications can not read BMP images that " + "include color space information. GIMP writes " + "color space information by default. Enabling " + "this option will cause GIMP to not write color " + "space information to the file."), + NULL); + gtk_box_pack_start (GTK_BOX (vbox2), toggle, FALSE, FALSE, 0); + gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (toggle), + BMPSaveData.dont_write_color_space_data); + gtk_widget_show (toggle); + + g_signal_connect (toggle, "toggled", + G_CALLBACK (gimp_toggle_button_update), + &BMPSaveData.dont_write_color_space_data); + + /* Advanced Options */ + expander = gtk_expander_new_with_mnemonic (_("_Advanced Options")); + + gtk_box_pack_start (GTK_BOX (vbox_main), expander, TRUE, TRUE, 0); + gtk_widget_show (expander); + + if (channels < 3) + gtk_widget_set_sensitive (expander, FALSE); + + vbox2 = gtk_box_new (GTK_ORIENTATION_VERTICAL, 12); + gtk_container_set_border_width (GTK_CONTAINER (vbox2), 12); + gtk_container_add (GTK_CONTAINER (expander), vbox2); + gtk_widget_show (vbox2); + + group = NULL; + + frame = gimp_frame_new (_("16 bits")); + gtk_box_pack_start (GTK_BOX (vbox2), frame, TRUE, TRUE, 0); + gtk_widget_show (frame); + + vbox = gtk_box_new (GTK_ORIENTATION_VERTICAL, 6); + gtk_container_add (GTK_CONTAINER (frame), vbox); + gtk_widget_show (vbox); + + toggle = gtk_radio_button_new_with_mnemonic (group, "_R5 G6 B5"); + group = gtk_radio_button_get_group (GTK_RADIO_BUTTON (toggle)); + gtk_box_pack_start (GTK_BOX (vbox), toggle, FALSE, FALSE, 0); + gtk_widget_show (toggle); + g_signal_connect (toggle, "toggled", + G_CALLBACK (format_callback), + GINT_TO_POINTER (RGB_565)); + + toggle = gtk_radio_button_new_with_mnemonic (group, "_A1 R5 G5 B5"); + group = gtk_radio_button_get_group (GTK_RADIO_BUTTON (toggle)); + gtk_box_pack_start (GTK_BOX (vbox), toggle, FALSE, FALSE, 0); + + if (channels < 4) + gtk_widget_set_sensitive (toggle, FALSE); + + gtk_widget_show (toggle); + + g_signal_connect (toggle, "toggled", + G_CALLBACK (format_callback), + GINT_TO_POINTER (RGBA_5551)); + toggle = gtk_radio_button_new_with_mnemonic (group, "_X1 R5 G5 B5"); + group = gtk_radio_button_get_group (GTK_RADIO_BUTTON (toggle)); + gtk_box_pack_start (GTK_BOX (vbox), toggle, FALSE, FALSE, 0); + gtk_widget_show (toggle); + g_signal_connect (toggle, "toggled", + G_CALLBACK (format_callback), + GINT_TO_POINTER (RGB_555)); + + frame = gimp_frame_new (_("24 bits")); + gtk_box_pack_start (GTK_BOX (vbox2), frame, FALSE, FALSE, 0); + gtk_widget_show (frame); + + toggle = gtk_radio_button_new_with_mnemonic (group, "R_8 G8 B8"); + group = gtk_radio_button_get_group (GTK_RADIO_BUTTON(toggle)); + gtk_container_add (GTK_CONTAINER (frame), toggle); + gtk_widget_show (toggle); + g_signal_connect (toggle, "toggled", + G_CALLBACK (format_callback), + GINT_TO_POINTER (RGB_888)); + if (channels < 4) + { + BMPSaveData.rgb_format = RGB_888; + gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (toggle), TRUE); + } + + frame = gimp_frame_new (_("32 bits")); + gtk_box_pack_start (GTK_BOX (vbox2), frame, FALSE, FALSE, 0); + gtk_widget_show (frame); + + vbox = gtk_box_new (GTK_ORIENTATION_VERTICAL, 6); + gtk_container_add (GTK_CONTAINER (frame), vbox); + gtk_widget_show (vbox); + + toggle = gtk_radio_button_new_with_mnemonic (group, "A8 R8 G8 _B8"); + group = gtk_radio_button_get_group (GTK_RADIO_BUTTON (toggle)); + gtk_box_pack_start (GTK_BOX (vbox), toggle, FALSE, FALSE, 0); + gtk_widget_show (toggle); + g_signal_connect (toggle, "toggled", + G_CALLBACK (format_callback), + GINT_TO_POINTER (RGBA_8888)); + + + if (channels < 4) + { + gtk_widget_set_sensitive (toggle, FALSE); + } + else + { + BMPSaveData.rgb_format = RGBA_8888; + gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (toggle), TRUE); + } + + toggle = gtk_radio_button_new_with_mnemonic (group, "X8 R8 G8 _B8"); + group = gtk_radio_button_get_group (GTK_RADIO_BUTTON (toggle)); + gtk_box_pack_start (GTK_BOX (vbox), toggle, FALSE, FALSE, 0); + gtk_widget_show (toggle); + g_signal_connect (toggle, "toggled", + G_CALLBACK (format_callback), + GINT_TO_POINTER (RGBX_8888)); + + /* Dialog show */ + gtk_widget_show (dialog); + + run = (gimp_dialog_run (GIMP_DIALOG (dialog)) == GTK_RESPONSE_OK); + + gtk_widget_destroy (dialog); + + return run; +} |