/* 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 .
*/
#include "config.h"
#include
#include
#include
#include
#include "libpikacolor/pikacolor.h"
#include "libpikamath/pikamath.h"
#include "core-types.h"
#include "pikacontext.h"
#include "pikagradient.h"
#include "pikagradient-load.h"
#include "pikagradient-save.h"
#include "pikatagged.h"
#include "pikatempbuf.h"
#define EPSILON 1e-10
static void pika_gradient_tagged_iface_init (PikaTaggedInterface *iface);
static void pika_gradient_finalize (GObject *object);
static gint64 pika_gradient_get_memsize (PikaObject *object,
gint64 *gui_size);
static void pika_gradient_get_preview_size (PikaViewable *viewable,
gint size,
gboolean popup,
gboolean dot_for_dot,
gint *width,
gint *height);
static gboolean pika_gradient_get_popup_size (PikaViewable *viewable,
gint width,
gint height,
gboolean dot_for_dot,
gint *popup_width,
gint *popup_height);
static PikaTempBuf * pika_gradient_get_new_preview (PikaViewable *viewable,
PikaContext *context,
gint width,
gint height);
static const gchar * pika_gradient_get_extension (PikaData *data);
static void pika_gradient_copy (PikaData *data,
PikaData *src_data);
static gint pika_gradient_compare (PikaData *data1,
PikaData *data2);
static gchar * pika_gradient_get_checksum (PikaTagged *tagged);
static inline PikaGradientSegment *
pika_gradient_get_segment_at_internal (PikaGradient *gradient,
PikaGradientSegment *seg,
gdouble pos);
static void pika_gradient_get_flat_color (PikaContext *context,
const PikaRGB *color,
PikaGradientColor color_type,
PikaRGB *flat_color);
static inline gdouble pika_gradient_calc_linear_factor (gdouble middle,
gdouble pos);
static inline gdouble pika_gradient_calc_curved_factor (gdouble middle,
gdouble pos);
static inline gdouble pika_gradient_calc_sine_factor (gdouble middle,
gdouble pos);
static inline gdouble pika_gradient_calc_sphere_increasing_factor (gdouble middle,
gdouble pos);
static inline gdouble pika_gradient_calc_sphere_decreasing_factor (gdouble middle,
gdouble pos);
static inline gdouble pika_gradient_calc_step_factor (gdouble middle,
gdouble pos);
G_DEFINE_TYPE_WITH_CODE (PikaGradient, pika_gradient, PIKA_TYPE_DATA,
G_IMPLEMENT_INTERFACE (PIKA_TYPE_TAGGED,
pika_gradient_tagged_iface_init))
#define parent_class pika_gradient_parent_class
static const Babl *fish_srgb_to_linear_rgb = NULL;
static const Babl *fish_linear_rgb_to_srgb = NULL;
static const Babl *fish_srgb_to_cie_lab = NULL;
static const Babl *fish_cie_lab_to_srgb = NULL;
static void
pika_gradient_class_init (PikaGradientClass *klass)
{
GObjectClass *object_class = G_OBJECT_CLASS (klass);
PikaObjectClass *pika_object_class = PIKA_OBJECT_CLASS (klass);
PikaViewableClass *viewable_class = PIKA_VIEWABLE_CLASS (klass);
PikaDataClass *data_class = PIKA_DATA_CLASS (klass);
object_class->finalize = pika_gradient_finalize;
pika_object_class->get_memsize = pika_gradient_get_memsize;
viewable_class->default_icon_name = "pika-tool-gradient";
viewable_class->get_preview_size = pika_gradient_get_preview_size;
viewable_class->get_popup_size = pika_gradient_get_popup_size;
viewable_class->get_new_preview = pika_gradient_get_new_preview;
data_class->save = pika_gradient_save;
data_class->get_extension = pika_gradient_get_extension;
data_class->copy = pika_gradient_copy;
data_class->compare = pika_gradient_compare;
fish_srgb_to_linear_rgb = babl_fish (babl_format ("R'G'B' double"),
babl_format ("RGB double"));
fish_linear_rgb_to_srgb = babl_fish (babl_format ("RGB double"),
babl_format ("R'G'B' double"));
fish_srgb_to_cie_lab = babl_fish (babl_format ("R'G'B' double"),
babl_format ("CIE Lab double"));
fish_cie_lab_to_srgb = babl_fish (babl_format ("CIE Lab double"),
babl_format ("R'G'B' double"));
}
static void
pika_gradient_tagged_iface_init (PikaTaggedInterface *iface)
{
iface->get_checksum = pika_gradient_get_checksum;
}
static void
pika_gradient_init (PikaGradient *gradient)
{
gradient->segments = NULL;
}
static void
pika_gradient_finalize (GObject *object)
{
PikaGradient *gradient = PIKA_GRADIENT (object);
if (gradient->segments)
{
pika_gradient_segments_free (gradient->segments);
gradient->segments = NULL;
}
G_OBJECT_CLASS (parent_class)->finalize (object);
}
static gint64
pika_gradient_get_memsize (PikaObject *object,
gint64 *gui_size)
{
PikaGradient *gradient = PIKA_GRADIENT (object);
PikaGradientSegment *segment;
gint64 memsize = 0;
for (segment = gradient->segments; segment; segment = segment->next)
memsize += sizeof (PikaGradientSegment);
return memsize + PIKA_OBJECT_CLASS (parent_class)->get_memsize (object,
gui_size);
}
static void
pika_gradient_get_preview_size (PikaViewable *viewable,
gint size,
gboolean popup,
gboolean dot_for_dot,
gint *width,
gint *height)
{
*width = size;
*height = 1 + size / 2;
}
static gboolean
pika_gradient_get_popup_size (PikaViewable *viewable,
gint width,
gint height,
gboolean dot_for_dot,
gint *popup_width,
gint *popup_height)
{
if (width < 128 || height < 32)
{
*popup_width = 128;
*popup_height = 32;
return TRUE;
}
return FALSE;
}
static PikaTempBuf *
pika_gradient_get_new_preview (PikaViewable *viewable,
PikaContext *context,
gint width,
gint height)
{
PikaGradient *gradient = PIKA_GRADIENT (viewable);
PikaGradientSegment *seg = NULL;
PikaTempBuf *temp_buf;
guchar *buf;
guchar *p;
guchar *row;
gint x, y;
gdouble dx, cur_x;
PikaRGB color;
dx = 1.0 / (width - 1);
cur_x = 0.0;
p = row = g_malloc (width * 4);
/* Create lines to fill the image */
for (x = 0; x < width; x++)
{
seg = pika_gradient_get_color_at (gradient, context, seg, cur_x,
FALSE,
PIKA_GRADIENT_BLEND_RGB_PERCEPTUAL,
&color);
*p++ = ROUND (color.r * 255.0);
*p++ = ROUND (color.g * 255.0);
*p++ = ROUND (color.b * 255.0);
*p++ = ROUND (color.a * 255.0);
cur_x += dx;
}
temp_buf = pika_temp_buf_new (width, height, babl_format ("R'G'B'A u8"));
buf = pika_temp_buf_get_data (temp_buf);
for (y = 0; y < height; y++)
memcpy (buf + (width * y * 4), row, width * 4);
g_free (row);
return temp_buf;
}
static void
pika_gradient_copy (PikaData *data,
PikaData *src_data)
{
PikaGradient *gradient = PIKA_GRADIENT (data);
PikaGradient *src_gradient = PIKA_GRADIENT (src_data);
PikaGradientSegment *head, *prev, *cur, *orig;
if (gradient->segments)
{
pika_gradient_segments_free (gradient->segments);
gradient->segments = NULL;
}
prev = NULL;
orig = src_gradient->segments;
head = NULL;
while (orig)
{
cur = pika_gradient_segment_new ();
*cur = *orig; /* Copy everything */
cur->prev = prev;
cur->next = NULL;
if (prev)
prev->next = cur;
else
head = cur; /* Remember head */
prev = cur;
orig = orig->next;
}
gradient->segments = head;
pika_data_dirty (PIKA_DATA (gradient));
}
static gint
pika_gradient_compare (PikaData *data1,
PikaData *data2)
{
gboolean is_custom1;
gboolean is_custom2;
/* check whether data1 and data2 are the custom gradient, which is the only
* writable internal gradient.
*/
is_custom1 = pika_data_is_internal (data1) && pika_data_is_writable (data1);
is_custom2 = pika_data_is_internal (data2) && pika_data_is_writable (data2);
/* order the custom gradient before all the other gradients; use the default
* ordering for the rest.
*/
if (is_custom1)
{
if (is_custom2)
return 0;
else
return -1;
}
else if (is_custom2)
{
return +1;
}
else
return PIKA_DATA_CLASS (parent_class)->compare (data1, data2);
}
static gchar *
pika_gradient_get_checksum (PikaTagged *tagged)
{
PikaGradient *gradient = PIKA_GRADIENT (tagged);
gchar *checksum_string = NULL;
if (gradient->segments)
{
GChecksum *checksum = g_checksum_new (G_CHECKSUM_MD5);
PikaGradientSegment *segment = gradient->segments;
while (segment)
{
g_checksum_update (checksum,
(const guchar *) &segment->left,
sizeof (segment->left));
g_checksum_update (checksum,
(const guchar *) &segment->middle,
sizeof (segment->middle));
g_checksum_update (checksum,
(const guchar *) &segment->right,
sizeof (segment->right));
g_checksum_update (checksum,
(const guchar *) &segment->left_color_type,
sizeof (segment->left_color_type));
g_checksum_update (checksum,
(const guchar *) &segment->left_color,
sizeof (segment->left_color));
g_checksum_update (checksum,
(const guchar *) &segment->right_color_type,
sizeof (segment->right_color_type));
g_checksum_update (checksum,
(const guchar *) &segment->right_color,
sizeof (segment->right_color));
g_checksum_update (checksum,
(const guchar *) &segment->type,
sizeof (segment->type));
g_checksum_update (checksum,
(const guchar *) &segment->color,
sizeof (segment->color));
segment = segment->next;
}
checksum_string = g_strdup (g_checksum_get_string (checksum));
g_checksum_free (checksum);
}
return checksum_string;
}
/* public functions */
PikaData *
pika_gradient_new (PikaContext *context,
const gchar *name)
{
PikaGradient *gradient;
g_return_val_if_fail (name != NULL, NULL);
g_return_val_if_fail (*name != '\0', NULL);
gradient = g_object_new (PIKA_TYPE_GRADIENT,
"name", name,
NULL);
gradient->segments = pika_gradient_segment_new ();
return PIKA_DATA (gradient);
}
PikaData *
pika_gradient_get_standard (PikaContext *context)
{
static PikaData *standard_gradient = NULL;
if (! standard_gradient)
{
g_set_weak_pointer (&standard_gradient,
pika_gradient_new (context, "Standard"));
pika_data_clean (standard_gradient);
pika_data_make_internal (standard_gradient, "pika-gradient-standard");
}
return standard_gradient;
}
static const gchar *
pika_gradient_get_extension (PikaData *data)
{
return PIKA_GRADIENT_FILE_EXTENSION;
}
/**
* pika_gradient_get_color_at:
* @gradient: a gradient
* @context: a context
* @seg: (nullable): a segment to seed the search with (or %NULL)
* @pos: position in the gradient (between 0.0 and 1.0)
* @reverse: when %TRUE, use the reversed gradient
* @blend_color_space: color space to use for blending RGB segments
* @color: returns the color
*
* If you are iterating over an gradient, you should pass the the
* return value from the last call for @seg.
*
* Returns: the gradient segment the color is from
**/
PikaGradientSegment *
pika_gradient_get_color_at (PikaGradient *gradient,
PikaContext *context,
PikaGradientSegment *seg,
gdouble pos,
gboolean reverse,
PikaGradientBlendColorSpace blend_color_space,
PikaRGB *color)
{
gdouble factor = 0.0;
gdouble seg_len;
gdouble middle;
PikaRGB left_color;
PikaRGB right_color;
PikaRGB rgb;
/* type-check disabled to improve speed */
/* g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), NULL); */
g_return_val_if_fail (color != NULL, NULL);
pos = CLAMP (pos, 0.0, 1.0);
if (reverse)
pos = 1.0 - pos;
seg = pika_gradient_get_segment_at_internal (gradient, seg, pos);
seg_len = seg->right - seg->left;
if (seg_len < EPSILON)
{
middle = 0.5;
pos = 0.5;
}
else
{
middle = (seg->middle - seg->left) / seg_len;
pos = (pos - seg->left) / seg_len;
}
switch (seg->type)
{
case PIKA_GRADIENT_SEGMENT_LINEAR:
factor = pika_gradient_calc_linear_factor (middle, pos);
break;
case PIKA_GRADIENT_SEGMENT_CURVED:
factor = pika_gradient_calc_curved_factor (middle, pos);
break;
case PIKA_GRADIENT_SEGMENT_SINE:
factor = pika_gradient_calc_sine_factor (middle, pos);
break;
case PIKA_GRADIENT_SEGMENT_SPHERE_INCREASING:
factor = pika_gradient_calc_sphere_increasing_factor (middle, pos);
break;
case PIKA_GRADIENT_SEGMENT_SPHERE_DECREASING:
factor = pika_gradient_calc_sphere_decreasing_factor (middle, pos);
break;
case PIKA_GRADIENT_SEGMENT_STEP:
factor = pika_gradient_calc_step_factor (middle, pos);
break;
default:
g_warning ("%s: Unknown gradient type %d.", G_STRFUNC, seg->type);
break;
}
/* Get left/right colors */
if (context)
{
pika_gradient_segment_get_left_flat_color (gradient,
context, seg, &left_color);
pika_gradient_segment_get_right_flat_color (gradient,
context, seg, &right_color);
}
else
{
left_color = seg->left_color;
right_color = seg->right_color;
}
/* Calculate color components */
if (seg->color == PIKA_GRADIENT_SEGMENT_RGB)
{
switch (blend_color_space)
{
case PIKA_GRADIENT_BLEND_CIE_LAB:
babl_process (fish_srgb_to_cie_lab,
&left_color, &left_color, 1);
babl_process (fish_srgb_to_cie_lab,
&right_color, &right_color, 1);
break;
case PIKA_GRADIENT_BLEND_RGB_LINEAR:
babl_process (fish_srgb_to_linear_rgb,
&left_color, &left_color, 1);
babl_process (fish_srgb_to_linear_rgb,
&right_color, &right_color, 1);
case PIKA_GRADIENT_BLEND_RGB_PERCEPTUAL:
break;
}
rgb.r = left_color.r + (right_color.r - left_color.r) * factor;
rgb.g = left_color.g + (right_color.g - left_color.g) * factor;
rgb.b = left_color.b + (right_color.b - left_color.b) * factor;
switch (blend_color_space)
{
case PIKA_GRADIENT_BLEND_CIE_LAB:
babl_process (fish_cie_lab_to_srgb,
&rgb, &rgb, 1);
break;
case PIKA_GRADIENT_BLEND_RGB_LINEAR:
babl_process (fish_linear_rgb_to_srgb,
&rgb, &rgb, 1);
case PIKA_GRADIENT_BLEND_RGB_PERCEPTUAL:
break;
}
}
else
{
PikaHSV left_hsv;
PikaHSV right_hsv;
pika_rgb_to_hsv (&left_color, &left_hsv);
pika_rgb_to_hsv (&right_color, &right_hsv);
left_hsv.s = left_hsv.s + (right_hsv.s - left_hsv.s) * factor;
left_hsv.v = left_hsv.v + (right_hsv.v - left_hsv.v) * factor;
switch (seg->color)
{
case PIKA_GRADIENT_SEGMENT_HSV_CCW:
if (left_hsv.h < right_hsv.h)
{
left_hsv.h += (right_hsv.h - left_hsv.h) * factor;
}
else
{
left_hsv.h += (1.0 - (left_hsv.h - right_hsv.h)) * factor;
if (left_hsv.h > 1.0)
left_hsv.h -= 1.0;
}
break;
case PIKA_GRADIENT_SEGMENT_HSV_CW:
if (right_hsv.h < left_hsv.h)
{
left_hsv.h -= (left_hsv.h - right_hsv.h) * factor;
}
else
{
left_hsv.h -= (1.0 - (right_hsv.h - left_hsv.h)) * factor;
if (left_hsv.h < 0.0)
left_hsv.h += 1.0;
}
break;
default:
g_warning ("%s: Unknown coloring mode %d",
G_STRFUNC, (gint) seg->color);
break;
}
pika_hsv_to_rgb (&left_hsv, &rgb);
}
/* Calculate alpha */
rgb.a = left_color.a + (right_color.a - left_color.a) * factor;
*color = rgb;
return seg;
}
PikaGradientSegment *
pika_gradient_get_segment_at (PikaGradient *gradient,
gdouble pos)
{
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), NULL);
return pika_gradient_get_segment_at_internal (gradient, NULL, pos);
}
gboolean
pika_gradient_has_fg_bg_segments (PikaGradient *gradient)
{
PikaGradientSegment *segment;
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), FALSE);
for (segment = gradient->segments; segment; segment = segment->next)
if (segment->left_color_type != PIKA_GRADIENT_COLOR_FIXED ||
segment->right_color_type != PIKA_GRADIENT_COLOR_FIXED)
return TRUE;
return FALSE;
}
void
pika_gradient_split_at (PikaGradient *gradient,
PikaContext *context,
PikaGradientSegment *seg,
gdouble pos,
PikaGradientBlendColorSpace blend_color_space,
PikaGradientSegment **newl,
PikaGradientSegment **newr)
{
PikaRGB color;
PikaGradientSegment *newseg;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (PIKA_IS_CONTEXT (context));
pika_data_freeze (PIKA_DATA (gradient));
pos = CLAMP (pos, 0.0, 1.0);
seg = pika_gradient_get_segment_at_internal (gradient, seg, pos);
/* Get color at pos */
pika_gradient_get_color_at (gradient, context, seg, pos,
FALSE, blend_color_space, &color);
/* Create a new segment and insert it in the list */
newseg = pika_gradient_segment_new ();
newseg->prev = seg;
newseg->next = seg->next;
seg->next = newseg;
if (newseg->next)
newseg->next->prev = newseg;
/* Set coordinates of new segment */
newseg->left = pos;
newseg->right = seg->right;
newseg->middle = (newseg->left + newseg->right) / 2.0;
/* Set coordinates of original segment */
seg->right = newseg->left;
seg->middle = (seg->left + seg->right) / 2.0;
/* Set colors of both segments */
newseg->right_color_type = seg->right_color_type;
newseg->right_color = seg->right_color;
seg->right_color_type = newseg->left_color_type = PIKA_GRADIENT_COLOR_FIXED;
seg->right_color = newseg->left_color = color;
/* Set parameters of new segment */
newseg->type = seg->type;
newseg->color = seg->color;
/* Done */
if (newl) *newl = seg;
if (newr) *newr = newseg;
pika_data_thaw (PIKA_DATA (gradient));
}
PikaGradient *
pika_gradient_flatten (PikaGradient *gradient,
PikaContext *context)
{
PikaGradient *flat;
PikaGradientSegment *seg;
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), NULL);
g_return_val_if_fail (PIKA_IS_CONTEXT (context), NULL);
flat = PIKA_GRADIENT (pika_data_duplicate (PIKA_DATA (gradient)));
for (seg = flat->segments; seg; seg = seg->next)
{
pika_gradient_segment_get_left_flat_color (gradient,
context, seg,
&seg->left_color);
seg->left_color_type = PIKA_GRADIENT_COLOR_FIXED;
pika_gradient_segment_get_right_flat_color (gradient,
context, seg,
&seg->right_color);
seg->right_color_type = PIKA_GRADIENT_COLOR_FIXED;
}
return flat;
}
/* gradient segment functions */
PikaGradientSegment *
pika_gradient_segment_new (void)
{
PikaGradientSegment *seg;
seg = g_slice_new0 (PikaGradientSegment);
seg->left = 0.0;
seg->middle = 0.5;
seg->right = 1.0;
seg->left_color_type = PIKA_GRADIENT_COLOR_FIXED;
pika_rgba_set (&seg->left_color, 0.0, 0.0, 0.0, 1.0);
seg->right_color_type = PIKA_GRADIENT_COLOR_FIXED;
pika_rgba_set (&seg->right_color, 1.0, 1.0, 1.0, 1.0);
seg->type = PIKA_GRADIENT_SEGMENT_LINEAR;
seg->color = PIKA_GRADIENT_SEGMENT_RGB;
seg->prev = seg->next = NULL;
return seg;
}
void
pika_gradient_segment_free (PikaGradientSegment *seg)
{
g_return_if_fail (seg != NULL);
g_slice_free (PikaGradientSegment, seg);
}
void
pika_gradient_segments_free (PikaGradientSegment *seg)
{
g_return_if_fail (seg != NULL);
g_slice_free_chain (PikaGradientSegment, seg, next);
}
PikaGradientSegment *
pika_gradient_segment_get_last (PikaGradientSegment *seg)
{
if (! seg)
return NULL;
while (seg->next)
seg = seg->next;
return seg;
}
PikaGradientSegment *
pika_gradient_segment_get_first (PikaGradientSegment *seg)
{
if (! seg)
return NULL;
while (seg->prev)
seg = seg->prev;
return seg;
}
PikaGradientSegment *
pika_gradient_segment_get_nth (PikaGradientSegment *seg,
gint index)
{
gint i = 0;
g_return_val_if_fail (index >= 0, NULL);
if (! seg)
return NULL;
while (seg && (i < index))
{
seg = seg->next;
i++;
}
if (i == index)
return seg;
return NULL;
}
void
pika_gradient_segment_split_midpoint (PikaGradient *gradient,
PikaContext *context,
PikaGradientSegment *lseg,
PikaGradientBlendColorSpace blend_color_space,
PikaGradientSegment **newl,
PikaGradientSegment **newr)
{
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (PIKA_IS_CONTEXT (context));
g_return_if_fail (lseg != NULL);
g_return_if_fail (newl != NULL);
g_return_if_fail (newr != NULL);
pika_gradient_split_at (gradient, context, lseg, lseg->middle,
blend_color_space, newl, newr);
}
void
pika_gradient_segment_split_uniform (PikaGradient *gradient,
PikaContext *context,
PikaGradientSegment *lseg,
gint parts,
PikaGradientBlendColorSpace blend_color_space,
PikaGradientSegment **newl,
PikaGradientSegment **newr)
{
PikaGradientSegment *seg, *prev, *tmp;
gdouble seg_len;
gint i;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (PIKA_IS_CONTEXT (context));
g_return_if_fail (lseg != NULL);
g_return_if_fail (newl != NULL);
g_return_if_fail (newr != NULL);
pika_data_freeze (PIKA_DATA (gradient));
seg_len = (lseg->right - lseg->left) / parts; /* Length of divisions */
seg = NULL;
prev = NULL;
tmp = NULL;
for (i = 0; i < parts; i++)
{
seg = pika_gradient_segment_new ();
if (i == 0)
tmp = seg; /* Remember first segment */
seg->left = lseg->left + i * seg_len;
seg->right = lseg->left + (i + 1) * seg_len;
seg->middle = (seg->left + seg->right) / 2.0;
seg->left_color_type = PIKA_GRADIENT_COLOR_FIXED;
seg->right_color_type = PIKA_GRADIENT_COLOR_FIXED;
pika_gradient_get_color_at (gradient, context, lseg,
seg->left, FALSE, blend_color_space,
&seg->left_color);
pika_gradient_get_color_at (gradient, context, lseg,
seg->right, FALSE, blend_color_space,
&seg->right_color);
seg->type = lseg->type;
seg->color = lseg->color;
seg->prev = prev;
seg->next = NULL;
if (prev)
prev->next = seg;
prev = seg;
}
/* Fix edges */
tmp->left_color_type = lseg->left_color_type;
tmp->left_color = lseg->left_color;
seg->right_color_type = lseg->right_color_type;
seg->right_color = lseg->right_color;
tmp->left = lseg->left;
seg->right = lseg->right; /* To squish accumulative error */
/* Link in list */
tmp->prev = lseg->prev;
seg->next = lseg->next;
if (lseg->prev)
lseg->prev->next = tmp;
else
gradient->segments = tmp; /* We are on leftmost segment */
if (lseg->next)
lseg->next->prev = seg;
/* Done */
*newl = tmp;
*newr = seg;
/* Delete old segment */
pika_gradient_segment_free (lseg);
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_get_left_color (PikaGradient *gradient,
PikaGradientSegment *seg,
PikaRGB *color)
{
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (seg != NULL);
g_return_if_fail (color != NULL);
*color = seg->left_color;
}
void
pika_gradient_segment_set_left_color (PikaGradient *gradient,
PikaGradientSegment *seg,
const PikaRGB *color)
{
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (seg != NULL);
g_return_if_fail (color != NULL);
pika_data_freeze (PIKA_DATA (gradient));
pika_gradient_segment_range_blend (gradient, seg, seg,
color, &seg->right_color,
TRUE, TRUE);
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_get_right_color (PikaGradient *gradient,
PikaGradientSegment *seg,
PikaRGB *color)
{
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (seg != NULL);
g_return_if_fail (color != NULL);
*color = seg->right_color;
}
void
pika_gradient_segment_set_right_color (PikaGradient *gradient,
PikaGradientSegment *seg,
const PikaRGB *color)
{
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (seg != NULL);
g_return_if_fail (color != NULL);
pika_data_freeze (PIKA_DATA (gradient));
pika_gradient_segment_range_blend (gradient, seg, seg,
&seg->left_color, color,
TRUE, TRUE);
pika_data_thaw (PIKA_DATA (gradient));
}
PikaGradientColor
pika_gradient_segment_get_left_color_type (PikaGradient *gradient,
PikaGradientSegment *seg)
{
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0);
g_return_val_if_fail (seg != NULL, 0);
return seg->left_color_type;
}
void
pika_gradient_segment_set_left_color_type (PikaGradient *gradient,
PikaGradientSegment *seg,
PikaGradientColor color_type)
{
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (seg != NULL);
pika_data_freeze (PIKA_DATA (gradient));
seg->left_color_type = color_type;
pika_data_thaw (PIKA_DATA (gradient));
}
PikaGradientColor
pika_gradient_segment_get_right_color_type (PikaGradient *gradient,
PikaGradientSegment *seg)
{
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0);
g_return_val_if_fail (seg != NULL, 0);
return seg->right_color_type;
}
void
pika_gradient_segment_set_right_color_type (PikaGradient *gradient,
PikaGradientSegment *seg,
PikaGradientColor color_type)
{
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (seg != NULL);
pika_data_freeze (PIKA_DATA (gradient));
seg->right_color_type = color_type;
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_get_left_flat_color (PikaGradient *gradient,
PikaContext *context,
PikaGradientSegment *seg,
PikaRGB *color)
{
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (seg != NULL);
g_return_if_fail (color != NULL);
pika_gradient_get_flat_color (context,
&seg->left_color, seg->left_color_type,
color);
}
void
pika_gradient_segment_get_right_flat_color (PikaGradient *gradient,
PikaContext *context,
PikaGradientSegment *seg,
PikaRGB *color)
{
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (seg != NULL);
g_return_if_fail (color != NULL);
pika_gradient_get_flat_color (context,
&seg->right_color, seg->right_color_type,
color);
}
gdouble
pika_gradient_segment_get_left_pos (PikaGradient *gradient,
PikaGradientSegment *seg)
{
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0.0);
g_return_val_if_fail (seg != NULL, 0.0);
return seg->left;
}
gdouble
pika_gradient_segment_set_left_pos (PikaGradient *gradient,
PikaGradientSegment *seg,
gdouble pos)
{
gdouble final_pos;
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0.0);
g_return_val_if_fail (seg != NULL, 0.0);
if (seg->prev == NULL)
{
final_pos = 0;
}
else
{
pika_data_freeze (PIKA_DATA (gradient));
final_pos = seg->prev->right = seg->left =
CLAMP (pos,
seg->prev->middle + EPSILON,
seg->middle - EPSILON);
pika_data_thaw (PIKA_DATA (gradient));
}
return final_pos;
}
gdouble
pika_gradient_segment_get_right_pos (PikaGradient *gradient,
PikaGradientSegment *seg)
{
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0.0);
g_return_val_if_fail (seg != NULL, 0.0);
return seg->right;
}
gdouble
pika_gradient_segment_set_right_pos (PikaGradient *gradient,
PikaGradientSegment *seg,
gdouble pos)
{
gdouble final_pos;
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0.0);
g_return_val_if_fail (seg != NULL, 0.0);
if (seg->next == NULL)
{
final_pos = 1.0;
}
else
{
pika_data_freeze (PIKA_DATA (gradient));
final_pos = seg->next->left = seg->right =
CLAMP (pos,
seg->middle + EPSILON,
seg->next->middle - EPSILON);
pika_data_thaw (PIKA_DATA (gradient));
}
return final_pos;
}
gdouble
pika_gradient_segment_get_middle_pos (PikaGradient *gradient,
PikaGradientSegment *seg)
{
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0.0);
g_return_val_if_fail (seg != NULL, 0.0);
return seg->middle;
}
gdouble
pika_gradient_segment_set_middle_pos (PikaGradient *gradient,
PikaGradientSegment *seg,
gdouble pos)
{
gdouble final_pos;
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0.0);
g_return_val_if_fail (seg != NULL, 0.0);
pika_data_freeze (PIKA_DATA (gradient));
final_pos = seg->middle =
CLAMP (pos,
seg->left + EPSILON,
seg->right - EPSILON);
pika_data_thaw (PIKA_DATA (gradient));
return final_pos;
}
PikaGradientSegmentType
pika_gradient_segment_get_blending_function (PikaGradient *gradient,
PikaGradientSegment *seg)
{
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0);
return seg->type;
}
PikaGradientSegmentColor
pika_gradient_segment_get_coloring_type (PikaGradient *gradient,
PikaGradientSegment *seg)
{
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0);
return seg->color;
}
gint
pika_gradient_segment_range_get_n_segments (PikaGradient *gradient,
PikaGradientSegment *range_l,
PikaGradientSegment *range_r)
{
gint n_segments = 0;
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0);
g_return_val_if_fail (range_l != NULL, 0);
for (; range_l != range_r; range_l = range_l->next)
n_segments++;
if (range_r != NULL)
n_segments++;
return n_segments;
}
void
pika_gradient_segment_range_compress (PikaGradient *gradient,
PikaGradientSegment *range_l,
PikaGradientSegment *range_r,
gdouble new_l,
gdouble new_r)
{
gdouble orig_l, orig_r;
PikaGradientSegment *seg, *aseg;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (range_l != NULL);
pika_data_freeze (PIKA_DATA (gradient));
if (! range_r)
range_r = pika_gradient_segment_get_last (range_l);
orig_l = range_l->left;
orig_r = range_r->right;
if (orig_r - orig_l > EPSILON)
{
gdouble scale;
scale = (new_r - new_l) / (orig_r - orig_l);
seg = range_l;
do
{
if (seg->prev)
seg->left = new_l + (seg->left - orig_l) * scale;
seg->middle = new_l + (seg->middle - orig_l) * scale;
if (seg->next)
seg->right = new_l + (seg->right - orig_l) * scale;
/* Next */
aseg = seg;
seg = seg->next;
}
while (aseg != range_r);
}
else
{
gint n;
gint i;
n = pika_gradient_segment_range_get_n_segments (gradient,
range_l, range_r);
for (i = 0, seg = range_l; i < n; i++, seg = seg->next)
{
if (seg->prev)
seg->left = new_l + (new_r - new_l) * (i + 0.0) / n;
seg->middle = new_l + (new_r - new_l) * (i + 0.5) / n;;
if (seg->next)
seg->right = new_l + (new_r - new_l) * (i + 1.0) / n;
}
}
/* Make sure that the left and right endpoints of the range are *exactly*
* equal to new_l and new_r; the above computations can introduce
* numerical inaccuracies.
*/
range_l->left = new_l;
range_l->right = new_r;
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_range_blend (PikaGradient *gradient,
PikaGradientSegment *lseg,
PikaGradientSegment *rseg,
const PikaRGB *rgb1,
const PikaRGB *rgb2,
gboolean blend_colors,
gboolean blend_opacity)
{
PikaRGB d;
gdouble left, len;
PikaGradientSegment *seg;
PikaGradientSegment *aseg;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (lseg != NULL);
pika_data_freeze (PIKA_DATA (gradient));
if (! rseg)
rseg = pika_gradient_segment_get_last (lseg);
d.r = rgb2->r - rgb1->r;
d.g = rgb2->g - rgb1->g;
d.b = rgb2->b - rgb1->b;
d.a = rgb2->a - rgb1->a;
left = lseg->left;
len = rseg->right - left;
seg = lseg;
do
{
if (blend_colors)
{
seg->left_color.r = rgb1->r + (seg->left - left) / len * d.r;
seg->left_color.g = rgb1->g + (seg->left - left) / len * d.g;
seg->left_color.b = rgb1->b + (seg->left - left) / len * d.b;
seg->right_color.r = rgb1->r + (seg->right - left) / len * d.r;
seg->right_color.g = rgb1->g + (seg->right - left) / len * d.g;
seg->right_color.b = rgb1->b + (seg->right - left) / len * d.b;
}
if (blend_opacity)
{
seg->left_color.a = rgb1->a + (seg->left - left) / len * d.a;
seg->right_color.a = rgb1->a + (seg->right - left) / len * d.a;
}
aseg = seg;
seg = seg->next;
}
while (aseg != rseg);
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_range_set_blending_function (PikaGradient *gradient,
PikaGradientSegment *start_seg,
PikaGradientSegment *end_seg,
PikaGradientSegmentType new_type)
{
PikaGradientSegment *seg;
gboolean reached_last_segment = FALSE;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
pika_data_freeze (PIKA_DATA (gradient));
seg = start_seg;
while (seg && ! reached_last_segment)
{
if (seg == end_seg)
reached_last_segment = TRUE;
seg->type = new_type;
seg = seg->next;
}
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_range_set_coloring_type (PikaGradient *gradient,
PikaGradientSegment *start_seg,
PikaGradientSegment *end_seg,
PikaGradientSegmentColor new_color)
{
PikaGradientSegment *seg;
gboolean reached_last_segment = FALSE;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
pika_data_freeze (PIKA_DATA (gradient));
seg = start_seg;
while (seg && ! reached_last_segment)
{
if (seg == end_seg)
reached_last_segment = TRUE;
seg->color = new_color;
seg = seg->next;
}
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_range_flip (PikaGradient *gradient,
PikaGradientSegment *start_seg,
PikaGradientSegment *end_seg,
PikaGradientSegment **final_start_seg,
PikaGradientSegment **final_end_seg)
{
PikaGradientSegment *oseg, *oaseg;
PikaGradientSegment *seg, *prev, *tmp;
PikaGradientSegment *lseg, *rseg;
gdouble left, right;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
pika_data_freeze (PIKA_DATA (gradient));
if (! end_seg)
end_seg = pika_gradient_segment_get_last (start_seg);
left = start_seg->left;
right = end_seg->right;
/* Build flipped segments */
prev = NULL;
oseg = end_seg;
tmp = NULL;
do
{
seg = pika_gradient_segment_new ();
if (prev == NULL)
{
seg->left = left;
tmp = seg; /* Remember first segment */
}
else
seg->left = left + right - oseg->right;
seg->middle = left + right - oseg->middle;
seg->right = left + right - oseg->left;
seg->left_color_type = oseg->right_color_type;
seg->left_color = oseg->right_color;
seg->right_color_type = oseg->left_color_type;
seg->right_color = oseg->left_color;
switch (oseg->type)
{
case PIKA_GRADIENT_SEGMENT_SPHERE_INCREASING:
seg->type = PIKA_GRADIENT_SEGMENT_SPHERE_DECREASING;
break;
case PIKA_GRADIENT_SEGMENT_SPHERE_DECREASING:
seg->type = PIKA_GRADIENT_SEGMENT_SPHERE_INCREASING;
break;
default:
seg->type = oseg->type;
}
switch (oseg->color)
{
case PIKA_GRADIENT_SEGMENT_HSV_CCW:
seg->color = PIKA_GRADIENT_SEGMENT_HSV_CW;
break;
case PIKA_GRADIENT_SEGMENT_HSV_CW:
seg->color = PIKA_GRADIENT_SEGMENT_HSV_CCW;
break;
default:
seg->color = oseg->color;
}
seg->prev = prev;
seg->next = NULL;
if (prev)
prev->next = seg;
prev = seg;
oaseg = oseg;
oseg = oseg->prev; /* Move backwards! */
}
while (oaseg != start_seg);
seg->right = right; /* Squish accumulative error */
/* Free old segments */
lseg = start_seg->prev;
rseg = end_seg->next;
oseg = start_seg;
do
{
oaseg = oseg->next;
pika_gradient_segment_free (oseg);
oseg = oaseg;
}
while (oaseg != rseg);
/* Link in new segments */
if (lseg)
lseg->next = tmp;
else
gradient->segments = tmp;
tmp->prev = lseg;
seg->next = rseg;
if (rseg)
rseg->prev = seg;
/* Reset selection */
if (final_start_seg)
*final_start_seg = tmp;
if (final_end_seg)
*final_end_seg = seg;
/* Done */
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_range_replicate (PikaGradient *gradient,
PikaGradientSegment *start_seg,
PikaGradientSegment *end_seg,
gint replicate_times,
PikaGradientSegment **final_start_seg,
PikaGradientSegment **final_end_seg)
{
gdouble sel_left, sel_right, sel_len;
gdouble new_left;
gdouble factor;
PikaGradientSegment *prev, *seg, *tmp;
PikaGradientSegment *oseg, *oaseg;
PikaGradientSegment *lseg, *rseg;
gint i;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
if (! end_seg)
end_seg = pika_gradient_segment_get_last (start_seg);
if (replicate_times < 2)
{
*final_start_seg = start_seg;
*final_end_seg = end_seg;
return;
}
pika_data_freeze (PIKA_DATA (gradient));
/* Remember original parameters */
sel_left = start_seg->left;
sel_right = end_seg->right;
sel_len = sel_right - sel_left;
factor = 1.0 / replicate_times;
/* Build replicated segments */
prev = NULL;
seg = NULL;
tmp = NULL;
for (i = 0; i < replicate_times; i++)
{
/* Build one cycle */
new_left = sel_left + i * factor * sel_len;
oseg = start_seg;
do
{
seg = pika_gradient_segment_new ();
if (prev == NULL)
{
seg->left = sel_left;
tmp = seg; /* Remember first segment */
}
else
{
seg->left = new_left + factor * (oseg->left - sel_left);
}
seg->middle = new_left + factor * (oseg->middle - sel_left);
seg->right = new_left + factor * (oseg->right - sel_left);
seg->left_color_type = oseg->left_color_type;
seg->left_color = oseg->left_color;
seg->right_color_type = oseg->right_color_type;
seg->right_color = oseg->right_color;
seg->type = oseg->type;
seg->color = oseg->color;
seg->prev = prev;
seg->next = NULL;
if (prev)
prev->next = seg;
prev = seg;
oaseg = oseg;
oseg = oseg->next;
}
while (oaseg != end_seg);
}
seg->right = sel_right; /* Squish accumulative error */
/* Free old segments */
lseg = start_seg->prev;
rseg = end_seg->next;
oseg = start_seg;
do
{
oaseg = oseg->next;
pika_gradient_segment_free (oseg);
oseg = oaseg;
}
while (oaseg != rseg);
/* Link in new segments */
if (lseg)
lseg->next = tmp;
else
gradient->segments = tmp;
tmp->prev = lseg;
seg->next = rseg;
if (rseg)
rseg->prev = seg;
/* Reset selection */
if (final_start_seg)
*final_start_seg = tmp;
if (final_end_seg)
*final_end_seg = seg;
/* Done */
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_range_split_midpoint (PikaGradient *gradient,
PikaContext *context,
PikaGradientSegment *start_seg,
PikaGradientSegment *end_seg,
PikaGradientBlendColorSpace blend_color_space,
PikaGradientSegment **final_start_seg,
PikaGradientSegment **final_end_seg)
{
PikaGradientSegment *seg, *lseg, *rseg;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (PIKA_IS_CONTEXT (context));
pika_data_freeze (PIKA_DATA (gradient));
if (! end_seg)
end_seg = pika_gradient_segment_get_last (start_seg);
seg = start_seg;
do
{
pika_gradient_segment_split_midpoint (gradient, context,
seg, blend_color_space,
&lseg, &rseg);
seg = rseg->next;
}
while (lseg != end_seg);
if (final_start_seg)
*final_start_seg = start_seg;
if (final_end_seg)
*final_end_seg = rseg;
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_range_split_uniform (PikaGradient *gradient,
PikaContext *context,
PikaGradientSegment *start_seg,
PikaGradientSegment *end_seg,
gint parts,
PikaGradientBlendColorSpace blend_color_space,
PikaGradientSegment **final_start_seg,
PikaGradientSegment **final_end_seg)
{
PikaGradientSegment *seg, *aseg, *lseg, *rseg, *lsel;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
g_return_if_fail (PIKA_IS_CONTEXT (context));
if (! end_seg)
end_seg = pika_gradient_segment_get_last (start_seg);
if (parts < 2)
{
*final_start_seg = start_seg;
*final_end_seg = end_seg;
return;
}
pika_data_freeze (PIKA_DATA (gradient));
seg = start_seg;
lsel = NULL;
do
{
aseg = seg;
pika_gradient_segment_split_uniform (gradient, context, seg,
parts, blend_color_space,
&lseg, &rseg);
if (seg == start_seg)
lsel = lseg;
seg = rseg->next;
}
while (aseg != end_seg);
if (final_start_seg)
*final_start_seg = lsel;
if (final_end_seg)
*final_end_seg = rseg;
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_range_delete (PikaGradient *gradient,
PikaGradientSegment *start_seg,
PikaGradientSegment *end_seg,
PikaGradientSegment **final_start_seg,
PikaGradientSegment **final_end_seg)
{
PikaGradientSegment *lseg, *rseg, *seg, *aseg, *next;
gdouble join;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
if (! end_seg)
end_seg = pika_gradient_segment_get_last (start_seg);
/* Remember segments to the left and to the right of the selection */
lseg = start_seg->prev;
rseg = end_seg->next;
/* Cannot delete all the segments in the gradient */
if ((lseg == NULL) && (rseg == NULL))
goto premature_return;
pika_data_freeze (PIKA_DATA (gradient));
/* Calculate join point */
join = (start_seg->left +
end_seg->right) / 2.0;
if (lseg == NULL)
join = 0.0;
else if (rseg == NULL)
join = 1.0;
/* Move segments */
if (lseg != NULL)
pika_gradient_segment_range_compress (gradient, lseg, lseg,
lseg->left, join);
if (rseg != NULL)
pika_gradient_segment_range_compress (gradient, rseg, rseg,
join, rseg->right);
/* Link */
if (lseg)
lseg->next = rseg;
if (rseg)
rseg->prev = lseg;
/* Delete old segments */
seg = start_seg;
do
{
next = seg->next;
aseg = seg;
pika_gradient_segment_free (seg);
seg = next;
}
while (aseg != end_seg);
/* Change selection */
if (rseg)
{
if (final_start_seg)
*final_start_seg = rseg;
if (final_end_seg)
*final_end_seg = rseg;
}
else
{
if (final_start_seg)
*final_start_seg = lseg;
if (final_end_seg)
*final_end_seg = lseg;
}
if (lseg == NULL)
gradient->segments = rseg;
pika_data_thaw (PIKA_DATA (gradient));
return;
premature_return:
if (final_start_seg)
*final_start_seg = start_seg;
if (final_end_seg)
*final_end_seg = end_seg;
}
void
pika_gradient_segment_range_merge (PikaGradient *gradient,
PikaGradientSegment *start_seg,
PikaGradientSegment *end_seg,
PikaGradientSegment **final_start_seg,
PikaGradientSegment **final_end_seg)
{
PikaGradientSegment *seg;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
if (! end_seg)
end_seg = pika_gradient_segment_get_last (start_seg);
pika_data_freeze (PIKA_DATA (gradient));
/* Copy the end segment's right position and color to the start segment */
start_seg->right = end_seg->right;
start_seg->right_color_type = end_seg->right_color_type;
start_seg->right_color = end_seg->right_color;
/* Center the start segment's midpoint */
start_seg->middle = (start_seg->left + start_seg->right) / 2.0;
/* Remove range segments past the start segment from the segment list */
start_seg->next = end_seg->next;
if (start_seg->next)
start_seg->next->prev = start_seg;
/* Merge the range's blend function and coloring type, and free the rest of
* the segments.
*/
seg = end_seg;
while (seg != start_seg)
{
PikaGradientSegment *prev = seg->prev;
/* If the blend function and/or coloring type aren't uniform, reset them. */
if (seg->type != start_seg->type)
start_seg->type = PIKA_GRADIENT_SEGMENT_LINEAR;
if (seg->color != start_seg->color)
start_seg->color = PIKA_GRADIENT_SEGMENT_RGB;
pika_gradient_segment_free (seg);
seg = prev;
}
if (final_start_seg)
*final_start_seg = start_seg;
if (final_end_seg)
*final_end_seg = start_seg;
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_range_recenter_handles (PikaGradient *gradient,
PikaGradientSegment *start_seg,
PikaGradientSegment *end_seg)
{
PikaGradientSegment *seg, *aseg;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
pika_data_freeze (PIKA_DATA (gradient));
if (! end_seg)
end_seg = pika_gradient_segment_get_last (start_seg);
seg = start_seg;
do
{
seg->middle = (seg->left + seg->right) / 2.0;
aseg = seg;
seg = seg->next;
}
while (aseg != end_seg);
pika_data_thaw (PIKA_DATA (gradient));
}
void
pika_gradient_segment_range_redistribute_handles (PikaGradient *gradient,
PikaGradientSegment *start_seg,
PikaGradientSegment *end_seg)
{
PikaGradientSegment *seg, *aseg;
gdouble left, right, seg_len;
gint num_segs;
gint i;
g_return_if_fail (PIKA_IS_GRADIENT (gradient));
pika_data_freeze (PIKA_DATA (gradient));
if (! end_seg)
end_seg = pika_gradient_segment_get_last (start_seg);
/* Count number of segments in selection */
num_segs = 0;
seg = start_seg;
do
{
num_segs++;
aseg = seg;
seg = seg->next;
}
while (aseg != end_seg);
/* Calculate new segment length */
left = start_seg->left;
right = end_seg->right;
seg_len = (right - left) / num_segs;
/* Redistribute */
seg = start_seg;
for (i = 0; i < num_segs; i++)
{
seg->left = left + i * seg_len;
seg->right = left + (i + 1) * seg_len;
seg->middle = (seg->left + seg->right) / 2.0;
seg = seg->next;
}
/* Fix endpoints to squish accumulative error */
start_seg->left = left;
end_seg->right = right;
pika_data_thaw (PIKA_DATA (gradient));
}
gdouble
pika_gradient_segment_range_move (PikaGradient *gradient,
PikaGradientSegment *range_l,
PikaGradientSegment *range_r,
gdouble delta,
gboolean control_compress)
{
gdouble lbound, rbound;
gint is_first, is_last;
PikaGradientSegment *seg, *aseg;
g_return_val_if_fail (PIKA_IS_GRADIENT (gradient), 0.0);
pika_data_freeze (PIKA_DATA (gradient));
if (! range_r)
range_r = pika_gradient_segment_get_last (range_l);
/* First or last segments in gradient? */
is_first = (range_l->prev == NULL);
is_last = (range_r->next == NULL);
/* Calculate drag bounds */
if (! control_compress)
{
if (!is_first)
lbound = range_l->prev->middle + EPSILON;
else
lbound = range_l->left + EPSILON;
if (!is_last)
rbound = range_r->next->middle - EPSILON;
else
rbound = range_r->right - EPSILON;
}
else
{
if (!is_first)
lbound = range_l->prev->left + 2.0 * EPSILON;
else
lbound = range_l->left + EPSILON;
if (!is_last)
rbound = range_r->next->right - 2.0 * EPSILON;
else
rbound = range_r->right - EPSILON;
}
/* Fix the delta if necessary */
if (delta < 0.0)
{
if (!is_first)
{
if (range_l->left + delta < lbound)
delta = lbound - range_l->left;
}
else
if (range_l->middle + delta < lbound)
delta = lbound - range_l->middle;
}
else
{
if (!is_last)
{
if (range_r->right + delta > rbound)
delta = rbound - range_r->right;
}
else
if (range_r->middle + delta > rbound)
delta = rbound - range_r->middle;
}
/* Move all the segments inside the range */
seg = range_l;
do
{
if (!((seg == range_l) && is_first))
seg->left += delta;
seg->middle += delta;
if (!((seg == range_r) && is_last))
seg->right += delta;
/* Next */
aseg = seg;
seg = seg->next;
}
while (aseg != range_r);
/* Fix the segments that surround the range */
if (!is_first)
{
if (! control_compress)
range_l->prev->right = range_l->left;
else
pika_gradient_segment_range_compress (gradient,
range_l->prev, range_l->prev,
range_l->prev->left, range_l->left);
}
if (!is_last)
{
if (! control_compress)
range_r->next->left = range_r->right;
else
pika_gradient_segment_range_compress (gradient,
range_r->next, range_r->next,
range_r->right, range_r->next->right);
}
pika_data_thaw (PIKA_DATA (gradient));
return delta;
}
/* private functions */
static inline PikaGradientSegment *
pika_gradient_get_segment_at_internal (PikaGradient *gradient,
PikaGradientSegment *seg,
gdouble pos)
{
/* handle FP imprecision at the edges of the gradient */
pos = CLAMP (pos, 0.0, 1.0);
if (! seg)
seg = gradient->segments;
if (pos >= seg->left)
{
while (seg->next && pos >= seg->right)
seg = seg->next;
}
else
{
do
seg = seg->prev;
while (pos < seg->left);
}
return seg;
}
static void
pika_gradient_get_flat_color (PikaContext *context,
const PikaRGB *color,
PikaGradientColor color_type,
PikaRGB *flat_color)
{
switch (color_type)
{
case PIKA_GRADIENT_COLOR_FIXED:
*flat_color = *color;
break;
case PIKA_GRADIENT_COLOR_FOREGROUND:
case PIKA_GRADIENT_COLOR_FOREGROUND_TRANSPARENT:
pika_context_get_foreground (context, flat_color);
if (color_type == PIKA_GRADIENT_COLOR_FOREGROUND_TRANSPARENT)
pika_rgb_set_alpha (flat_color, 0.0);
break;
case PIKA_GRADIENT_COLOR_BACKGROUND:
case PIKA_GRADIENT_COLOR_BACKGROUND_TRANSPARENT:
pika_context_get_background (context, flat_color);
if (color_type == PIKA_GRADIENT_COLOR_BACKGROUND_TRANSPARENT)
pika_rgb_set_alpha (flat_color, 0.0);
break;
}
}
static inline gdouble
pika_gradient_calc_linear_factor (gdouble middle,
gdouble pos)
{
if (pos <= middle)
{
if (middle < EPSILON)
return 0.0;
else
return 0.5 * pos / middle;
}
else
{
pos -= middle;
middle = 1.0 - middle;
if (middle < EPSILON)
return 1.0;
else
return 0.5 + 0.5 * pos / middle;
}
}
static inline gdouble
pika_gradient_calc_curved_factor (gdouble middle,
gdouble pos)
{
if (middle < EPSILON)
return 1.0;
else if (1.0 - middle < EPSILON)
return 0.0;
return exp (-G_LN2 * log (pos) / log (middle));
}
static inline gdouble
pika_gradient_calc_sine_factor (gdouble middle,
gdouble pos)
{
pos = pika_gradient_calc_linear_factor (middle, pos);
return (sin ((-G_PI / 2.0) + G_PI * pos) + 1.0) / 2.0;
}
static inline gdouble
pika_gradient_calc_sphere_increasing_factor (gdouble middle,
gdouble pos)
{
pos = pika_gradient_calc_linear_factor (middle, pos) - 1.0;
/* Works for convex increasing and concave decreasing */
return sqrt (1.0 - pos * pos);
}
static inline gdouble
pika_gradient_calc_sphere_decreasing_factor (gdouble middle,
gdouble pos)
{
pos = pika_gradient_calc_linear_factor (middle, pos);
/* Works for convex decreasing and concave increasing */
return 1.0 - sqrt(1.0 - pos * pos);
}
static inline gdouble
pika_gradient_calc_step_factor (gdouble middle,
gdouble pos)
{
return pos >= middle;
}