gimpimage-resize.c 92.1 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
/* The GIMP -- an image manipulation program
 * Copyright (C) 1995 Spencer Kimball and Peter Mattis
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 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, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */
18
#include <string.h>
19
#include "gimpimageP.h"
20
#include "cursorutil.h"
21 22
#include "drawable.h"
#include "floating_sel.h"
23
#include "gdisplay.h"
24 25 26 27
#include "general.h"
#include "gimage_mask.h"
#include "paint_funcs.h"
#include "palette.h"
28
#include "libgimp/parasite.h"
29
#include "parasitelist.h"
30 31
#include "undo.h"
#include "gimpsignal.h"
Manish Singh's avatar
Manish Singh committed
32
#include "gimpparasite.h"
33
#include "pathsP.h"
34
#include "gimprc.h"
35

36 37
#include "libgimp/gimpintl.h"

scott's avatar
scott committed
38 39
#include "tile_manager.h"
#include "tile.h"
40 41 42
#include "layer_pvt.h"
#include "drawable_pvt.h"		/* ick ick. */

43

44 45
/*  Local function declarations  */
static void     gimp_image_free_projection       (GimpImage *);
46
static void     gimp_image_allocate_shadow       (GimpImage *, gint, gint, gint);
47 48 49
static void     gimp_image_allocate_projection   (GimpImage *);
static void     gimp_image_free_layers           (GimpImage *);
static void     gimp_image_free_channels         (GimpImage *);
50 51 52 53
static void     gimp_image_construct_layers      (GimpImage *, gint, gint, gint, gint);
static void     gimp_image_construct_channels    (GimpImage *, gint, gint, gint, gint);
static void     gimp_image_initialize_projection (GimpImage *, gint, gint, gint, gint);
static void     gimp_image_get_active_channels   (GimpImage *, GimpDrawable *, gint *);
54 55

/*  projection functions  */
56 57
static void     project_intensity            (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *,
58
					      PixelRegion *);
59 60
static void     project_intensity_alpha      (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *,
61
					      PixelRegion *);
62 63 64 65
static void     project_indexed              (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *);
static void     project_channel              (GimpImage *, Channel *,
					      PixelRegion *, PixelRegion *);
66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85

/*
 *  Global variables
 */
int valid_combinations[][MAX_CHANNELS + 1] =
{
  /* RGB GIMAGE */
  { -1, -1, -1, COMBINE_INTEN_INTEN, COMBINE_INTEN_INTEN_A },
  /* RGBA GIMAGE */
  { -1, -1, -1, COMBINE_INTEN_A_INTEN, COMBINE_INTEN_A_INTEN_A },
  /* GRAY GIMAGE */
  { -1, COMBINE_INTEN_INTEN, COMBINE_INTEN_INTEN_A, -1, -1 },
  /* GRAYA GIMAGE */
  { -1, COMBINE_INTEN_A_INTEN, COMBINE_INTEN_A_INTEN_A, -1, -1 },
  /* INDEXED GIMAGE */
  { -1, COMBINE_INDEXED_INDEXED, COMBINE_INDEXED_INDEXED_A, -1, -1 },
  /* INDEXEDA GIMAGE */
  { -1, -1, COMBINE_INDEXED_A_INDEXED_A, -1, -1 },
};

86
guint32 next_guide_id = 1;  /* For generating guide_ID handles for PDB stuff */
87

88 89 90 91 92

/*
 *  Static variables
 */

93
enum {
94 95 96 97 98
  DIRTY,
  REPAINT,
  RENAME,
  RESIZE,
  RESTRUCTURE,
99
  COLORMAP_CHANGED,
100 101
  LAST_SIGNAL
};
102 103

static void  gimp_image_destroy (GtkObject *);
104 105

static guint gimp_image_signals[LAST_SIGNAL];
106
static GimpObjectClass *parent_class;
107 108 109 110 111 112 113 114 115 116 117 118 119 120 121

static void
gimp_image_class_init (GimpImageClass *klass)
{
  GtkObjectClass *object_class;
  GtkType type;
  
  object_class = GTK_OBJECT_CLASS(klass);
  parent_class = gtk_type_class (gimp_object_get_type ());
  
  type=object_class->type;

  object_class->destroy =  gimp_image_destroy;

  gimp_image_signals[DIRTY] =
122 123
	  gimp_signal_new ("dirty", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_void);
124
  gimp_image_signals[REPAINT] =
125 126
	  gimp_signal_new ("repaint", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_int_int_int_int);
127
  gimp_image_signals[RENAME] =
128 129
	  gimp_signal_new ("rename", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_void);
130
  gimp_image_signals[RESIZE] =
131 132
	  gimp_signal_new ("resize", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_void);
133
  gimp_image_signals[RESTRUCTURE] =
134 135
	  gimp_signal_new ("restructure", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_void);
136
  gimp_image_signals[COLORMAP_CHANGED] =
137 138
	  gimp_signal_new ("colormap_changed", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_int);
139 140 141 142 143 144 145
  
  gtk_object_class_add_signals (object_class, gimp_image_signals, LAST_SIGNAL);
}


