src/gradient-chemistry.cpp

   1 #define __SP_GRADIENT_CHEMISTRY_C__
   2
   3 /*
   4  * Various utility methods for gradients
   5  *
   6  * Authors:
   7  *   Lauris Kaplinski <lauris@kaplinski.com>
   8  *   bulia byak
   9  *   Johan Engelen <j.b.c.engelen@ewi.utwente.nl>
  10  *
  11  * Copyright (C) 2007 Johan Engelen
  12  * Copyright (C) 2001-2005 authors
  13  * Copyright (C) 2001 Ximian, Inc.
  14  *
  15  * Released under GNU GPL, read the file 'COPYING' for more information
  16  */
  17
  18
  19 #include "style.h"
  20 #include "document-private.h"
  21 #include "desktop-style.h"
  22
  23 #include "sp-gradient-reference.h"
  24 #include "sp-gradient-vector.h"
  25 #include "sp-linear-gradient.h"
  26 #include "sp-radial-gradient.h"
  27 #include "sp-stop.h"
  28 #include "widgets/gradient-vector.h"
  29
  30 #include "sp-text.h"
  31 #include "sp-tspan.h"
  32 #include <libnr/nr-matrix-fns.h>
  33 #include "xml/repr.h"
  34 #include "svg/svg.h"
  35 #include "svg/svg-color.h"
  36 #include "svg/css-ostringstream.h"
  37 #include "prefs-utils.h"
  38
  39
  40 // Terminology:
  41 //
  42 // "vector" is a gradient that has stops but not position coords. It can be referenced by one or
  43 // more privates. Objects should not refer to it directly. It has no radial/linear distinction.
  44 //
  45 // "private" is a gradient that has no stops but has position coords (e.g. center, radius etc for a
  46 // radial). It references a vector for the actual colors. Each private is only used by one
  47 // object. It is either linear or radial.
  48
  49 static void sp_gradient_repr_set_link(Inkscape::XML::Node *repr, SPGradient *gr);
  50
  51 SPGradient *
  52 sp_gradient_ensure_vector_normalized(SPGradient *gr)
  53 {
  54     g_return_val_if_fail(gr != NULL, NULL);
  55     g_return_val_if_fail(SP_IS_GRADIENT(gr), NULL);
  56
  57     /* If we are already normalized vector, just return */
  58     if (gr->state == SP_GRADIENT_STATE_VECTOR) return gr;
  59     /* Fail, if we have wrong state set */
  60     if (gr->state != SP_GRADIENT_STATE_UNKNOWN) {
  61         g_warning("file %s: line %d: Cannot normalize private gradient to vector (%s)", __FILE__, __LINE__, SP_OBJECT_ID(gr));
  62         return NULL;
  63     }
  64
  65     /* First make sure we have vector directly defined (i.e. gr has its own stops) */
  66     if (!gr->has_stops) {
  67         /* We do not have stops ourselves, so flatten stops as well */
  68         sp_gradient_ensure_vector(gr);
  69         g_assert(gr->vector.built);
  70         // this adds stops from gr->vector as children to gr
  71         sp_gradient_repr_write_vector (gr);
  72     }
  73
  74     /* If gr hrefs some other gradient, remove the href */
  75     if (gr->ref->getObject()) {
  76         /* We are hrefing someone, so require flattening */
  77         SP_OBJECT(gr)->updateRepr(((SPObject *) gr)->repr, SP_OBJECT_WRITE_EXT | SP_OBJECT_WRITE_ALL);
  78         sp_gradient_repr_set_link(SP_OBJECT_REPR(gr), NULL);
  79     }
  80
  81     /* Everything is OK, set state flag */
  82     gr->state = SP_GRADIENT_STATE_VECTOR;
  83     return gr;
  84 }
  85
  86 /**
  87  * Creates new private gradient for the given vector
  88  */
  89
  90 static SPGradient *
  91 sp_gradient_get_private_normalized(SPDocument *document, SPGradient *vector, SPGradientType type)
  92 {
  93     g_return_val_if_fail(document != NULL, NULL);
  94     g_return_val_if_fail(vector != NULL, NULL);
  95     g_return_val_if_fail(SP_IS_GRADIENT(vector), NULL);
  96     g_return_val_if_fail(SP_GRADIENT_HAS_STOPS(vector), NULL);
  97
  98     SPDefs *defs = (SPDefs *) SP_DOCUMENT_DEFS(document);
  99
 100     Inkscape::XML::Document *xml_doc = sp_document_repr_doc(document);
 101     // create a new private gradient of the requested type
 102     Inkscape::XML::Node *repr;
 103     if (type == SP_GRADIENT_TYPE_LINEAR) {
 104         repr = xml_doc->createElement("svg:linearGradient");
 105     } else {
 106         repr = xml_doc->createElement("svg:radialGradient");
 107     }
 108
 109     // privates are garbage-collectable
 110     repr->setAttribute("inkscape:collect", "always");
 111
 112     // link to vector
 113     sp_gradient_repr_set_link(repr, vector);
 114
 115     /* Append the new private gradient to defs */
 116     SP_OBJECT_REPR(defs)->appendChild(repr);
 117     Inkscape::GC::release(repr);
 118
 119     // get corresponding object
 120     SPGradient *gr = (SPGradient *) document->getObjectByRepr(repr);
 121     g_assert(gr != NULL);
 122     g_assert(SP_IS_GRADIENT(gr));
 123
 124     return gr;
 125 }
 126
 127 /**
 128 Count how many times gr is used by the styles of o and its descendants
 129 */
 130 guint
 131 count_gradient_hrefs(SPObject *o, SPGradient *gr)
 132 {
 133     if (!o)
 134         return 1;
 135
 136     guint i = 0;
 137
 138     SPStyle *style = SP_OBJECT_STYLE(o);
 139     if (style
 140         && style->fill.isPaintserver()
 141         && SP_IS_GRADIENT(SP_STYLE_FILL_SERVER(style))
 142         && SP_GRADIENT(SP_STYLE_FILL_SERVER(style)) == gr)
 143     {
 144         i ++;
 145     }
 146     if (style
 147         && style->stroke.isPaintserver()
 148         && SP_IS_GRADIENT(SP_STYLE_STROKE_SERVER(style))
 149         && SP_GRADIENT(SP_STYLE_STROKE_SERVER(style)) == gr)
 150     {
 151         i ++;
 152     }
 153
 154     for (SPObject *child = sp_object_first_child(o);
 155          child != NULL; child = SP_OBJECT_NEXT(child)) {
 156         i += count_gradient_hrefs(child, gr);
 157     }
 158
 159     return i;
 160 }
 161
 162
 163 /**
 164  * If gr has other users, create a new private; also check if gr links to vector, relink if not
 165  */
 166 SPGradient *
 167 sp_gradient_fork_private_if_necessary(SPGradient *gr, SPGradient *vector,
 168                                       SPGradientType type, SPObject *o)
 169 {
 170     g_return_val_if_fail(gr != NULL, NULL);
 171     g_return_val_if_fail(SP_IS_GRADIENT(gr), NULL);
 172
 173     // Orphaned gradient, no vector with stops at the end of the line; this used to be an assert
 174     // but i think we should not abort on this - maybe just write a validity warning into some sort
 175     // of log
 176     if (!vector || !SP_GRADIENT_HAS_STOPS(vector))
 177         return (gr);
 178
 179     // user is the object that uses this gradient; normally it's item but for tspans, we
 180     // check its ancestor text so that tspans don't get different gradients from their
 181     // texts.
 182     SPObject *user = o;
 183     while (SP_IS_TSPAN(user)) {
 184         user = SP_OBJECT_PARENT(user);
 185     }
 186
 187     // Check the number of uses of the gradient within this object;
 188     // if we are private and there are no other users,
 189     if (SP_OBJECT_HREFCOUNT(gr) <= count_gradient_hrefs(user, gr)) {
 190         // check vector
 191         if ( gr != vector && gr->ref->getObject() != vector ) {
 192             /* our href is not the vector, and vector is different from gr; relink */
 193             sp_gradient_repr_set_link(SP_OBJECT_REPR(gr), vector);
 194         }
 195         return gr;
 196     }
 197
 198     SPDocument *doc = SP_OBJECT_DOCUMENT(gr);
 199     SPObject *defs = SP_DOCUMENT_DEFS(doc);
 200
 201     if ((gr->has_stops) ||
 202         (gr->state != SP_GRADIENT_STATE_UNKNOWN) ||
 203         (SP_OBJECT_PARENT(gr) != SP_OBJECT(defs)) ||
 204         (SP_OBJECT_HREFCOUNT(gr) > 1)) {
 205         // we have to clone a fresh new private gradient for the given vector
 206
 207         // create an empty one
 208         SPGradient *gr_new = sp_gradient_get_private_normalized(doc, vector, type);
 209
 210         // copy all the attributes to it
 211         Inkscape::XML::Node *repr_new = SP_OBJECT_REPR(gr_new);
 212         Inkscape::XML::Node *repr = SP_OBJECT_REPR(gr);
 213         repr_new->setAttribute("gradientUnits", repr->attribute("gradientUnits"));
 214         repr_new->setAttribute("gradientTransform", repr->attribute("gradientTransform"));
 215         repr_new->setAttribute("spreadMethod", repr->attribute("spreadMethod"));
 216         if (SP_IS_RADIALGRADIENT(gr)) {
 217             repr_new->setAttribute("cx", repr->attribute("cx"));
 218             repr_new->setAttribute("cy", repr->attribute("cy"));
 219             repr_new->setAttribute("fx", repr->attribute("fx"));
 220             repr_new->setAttribute("fy", repr->attribute("fy"));
 221             repr_new->setAttribute("r", repr->attribute("r"));
 222         } else {
 223             repr_new->setAttribute("x1", repr->attribute("x1"));
 224             repr_new->setAttribute("y1", repr->attribute("y1"));
 225             repr_new->setAttribute("x2", repr->attribute("x2"));
 226             repr_new->setAttribute("y2", repr->attribute("y2"));
 227         }
 228
 229         return gr_new;
 230     } else {
 231         return gr;
 232     }
 233 }
 234
 235 SPGradient *
 236 sp_gradient_fork_vector_if_necessary (SPGradient *gr)
 237 {
 238     // Some people actually prefer their gradient vectors to be shared...
 239     if (prefs_get_int_attribute("options.forkgradientvectors", "value", 1) == 0)
 240         return gr;
 241
 242     if (SP_OBJECT_HREFCOUNT(gr) > 1) {
 243         SPDocument *doc = SP_OBJECT_DOCUMENT(gr);
 244         Inkscape::XML::Document *xml_doc = sp_document_repr_doc(doc);
 245
 246         Inkscape::XML::Node *repr = SP_OBJECT_REPR (gr)->duplicate(xml_doc);
 247         SP_OBJECT_REPR (SP_DOCUMENT_DEFS (doc))->addChild(repr, NULL);
 248         SPGradient *gr_new = (SPGradient *) doc->getObjectByRepr(repr);
 249         gr_new = sp_gradient_ensure_vector_normalized (gr_new);
 250         Inkscape::GC::release(repr);
 251         return gr_new;
 252     }
 253     return gr;
 254 }
 255
 256 /**
 257  *  Obtain the vector from the gradient. A forked vector will be created and linked to this gradient if another gradient uses it.
 258  */
 259 SPGradient *
 260 sp_gradient_get_forked_vector_if_necessary(SPGradient *gradient, bool force_vector)
 261 {
 262     SPGradient *vector = sp_gradient_get_vector (gradient, force_vector);
 263     vector = sp_gradient_fork_vector_if_necessary (vector);
 264     if ( gradient != vector && gradient->ref->getObject() != vector ) {
 265         sp_gradient_repr_set_link(SP_OBJECT_REPR(gradient), vector);
 266     }
 267     return vector;
 268 }
 269
 270
 271 /**
 272  * Convert an item's gradient to userspace _without_ preserving coords, setting them to defaults
 273  * instead. No forking or reapplying is done because this is only called for newly created privates.
 274  * @return The new gradient.
 275  */
 276 SPGradient *
 277 sp_gradient_reset_to_userspace (SPGradient *gr, SPItem *item)
 278 {
 279     Inkscape::XML::Node *repr = SP_OBJECT_REPR(gr);
 280
 281     // calculate the bbox of the item
 282     sp_document_ensure_up_to_date(SP_OBJECT_DOCUMENT(item));
 283     NR::Maybe<NR::Rect> bbox = item->getBounds(NR::identity()); // we need "true" bbox without item_i2d_affine
 284
 285     if ( !bbox || bbox->isEmpty() )
 286         return gr;
 287
 288     NR::Coord const width = bbox->dimensions()[NR::X];
 289     NR::Coord const height = bbox->dimensions()[NR::Y];
 290
 291     NR::Point const center = bbox->midpoint();
 292
 293     if (SP_IS_RADIALGRADIENT(gr)) {
 294         sp_repr_set_svg_double(repr, "cx", center[NR::X]);
 295         sp_repr_set_svg_double(repr, "cy", center[NR::Y]);
 296         sp_repr_set_svg_double(repr, "fx", center[NR::X]);
 297         sp_repr_set_svg_double(repr, "fy", center[NR::Y]);
 298         sp_repr_set_svg_double(repr, "r", width/2);
 299
 300         // we want it to be elliptic, not circular
 301         NR::Matrix squeeze = NR::Matrix (NR::translate (-center)) *
 302             NR::Matrix (NR::scale(1, height/width)) *
 303             NR::Matrix (NR::translate (center));
 304
 305         gr->gradientTransform = squeeze;
 306         {
 307             gchar *c=sp_svg_transform_write(gr->gradientTransform);
 308             SP_OBJECT_REPR(gr)->setAttribute("gradientTransform", c);
 309             g_free(c);
 310         }
 311     } else {
 312         sp_repr_set_svg_double(repr, "x1", (center - NR::Point(width/2, 0))[NR::X]);
 313         sp_repr_set_svg_double(repr, "y1", (center - NR::Point(width/2, 0))[NR::Y]);
 314         sp_repr_set_svg_double(repr, "x2", (center + NR::Point(width/2, 0))[NR::X]);
 315         sp_repr_set_svg_double(repr, "y2", (center + NR::Point(width/2, 0))[NR::Y]);
 316     }
 317
 318     // set the gradientUnits
 319     repr->setAttribute("gradientUnits", "userSpaceOnUse");
 320
 321     return gr;
 322 }
 323
 324 /**
 325  * Convert an item's gradient to userspace if necessary, also fork it if necessary.
 326  * @return The new gradient.
 327  */
 328 SPGradient *
 329 sp_gradient_convert_to_userspace(SPGradient *gr, SPItem *item, gchar const *property)
 330 {
 331     g_return_val_if_fail(SP_IS_GRADIENT(gr), NULL);
 332
 333     // First, fork it if it is shared
 334     gr = sp_gradient_fork_private_if_necessary(gr, sp_gradient_get_vector(gr, FALSE),
 335                                                SP_IS_RADIALGRADIENT(gr) ? SP_GRADIENT_TYPE_RADIAL : SP_GRADIENT_TYPE_LINEAR, SP_OBJECT(item));
 336
 337     if (gr->units == SP_GRADIENT_UNITS_OBJECTBOUNDINGBOX) {
 338
 339         Inkscape::XML::Node *repr = SP_OBJECT_REPR(gr);
 340
 341         // calculate the bbox of the item
 342         sp_document_ensure_up_to_date(SP_OBJECT_DOCUMENT(item));
 343         NR::Matrix bbox2user;
 344         NR::Maybe<NR::Rect> bbox = item->getBounds(NR::identity()); // we need "true" bbox without item_i2d_affine
 345         if ( bbox && !bbox->isEmpty() ) {
 346             bbox2user = NR::Matrix(bbox->dimensions()[NR::X], 0,
 347                                    0, bbox->dimensions()[NR::Y],
 348                                    bbox->min()[NR::X], bbox->min()[NR::Y]);
 349         } else {
 350             // would be degenerate otherwise
 351             bbox2user = NR::identity();
 352         }
 353
 354         /* skew is the additional transform, defined by the proportions of the item, that we need
 355          * to apply to the gradient in order to work around this weird bit from SVG 1.1
 356          * (http://www.w3.org/TR/SVG11/pservers.html#LinearGradients):
 357          *
 358          *   When gradientUnits="objectBoundingBox" and gradientTransform is the identity
 359          *   matrix, the stripes of the linear gradient are perpendicular to the gradient
 360          *   vector in object bounding box space (i.e., the abstract coordinate system where
 361          *   (0,0) is at the top/left of the object bounding box and (1,1) is at the
 362          *   bottom/right of the object bounding box). When the object's bounding box is not
 363          *   square, the stripes that are conceptually perpendicular to the gradient vector
 364          *   within object bounding box space will render non-perpendicular relative to the
 365          *   gradient vector in user space due to application of the non-uniform scaling
 366          *   transformation from bounding box space to user space.
 367          */
 368         NR::Matrix skew = bbox2user;
 369         double exp = skew.expansion();
 370         skew[0] /= exp;
 371         skew[1] /= exp;
 372         skew[2] /= exp;
 373         skew[3] /= exp;
 374         skew[4] = 0;
 375         skew[5] = 0;
 376
 377         // apply skew to the gradient
 378         gr->gradientTransform = skew;
 379         {
 380             gchar *c=sp_svg_transform_write(gr->gradientTransform);
 381             SP_OBJECT_REPR(gr)->setAttribute("gradientTransform", c);
 382             g_free(c);
 383         }
 384
 385         // Matrix to convert points to userspace coords; postmultiply by inverse of skew so
 386         // as to cancel it out when it's applied to the gradient during rendering
 387         NR::Matrix point_convert = bbox2user * skew.inverse();
 388
 389         if (SP_IS_RADIALGRADIENT(gr)) {
 390             SPRadialGradient *rg = SP_RADIALGRADIENT(gr);
 391
 392             // original points in the bbox coords
 393             NR::Point c_b = NR::Point(rg->cx.computed, rg->cy.computed);
 394             NR::Point f_b = NR::Point(rg->fx.computed, rg->fy.computed);
 395             double r_b = rg->r.computed;
 396
 397             // converted points in userspace coords
 398             NR::Point c_u = c_b * point_convert;
 399             NR::Point f_u = f_b * point_convert;
 400             double r_u = r_b * point_convert.expansion();
 401
 402             sp_repr_set_svg_double(repr, "cx", c_u[NR::X]);
 403             sp_repr_set_svg_double(repr, "cy", c_u[NR::Y]);
 404             sp_repr_set_svg_double(repr, "fx", f_u[NR::X]);
 405             sp_repr_set_svg_double(repr, "fy", f_u[NR::Y]);
 406             sp_repr_set_svg_double(repr, "r", r_u);
 407
 408         } else {
 409             SPLinearGradient *lg = SP_LINEARGRADIENT(gr);
 410
 411             NR::Point p1_b = NR::Point(lg->x1.computed, lg->y1.computed);
 412             NR::Point p2_b = NR::Point(lg->x2.computed, lg->y2.computed);
 413
 414             NR::Point p1_u = p1_b * point_convert;
 415             NR::Point p2_u = p2_b * point_convert;
 416
 417             sp_repr_set_svg_double(repr, "x1", p1_u[NR::X]);
 418             sp_repr_set_svg_double(repr, "y1", p1_u[NR::Y]);
 419             sp_repr_set_svg_double(repr, "x2", p2_u[NR::X]);
 420             sp_repr_set_svg_double(repr, "y2", p2_u[NR::Y]);
 421         }
 422
 423         // set the gradientUnits
 424         repr->setAttribute("gradientUnits", "userSpaceOnUse");
 425     }
 426
 427     // apply the gradient to the item (may be necessary if we forked it); not recursive
 428     // generally because grouped items will be taken care of later (we're being called
 429     // from sp_item_adjust_paint_recursive); however text and all its children should all
 430     // refer to one gradient, hence the recursive call for text (because we can't/don't
 431     // want to access tspans and set gradients on them separately)
 432     if (SP_IS_TEXT(item))
 433         sp_style_set_property_url(SP_OBJECT(item), property, SP_OBJECT(gr), true);
 434     else
 435         sp_style_set_property_url(SP_OBJECT(item), property, SP_OBJECT(gr), false);
 436
 437     return gr;
 438 }
 439
 440 void
 441 sp_gradient_transform_multiply(SPGradient *gradient, NR::Matrix postmul, bool set)
 442 {
 443     if (set) {
 444         gradient->gradientTransform = postmul;
 445     } else {
 446         gradient->gradientTransform *= postmul; // fixme: get gradient transform by climbing to hrefs?
 447     }
 448     gradient->gradientTransform_set = TRUE;
 449
 450     gchar *c=sp_svg_transform_write(gradient->gradientTransform);
 451     SP_OBJECT_REPR(gradient)->setAttribute("gradientTransform", c);
 452     g_free(c);
 453 }
 454
 455 SPGradient *
 456 sp_item_gradient (SPItem *item, bool fill_or_stroke)
 457 {
 458     SPStyle *style = SP_OBJECT_STYLE (item);
 459     SPGradient *gradient = NULL;
 460
 461     if (fill_or_stroke) {
 462         if (style && (style->fill.isPaintserver())) {
 463             SPObject *server = SP_OBJECT_STYLE_FILL_SERVER(item);
 464             if (SP_IS_GRADIENT (server)) {
 465                 gradient = SP_GRADIENT (server);
 466             }
 467         }
 468     } else {
 469         if (style && (style->stroke.isPaintserver())) {
 470             SPObject *server = SP_OBJECT_STYLE_STROKE_SERVER(item);
 471             if (SP_IS_GRADIENT (server)) {
 472                 gradient = SP_GRADIENT (server);
 473             }
 474         }
 475     }
 476
 477    return gradient;
 478 }
 479
 480
 481 SPStop*
 482 sp_first_stop(SPGradient *gradient)
 483 {
 484   for (SPObject *ochild = sp_object_first_child(gradient); ochild != NULL; ochild = SP_OBJECT_NEXT(ochild)) {
 485         if (SP_IS_STOP (ochild))
 486                 return SP_STOP(ochild);
 487   }
 488   return NULL;
 489 }
 490
 491 SPStop*
 492 sp_prev_stop(SPStop *stop, SPGradient *gradient)
 493 {
 494         if (sp_object_first_child(SP_OBJECT(gradient)) == SP_OBJECT(stop))
 495                 return NULL;
 496         SPObject *found = NULL;
 497         for ( SPObject *ochild = sp_object_first_child(SP_OBJECT(gradient)) ; ochild != NULL ; ochild = SP_OBJECT_NEXT(ochild) ) {
 498                 if (SP_IS_STOP (ochild)) {
 499                         found = ochild;
 500                 }
 501                 if (SP_OBJECT_NEXT(ochild) == SP_OBJECT(stop) || SP_OBJECT(ochild) == SP_OBJECT(stop)) {
 502                         break;
 503                 }
 504         }
 505         return SP_STOP(found);
 506 }
 507
 508 SPStop*
 509 sp_next_stop(SPStop *stop)
 510 {
 511     for (SPObject *ochild = SP_OBJECT_NEXT(stop); ochild != NULL; ochild = SP_OBJECT_NEXT(ochild)) {
 512         if (SP_IS_STOP (ochild))
 513             return SP_STOP(ochild);
 514     }
 515     return NULL;
 516 }
 517
 518 SPStop*
 519 sp_last_stop(SPGradient *gradient)
 520 {
 521     for (SPStop *stop = sp_first_stop (gradient); stop != NULL; stop = sp_next_stop (stop)) {
 522         if (sp_next_stop (stop) == NULL)
 523             return stop;
 524     }
 525     return NULL;
 526 }
 527
 528 guint
 529 sp_number_of_stops(SPGradient *gradient)
 530 {
 531     guint n = 0;
 532     for (SPStop *stop = sp_first_stop (gradient); stop != NULL; stop = sp_next_stop (stop)) {
 533         if (sp_next_stop (stop) == NULL)
 534             return n;
 535         n ++;
 536     }
 537     return n;
 538 }
 539
 540 guint
 541 sp_number_of_stops_before_stop(SPGradient *gradient, SPStop *target)
 542 {
 543     guint n = 0;
 544     for (SPStop *stop = sp_first_stop (gradient); stop != NULL; stop = sp_next_stop (stop)) {
 545         if (stop == target)
 546             return n;
 547         n ++;
 548     }
 549     return n;
 550 }
 551
 552
 553 SPStop*
 554 sp_get_stop_i(SPGradient *gradient, guint stop_i)
 555 {
 556     SPStop *stop = sp_first_stop (gradient);
 557
 558     for (guint i=0; i < stop_i; i++) {
 559         if (!stop) return NULL;
 560         stop = sp_next_stop (stop);
 561     }
 562
 563     return stop;
 564 }
 565
 566 guint32
 567 average_color (guint32 c1, guint32 c2, gdouble p)
 568 {
 569         guint32 r = (guint32) (SP_RGBA32_R_U (c1) * (1 - p) + SP_RGBA32_R_U (c2) * p);
 570         guint32 g = (guint32) (SP_RGBA32_G_U (c1) * (1 - p) + SP_RGBA32_G_U (c2) * p);
 571         guint32 b = (guint32) (SP_RGBA32_B_U (c1) * (1 - p) + SP_RGBA32_B_U (c2) * p);
 572         guint32 a = (guint32) (SP_RGBA32_A_U (c1) * (1 - p) + SP_RGBA32_A_U (c2) * p);
 573
 574         return SP_RGBA32_U_COMPOSE (r, g, b, a);
 575 }
 576
 577 SPStop *
 578 sp_vector_add_stop (SPGradient *vector, SPStop* prev_stop, SPStop* next_stop, gfloat offset)
 579 {
 580     Inkscape::XML::Node *new_stop_repr = NULL;
 581     new_stop_repr = SP_OBJECT_REPR(prev_stop)->duplicate(SP_OBJECT_REPR(vector)->document());
 582     SP_OBJECT_REPR(vector)->addChild(new_stop_repr, SP_OBJECT_REPR(prev_stop));
 583
 584     SPStop *newstop = (SPStop *) SP_OBJECT_DOCUMENT(vector)->getObjectByRepr(new_stop_repr);
 585     newstop->offset = offset;
 586     sp_repr_set_css_double( SP_OBJECT_REPR(newstop), "offset", (double)offset);
 587     guint32 const c1 = sp_stop_get_rgba32(prev_stop);
 588     guint32 const c2 = sp_stop_get_rgba32(next_stop);
 589     guint32 cnew = average_color (c1, c2, (offset - prev_stop->offset) / (next_stop->offset - prev_stop->offset));
 590     Inkscape::CSSOStringStream os;
 591     gchar c[64];
 592     sp_svg_write_color (c, sizeof(c), cnew);
 593     gdouble opacity = (gdouble) SP_RGBA32_A_F (cnew);
 594     os << "stop-color:" << c << ";stop-opacity:" << opacity <<";";
 595     SP_OBJECT_REPR (newstop)->setAttribute("style", os.str().c_str());
 596     Inkscape::GC::release(new_stop_repr);
 597
 598     return newstop;
 599 }
 600
 601 void
 602 sp_item_gradient_edit_stop (SPItem *item, guint point_type, guint point_i, bool fill_or_stroke)
 603 {
 604     SPGradient *gradient = sp_item_gradient (item, fill_or_stroke);
 605
 606     if (!gradient || !SP_IS_GRADIENT(gradient))
 607         return;
 608
 609     SPGradient *vector = sp_gradient_get_vector (gradient, false);
 610     switch (point_type) {
 611         case POINT_LG_BEGIN:
 612         case POINT_RG_CENTER:
 613         case POINT_RG_FOCUS:
 614         {
 615             GtkWidget *dialog = sp_gradient_vector_editor_new (vector, sp_first_stop (vector));
 616             gtk_widget_show (dialog);
 617         }
 618         break;
 619
 620         case POINT_LG_END:
 621         case POINT_RG_R1:
 622         case POINT_RG_R2:
 623         {
 624             GtkWidget *dialog = sp_gradient_vector_editor_new (vector, sp_last_stop (vector));
 625             gtk_widget_show (dialog);
 626         }
 627         break;
 628
 629         case POINT_LG_MID:
 630         case POINT_RG_MID1:
 631         case POINT_RG_MID2:
 632         {
 633             GtkWidget *dialog = sp_gradient_vector_editor_new (vector, sp_get_stop_i (vector, point_i));
 634             gtk_widget_show (dialog);
 635         }
 636         break;
 637         default:
 638             break;
 639     }
 640 }
 641
 642 guint32
 643 sp_item_gradient_stop_query_style (SPItem *item, guint point_type, guint point_i, bool fill_or_stroke)
 644 {
 645     SPGradient *gradient = sp_item_gradient (item, fill_or_stroke);
 646
 647     if (!gradient || !SP_IS_GRADIENT(gradient))
 648         return 0;
 649
 650     SPGradient *vector = sp_gradient_get_vector (gradient, false);
 651
 652     if (!vector) // orphan!
 653         return 0; // what else to do?
 654
 655     switch (point_type) {
 656         case POINT_LG_BEGIN:
 657         case POINT_RG_CENTER:
 658         case POINT_RG_FOCUS:
 659         {
 660             SPStop *first = sp_first_stop (vector);
 661             if (first) {
 662                 return sp_stop_get_rgba32(first);
 663             }
 664         }
 665         break;
 666
 667         case POINT_LG_END:
 668         case POINT_RG_R1:
 669         case POINT_RG_R2:
 670         {
 671             SPStop *last = sp_last_stop (vector);
 672             if (last) {
 673                 return sp_stop_get_rgba32(last);
 674             }
 675         }
 676         break;
 677
 678         case POINT_LG_MID:
 679         case POINT_RG_MID1:
 680         case POINT_RG_MID2:
 681         {
 682             SPStop *stopi = sp_get_stop_i (vector, point_i);
 683             if (stopi) {
 684                 return sp_stop_get_rgba32(stopi);
 685             }
 686         }
 687         break;
 688
 689         default:
 690             break;
 691     }
 692     return 0;
 693 }
 694
 695 void
 696 sp_item_gradient_stop_set_style (SPItem *item, guint point_type, guint point_i, bool fill_or_stroke, SPCSSAttr *stop)
 697 {
 698     SPGradient *gradient = sp_item_gradient (item, fill_or_stroke);
 699
 700     if (!gradient || !SP_IS_GRADIENT(gradient))
 701         return;
 702
 703     SPGradient *vector = sp_gradient_get_vector (gradient, false);
 704
 705     if (!vector) // orphan!
 706         return;
 707
 708     vector = sp_gradient_fork_vector_if_necessary (vector);
 709     if ( gradient != vector && gradient->ref->getObject() != vector ) {
 710         sp_gradient_repr_set_link(SP_OBJECT_REPR(gradient), vector);
 711     }
 712
 713     switch (point_type) {
 714         case POINT_LG_BEGIN:
 715         case POINT_RG_CENTER:
 716         case POINT_RG_FOCUS:
 717         {
 718             SPStop *first = sp_first_stop (vector);
 719             if (first) {
 720                 sp_repr_css_change (SP_OBJECT_REPR (first), stop, "style");
 721             }
 722         }
 723         break;
 724
 725         case POINT_LG_END:
 726         case POINT_RG_R1:
 727         case POINT_RG_R2:
 728         {
 729             SPStop *last = sp_last_stop (vector);
 730             if (last) {
 731                 sp_repr_css_change (SP_OBJECT_REPR (last), stop, "style");
 732             }
 733         }
 734         break;
 735
 736         case POINT_LG_MID:
 737         case POINT_RG_MID1:
 738         case POINT_RG_MID2:
 739         {
 740             SPStop *stopi = sp_get_stop_i (vector, point_i);
 741             if (stopi) {
 742                 sp_repr_css_change (SP_OBJECT_REPR (stopi), stop, "style");
 743             }
 744         }
 745         break;
 746
 747         default:
 748             break;
 749     }
 750 }
 751
 752 void
 753 sp_item_gradient_reverse_vector (SPItem *item, bool fill_or_stroke)
 754 {
 755     SPGradient *gradient = sp_item_gradient (item, fill_or_stroke);
 756     if (!gradient || !SP_IS_GRADIENT(gradient))
 757         return;
 758
 759     SPGradient *vector = sp_gradient_get_vector (gradient, false);
 760     if (!vector) // orphan!
 761         return;
 762
 763     vector = sp_gradient_fork_vector_if_necessary (vector);
 764     if ( gradient != vector && gradient->ref->getObject() != vector ) {
 765         sp_gradient_repr_set_link(SP_OBJECT_REPR(gradient), vector);
 766     }
 767
 768     GSList *child_reprs = NULL;
 769     GSList *child_objects = NULL;
 770     std::vector<double> offsets;
 771     for (SPObject *child = sp_object_first_child(vector);
 772          child != NULL; child = SP_OBJECT_NEXT(child)) {
 773         child_reprs = g_slist_prepend (child_reprs, SP_OBJECT_REPR(child));
 774         child_objects = g_slist_prepend (child_objects, child);
 775         offsets.push_back(sp_repr_get_double_attribute(SP_OBJECT_REPR(child), "offset", 0));
 776     }
 777
 778     GSList *child_copies = NULL;
 779     for (GSList *i = child_reprs; i != NULL; i = i->next) {
 780         Inkscape::XML::Node *repr = (Inkscape::XML::Node *) i->data;
 781         Inkscape::XML::Document *xml_doc = SP_OBJECT_REPR(vector)->document();
 782         child_copies = g_slist_append (child_copies, repr->duplicate(xml_doc));
 783     }
 784
 785
 786     for (GSList *i = child_objects; i != NULL; i = i->next) {
 787         SPObject *child = SP_OBJECT (i->data);
 788         child->deleteObject();
 789     }
 790
 791     std::vector<double>::iterator iter = offsets.end() - 1;
 792     for (GSList *i = child_copies; i != NULL; i = i->next) {
 793         Inkscape::XML::Node *copy = (Inkscape::XML::Node *) i->data;
 794         vector->appendChildRepr(copy);
 795         sp_repr_set_svg_double (copy, "offset", 1 - *iter);
 796         iter --;
 797         Inkscape::GC::release(copy);
 798     }
 799
 800     g_slist_free (child_reprs);
 801     g_slist_free (child_copies);
 802     g_slist_free (child_objects);
 803 }
 804
 805
 806 // FIXME: make general global function
 807 static double
 808 get_offset_between_points (NR::Point p, NR::Point begin, NR::Point end)
 809 {
 810     double length = NR::L2(end - begin);
 811     NR::Point be = (end - begin) / length;
 812     double r = NR::dot(p - begin, be);
 813
 814     if (r < 0.0) return 0.0;
 815     if (r > length) return 1.0;
 816
 817     return (r / length);
 818 }
 819
 820
 821 /**
 822 Set the position of point point_type of the gradient applied to item (either fill_or_stroke) to
 823 p_w (in desktop coordinates). Write_repr if you want the change to become permanent.
 824 */
 825 void
 826 sp_item_gradient_set_coords (SPItem *item, guint point_type, guint point_i, NR::Point p_w, bool fill_or_stroke, bool write_repr, bool scale)
 827 {
 828     SPGradient *gradient = sp_item_gradient (item, fill_or_stroke);
 829
 830     if (!gradient || !SP_IS_GRADIENT(gradient))
 831         return;
 832
 833     gradient = sp_gradient_convert_to_userspace (gradient, item, fill_or_stroke? "fill" : "stroke");
 834
 835     NR::Matrix i2d = sp_item_i2d_affine (item);
 836     NR::Point p = p_w * i2d.inverse();
 837     p *= (gradient->gradientTransform).inverse();
 838     // now p is in gradient's original coordinates
 839
 840     Inkscape::XML::Node *repr = SP_OBJECT_REPR(gradient);
 841
 842     if (SP_IS_LINEARGRADIENT(gradient)) {
 843         SPLinearGradient *lg = SP_LINEARGRADIENT(gradient);
 844         switch (point_type) {
 845             case POINT_LG_BEGIN:
 846                 if (scale) {
 847                     lg->x2.computed += (lg->x1.computed - p[NR::X]);
 848                     lg->y2.computed += (lg->y1.computed - p[NR::Y]);
 849                 }
 850                 lg->x1.computed = p[NR::X];
 851                 lg->y1.computed = p[NR::Y];
 852                 if (write_repr) {
 853                     if (scale) {
 854                         sp_repr_set_svg_double(repr, "x2", lg->x2.computed);
 855                         sp_repr_set_svg_double(repr, "y2", lg->y2.computed);
 856                     }
 857                     sp_repr_set_svg_double(repr, "x1", lg->x1.computed);
 858                     sp_repr_set_svg_double(repr, "y1", lg->y1.computed);
 859                 } else {
 860                     SP_OBJECT (gradient)->requestModified(SP_OBJECT_MODIFIED_FLAG);
 861                 }
 862                 break;
 863             case POINT_LG_END:
 864                 if (scale) {
 865                     lg->x1.computed += (lg->x2.computed - p[NR::X]);
 866                     lg->y1.computed += (lg->y2.computed - p[NR::Y]);
 867                 }
 868                 lg->x2.computed = p[NR::X];
 869                 lg->y2.computed = p[NR::Y];
 870                 if (write_repr) {
 871                     if (scale) {
 872                         sp_repr_set_svg_double(repr, "x1", lg->x1.computed);
 873                         sp_repr_set_svg_double(repr, "y1", lg->y1.computed);
 874                     }
 875                     sp_repr_set_svg_double(repr, "x2", lg->x2.computed);
 876                     sp_repr_set_svg_double(repr, "y2", lg->y2.computed);
 877                 } else {
 878                     SP_OBJECT (gradient)->requestModified(SP_OBJECT_MODIFIED_FLAG);
 879                 }
 880                         break;
 881             case POINT_LG_MID:
 882             {
 883                 // using X-coordinates only to determine the offset, assuming p has been snapped to the vector from begin to end.
 884                 double offset = get_offset_between_points (p, NR::Point(lg->x1.computed, lg->y1.computed), NR::Point(lg->x2.computed, lg->y2.computed));
 885                 SPGradient *vector = sp_gradient_get_forked_vector_if_necessary (lg, false);
 886                 sp_gradient_ensure_vector(lg);
 887                 lg->vector.stops.at(point_i).offset = offset;
 888                 SPStop* stopi = sp_get_stop_i(vector, point_i);
 889                 stopi->offset = offset;
 890                 if (write_repr) {
 891                     sp_repr_set_css_double(SP_OBJECT_REPR(stopi), "offset", stopi->offset);
 892                 } else {
 893                     SP_OBJECT (stopi)->requestModified(SP_OBJECT_MODIFIED_FLAG | SP_OBJECT_STYLE_MODIFIED_FLAG);
 894                 }
 895             }
 896             break;
 897                 default:
 898                         break;
 899                 }
 900         } else if (SP_IS_RADIALGRADIENT(gradient)) {
 901         SPRadialGradient *rg = SP_RADIALGRADIENT(gradient);
 902         NR::Point c (rg->cx.computed, rg->cy.computed);
 903         NR::Point c_w = c * gradient->gradientTransform * i2d; // now in desktop coords
 904         if ((point_type == POINT_RG_R1 || point_type == POINT_RG_R2) && NR::L2 (p_w - c_w) < 1e-3) {
 905             // prevent setting a radius too close to the center
 906             return;
 907         }
 908         NR::Matrix new_transform;
 909         bool transform_set = false;
 910
 911                 switch (point_type) {
 912                 case POINT_RG_CENTER:
 913                         rg->fx.computed = p[NR::X] + (rg->fx.computed - rg->cx.computed);
 914                         rg->fy.computed = p[NR::Y] + (rg->fy.computed - rg->cy.computed);
 915                         rg->cx.computed = p[NR::X];
 916                         rg->cy.computed = p[NR::Y];
 917                         if (write_repr) {
 918                                 sp_repr_set_svg_double(repr, "fx", rg->fx.computed);
 919                                 sp_repr_set_svg_double(repr, "fy", rg->fy.computed);
 920                                 sp_repr_set_svg_double(repr, "cx", rg->cx.computed);
 921                                 sp_repr_set_svg_double(repr, "cy", rg->cy.computed);
 922                         } else {
 923                                 SP_OBJECT (gradient)->requestModified(SP_OBJECT_MODIFIED_FLAG);
 924                         }
 925                         break;
 926                 case POINT_RG_FOCUS:
 927                         rg->fx.computed = p[NR::X];
 928                         rg->fy.computed = p[NR::Y];
 929                         if (write_repr) {
 930                                 sp_repr_set_svg_double(repr, "fx", rg->fx.computed);
 931                                 sp_repr_set_svg_double(repr, "fy", rg->fy.computed);
 932                         } else {
 933                                 SP_OBJECT (gradient)->requestModified(SP_OBJECT_MODIFIED_FLAG);
 934                         }
 935                         break;
 936                 case POINT_RG_R1:
 937                         {
 938                 NR::Point r1_w = (c + NR::Point(rg->r.computed, 0)) * gradient->gradientTransform * i2d;
 939                                 double r1_angle = NR::atan2(r1_w - c_w);
 940                                 double move_angle = NR::atan2(p_w - c_w) - r1_angle;
 941                                 double move_stretch = NR::L2(p_w - c_w) / NR::L2(r1_w - c_w);
 942
 943                                 NR::Matrix move = NR::Matrix (NR::translate (-c_w)) *
 944                                                                                                  NR::Matrix (NR::rotate(-r1_angle)) *
 945                                                                                                  NR::Matrix (NR::scale(move_stretch, scale? move_stretch : 1)) *
 946                                                                                                  NR::Matrix (NR::rotate(r1_angle)) *
 947                                                                                                  NR::Matrix (NR::rotate(move_angle)) *
 948                                                                                                  NR::Matrix (NR::translate (c_w));
 949
 950                                 new_transform = gradient->gradientTransform * i2d * move * i2d.inverse();
 951                                 transform_set = true;
 952
 953                                 break;
 954                         }
 955                 case POINT_RG_R2:
 956                         {
 957                                 NR::Point r2_w = (c + NR::Point(0, -rg->r.computed)) * gradient->gradientTransform * i2d;
 958                                 double r2_angle = NR::atan2(r2_w - c_w);
 959                                 double move_angle = NR::atan2(p_w - c_w) - r2_angle;
 960                                 double move_stretch = NR::L2(p_w - c_w) / NR::L2(r2_w - c_w);
 961
 962                                 NR::Matrix move = NR::Matrix (NR::translate (-c_w)) *
 963                                                                                                  NR::Matrix (NR::rotate(-r2_angle)) *
 964                                                                                                  NR::Matrix (NR::scale(move_stretch, scale? move_stretch : 1)) *
 965                                                                                                  NR::Matrix (NR::rotate(r2_angle)) *
 966                                                                                                  NR::Matrix (NR::rotate(move_angle)) *
 967                                                                                                  NR::Matrix (NR::translate (c_w));
 968
 969                                 new_transform = gradient->gradientTransform * i2d * move * i2d.inverse();
 970                                 transform_set = true;
 971
 972                 break;
 973             }
 974         case POINT_RG_MID1:
 975             {
 976                 NR::Point start = NR::Point (rg->cx.computed, rg->cy.computed);
 977                  NR::Point end   = NR::Point (rg->cx.computed + rg->r.computed, rg->cy.computed);
 978                 double offset = get_offset_between_points (p, start, end);
 979                 SPGradient *vector = sp_gradient_get_forked_vector_if_necessary (rg, false);
 980                 sp_gradient_ensure_vector(rg);
 981                 rg->vector.stops.at(point_i).offset = offset;
 982                 SPStop* stopi = sp_get_stop_i(vector, point_i);
 983                 stopi->offset = offset;
 984                 if (write_repr) {
 985                     sp_repr_set_css_double(SP_OBJECT_REPR(stopi), "offset", stopi->offset);
 986                 } else {
 987                     SP_OBJECT (stopi)->requestModified(SP_OBJECT_MODIFIED_FLAG | SP_OBJECT_STYLE_MODIFIED_FLAG);
 988                 }
 989                 break;
 990             }
 991         case POINT_RG_MID2:
 992                 NR::Point start = NR::Point (rg->cx.computed, rg->cy.computed);
 993                 NR::Point end   = NR::Point (rg->cx.computed, rg->cy.computed - rg->r.computed);
 994                 double offset = get_offset_between_points (p, start, end);
 995                 SPGradient *vector = sp_gradient_get_forked_vector_if_necessary(rg, false);
 996                 sp_gradient_ensure_vector(rg);
 997                 rg->vector.stops.at(point_i).offset = offset;
 998                 SPStop* stopi = sp_get_stop_i(vector, point_i);
 999                 stopi->offset = offset;
1000                 if (write_repr) {
1001                     sp_repr_set_css_double(SP_OBJECT_REPR(stopi), "offset", stopi->offset);
1002                 } else {
1003                     SP_OBJECT (stopi)->requestModified(SP_OBJECT_MODIFIED_FLAG | SP_OBJECT_STYLE_MODIFIED_FLAG);
1004                 }
1005                 break;
1006             }
1007                 if (transform_set) {
1008                                 gradient->gradientTransform = new_transform;
1009                                 gradient->gradientTransform_set = TRUE;
1010                                 if (write_repr) {
1011                                         gchar *s=sp_svg_transform_write(gradient->gradientTransform);
1012                                         SP_OBJECT_REPR(gradient)->setAttribute("gradientTransform", s);
1013                                         g_free(s);
1014                                 } else {
1015                                         SP_OBJECT (gradient)->requestModified(SP_OBJECT_MODIFIED_FLAG);
1016                                 }
1017                 }
1018         }
1019 }
1020
1021 SPGradient *
1022 sp_item_gradient_get_vector (SPItem *item, bool fill_or_stroke)
1023 {
1024     SPGradient *gradient = sp_item_gradient (item, fill_or_stroke);
1025
1026     if (gradient)
1027         return sp_gradient_get_vector (gradient, false);
1028     return NULL;
1029 }
1030
1031 SPGradientSpread
1032 sp_item_gradient_get_spread (SPItem *item, bool fill_or_stroke)
1033 {
1034     SPGradient *gradient = sp_item_gradient (item, fill_or_stroke);
1035
1036     if (gradient)
1037         return sp_gradient_get_spread (gradient);
1038     return SP_GRADIENT_SPREAD_PAD;
1039 }
1040
1041
1042 /**
1043 Returns the position of point point_type of the gradient applied to item (either fill_or_stroke),
1044 in desktop coordinates.
1045 */
1046
1047 NR::Point
1048 sp_item_gradient_get_coords (SPItem *item, guint point_type, guint point_i, bool fill_or_stroke)
1049 {
1050     SPGradient *gradient = sp_item_gradient (item, fill_or_stroke);
1051
1052     NR::Point p (0, 0);
1053
1054     if (!gradient)
1055         return p;
1056
1057     if (SP_IS_LINEARGRADIENT(gradient)) {
1058         SPLinearGradient *lg = SP_LINEARGRADIENT(gradient);
1059         switch (point_type) {
1060             case POINT_LG_BEGIN:
1061                 p = NR::Point (lg->x1.computed, lg->y1.computed);
1062                 break;
1063             case POINT_LG_END:
1064                 p = NR::Point (lg->x2.computed, lg->y2.computed);
1065                 break;
1066             case POINT_LG_MID:
1067                 {
1068                     gdouble offset = lg->vector.stops.at(point_i).offset;
1069                     p = (1-offset) * NR::Point(lg->x1.computed, lg->y1.computed) + offset * NR::Point(lg->x2.computed, lg->y2.computed);
1070                 }
1071                 break;
1072         }
1073     } else     if (SP_IS_RADIALGRADIENT(gradient)) {
1074         SPRadialGradient *rg = SP_RADIALGRADIENT(gradient);
1075         switch (point_type) {
1076             case POINT_RG_CENTER:
1077                 p = NR::Point (rg->cx.computed, rg->cy.computed);
1078                 break;
1079             case POINT_RG_FOCUS:
1080                 p = NR::Point (rg->fx.computed, rg->fy.computed);
1081                 break;
1082             case POINT_RG_R1:
1083                 p = NR::Point (rg->cx.computed + rg->r.computed, rg->cy.computed);
1084                 break;
1085             case POINT_RG_R2:
1086                 p = NR::Point (rg->cx.computed, rg->cy.computed - rg->r.computed);
1087                 break;
1088             case POINT_RG_MID1:
1089                 {
1090                     gdouble offset = rg->vector.stops.at(point_i).offset;
1091                     p = (1-offset) * NR::Point (rg->cx.computed, rg->cy.computed) + offset * NR::Point(rg->cx.computed + rg->r.computed, rg->cy.computed);
1092                 }
1093                 break;
1094             case POINT_RG_MID2:
1095                 {
1096                     gdouble offset = rg->vector.stops.at(point_i).offset;
1097                     p = (1-offset) * NR::Point (rg->cx.computed, rg->cy.computed) + offset * NR::Point(rg->cx.computed, rg->cy.computed - rg->r.computed);
1098                 }
1099                 break;
1100         }
1101     }
1102
1103     if (SP_GRADIENT(gradient)->units == SP_GRADIENT_UNITS_OBJECTBOUNDINGBOX) {
1104         sp_document_ensure_up_to_date(SP_OBJECT_DOCUMENT(item));
1105         NR::Maybe<NR::Rect> bbox = item->getBounds(NR::identity()); // we need "true" bbox without item_i2d_affine
1106         if (bbox) {
1107             p *= NR::Matrix(bbox->dimensions()[NR::X], 0,
1108                             0, bbox->dimensions()[NR::Y],
1109                             bbox->min()[NR::X], bbox->min()[NR::Y]);
1110         }
1111     }
1112     p *= NR::Matrix(gradient->gradientTransform) * sp_item_i2d_affine(item);
1113     return p;
1114 }
1115
1116
1117 /**
1118  * Sets item fill or stroke to the gradient of the specified type with given vector, creating
1119  * new private gradient, if needed.
1120  * gr has to be a normalized vector.
1121  */
1122
1123 SPGradient *
1124 sp_item_set_gradient(SPItem *item, SPGradient *gr, SPGradientType type, bool is_fill)
1125 {
1126     g_return_val_if_fail(item != NULL, NULL);
1127     g_return_val_if_fail(SP_IS_ITEM(item), NULL);
1128     g_return_val_if_fail(gr != NULL, NULL);
1129     g_return_val_if_fail(SP_IS_GRADIENT(gr), NULL);
1130     g_return_val_if_fail(gr->state == SP_GRADIENT_STATE_VECTOR, NULL);
1131
1132     SPStyle *style = SP_OBJECT_STYLE(item);
1133     g_assert(style != NULL);
1134
1135     SPPaintServer *ps = NULL;
1136     if (is_fill? style->fill.isPaintserver() : style->stroke.isPaintserver())
1137         ps = is_fill? SP_STYLE_FILL_SERVER(style) : SP_STYLE_STROKE_SERVER(style);
1138
1139     if (ps
1140         && ( (type == SP_GRADIENT_TYPE_LINEAR && SP_IS_LINEARGRADIENT(ps)) ||
1141              (type == SP_GRADIENT_TYPE_RADIAL && SP_IS_RADIALGRADIENT(ps))   ) )
1142     {
1143
1144         /* Current fill style is the gradient of the required type */
1145         SPGradient *current = SP_GRADIENT(ps);
1146
1147         //g_print("hrefcount %d   count %d\n", SP_OBJECT_HREFCOUNT(ig), count_gradient_hrefs(SP_OBJECT(item), ig));
1148
1149         if (SP_OBJECT_HREFCOUNT(current) == 1 ||
1150             SP_OBJECT_HREFCOUNT(current) == count_gradient_hrefs(SP_OBJECT(item), current)) {
1151
1152             // current is private and it's either used once, or all its uses are by children of item;
1153             // so just change its href to vector
1154
1155             if ( current != gr && sp_gradient_get_vector(current, false) != gr ) {
1156                 /* href is not the vector */
1157                 sp_gradient_repr_set_link(SP_OBJECT_REPR(current), gr);
1158             }
1159             SP_OBJECT(item)->requestDisplayUpdate(SP_OBJECT_MODIFIED_FLAG | SP_OBJECT_STYLE_MODIFIED_FLAG);
1160             return current;
1161
1162         } else {
1163
1164             // the gradient is not private, or it is shared with someone else;
1165             // normalize it (this includes creating new private if necessary)
1166             SPGradient *normalized = sp_gradient_fork_private_if_necessary(current, gr, type, item);
1167
1168             g_return_val_if_fail(normalized != NULL, NULL);
1169
1170             if (normalized != current) {
1171
1172                 /* We have to change object style here; recursive because this is used from
1173                  * fill&stroke and must work for groups etc. */
1174                 sp_style_set_property_url(SP_OBJECT(item), is_fill? "fill" : "stroke", SP_OBJECT(normalized), true);
1175             }
1176             SP_OBJECT(item)->requestDisplayUpdate(SP_OBJECT_MODIFIED_FLAG | SP_OBJECT_STYLE_MODIFIED_FLAG);
1177             return normalized;
1178         }
1179
1180     } else {
1181         /* Current fill style is not a gradient or wrong type, so construct everything */
1182         SPGradient *constructed = sp_gradient_get_private_normalized(SP_OBJECT_DOCUMENT(item), gr, type);
1183         constructed = sp_gradient_reset_to_userspace(constructed, item);
1184         sp_style_set_property_url(SP_OBJECT(item), ( is_fill ? "fill" : "stroke" ), SP_OBJECT(constructed), true);
1185         SP_OBJECT(item)->requestDisplayUpdate(( SP_OBJECT_MODIFIED_FLAG |
1186                                                 SP_OBJECT_STYLE_MODIFIED_FLAG ));
1187         return constructed;
1188     }
1189 }
1190
1191 static void
1192 sp_gradient_repr_set_link(Inkscape::XML::Node *repr, SPGradient *link)
1193 {
1194     g_return_if_fail(repr != NULL);
1195     g_return_if_fail(link != NULL);
1196     g_return_if_fail(SP_IS_GRADIENT(link));
1197
1198     gchar *ref;
1199     if (link) {
1200         gchar const *id = SP_OBJECT_ID(link);
1201         size_t const len = strlen(id);
1202         ref = (gchar*) alloca(len + 2);
1203         *ref = '#';
1204         memcpy(ref + 1, id, len + 1);
1205     } else {
1206         ref = NULL;
1207     }
1208
1209     repr->setAttribute("xlink:href", ref);
1210 }
1211
1212 /*
1213  * Get default normalized gradient vector of document, create if there is none
1214  */
1215
1216 SPGradient *
1217 sp_document_default_gradient_vector(SPDocument *document, guint32 color)
1218 {
1219     SPDefs *defs = (SPDefs *) SP_DOCUMENT_DEFS(document);
1220     Inkscape::XML::Document *xml_doc = sp_document_repr_doc(document);
1221
1222     Inkscape::XML::Node *repr = xml_doc->createElement("svg:linearGradient");
1223
1224     repr->setAttribute("inkscape:collect", "always");
1225     // set here, but removed when it's edited in the gradient editor
1226     // to further reduce clutter, we could
1227     // (1) here, search gradients by color and return what is found without duplication
1228     // (2) in fill & stroke, show only one copy of each gradient in list
1229
1230     Inkscape::XML::Node *stop = xml_doc->createElement("svg:stop");
1231
1232     gchar b[64];
1233     sp_svg_write_color(b, sizeof(b), color);
1234
1235     {
1236         gchar *t = g_strdup_printf("stop-color:%s;stop-opacity:1;", b);
1237         stop->setAttribute("style", t);
1238         g_free(t);
1239     }
1240
1241     stop->setAttribute("offset", "0");
1242
1243     repr->appendChild(stop);
1244     Inkscape::GC::release(stop);
1245
1246     stop = xml_doc->createElement("svg:stop");
1247
1248     {
1249         gchar *t = g_strdup_printf("stop-color:%s;stop-opacity:0;", b);
1250         stop->setAttribute("style", t);
1251         g_free(t);
1252     }
1253
1254     stop->setAttribute("offset", "1");
1255
1256     repr->appendChild(stop);
1257     Inkscape::GC::release(stop);
1258
1259     SP_OBJECT_REPR(defs)->addChild(repr, NULL);
1260     Inkscape::GC::release(repr);
1261
1262     /* fixme: This does not look like nice */
1263     SPGradient *gr;
1264     gr = (SPGradient *) document->getObjectByRepr(repr);
1265     g_assert(gr != NULL);
1266     g_assert(SP_IS_GRADIENT(gr));
1267     /* fixme: Maybe add extra sanity check here */
1268     gr->state = SP_GRADIENT_STATE_VECTOR;
1269
1270     return gr;
1271 }
1272
1273 /**
1274 Return the preferred vector for \a o, made from (in order of preference) its current vector,
1275 current fill or stroke color, or from desktop style if \a o is NULL or doesn't have style.
1276 */
1277 SPGradient *
1278 sp_gradient_vector_for_object(SPDocument *const doc, SPDesktop *const desktop,
1279                               SPObject *const o, bool const is_fill)
1280 {
1281     guint32 rgba = 0;
1282     if (o == NULL || SP_OBJECT_STYLE(o) == NULL) {
1283         rgba = sp_desktop_get_color(desktop, is_fill);
1284     } else {
1285         // take the color of the object
1286         SPStyle const &style = *SP_OBJECT_STYLE(o);
1287         SPIPaint const &paint = ( is_fill
1288                                   ? style.fill
1289                                   : style.stroke );
1290         if (paint.isPaintserver()) {
1291             SPObject *server = is_fill? SP_OBJECT_STYLE_FILL_SERVER(o) : SP_OBJECT_STYLE_STROKE_SERVER(o);
1292             if (SP_IS_GRADIENT (server)) {
1293                 return sp_gradient_get_vector(SP_GRADIENT (server), TRUE);
1294             } else {
1295                 rgba = sp_desktop_get_color(desktop, is_fill);
1296             }
1297         } else if (paint.isColor()) {
1298             rgba = paint.value.color.toRGBA32( 0xff );
1299         } else {
1300             // if o doesn't use flat color, then take current color of the desktop.
1301             rgba = sp_desktop_get_color(desktop, is_fill);
1302         }
1303     }
1304
1305     return sp_document_default_gradient_vector(doc, rgba);
1306 }
1307
1308
1309 /*
1310   Local Variables:
1311   mode:c++
1312   c-file-style:"stroustrup"
1313   c-file-offsets:((innamespace . 0)(inline-open . 0)(case-label . +))
1314   indent-tabs-mode:nil
1315   fill-column:99
1316   End:
1317 */
1318 // vim: filetype=cpp:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:encoding=utf-8:textwidth=99 :