PIKApp/app/core/pikatempbuf.c

455 lines
11 KiB
C
Raw Permalink Normal View History

2023-09-26 00:35:21 +02:00
/* PIKA - Photo and Image Kooker Application
* a rebranding of The GNU Image Manipulation Program (created with heckimp)
* A derived work which may be trivial. However, any changes may be (C)2023 by Aldercone Studio
*
* Original copyright, applying to most contents (license remains unchanged):
* 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 <string.h>
#include <cairo.h>
#include <gegl.h>
#include <gegl-utils.h>
#include <glib/gstdio.h>
#include <gdk-pixbuf/gdk-pixbuf.h>
#include "core-types.h"
#include "libpikacolor/pikacolor.h"
#include "pikatempbuf.h"
#define LOCK_DATA_ALIGNMENT 16
struct _PikaTempBuf
{
gint ref_count;
gint width;
gint height;
const Babl *format;
guchar *data;
};
typedef struct
{
const Babl *format;
GeglAccessMode access_mode;
} LockData;
G_STATIC_ASSERT (sizeof (LockData) <= LOCK_DATA_ALIGNMENT);
/* local variables */
static guintptr pika_temp_buf_total_memsize = 0;
/* public functions */
PikaTempBuf *
pika_temp_buf_new (gint width,
gint height,
const Babl *format)
{
PikaTempBuf *temp;
gint bpp;
g_return_val_if_fail (format != NULL, NULL);
bpp = babl_format_get_bytes_per_pixel (format);
g_return_val_if_fail (width > 0 && height > 0 && bpp > 0, NULL);
g_return_val_if_fail (G_MAXSIZE / width / height / bpp > 0, NULL);
temp = g_slice_new (PikaTempBuf);
temp->ref_count = 1;
temp->width = width;
temp->height = height;
temp->format = format;
temp->data = gegl_malloc ((gsize) width * height * bpp);
g_atomic_pointer_add (&pika_temp_buf_total_memsize,
+pika_temp_buf_get_memsize (temp));
return temp;
}
PikaTempBuf *
pika_temp_buf_new_from_pixbuf (GdkPixbuf *pixbuf,
const Babl *f_or_null)
{
const Babl *format = f_or_null;
const Babl *fish = NULL;
PikaTempBuf *temp_buf;
const guchar *pixels;
gint width;
gint height;
gint rowstride;
gint bpp;
guchar *data;
gint i;
g_return_val_if_fail (GDK_IS_PIXBUF (pixbuf), NULL);
if (! format)
format = pika_pixbuf_get_format (pixbuf);
pixels = gdk_pixbuf_get_pixels (pixbuf);
width = gdk_pixbuf_get_width (pixbuf);
height = gdk_pixbuf_get_height (pixbuf);
rowstride = gdk_pixbuf_get_rowstride (pixbuf);
temp_buf = pika_temp_buf_new (width, height, format);
data = pika_temp_buf_get_data (temp_buf);
bpp = babl_format_get_bytes_per_pixel (format);
if (pika_pixbuf_get_format (pixbuf) != format)
fish = babl_fish (pika_pixbuf_get_format (pixbuf), format);
for (i = 0; i < height; i++)
{
if (fish)
babl_process (fish, pixels, data, width);
else
memcpy (data, pixels, width * bpp);
data += width * bpp;
pixels += rowstride;
}
return temp_buf;
}
PikaTempBuf *
pika_temp_buf_copy (const PikaTempBuf *src)
{
PikaTempBuf *dest;
g_return_val_if_fail (src != NULL, NULL);
dest = pika_temp_buf_new (src->width, src->height, src->format);
memcpy (pika_temp_buf_get_data (dest),
pika_temp_buf_get_data (src),
pika_temp_buf_get_data_size (src));
return dest;
}
PikaTempBuf *
pika_temp_buf_ref (const PikaTempBuf *buf)
{
g_return_val_if_fail (buf != NULL, NULL);
g_atomic_int_inc ((gint *) &buf->ref_count);
return (PikaTempBuf *) buf;
}
void
pika_temp_buf_unref (const PikaTempBuf *buf)
{
g_return_if_fail (buf != NULL);
g_return_if_fail (buf->ref_count > 0);
if (g_atomic_int_dec_and_test ((gint *) &buf->ref_count))
{
g_atomic_pointer_add (&pika_temp_buf_total_memsize,
-pika_temp_buf_get_memsize (buf));
if (buf->data)
gegl_free (buf->data);
g_slice_free (PikaTempBuf, (PikaTempBuf *) buf);
}
}
PikaTempBuf *
pika_temp_buf_scale (const PikaTempBuf *src,
gint new_width,
gint new_height)
{
PikaTempBuf *dest;
const guchar *src_data;
guchar *dest_data;
gdouble x_ratio;
gdouble y_ratio;
gint bytes;
gint loop1;
gint loop2;
g_return_val_if_fail (src != NULL, NULL);
g_return_val_if_fail (new_width > 0 && new_height > 0, NULL);
if (new_width == src->width && new_height == src->height)
return pika_temp_buf_copy (src);
dest = pika_temp_buf_new (new_width,
new_height,
src->format);
src_data = pika_temp_buf_get_data (src);
dest_data = pika_temp_buf_get_data (dest);
x_ratio = (gdouble) src->width / (gdouble) new_width;
y_ratio = (gdouble) src->height / (gdouble) new_height;
bytes = babl_format_get_bytes_per_pixel (src->format);
for (loop1 = 0 ; loop1 < new_height ; loop1++)
{
for (loop2 = 0 ; loop2 < new_width ; loop2++)
{
const guchar *src_pixel;
guchar *dest_pixel;
gint i;
src_pixel = src_data +
(gint) (loop2 * x_ratio) * bytes +
(gint) (loop1 * y_ratio) * bytes * src->width;
dest_pixel = dest_data +
(loop2 + loop1 * new_width) * bytes;
for (i = 0 ; i < bytes; i++)
*dest_pixel++ = *src_pixel++;
}
}
return dest;
}
gint
pika_temp_buf_get_width (const PikaTempBuf *buf)
{
return buf->width;
}
gint
pika_temp_buf_get_height (const PikaTempBuf *buf)
{
return buf->height;
}
const Babl *
pika_temp_buf_get_format (const PikaTempBuf *buf)
{
return buf->format;
}
void
pika_temp_buf_set_format (PikaTempBuf *buf,
const Babl *format)
{
g_return_if_fail (babl_format_get_bytes_per_pixel (buf->format) ==
babl_format_get_bytes_per_pixel (format));
buf->format = format;
}
guchar *
pika_temp_buf_get_data (const PikaTempBuf *buf)
{
return buf->data;
}
gsize
pika_temp_buf_get_data_size (const PikaTempBuf *buf)
{
return (gsize) babl_format_get_bytes_per_pixel (buf->format) *
buf->width * buf->height;
}
guchar *
pika_temp_buf_data_clear (PikaTempBuf *buf)
{
memset (buf->data, 0, pika_temp_buf_get_data_size (buf));
return buf->data;
}
gpointer
pika_temp_buf_lock (const PikaTempBuf *buf,
const Babl *format,
GeglAccessMode access_mode)
{
guchar *data;
LockData *lock_data;
gint n_pixels;
gint bpp;
g_return_val_if_fail (buf != NULL, NULL);
if (! format || format == buf->format)
return pika_temp_buf_get_data (buf);
n_pixels = buf->width * buf->height;
bpp = babl_format_get_bytes_per_pixel (format);
data = gegl_scratch_alloc (LOCK_DATA_ALIGNMENT + n_pixels * bpp);
if ((guintptr) data % LOCK_DATA_ALIGNMENT)
{
g_free (data);
g_return_val_if_reached (NULL);
}
lock_data = (LockData *) data;
lock_data->format = format;
lock_data->access_mode = access_mode;
data += LOCK_DATA_ALIGNMENT;
if (access_mode & GEGL_ACCESS_READ)
{
babl_process (babl_fish (buf->format, format),
pika_temp_buf_get_data (buf),
data,
n_pixels);
}
return data;
}
void
pika_temp_buf_unlock (const PikaTempBuf *buf,
gconstpointer data)
{
LockData *lock_data;
g_return_if_fail (buf != NULL);
g_return_if_fail (data != NULL);
if (data == buf->data)
return;
lock_data = (LockData *) ((const guint8 *) data - LOCK_DATA_ALIGNMENT);
if (lock_data->access_mode & GEGL_ACCESS_WRITE)
{
babl_process (babl_fish (lock_data->format, buf->format),
data,
pika_temp_buf_get_data (buf),
buf->width * buf->height);
}
gegl_scratch_free (lock_data);
}
gsize
pika_temp_buf_get_memsize (const PikaTempBuf *buf)
{
if (buf)
return (sizeof (PikaTempBuf) + pika_temp_buf_get_data_size (buf));
return 0;
}
GeglBuffer *
pika_temp_buf_create_buffer (const PikaTempBuf *temp_buf)
{
GeglBuffer *buffer;
g_return_val_if_fail (temp_buf != NULL, NULL);
buffer =
gegl_buffer_linear_new_from_data (pika_temp_buf_get_data (temp_buf),
temp_buf->format,
GEGL_RECTANGLE (0, 0,
temp_buf->width,
temp_buf->height),
GEGL_AUTO_ROWSTRIDE,
(GDestroyNotify) pika_temp_buf_unref,
pika_temp_buf_ref (temp_buf));
g_object_set_data (G_OBJECT (buffer),
"pika-temp-buf", (PikaTempBuf *) temp_buf);
return buffer;
}
GdkPixbuf *
pika_temp_buf_create_pixbuf (const PikaTempBuf *temp_buf)
{
GdkPixbuf *pixbuf;
const Babl *format;
const Babl *fish = NULL;
const guchar *data;
gint width;
gint height;
gint bpp;
guchar *pixels;
gint rowstride;
gint i;
g_return_val_if_fail (temp_buf != NULL, NULL);
data = pika_temp_buf_get_data (temp_buf);
format = pika_temp_buf_get_format (temp_buf);
width = pika_temp_buf_get_width (temp_buf);
height = pika_temp_buf_get_height (temp_buf);
bpp = babl_format_get_bytes_per_pixel (format);
pixbuf = gdk_pixbuf_new (GDK_COLORSPACE_RGB,
babl_format_has_alpha (format),
8, width, height);
pixels = gdk_pixbuf_get_pixels (pixbuf);
rowstride = gdk_pixbuf_get_rowstride (pixbuf);
if (format != pika_pixbuf_get_format (pixbuf))
fish = babl_fish (format, pika_pixbuf_get_format (pixbuf));
for (i = 0; i < height; i++)
{
if (fish)
babl_process (fish, data, pixels, width);
else
memcpy (pixels, data, width * bpp);
data += width * bpp;
pixels += rowstride;
}
return pixbuf;
}
PikaTempBuf *
pika_gegl_buffer_get_temp_buf (GeglBuffer *buffer)
{
g_return_val_if_fail (GEGL_IS_BUFFER (buffer), NULL);
return g_object_get_data (G_OBJECT (buffer), "pika-temp-buf");
}
/* public functions (stats) */
guint64
pika_temp_buf_get_total_memsize (void)
{
return pika_temp_buf_total_memsize;
}