/* static functions */

Sven Neumann's avatar
Sven Neumann committed
146 147
static void 
gimp_image_init (GimpImage *gimage)
148
{
149 150 151
  gimage->has_filename          = FALSE;
  gimage->num_cols              = 0;
  gimage->cmap                  = NULL;
152
  /* ID and ref_count handled in gimage.c */
153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168
  gimage->instance_count        = 0;
  gimage->shadow                = NULL;
  gimage->dirty                 = 1;
  gimage->undo_on               = TRUE;
  gimage->construct_flag        = -1;
  gimage->tattoo_state          = 0;
  gimage->projection            = NULL;
  gimage->guides                = NULL;
  gimage->layers                = NULL;
  gimage->channels              = NULL;
  gimage->layer_stack           = NULL;
  gimage->undo_stack            = NULL;
  gimage->redo_stack            = NULL;
  gimage->undo_bytes            = 0;
  gimage->undo_levels           = 0;
  gimage->pushing_undo_group    = 0;
169 170 171
  gimage->comp_preview_valid[0] = FALSE;
  gimage->comp_preview_valid[1] = FALSE;
  gimage->comp_preview_valid[2] = FALSE;
172 173 174 175 176 177 178
  gimage->comp_preview          = NULL;
  gimage->parasites             = parasite_list_new();
  gimage->xresolution           = default_xresolution;
  gimage->yresolution           = default_yresolution;
  gimage->unit                  = default_units;
  gimage->save_proc             = NULL;
  gimage->paths                 = NULL;
179 180
}

Sven Neumann's avatar
Sven Neumann committed
181 182 183 184 185
GtkType 
gimp_image_get_type (void) 
{
  static GtkType type;

186 187 188 189 190 191
  GIMP_TYPE_INIT (type,
		  GimpImage,
		  GimpImageClass,
		  gimp_image_init,
		  gimp_image_class_init,
		  GIMP_TYPE_OBJECT);
Sven Neumann's avatar
Sven Neumann committed
192
  return type;
193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216
}

static void
gimp_image_allocate_projection (GimpImage *gimage)
{
  if (gimage->projection)
    gimp_image_free_projection (gimage);

  /*  Find the number of bytes required for the projection.
   *  This includes the intensity channels and an alpha channel
   *  if one doesn't exist.
   */
  switch (gimp_image_base_type (gimage))
    {
    case RGB:
    case INDEXED:
      gimage->proj_bytes = 4;
      gimage->proj_type = RGBA_GIMAGE;
      break;
    case GRAY:
      gimage->proj_bytes = 2;
      gimage->proj_type = GRAYA_GIMAGE;
      break;
    default:
217
      g_assert_not_reached ();
218 219 220 221
    }

  /*  allocate the new projection  */
  gimage->projection = tile_manager_new (gimage->width, gimage->height, gimage->proj_bytes);
222
  tile_manager_set_user_data (gimage->projection, (void *) gimage);
223 224 225 226 227 228 229 230 231 232 233 234 235
  tile_manager_set_validate_proc (gimage->projection, gimp_image_validate);
}

static void
gimp_image_free_projection (GimpImage *gimage)
{
  if (gimage->projection)
    tile_manager_destroy (gimage->projection);

  gimage->projection = NULL;
}

static void
Sven Neumann's avatar
Sven Neumann committed
236
gimp_image_allocate_shadow (GimpImage *gimage, 
237 238 239
			    gint       width, 
			    gint       height, 
			    gint       bpp)
240 241 242 243 244 245 246 247 248
{
  /*  allocate the new projection  */
  gimage->shadow = tile_manager_new (width, height, bpp);
}


/* function definitions */

GimpImage *
249 250 251
gimp_image_new (gint               width,
		gint               height,
		GimpImageBaseType  base_type)
252
{
253 254
  GimpImage *gimage = GIMP_IMAGE (gtk_type_new (gimp_image_get_type ()));
  gint i;
255

256 257 258
  gimage->filename  = NULL;
  gimage->width     = width;
  gimage->height    = height;
259 260 261 262 263 264 265 266 267 268
  gimage->base_type = base_type;

  switch (base_type)
    {
    case RGB:
    case GRAY:
      break;
    case INDEXED:
      /* always allocate 256 colors for the colormap */
      gimage->num_cols = 0;
269
      gimage->cmap     = (guchar *) g_malloc0 (COLORMAP_SIZE);
270 271 272 273 274 275
      break;
    default:
      break;
    }

  /*  configure the active pointers  */
276
  gimage->active_layer   = NULL;
277
  gimage->active_channel = NULL;  /* no default active channel */
278
  gimage->floating_sel   = NULL;
279 280 281 282

  /*  set all color channels visible and active  */
  for (i = 0; i < MAX_CHANNELS; i++)
    {
283 284
      gimage->visible[i] = TRUE;
      gimage->active[i]  = TRUE;
285 286 287
    }

  /* create the selection mask */
288 289
  gimage->selection_mask = channel_new_mask (gimage,
					     gimage->width, gimage->height);
290

291
  /* set the qmask properties */
292 293
  gimage->qmask_state    = FALSE;
  gimage->qmask_opacity  = 50;
294 295 296
  gimage->qmask_color[0] = 255; 
  gimage->qmask_color[1] = 0; 
  gimage->qmask_color[2] = 0; 
297 298 299 300 301

  return gimage;
}

