/* 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 * * pika_brush_generated module Copyright 1998 Jay Cox * * 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 . */ #include "config.h" #include #include #include "libpikabase/pikabase.h" #include "libpikamath/pikamath.h" #include "core-types.h" #include "pikabrush-private.h" #include "pikabrushgenerated.h" #include "pikabrushgenerated-load.h" #include "pikabrushgenerated-save.h" #include "pikatempbuf.h" #include "pika-intl.h" #define OVERSAMPLING 4 enum { PROP_0, PROP_SHAPE, PROP_RADIUS, PROP_SPIKES, PROP_HARDNESS, PROP_ASPECT_RATIO, PROP_ANGLE }; /* local function prototypes */ static void pika_brush_generated_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec); static void pika_brush_generated_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec); static void pika_brush_generated_dirty (PikaData *data); static const gchar * pika_brush_generated_get_extension (PikaData *data); static void pika_brush_generated_copy (PikaData *data, PikaData *src_data); static void pika_brush_generated_transform_size(PikaBrush *gbrush, gdouble scale, gdouble aspect_ratio, gdouble angle, gboolean reflect, gint *width, gint *height); static PikaTempBuf * pika_brush_generated_transform_mask(PikaBrush *gbrush, gdouble scale, gdouble aspect_ratio, gdouble angle, gboolean reflect, gdouble hardness); static PikaTempBuf * pika_brush_generated_calc (PikaBrushGenerated *brush, PikaBrushGeneratedShape shape, gfloat radius, gint spikes, gfloat hardness, gfloat aspect_ratio, gfloat angle, gboolean reflect, PikaVector2 *xaxis, PikaVector2 *yaxis); static void pika_brush_generated_get_size (PikaBrushGenerated *gbrush, PikaBrushGeneratedShape shape, gfloat radius, gint spikes, gfloat hardness, gfloat aspect_ratio, gdouble angle_in_degrees, gboolean reflect, gint *width, gint *height, gdouble *_s, gdouble *_c, PikaVector2 *_x_axis, PikaVector2 *_y_axis); G_DEFINE_TYPE (PikaBrushGenerated, pika_brush_generated, PIKA_TYPE_BRUSH) #define parent_class pika_brush_generated_parent_class static void pika_brush_generated_class_init (PikaBrushGeneratedClass *klass) { GObjectClass *object_class = G_OBJECT_CLASS (klass); PikaDataClass *data_class = PIKA_DATA_CLASS (klass); PikaBrushClass *brush_class = PIKA_BRUSH_CLASS (klass); object_class->set_property = pika_brush_generated_set_property; object_class->get_property = pika_brush_generated_get_property; data_class->save = pika_brush_generated_save; data_class->dirty = pika_brush_generated_dirty; data_class->get_extension = pika_brush_generated_get_extension; data_class->copy = pika_brush_generated_copy; brush_class->transform_size = pika_brush_generated_transform_size; brush_class->transform_mask = pika_brush_generated_transform_mask; g_object_class_install_property (object_class, PROP_SHAPE, g_param_spec_enum ("shape", NULL, _("Brush Shape"), PIKA_TYPE_BRUSH_GENERATED_SHAPE, PIKA_BRUSH_GENERATED_CIRCLE, PIKA_PARAM_READWRITE | G_PARAM_CONSTRUCT)); g_object_class_install_property (object_class, PROP_RADIUS, g_param_spec_double ("radius", NULL, _("Brush Radius"), 0.1, 4000.0, 5.0, PIKA_PARAM_READWRITE | G_PARAM_CONSTRUCT)); g_object_class_install_property (object_class, PROP_SPIKES, g_param_spec_int ("spikes", NULL, _("Brush Spikes"), 2, 20, 2, PIKA_PARAM_READWRITE | G_PARAM_CONSTRUCT)); g_object_class_install_property (object_class, PROP_HARDNESS, g_param_spec_double ("hardness", NULL, _("Brush Hardness"), 0.0, 1.0, 0.0, PIKA_PARAM_READWRITE | G_PARAM_CONSTRUCT)); g_object_class_install_property (object_class, PROP_ASPECT_RATIO, g_param_spec_double ("aspect-ratio", NULL, _("Brush Aspect Ratio"), 1.0, 20.0, 1.0, PIKA_PARAM_READWRITE | G_PARAM_CONSTRUCT)); g_object_class_install_property (object_class, PROP_ANGLE, g_param_spec_double ("angle", NULL, _("Brush Angle"), 0.0, 180.0, 0.0, PIKA_PARAM_READWRITE | G_PARAM_CONSTRUCT)); } static void pika_brush_generated_init (PikaBrushGenerated *brush) { brush->shape = PIKA_BRUSH_GENERATED_CIRCLE; brush->radius = 5.0; brush->hardness = 0.0; brush->aspect_ratio = 1.0; brush->angle = 0.0; } static void pika_brush_generated_set_property (GObject *object, guint property_id, const GValue *value, GParamSpec *pspec) { PikaBrushGenerated *brush = PIKA_BRUSH_GENERATED (object); switch (property_id) { case PROP_SHAPE: pika_brush_generated_set_shape (brush, g_value_get_enum (value)); break; case PROP_RADIUS: pika_brush_generated_set_radius (brush, g_value_get_double (value)); break; case PROP_SPIKES: pika_brush_generated_set_spikes (brush, g_value_get_int (value)); break; case PROP_HARDNESS: pika_brush_generated_set_hardness (brush, g_value_get_double (value)); break; case PROP_ASPECT_RATIO: pika_brush_generated_set_aspect_ratio (brush, g_value_get_double (value)); break; case PROP_ANGLE: pika_brush_generated_set_angle (brush, g_value_get_double (value)); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec); break; } } static void pika_brush_generated_get_property (GObject *object, guint property_id, GValue *value, GParamSpec *pspec) { PikaBrushGenerated *brush = PIKA_BRUSH_GENERATED (object); switch (property_id) { case PROP_SHAPE: g_value_set_enum (value, brush->shape); break; case PROP_RADIUS: g_value_set_double (value, brush->radius); break; case PROP_SPIKES: g_value_set_int (value, brush->spikes); break; case PROP_HARDNESS: g_value_set_double (value, brush->hardness); break; case PROP_ASPECT_RATIO: g_value_set_double (value, brush->aspect_ratio); break; case PROP_ANGLE: g_value_set_double (value, brush->angle); break; default: G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec); break; } } static void pika_brush_generated_dirty (PikaData *data) { PikaBrushGenerated *brush = PIKA_BRUSH_GENERATED (data); PikaBrush *gbrush = PIKA_BRUSH (brush); g_clear_pointer (&gbrush->priv->mask, pika_temp_buf_unref); gbrush->priv->mask = pika_brush_generated_calc (brush, brush->shape, brush->radius, brush->spikes, brush->hardness, brush->aspect_ratio, brush->angle, FALSE, &gbrush->priv->x_axis, &gbrush->priv->y_axis); PIKA_DATA_CLASS (parent_class)->dirty (data); } static const gchar * pika_brush_generated_get_extension (PikaData *data) { return PIKA_BRUSH_GENERATED_FILE_EXTENSION; } static void pika_brush_generated_copy (PikaData *data, PikaData *src_data) { PikaBrushGenerated *brush = PIKA_BRUSH_GENERATED (data); PikaBrushGenerated *src_brush = PIKA_BRUSH_GENERATED (src_data); pika_data_freeze (data); pika_brush_set_spacing (PIKA_BRUSH (brush), pika_brush_get_spacing (PIKA_BRUSH (src_brush))); brush->shape = src_brush->shape; brush->radius = src_brush->radius; brush->spikes = src_brush->spikes; brush->hardness = src_brush->hardness; brush->aspect_ratio = src_brush->aspect_ratio; brush->angle = src_brush->angle; pika_data_thaw (data); } static void pika_brush_generated_transform_size (PikaBrush *gbrush, gdouble scale, gdouble aspect_ratio, gdouble angle, gboolean reflect, gint *width, gint *height) { PikaBrushGenerated *brush = PIKA_BRUSH_GENERATED (gbrush); gdouble ratio; ratio = fabs (aspect_ratio) * 19.0 / 20.0 + 1.0; ratio = MIN (ratio, 20); /* Since generated brushes are symmetric they don't have aspect * ratios < 1.0. it's the same as rotating by 90 degrees and 1 / * ratio, so we fix the input for this case. */ if (aspect_ratio < 0.0) angle = angle + 0.25; angle = fmod (fmod (angle, 1.0) + 1.0, 1.0); angle *= 360; pika_brush_generated_get_size (brush, brush->shape, brush->radius * scale, brush->spikes, brush->hardness, ratio, angle, reflect, width, height, NULL, NULL, NULL, NULL); } static PikaTempBuf * pika_brush_generated_transform_mask (PikaBrush *gbrush, gdouble scale, gdouble aspect_ratio, gdouble angle, gboolean reflect, gdouble hardness) { PikaBrushGenerated *brush = PIKA_BRUSH_GENERATED (gbrush); gdouble ratio; ratio = fabs (aspect_ratio) * 19.0 / 20.0 + 1.0; ratio = MIN (ratio, 20); /* Since generated brushes are symmetric they don't have aspect * ratios < 1.0. it's the same as rotating by 90 degrees and 1 / * ratio, so we fix the input for this case. */ if (aspect_ratio < 0.0) angle = angle + 0.25; angle = fmod (fmod (angle, 1.0) + 1.0, 1.0); angle *= 360; if (scale == 1.0 && ratio == brush->aspect_ratio && angle == brush->angle && reflect == FALSE && hardness == brush->hardness) { return pika_temp_buf_copy (pika_brush_get_mask (gbrush)); } return pika_brush_generated_calc (brush, brush->shape, brush->radius * scale, brush->spikes, hardness, ratio, angle, reflect, NULL, NULL); } /* the actual brush rendering functions */ static gdouble gauss (gdouble f) { /* this aint' a real gauss function */ if (f < -0.5) { f = -1.0 - f; return (2.0 * f*f); } if (f < 0.5) return (1.0 - 2.0 * f*f); f = 1.0 - f; return (2.0 * f*f); } /* set up lookup table */ static gfloat * pika_brush_generated_calc_lut (gdouble radius, gdouble hardness) { gfloat *lookup; gint length; gint x; gdouble d; gdouble sum; gdouble exponent; gdouble buffer[OVERSAMPLING]; length = OVERSAMPLING * ceil (1 + sqrt (2 * SQR (ceil (radius + 1.0)))); lookup = gegl_scratch_new (gfloat, length); sum = 0.0; if ((1.0 - hardness) < 0.0000004) exponent = 1000000.0; else exponent = 0.4 / (1.0 - hardness); for (x = 0; x < OVERSAMPLING; x++) { d = fabs ((x + 0.5) / OVERSAMPLING - 0.5); if (d > radius) buffer[x] = 0.0; else buffer[x] = gauss (pow (d / radius, exponent)); sum += buffer[x]; } for (x = 0; d < radius || sum > 0.00001; d += 1.0 / OVERSAMPLING) { sum -= buffer[x % OVERSAMPLING]; if (d > radius) buffer[x % OVERSAMPLING] = 0.0; else buffer[x % OVERSAMPLING] = gauss (pow (d / radius, exponent)); sum += buffer[x % OVERSAMPLING]; lookup[x++] = sum / OVERSAMPLING; } while (x < length) { lookup[x++] = 0.0f; } return lookup; } static PikaTempBuf * pika_brush_generated_calc (PikaBrushGenerated *brush, PikaBrushGeneratedShape shape, gfloat radius, gint spikes, gfloat hardness, gfloat aspect_ratio, gfloat angle, gboolean reflect, PikaVector2 *xaxis, PikaVector2 *yaxis) { gfloat *centerp; gfloat *lookup; gfloat a; gint x, y; gdouble c, s, cs, ss; PikaVector2 x_axis; PikaVector2 y_axis; PikaTempBuf *mask; gint width; gint height; gint half_width; gint half_height; pika_brush_generated_get_size (brush, shape, radius, spikes, hardness, aspect_ratio, angle, reflect, &width, &height, &s, &c, &x_axis, &y_axis); mask = pika_temp_buf_new (width, height, babl_format ("Y float")); half_width = width / 2; half_height = height / 2; centerp = (gfloat *) pika_temp_buf_get_data (mask) + half_height * width + half_width; lookup = pika_brush_generated_calc_lut (radius, hardness); cs = cos (- 2 * G_PI / spikes); ss = sin (- 2 * G_PI / spikes); /* for an even number of spikes compute one half and mirror it */ for (y = ((spikes % 2) ? -half_height : 0); y <= half_height; y++) { for (x = -half_width; x <= half_width; x++) { gdouble d = 0; gdouble tx = c * x - s * y; gdouble ty = fabs (s * x + c * y); if (spikes > 2) { gdouble angle = atan2 (ty, tx); while (angle > G_PI / spikes) { gdouble sx = tx; gdouble sy = ty; tx = cs * sx - ss * sy; ty = ss * sx + cs * sy; angle -= 2 * G_PI / spikes; } } ty *= aspect_ratio; switch (shape) { case PIKA_BRUSH_GENERATED_CIRCLE: d = sqrt (SQR (tx) + SQR (ty)); break; case PIKA_BRUSH_GENERATED_SQUARE: d = MAX (fabs (tx), fabs (ty)); break; case PIKA_BRUSH_GENERATED_DIAMOND: d = fabs (tx) + fabs (ty); break; } if (d < radius + 1) a = lookup[(gint) RINT (d * OVERSAMPLING)]; else a = 0.0f; centerp[y * width + x] = a; if (spikes % 2 == 0) centerp[-1 * y * width - x] = a; } } gegl_scratch_free (lookup); if (xaxis) *xaxis = x_axis; if (yaxis) *yaxis = y_axis; return mask; } /* This function is shared between pika_brush_generated_transform_size and * pika_brush_generated_calc, therefore we provide a bunch of optional * pointers for returnvalues. */ static void pika_brush_generated_get_size (PikaBrushGenerated *gbrush, PikaBrushGeneratedShape shape, gfloat radius, gint spikes, gfloat hardness, gfloat aspect_ratio, gdouble angle_in_degrees, gboolean reflect, gint *width, gint *height, gdouble *_s, gdouble *_c, PikaVector2 *_x_axis, PikaVector2 *_y_axis) { gdouble half_width = 0.0; gdouble half_height = 0.0; gint w, h; gdouble c, s; gdouble short_radius; PikaVector2 x_axis; PikaVector2 y_axis; /* Since floatongpoint is not really accurate, * we need to round to limit the errors. * Errors in some border cases resulted in * different height and width reported for * the same input value on calling procedure side. * This became problem at the rise of dynamics that * allows for any angle to turn up. **/ angle_in_degrees = RINT (angle_in_degrees * 1000.0) / 1000.0; s = sin (pika_deg_to_rad (angle_in_degrees)); c = cos (pika_deg_to_rad (angle_in_degrees)); if (reflect) c = -c; short_radius = radius / aspect_ratio; x_axis.x = c * radius; x_axis.y = -1.0 * s * radius; y_axis.x = s * short_radius; y_axis.y = c * short_radius; switch (shape) { case PIKA_BRUSH_GENERATED_CIRCLE: half_width = sqrt (x_axis.x * x_axis.x + y_axis.x * y_axis.x); half_height = sqrt (x_axis.y * x_axis.y + y_axis.y * y_axis.y); break; case PIKA_BRUSH_GENERATED_SQUARE: half_width = fabs (x_axis.x) + fabs (y_axis.x); half_height = fabs (x_axis.y) + fabs (y_axis.y); break; case PIKA_BRUSH_GENERATED_DIAMOND: half_width = MAX (fabs (x_axis.x), fabs (y_axis.x)); half_height = MAX (fabs (x_axis.y), fabs (y_axis.y)); break; } if (spikes > 2) { /* could be optimized by respecting the angle */ half_width = half_height = sqrt (radius * radius + short_radius * short_radius); y_axis.x = s * radius; y_axis.y = c * radius; } w = MAX (1, ceil (half_width * 2)); h = MAX (1, ceil (half_height * 2)); if (! (w & 0x1)) w++; if (! (h & 0x1)) h++; *width = w; *height = h; /* These will typically be set then this function is called by * pika_brush_generated_calc, which needs the values in its algorithms. */ if (_s != NULL) *_s = s; if (_c != NULL) *_c = c; if (_x_axis != NULL) *_x_axis = x_axis; if (_y_axis != NULL) *_y_axis = y_axis; } /* public functions */ PikaData * pika_brush_generated_new (const gchar *name, PikaBrushGeneratedShape shape, gfloat radius, gint spikes, gfloat hardness, gfloat aspect_ratio, gfloat angle) { PikaBrushGenerated *brush; g_return_val_if_fail (name != NULL, NULL); g_return_val_if_fail (*name != '\0', NULL); brush = g_object_new (PIKA_TYPE_BRUSH_GENERATED, "name", name, "mime-type", "application/x-pika-brush-generated", "spacing", 20.0, "shape", shape, "radius", radius, "spikes", spikes, "hardness", hardness, "aspect-ratio", aspect_ratio, "angle", angle, NULL); return PIKA_DATA (brush); } PikaBrushGeneratedShape pika_brush_generated_set_shape (PikaBrushGenerated *brush, PikaBrushGeneratedShape shape) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), PIKA_BRUSH_GENERATED_CIRCLE); if (brush->shape != shape) { brush->shape = shape; g_object_notify (G_OBJECT (brush), "shape"); pika_data_dirty (PIKA_DATA (brush)); } return brush->shape; } gfloat pika_brush_generated_set_radius (PikaBrushGenerated *brush, gfloat radius) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), -1.0); radius = CLAMP (radius, 0.0, 32767.0); if (brush->radius != radius) { brush->radius = radius; g_object_notify (G_OBJECT (brush), "radius"); pika_data_dirty (PIKA_DATA (brush)); } return brush->radius; } gint pika_brush_generated_set_spikes (PikaBrushGenerated *brush, gint spikes) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), -1); spikes = CLAMP (spikes, 2, 20); if (brush->spikes != spikes) { brush->spikes = spikes; g_object_notify (G_OBJECT (brush), "spikes"); pika_data_dirty (PIKA_DATA (brush)); } return brush->spikes; } gfloat pika_brush_generated_set_hardness (PikaBrushGenerated *brush, gfloat hardness) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), -1.0); hardness = CLAMP (hardness, 0.0, 1.0); if (brush->hardness != hardness) { brush->hardness = hardness; g_object_notify (G_OBJECT (brush), "hardness"); pika_data_dirty (PIKA_DATA (brush)); } return brush->hardness; } gfloat pika_brush_generated_set_aspect_ratio (PikaBrushGenerated *brush, gfloat ratio) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), -1.0); ratio = CLAMP (ratio, 1.0, 1000.0); if (brush->aspect_ratio != ratio) { brush->aspect_ratio = ratio; g_object_notify (G_OBJECT (brush), "aspect-ratio"); pika_data_dirty (PIKA_DATA (brush)); } return brush->aspect_ratio; } gfloat pika_brush_generated_set_angle (PikaBrushGenerated *brush, gfloat angle) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), -1.0); if (angle < 0.0) angle = -1.0 * fmod (angle, 180.0); else if (angle > 180.0) angle = fmod (angle, 180.0); if (brush->angle != angle) { brush->angle = angle; g_object_notify (G_OBJECT (brush), "angle"); pika_data_dirty (PIKA_DATA (brush)); } return brush->angle; } PikaBrushGeneratedShape pika_brush_generated_get_shape (PikaBrushGenerated *brush) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), PIKA_BRUSH_GENERATED_CIRCLE); return brush->shape; } gfloat pika_brush_generated_get_radius (PikaBrushGenerated *brush) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), -1.0); return brush->radius; } gint pika_brush_generated_get_spikes (PikaBrushGenerated *brush) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), -1); return brush->spikes; } gfloat pika_brush_generated_get_hardness (PikaBrushGenerated *brush) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), -1.0); return brush->hardness; } gfloat pika_brush_generated_get_aspect_ratio (PikaBrushGenerated *brush) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), -1.0); return brush->aspect_ratio; } gfloat pika_brush_generated_get_angle (PikaBrushGenerated *brush) { g_return_val_if_fail (PIKA_IS_BRUSH_GENERATED (brush), -1.0); return brush->angle; }