void
302
gimp_image_set_filename (GimpImage *gimage, 
303
			 gchar     *filename)
304
{
305
  gchar *new_filename;
306

307 308 309 310 311 312
  /* 
   * WARNING: this function will free the current filename even if you are 
   * setting it to itself so any pointer you hold to the filename will be
   * invalid after this call.  So please use with care.
   */

313
  new_filename = g_strdup (filename);
314

315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331
  if (gimage->has_filename)
    g_free (gimage->filename);

  if (filename && filename[0])
    {
      gimage->filename = new_filename;
      gimage->has_filename = TRUE;
    }
  else
    {
      gimage->filename = NULL;
      gimage->has_filename = FALSE;
    }

  gtk_signal_emit (GTK_OBJECT (gimage), gimp_image_signals[RENAME]);
}

332
void
333
gimp_image_set_resolution (GimpImage *gimage,
334 335
			   gdouble    xresolution,
			   gdouble    yresolution)
336
{
337 338
  gimage->xresolution = xresolution;
  gimage->yresolution = yresolution;
339 340
}

341 342
void
gimp_image_get_resolution (GimpImage *gimage,
343 344
			   gdouble   *xresolution,
			   gdouble   *yresolution)
345
{
346 347
  g_return_if_fail (xresolution && yresolution);

348 349
  *xresolution = gimage->xresolution;
  *yresolution = gimage->yresolution;
350 351
}

352 353
void
gimp_image_set_unit (GimpImage *gimage,
Sven Neumann's avatar
Sven Neumann committed
354
		     GUnit      unit)
355 356 357 358 359 360 361 362 363 364
{
  gimage->unit = unit;
}

GUnit
gimp_image_get_unit (GimpImage *gimage)
{
  return gimage->unit;
}

365
void
Sven Neumann's avatar
Sven Neumann committed
366 367
gimp_image_set_save_proc (GimpImage     *gimage, 
			  PlugInProcDef *proc)
368 369 370 371 372 373 374 375 376
{
  gimage->save_proc = proc;
}

PlugInProcDef *
gimp_image_get_save_proc (GimpImage *gimage)
{
  return gimage->save_proc;
}
377

378
void
379
gimp_image_resize (GimpImage *gimage, 
380 381 382 383
		   gint       new_width, 
		   gint       new_height,
		   gint       offset_x, 
		   gint       offset_y)
384 385
{
  Channel *channel;
386 387 388 389
  Layer   *layer;
  Layer   *floating_layer;
  GSList  *list;
  GList   *guide_list;
390

391 392
  gimp_add_busy_cursors();

393
  g_assert (new_width > 0 && new_height > 0);
394 395 396 397 398 399 400 401 402 403 404 405 406 407

  /*  Get the floating layer if one exists  */
  floating_layer = gimp_image_floating_sel (gimage);

  undo_push_group_start (gimage, GIMAGE_MOD_UNDO);

  /*  Relax the floating selection  */
  if (floating_layer)
    floating_sel_relax (floating_layer, TRUE);

  /*  Push the image size to the stack  */
  undo_push_gimage_mod (gimage);

  /*  Set the new width and height  */
408
  gimage->width  = new_width;
409 410 411 412 413 414 415 416 417
  gimage->height = new_height;

  /*  Resize all channels  */
  list = gimage->channels;
  while (list)
    {
      channel = (Channel *) list->data;
      channel_resize (channel, new_width, new_height, offset_x, offset_y);
      list = g_slist_next (list);
418 419 420 421 422 423 424 425 426 427

    }

  /*  Reposition or remove any guides  */
  guide_list = gimage->guides;
  while (guide_list)
    {
      Guide *guide;

      guide = (Guide*) guide_list->data;
Sven Neumann's avatar
Sven Neumann committed
428
      guide_list = g_list_next (guide_list);
429 430 431

      switch (guide->orientation)
	{
432
	case ORIENTATION_HORIZONTAL:
433 434 435 436
	  guide->position += offset_y;
	  if (guide->position < 0 || guide->position > new_height)
	    gimp_image_delete_guide (gimage, guide);
	  break;
437
	case ORIENTATION_VERTICAL:
438 439 440 441 442 443 444
	  guide->position += offset_x;
	  if (guide->position < 0 || guide->position > new_width)
	    gimp_image_delete_guide (gimage, guide);
	  break;
	default:
	  g_error("Unknown guide orientation I.\n");
	}
445 446 447
    }

  /*  Don't forget the selection mask!  */
448 449
  channel_resize (gimage->selection_mask,
		  new_width, new_height, offset_x, offset_y);
450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468
  gimage_mask_invalidate (gimage);

  /*  Reposition all layers  */
  list = gimage->layers;
  while (list)
    {
      layer = (Layer *) list->data;
      layer_translate (layer, offset_x, offset_y);
      list = g_slist_next (list);
    }

  /*  Make sure the projection matches the gimage size  */
  gimp_image_projection_realloc (gimage);

  /*  Rigor the floating selection  */
  if (floating_layer)
    floating_sel_rigor (floating_layer, TRUE);

  gtk_signal_emit (GTK_OBJECT (gimage), gimp_image_signals[RESIZE]);
469

470
  gimp_remove_busy_cursors (NULL);
471 472 473
}

void
474
gimp_image_scale (GimpImage *gimage, 
475 476
		  gint       new_width, 
		  gint       new_height)
477 478
{
  Channel *channel;
Sven Neumann's avatar
Sven Neumann committed
479 480 481 482 483
  Layer   *layer;
  Layer   *floating_layer;
  GSList  *list;
  GList   *glist;
  Guide   *guide;
484 485
  gint old_width, old_height;
  gint layer_width, layer_height;
486

487
  gimp_add_busy_cursors ();
488

489 490 491 492 493 494 495 496 497 498 499 500 501
  /*  Get the floating layer if one exists  */
  floating_layer = gimp_image_floating_sel (gimage);

  undo_push_group_start (gimage, GIMAGE_MOD_UNDO);

  /*  Relax the floating selection  */
  if (floating_layer)
    floating_sel_relax (floating_layer, TRUE);

  /*  Push the image size to the stack  */
  undo_push_gimage_mod (gimage);

  /*  Set the new width and height  */
502
  old_width  = gimage->width;
503
  old_height = gimage->height;
504
  gimage->width  = new_width;
505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525
  gimage->height = new_height;

  /*  Scale all channels  */
  list = gimage->channels;
  while (list)
    {
      channel = (Channel *) list->data;
      channel_scale (channel, new_width, new_height);
      list = g_slist_next (list);
    }

  /*  Don't forget the selection mask!  */
  channel_scale (gimage->selection_mask, new_width, new_height);
  gimage_mask_invalidate (gimage);

  /*  Scale all layers  */
  list = gimage->layers;
  while (list)
    {
      layer = (Layer *) list->data;

526 527 528 529
      layer_width  = (new_width *
		      drawable_width (GIMP_DRAWABLE(layer))) / old_width;
      layer_height = (new_height *
		      drawable_height (GIMP_DRAWABLE(layer))) / old_height;
530 531 532 533
      layer_scale (layer, layer_width, layer_height, FALSE);
      list = g_slist_next (list);
    }

534 535 536 537 538 539 540 541 542
  /*  Scale any Guides  */
  glist = gimage->guides;
  while (glist)
    {
      guide = (Guide*) glist->data;
      glist = g_list_next (glist);

      switch (guide->orientation)
	{
543
	case ORIENTATION_HORIZONTAL:
544 545
	  guide->position = (guide->position * new_height) / old_height;
	  break;
546
	case ORIENTATION_VERTICAL:
547 548 549 550 551 552
	  guide->position = (guide->position * new_width) / old_width;
	  break;
	default:
	  g_error("Unknown guide orientation II.\n");
	}
    }
553

554 555 556 557 558 559 560 561
  /*  Make sure the projection matches the gimage size  */
  gimp_image_projection_realloc (gimage);

  /*  Rigor the floating selection  */
  if (floating_layer)
    floating_sel_rigor (floating_layer, TRUE);

  gtk_signal_emit (GTK_OBJECT (gimage), gimp_image_signals[RESIZE]);
562

563
  gimp_remove_busy_cursors (NULL);
564 565 566
}

TileManager *
567
gimp_image_shadow (GimpImage *gimage, 
568 569 570
		   gint       width, 
		   gint       height, 
		   gint       bpp)
571 572
{
  if (gimage->shadow &&
573 574 575
      ((width != tile_manager_level_width (gimage->shadow)) ||
       (height != tile_manager_level_height (gimage->shadow)) ||
       (bpp != tile_manager_level_bpp (gimage->shadow))))
576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597
    gimp_image_free_shadow (gimage);
  else if (gimage->shadow)
    return gimage->shadow;

  gimp_image_allocate_shadow (gimage, width, height, bpp);

  return gimage->shadow;
}

void
gimp_image_free_shadow (GimpImage *gimage)
{
  /*  Free the shadow buffer from the specified gimage if it exists  */
  if (gimage->shadow)
    tile_manager_destroy (gimage->shadow);

  gimage->shadow = NULL;
}

static void
gimp_image_destroy (GtkObject *object)
{
598
  GimpImage* gimage = GIMP_IMAGE (object);
Sven Neumann's avatar
Sven Neumann committed
599 600 601 602 603 604 605 606 607 608 609 610 611

  gimp_image_free_projection (gimage);
  gimp_image_free_shadow (gimage);
  
  if (gimage->cmap)
    g_free (gimage->cmap);
  
  if (gimage->has_filename)
    g_free (gimage->filename);
  
  gimp_image_free_layers (gimage);
  gimp_image_free_channels (gimage);
  channel_delete (gimage->selection_mask);
612

Sven Neumann's avatar
Sven Neumann committed
613
  if (gimage->parasites)
614
    gtk_object_unref (GTK_OBJECT (gimage->parasites));
615 616 617
}

void
618 619 620 621 622 623
gimp_image_apply_image (GimpImage	 *gimage,
			GimpDrawable	 *drawable,
			PixelRegion	 *src2PR,
			gint              undo,
			gint              opacity,
			LayerModeEffects  mode,
624
			/*  alternative to using drawable tiles as src1: */
625 626 627
			TileManager	 *src1_tiles,
			gint              x,
			gint              y)
628
{
Sven Neumann's avatar
Sven Neumann committed
629
  Channel *mask;
630 631
  gint x1, y1, x2, y2;
  gint offset_x, offset_y;
632
  PixelRegion src1PR, destPR, maskPR;
633 634
  gint operation;
  gint active [MAX_CHANNELS];
635 636

  /*  get the selection mask if one exists  */
637
  mask = (gimage_mask_is_empty (gimage)) ? NULL : gimp_image_get_mask (gimage);
638 639 640 641 642 643 644 645 646 647

  /*  configure the active channel array  */
  gimp_image_get_active_channels (gimage, drawable, active);

  /*  determine what sort of operation is being attempted and
   *  if it's actually legal...
   */
  operation = valid_combinations [drawable_type (drawable)][src2PR->bytes];
  if (operation == -1)
    {
648
      g_message (_("gimp_image_apply_image sent illegal parameters"));
649 650 651 652 653 654 655
      return;
    }

  /*  get the layer offsets  */
  drawable_offsets (drawable, &offset_x, &offset_y);

  /*  make sure the image application coordinates are within gimage bounds  */
656
  x1 = CLAMP (x, 0, drawable_width  (drawable));
657
  y1 = CLAMP (y, 0, drawable_height (drawable));
658
  x2 = CLAMP (x + src2PR->w, 0, drawable_width  (drawable));
659 660 661 662 663 664 665 666
  y2 = CLAMP (y + src2PR->h, 0, drawable_height (drawable));

  if (mask)
    {
      /*  make sure coordinates are in mask bounds ...
       *  we need to add the layer offset to transform coords
       *  into the mask coordinate system
       */
667 668 669 670
      x1 = CLAMP (x1, -offset_x, drawable_width (GIMP_DRAWABLE(mask))-offset_x);
      y1 = CLAMP (y1, -offset_y, drawable_height(GIMP_DRAWABLE(mask))-offset_y);
      x2 = CLAMP (x2, -offset_x, drawable_width (GIMP_DRAWABLE(mask))-offset_x);
      y2 = CLAMP (y2, -offset_y, drawable_height(GIMP_DRAWABLE(mask))-offset_y);
671 672 673 674
    }

  /*  If the calling procedure specified an undo step...  */
  if (undo)
675
    undo_push_image (gimp_drawable_gimage (drawable), drawable, x1, y1, x2, y2);
676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713

  /* configure the pixel regions
   *  If an alternative to using the drawable's data as src1 was provided...
   */
  if (src1_tiles)
    pixel_region_init (&src1PR, src1_tiles, x1, y1, (x2 - x1), (y2 - y1), FALSE);
  else
    pixel_region_init (&src1PR, drawable_data (drawable), x1, y1, (x2 - x1), (y2 - y1), FALSE);
  pixel_region_init (&destPR, drawable_data (drawable), x1, y1, (x2 - x1), (y2 - y1), TRUE);
  pixel_region_resize (src2PR, src2PR->x + (x1 - x), src2PR->y + (y1 - y), (x2 - x1), (y2 - y1));

  if (mask)
    {
      int mx, my;

      /*  configure the mask pixel region
       *  don't use x1 and y1 because they are in layer
       *  coordinate system.  Need mask coordinate system
       */
      mx = x1 + offset_x;
      my = y1 + offset_y;

      pixel_region_init (&maskPR, drawable_data (GIMP_DRAWABLE(mask)), mx, my, (x2 - x1), (y2 - y1), FALSE);
      combine_regions (&src1PR, src2PR, &destPR, &maskPR, NULL,
		       opacity, mode, active, operation);
    }
  else
    combine_regions (&src1PR, src2PR, &destPR, NULL, NULL,
		     opacity, mode, active, operation);
}

/* Similar to gimp_image_apply_image but works in "replace" mode (i.e.
   transparent pixels in src2 make the result transparent rather
   than opaque.

   Takes an additional mask pixel region as well.
*/
void
714 715 716
gimp_image_replace_image (GimpImage    *gimage, 
			  GimpDrawable *drawable, 
			  PixelRegion  *src2PR,
717 718
			  gint          undo, 
			  gint          opacity,
719
			  PixelRegion  *maskPR,
720 721
			  gint          x, 
			  gint          y)
722
{
Sven Neumann's avatar
Sven Neumann committed
723
  Channel *mask;
724 725
  gint x1, y1, x2, y2;
  gint offset_x, offset_y;
726 727
  PixelRegion src1PR, destPR;
  PixelRegion mask2PR, tempPR;
728 729 730
  guchar *temp_data;
  gint operation;
  gint active [MAX_CHANNELS];
731 732

  /*  get the selection mask if one exists  */
733
  mask = (gimage_mask_is_empty (gimage)) ? NULL : gimp_image_get_mask (gimage);
734 735 736 737 738 739 740 741 742 743

  /*  configure the active channel array  */
  gimp_image_get_active_channels (gimage, drawable, active);

  /*  determine what sort of operation is being attempted and
   *  if it's actually legal...
   */
  operation = valid_combinations [drawable_type (drawable)][src2PR->bytes];
  if (operation == -1)
    {
744
      g_message (_("gimp_image_apply_image sent illegal parameters"));
745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762
      return;
    }

  /*  get the layer offsets  */
  drawable_offsets (drawable, &offset_x, &offset_y);

  /*  make sure the image application coordinates are within gimage bounds  */
  x1 = CLAMP (x, 0, drawable_width (drawable));
  y1 = CLAMP (y, 0, drawable_height (drawable));
  x2 = CLAMP (x + src2PR->w, 0, drawable_width (drawable));
  y2 = CLAMP (y + src2PR->h, 0, drawable_height (drawable));

  if (mask)
    {
      /*  make sure coordinates are in mask bounds ...
       *  we need to add the layer offset to transform coords
       *  into the mask coordinate system
       */
763 764 765 766
      x1 = CLAMP (x1, -offset_x, drawable_width (GIMP_DRAWABLE(mask))-offset_x);
      y1 = CLAMP (y1, -offset_y, drawable_height(GIMP_DRAWABLE(mask))-offset_y);
      x2 = CLAMP (x2, -offset_x, drawable_width (GIMP_DRAWABLE(mask))-offset_x);
      y2 = CLAMP (y2, -offset_y, drawable_height(GIMP_DRAWABLE(mask))-offset_y);
767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831
    }

  /*  If the calling procedure specified an undo step...  */
  if (undo)
    drawable_apply_image (drawable, x1, y1, x2, y2, NULL, FALSE);

  /* configure the pixel regions
   *  If an alternative to using the drawable's data as src1 was provided...
   */
  pixel_region_init (&src1PR, drawable_data (drawable), x1, y1, (x2 - x1), (y2 - y1), FALSE);
  pixel_region_init (&destPR, drawable_data (drawable), x1, y1, (x2 - x1), (y2 - y1), TRUE);
  pixel_region_resize (src2PR, src2PR->x + (x1 - x), src2PR->y + (y1 - y), (x2 - x1), (y2 - y1));

  if (mask)
    {
      int mx, my;

      /*  configure the mask pixel region
       *  don't use x1 and y1 because they are in layer
       *  coordinate system.  Need mask coordinate system
       */
      mx = x1 + offset_x;
      my = y1 + offset_y;

      pixel_region_init (&mask2PR, drawable_data (GIMP_DRAWABLE(mask)), mx, my, (x2 - x1), (y2 - y1), FALSE);

      tempPR.bytes = 1;
      tempPR.x = 0;
      tempPR.y = 0;
      tempPR.w = x2 - x1;
      tempPR.h = y2 - y1;
      tempPR.rowstride = mask2PR.rowstride;
      temp_data = g_malloc (tempPR.h * tempPR.rowstride);
      tempPR.data = temp_data;

      copy_region (&mask2PR, &tempPR);

      /* apparently, region operations can mutate some PR data. */
      tempPR.x = 0;
      tempPR.y = 0;
      tempPR.w = x2 - x1;
      tempPR.h = y2 - y1;
      tempPR.data = temp_data;

      apply_mask_to_region (&tempPR, maskPR, OPAQUE_OPACITY);

      tempPR.x = 0;
      tempPR.y = 0;
      tempPR.w = x2 - x1;
      tempPR.h = y2 - y1;
      tempPR.data = temp_data;

      combine_regions_replace (&src1PR, src2PR, &destPR, &tempPR, NULL,
		       opacity, active, operation);

      g_free (temp_data);
    }
  else
    combine_regions_replace (&src1PR, src2PR, &destPR, maskPR, NULL,
		     opacity, active, operation);
}

/* Get rid of these! A "foreground" is an UI concept.. */

void
832 833 834
gimp_image_get_foreground (GimpImage    *gimage, 
			   GimpDrawable *drawable, 
			   guchar       *fg)
835
{
836
  guchar pfg[3];
837 838 839 840 841 842 843 844

  /*  Get the palette color  */
  palette_get_foreground (&pfg[0], &pfg[1], &pfg[2]);

  gimp_image_transform_color (gimage, drawable, pfg, fg, RGB);
}

void
845 846 847
gimp_image_get_background (GimpImage    *gimage, 
			   GimpDrawable *drawable, 
			   guchar       *bg)
848
{
849
  guchar pbg[3];
850 851 852 853 854 855 856

  /*  Get the palette color  */
  palette_get_background (&pbg[0], &pbg[1], &pbg[2]);

  gimp_image_transform_color (gimage, drawable, pbg, bg, RGB);
}

857
guchar *
858
gimp_image_get_color_at (GimpImage *gimage, 
859 860
			 gint       x, 
			 gint       y)
861 862
{
  Tile *tile;
863 864
  guchar *src;
  guchar *dest;
865 866

  if (x < 0 || y < 0 || x >= gimage->width || y >= gimage->height)
867 868 869 870
    {
      return NULL;
    }
  dest = g_new (unsigned char, 5);
871 872 873 874
  tile = tile_manager_get_tile (gimp_image_composite (gimage), x, y,
				TRUE, FALSE);
  src = tile_data_pointer (tile, x % TILE_WIDTH, y % TILE_HEIGHT);
  gimp_image_get_color (gimage, gimp_image_composite_type (gimage), dest, src);
875 876

  if (TYPE_HAS_ALPHA (gimp_image_composite_type (gimage)))
877 878 879
    dest[3] = src[gimp_image_composite_bytes (gimage) - 1];
  else
    dest[3] = 255;
880

881 882
  dest[4] = 0;
  tile_release (tile, FALSE);
883

884 885 886
  return dest;
}

887
void
888
gimp_image_get_color (GimpImage     *gimage, 
889
		      GimpImageType  d_type,
890 891
		      guchar        *rgb, 
		      guchar        *src)
892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907
{
  switch (d_type)
    {
    case RGB_GIMAGE: case RGBA_GIMAGE:
      map_to_color (0, NULL, src, rgb);
      break;
    case GRAY_GIMAGE: case GRAYA_GIMAGE:
      map_to_color (1, NULL, src, rgb);
      break;
    case INDEXED_GIMAGE: case INDEXEDA_GIMAGE:
      map_to_color (2, gimage->cmap, src, rgb);
      break;
    }
}

void
908 909 910 911 912
gimp_image_transform_color (GimpImage         *gimage, 
			    GimpDrawable      *drawable,
			    guchar            *src, 
			    guchar            *dest, 
			    GimpImageBaseType  type)
913 914
{
#define INTENSITY(r,g,b) (r * 0.30 + g * 0.59 + b * 0.11 + 0.001)
915
  GimpImageType d_type;
916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940

  d_type = (drawable != NULL) ? drawable_type (drawable) :
    gimp_image_base_type_with_alpha (gimage);

  switch (type)
    {
    case RGB:
      switch (d_type)
	{
	case RGB_GIMAGE: case RGBA_GIMAGE:
	  /*  Straight copy  */
	  *dest++ = *src++;
	  *dest++ = *src++;
	  *dest++ = *src++;
	  break;
	case GRAY_GIMAGE: case GRAYA_GIMAGE:
	  /*  NTSC conversion  */
	  *dest = INTENSITY (src[RED_PIX],
			     src[GREEN_PIX],
			     src[BLUE_PIX]);
	  break;
	case INDEXED_GIMAGE: case INDEXEDA_GIMAGE:
	  /*  Least squares method  */
	  *dest = map_rgb_to_indexed (gimage->cmap,
				      gimage->num_cols,
941
				      gimage,
942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964
				      src[RED_PIX],
				      src[GREEN_PIX],
				      src[BLUE_PIX]);
	  break;
	}
      break;
    case GRAY:
      switch (d_type)
	{
	case RGB_GIMAGE: case RGBA_GIMAGE:
	  /*  Gray to RG&B */
	  *dest++ = *src;
	  *dest++ = *src;
	  *dest++ = *src;
	  break;
	case GRAY_GIMAGE: case GRAYA_GIMAGE:
	  /*  Straight copy  */
	  *dest = *src;
	  break;
	case INDEXED_GIMAGE: case INDEXEDA_GIMAGE:
	  /*  Least squares method  */
	  *dest = map_rgb_to_indexed (gimage->cmap,
				      gimage->num_cols,
965
				      gimage,
966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982
				      src[GRAY_PIX],
				      src[GRAY_PIX],
				      src[GRAY_PIX]);
	  break;
	}
      break;
    default:
      break;
    }
}

Guide*
gimp_image_add_hguide (GimpImage *gimage)
{
  Guide *guide;

  guide = g_new (Guide, 1);
983 984 985
  guide->ref_count   = 0;
  guide->position    = -1;
  guide->guide_ID    = next_guide_id++;
986
  guide->orientation = ORIENTATION_HORIZONTAL;
987 988 989 990 991 992 993 994 995 996 997 998

  gimage->guides = g_list_prepend (gimage->guides, guide);

  return guide;
}

Guide*
gimp_image_add_vguide (GimpImage *gimage)
{
  Guide *guide;

  guide = g_new (Guide, 1);
999 1000 1001
  guide->ref_count   = 0;
  guide->position    = -1;
  guide->guide_ID    = next_guide_id++;
1002
  guide->orientation = ORIENTATION_VERTICAL;
1003 1004 1005 1006 1007 1008 1009 1010

  gimage->guides = g_list_prepend (gimage->guides, guide);

  return guide;
}

void
gimp_image_add_guide (GimpImage *gimage,
1011
		      Guide     *guide)
1012 1013 1014 1015 1016 1017
{
  gimage->guides = g_list_prepend (gimage->guides, guide);
}

void
gimp_image_remove_guide (GimpImage *gimage,
1018
			 Guide     *guide)
1019 1020 1021 1022 1023 1024
{
  gimage->guides = g_list_remove (gimage->guides, guide);
}

void
gimp_image_delete_guide (GimpImage *gimage,
1025
			 Guide     *guide) 
1026 1027 1028 1029 1030
{
  gimage->guides = g_list_remove (gimage->guides, guide);
  g_free (guide);
}

1031
Parasite *
1032
gimp_image_find_parasite (const GimpImage *gimage, 
1033
			  const gchar     *name)
1034
{
1035
  return parasite_list_find (gimage->parasites, name);
1036 1037
}

1038 1039 1040 1041
static void
list_func (gchar      *key, 
	   Parasite   *p, 
	   gchar    ***cur)
Marc Lehmann's avatar
Marc Lehmann committed
1042
{
1043
  *(*cur)++ = (gchar *) g_strdup (key);
Marc Lehmann's avatar
Marc Lehmann committed
1044 1045
}

1046
gchar **
1047 1048
gimp_image_parasite_list (GimpImage *image, 
			  gint      *count)
Marc Lehmann's avatar
Marc Lehmann committed
1049
{
1050
  gchar **list, **cur;
Marc Lehmann's avatar
Marc Lehmann committed
1051 1052

  *count = parasite_list_length (image->parasites);
1053
  cur = list = (gchar **) g_malloc (sizeof (gchar *) * *count);
Marc Lehmann's avatar
Marc Lehmann committed
1054

1055
  parasite_list_foreach (image->parasites, (GHFunc) list_func, &cur);
Marc Lehmann's avatar
Marc Lehmann committed
1056 1057 1058 1059
  
  return list;
}

1060
void
1061 1062
gimp_image_attach_parasite (GimpImage *gimage, 
			    Parasite  *parasite)
1063
{
jaycox's avatar
jaycox committed
1064
  /* only set the dirty bit manually if we can be saved and the new
Sven Neumann's avatar
Sven Neumann committed
1065
     parasite differs from the current one and we aren't undoable */
1066
  if (parasite_is_undoable (parasite))
jaycox's avatar
jaycox committed
1067
    undo_push_image_parasite (gimage, parasite);
1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080
  if (parasite_is_persistent (parasite)
      && !parasite_compare (parasite,
			    gimp_image_find_parasite(gimage,
						     parasite_name (parasite))))
    gimp_image_dirty (gimage);

  parasite_list_add (gimage->parasites, parasite);

  if (parasite_has_flag (parasite, PARASITE_ATTACH_PARENT))
    {
      parasite_shift_parent (parasite);
      gimp_attach_parasite (parasite);
    }
1081 1082 1083
}

void
1084 1085
gimp_image_detach_parasite (GimpImage   *gimage, 
			    const gchar *parasite)
1086
{
1087
  Parasite *p;
Sven Neumann's avatar
Sven Neumann committed
1088

1089 1090
  if (!(p = parasite_list_find(gimage->parasites, parasite)))
    return;
1091 1092 1093 1094 1095 1096 1097

  if (parasite_is_undoable (p))
    undo_push_image_parasite_remove (gimage, parasite_name (p));
  else if (parasite_is_persistent (p))
    gimp_image_dirty (gimage);

  parasite_list_remove (gimage->parasites, parasite);
1098 1099
}

1100
Tattoo
1101
gimp_image_get_new_tattoo (GimpImage *image)
1102
{
1103 1104
  image->tattoo_state++;
  if (image->tattoo_state <= 0)
1105
    g_warning("Tattoo state has become corrupt (2.1 billion operation limit exceded)");
1106
  return (image->tattoo_state);
1107 1108
}