gimpimage-resize.c 99.5 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

19 20
#include "config.h"

21
#include <string.h>
22

23
#include "gimpimageP.h"
24
#include "cursorutil.h"
25 26
#include "drawable.h"
#include "floating_sel.h"
27
#include "gdisplay.h"
28
#include "gimage_mask.h"
29
#include "gimpcontext.h"
30
#include "paint_funcs.h"
31
#include "parasitelist.h"
32 33
#include "undo.h"
#include "gimpsignal.h"
Manish Singh's avatar
Manish Singh committed
34
#include "gimpparasite.h"
35
#include "path.h"
36
#include "gimprc.h"
37

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
#include "libgimp/gimpcolorspace.h"
#include "libgimp/gimplimits.h"
45
#include "libgimp/gimpparasite.h"
46 47 48

#include "libgimp/gimpintl.h"

49

50 51 52 53 54 55 56
#ifdef DEBUG
#define TRC(x) printf x
#else
#define TRC(x)
#endif


57
/*  Local function declarations  */
58
static void     gimp_image_destroy               (GtkObject *object);
59
static void     gimp_image_free_projection       (GimpImage *);
60
static void     gimp_image_allocate_shadow       (GimpImage *, gint, gint, gint);
61 62 63
static void     gimp_image_allocate_projection   (GimpImage *);
static void     gimp_image_free_layers           (GimpImage *);
static void     gimp_image_free_channels         (GimpImage *);
64 65 66 67
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 *);
68 69

/*  projection functions  */
70 71
static void     project_intensity            (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *,
72
					      PixelRegion *);
73 74
static void     project_intensity_alpha      (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *,
75
					      PixelRegion *);
76 77 78 79
static void     project_indexed              (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *);
static void     project_channel              (GimpImage *, Channel *,
					      PixelRegion *, PixelRegion *);
80 81 82 83

/*
 *  Global variables
 */
84
gint valid_combinations[][MAX_CHANNELS + 1] =
85 86 87 88 89 90 91 92 93 94 95 96 97 98 99
{
  /* 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 },
};

100
guint32 next_guide_id = 1;  /* For generating guide_ID handles for PDB stuff */
101

102 103 104 105 106

/*
 *  Static variables
 */

107
enum {
108
  CLEAN,
109 110 111 112 113
  DIRTY,
  REPAINT,
  RENAME,
  RESIZE,
  RESTRUCTURE,
114
  COLORMAP_CHANGED,
115
  UNDO_EVENT,
116 117
  LAST_SIGNAL
};
118

119
static guint            gimp_image_signals[LAST_SIGNAL];
120
static GimpObjectClass *parent_class;
121

122

123 124 125 126
static void
gimp_image_class_init (GimpImageClass *klass)
{
  GtkObjectClass *object_class;
127
  GtkType         type;
128 129 130 131 132 133 134 135
  
  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;

136 137 138
  gimp_image_signals[CLEAN] =
	  gimp_signal_new ("clean", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_void);
139
  gimp_image_signals[DIRTY] =
140 141
	  gimp_signal_new ("dirty", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_void);
142
  gimp_image_signals[REPAINT] =
143 144
	  gimp_signal_new ("repaint", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_int_int_int_int);
145
  gimp_image_signals[RENAME] =
146 147
	  gimp_signal_new ("rename", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_void);
148
  gimp_image_signals[RESIZE] =
149 150
	  gimp_signal_new ("resize", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_void);
151
  gimp_image_signals[RESTRUCTURE] =
152 153
	  gimp_signal_new ("restructure", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_void);
154
  gimp_image_signals[COLORMAP_CHANGED] =
155 156
	  gimp_signal_new ("colormap_changed", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_int);
157 158 159
  gimp_image_signals[UNDO_EVENT] = 
	  gimp_signal_new ("undo_event", GTK_RUN_FIRST, type, 0,
			   gimp_sigtype_int);
160 161 162 163 164 165 166
  
  gtk_object_class_add_signals (object_class, gimp_image_signals, LAST_SIGNAL);
}


/* static functions */

Sven Neumann's avatar
Sven Neumann committed
167 168
static void 
gimp_image_init (GimpImage *gimage)
169
{
170 171 172
  gimage->has_filename          = FALSE;
  gimage->num_cols              = 0;
  gimage->cmap                  = NULL;
173
  gimage->disp_count            = 0;
174 175
  gimage->instance_count        = 0;
  gimage->shadow                = NULL;
176
  gimage->dirty                 = 1;
177 178 179 180 181 182 183 184 185 186 187 188
  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;
189
  gimage->group_count           = 0;
190
  gimage->pushing_undo_group    = UNDO_NULL;
191 192 193
  gimage->comp_preview_valid[0] = FALSE;
  gimage->comp_preview_valid[1] = FALSE;
  gimage->comp_preview_valid[2] = FALSE;
194
  gimage->comp_preview          = NULL;
195
  gimage->parasites             = parasite_list_new ();
196 197 198 199 200
  gimage->xresolution           = default_xresolution;
  gimage->yresolution           = default_yresolution;
  gimage->unit                  = default_units;
  gimage->save_proc             = NULL;
  gimage->paths                 = NULL;
201 202
}

Sven Neumann's avatar
Sven Neumann committed
203 204 205 206 207
GtkType 
gimp_image_get_type (void) 
{
  static GtkType type;

208 209 210 211 212 213
  GIMP_TYPE_INIT (type,
		  GimpImage,
		  GimpImageClass,
		  gimp_image_init,
		  gimp_image_class_init,
		  GIMP_TYPE_OBJECT);
Sven Neumann's avatar
Sven Neumann committed
214
  return type;
215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238
}

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:
239
      g_assert_not_reached ();
240 241 242 243
    }

  /*  allocate the new projection  */
  gimage->projection = tile_manager_new (gimage->width, gimage->height, gimage->proj_bytes);
244
  tile_manager_set_user_data (gimage->projection, (void *) gimage);
245 246 247 248 249 250 251 252 253 254 255 256 257
  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
258
gimp_image_allocate_shadow (GimpImage *gimage, 
259 260 261
			    gint       width, 
			    gint       height, 
			    gint       bpp)
262 263 264 265 266 267 268 269 270
{
  /*  allocate the new projection  */
  gimage->shadow = tile_manager_new (width, height, bpp);
}


/* function definitions */

GimpImage *
271 272 273
gimp_image_new (gint               width,
		gint               height,
		GimpImageBaseType  base_type)
274
{
275 276
  GimpImage *gimage = GIMP_IMAGE (gtk_type_new (gimp_image_get_type ()));
  gint i;
277

278 279 280
  gimage->filename  = NULL;
  gimage->width     = width;
  gimage->height    = height;
281 282 283 284 285 286 287 288 289 290
  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;
291
      gimage->cmap     = (guchar *) g_malloc0 (COLORMAP_SIZE);
292 293 294 295 296 297
      break;
    default:
      break;
    }

  /*  configure the active pointers  */
298
  gimage->active_layer   = NULL;
299
  gimage->active_channel = NULL;  /* no default active channel */
300
  gimage->floating_sel   = NULL;
301 302 303 304

  /*  set all color channels visible and active  */
  for (i = 0; i < MAX_CHANNELS; i++)
    {
305 306
      gimage->visible[i] = TRUE;
      gimage->active[i]  = TRUE;
307 308 309
    }

  /* create the selection mask */
310 311
  gimage->selection_mask = channel_new_mask (gimage,
					     gimage->width, gimage->height);
312

313
  /* set the qmask properties */
314 315
  gimage->qmask_state    = FALSE;
  gimage->qmask_opacity  = 50;
316 317 318
  gimage->qmask_color[0] = 255; 
  gimage->qmask_color[1] = 0; 
  gimage->qmask_color[2] = 0; 
319 320 321 322 323

  return gimage;
}

void
324
gimp_image_set_filename (GimpImage *gimage, 
325
			 gchar     *filename)
326
{
327 328
  gchar *new_filename, *old_filename;
  gboolean free_old;
329

330 331 332 333 334 335
  /* 
   * 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.
   */

336
  new_filename = g_strdup (filename);
337 338
  old_filename = gimage->filename;
  free_old = gimage->has_filename;
339 340 341 342 343 344 345 346 347 348 349 350

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

351 352 353
  if (free_old)
    g_free (old_filename);

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

357
void
358
gimp_image_set_resolution (GimpImage *gimage,
359 360
			   gdouble    xresolution,
			   gdouble    yresolution)
361
{
362 363 364 365 366
  /* nothing to do if setting res to the same as before */
  if ((ABS (gimage->xresolution - xresolution) < 1e-5) &&
      (ABS (gimage->yresolution - yresolution) < 1e-5))
      return;

367 368 369
  /* don't allow to set the resolution out of bounds */
  if (xresolution < GIMP_MIN_RESOLUTION || xresolution > GIMP_MAX_RESOLUTION ||
      yresolution < GIMP_MIN_RESOLUTION || yresolution > GIMP_MAX_RESOLUTION)
370 371
    return;

372
  undo_push_resolution (gimage);
373

374 375
  gimage->xresolution = xresolution;
  gimage->yresolution = yresolution;
376 377 378

  /* really just want to recalc size and repaint */
  gdisplays_shrink_wrap (gimage);
379 380
}

381 382
void
gimp_image_get_resolution (GimpImage *gimage,
383 384
			   gdouble   *xresolution,
			   gdouble   *yresolution)
385
{
386 387
  g_return_if_fail (xresolution && yresolution);

388 389
  *xresolution = gimage->xresolution;
  *yresolution = gimage->yresolution;
390 391
}

392 393
void
gimp_image_set_unit (GimpImage *gimage,
394
		     GimpUnit   unit)
395
{
396 397
  undo_push_resolution (gimage);

398 399 400
  gimage->unit = unit;
}

401
GimpUnit
402 403 404 405 406
gimp_image_get_unit (GimpImage *gimage)
{
  return gimage->unit;
}

407
void
Sven Neumann's avatar
Sven Neumann committed
408 409
gimp_image_set_save_proc (GimpImage     *gimage, 
			  PlugInProcDef *proc)
410 411 412 413 414 415 416 417 418
{
  gimage->save_proc = proc;
}

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

420
void
421
gimp_image_resize (GimpImage *gimage, 
422 423 424 425
		   gint       new_width, 
		   gint       new_height,
		   gint       offset_x, 
		   gint       offset_y)
426 427
{
  Channel *channel;
428 429 430 431
  Layer   *layer;
  Layer   *floating_layer;
  GSList  *list;
  GList   *guide_list;
432

433 434
  gimp_add_busy_cursors();

435
  g_assert (new_width > 0 && new_height > 0);
436 437 438 439

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

Sven Neumann's avatar
Sven Neumann committed
440
  undo_push_group_start (gimage, IMAGE_RESIZE_UNDO);
441 442 443 444 445 446 447 448 449

  /*  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  */
450
  gimage->width  = new_width;
451 452 453 454 455 456 457 458 459
  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);
460 461 462 463 464 465 466 467 468 469

    }

  /*  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
470
      guide_list = g_list_next (guide_list);
471 472 473

      switch (guide->orientation)
	{
474
	case ORIENTATION_HORIZONTAL:
Sven Neumann's avatar
Sven Neumann committed
475
	  undo_push_guide (gimage, guide);
476 477 478 479
	  guide->position += offset_y;
	  if (guide->position < 0 || guide->position > new_height)
	    gimp_image_delete_guide (gimage, guide);
	  break;
480
	case ORIENTATION_VERTICAL:
Sven Neumann's avatar
Sven Neumann committed
481
	  undo_push_guide (gimage, guide);
482 483 484 485 486 487 488
	  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");
	}
489 490 491
    }

  /*  Don't forget the selection mask!  */
492 493
  channel_resize (gimage->selection_mask,
		  new_width, new_height, offset_x, offset_y);
494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512
  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]);
513

514
  gimp_remove_busy_cursors (NULL);
515 516
}

517 518 519 520 521 522 523 524 525 526 527 528
gint
gimp_image_get_width (const GimpImage *gimage)
{
  return gimage->width;
}

gint
gimp_image_get_height (const GimpImage *gimage)
{
  return gimage->height;
}

529
void
530
gimp_image_scale (GimpImage *gimage, 
531 532
		  gint       new_width, 
		  gint       new_height)
533 534
{
  Channel *channel;
Sven Neumann's avatar
Sven Neumann committed
535 536 537
  Layer   *layer;
  Layer   *floating_layer;
  GSList  *list;
538
  GSList  *remove = NULL;
Sven Neumann's avatar
Sven Neumann committed
539 540
  GList   *glist;
  Guide   *guide;
541 542 543 544
  gint     old_width;
  gint     old_height;
  gdouble  img_scale_w = 1.0;
  gdouble  img_scale_h = 1.0;
545

546
  if ((new_width == 0) || (new_height == 0))
547
    {
548
      g_message (("gimp_image_scale: Scaling to zero width or height has been rejected."));
549 550
      return;
    }
551

552
  gimp_add_busy_cursors ();
553

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

Sven Neumann's avatar
Sven Neumann committed
557
  undo_push_group_start (gimage, IMAGE_SCALE_UNDO);
558 559 560 561 562 563 564 565 566

  /*  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  */
567 568 569

  old_width      = gimage->width;
  old_height     = gimage->height;
570
  gimage->width  = new_width;
571
  gimage->height = new_height;
572 573
  img_scale_w    = (gdouble)new_width / (gdouble)old_width;
  img_scale_h    = (gdouble)new_height / (gdouble)old_height;
574
 
575
  /*  Scale all channels  */
576
  for (list = gimage->channels; list; list = g_slist_next (list))
577 578 579 580 581 582
    {
      channel = (Channel *) list->data;
      channel_scale (channel, new_width, new_height);
    }

  /*  Don't forget the selection mask!  */
583 584 585 586 587
  /*  if (channel_is_empty(gimage->selection_mask))
        channel_resize(gimage->selection_mask, new_width, new_height, 0, 0)
      else
  */
        
588 589 590 591 592
  channel_scale (gimage->selection_mask, new_width, new_height);
  gimage_mask_invalidate (gimage);

  /*  Scale all layers  */
  list = gimage->layers;
593
  for (list = gimage->layers; list; list = g_slist_next (list))
594
    {
595 596
      layer = (Layer *) list->data;
      if (layer_scale_by_factors (layer, img_scale_w, img_scale_h) == FALSE)
597 598 599 600 601 602
	{
	  /* Since 0 < img_scale_w, img_scale_h, failure due to one or more     */
	  /* vanishing scaled layer dimensions. Implicit delete implemented     */
	  /* here. Upstream warning implemented in resize_check_layer_scaling() */
          /* [resize.c line 1295], which offers the user the chance to bail out.*/

603
          remove = g_slist_append (remove, layer);
604 605 606 607 608
        }
    }
  /* We defer removing layers lost to scaling until now            */
  /* so as not to mix the operations of iterating over and removal */
  /* from gimage->layers.                                          */  
609

610
  for (list = remove; list; list = g_slist_next (list))
611
    {
612
      layer = list->data;
613
      gimage_remove_layer (gimage, layer);
614
    }
615
  g_slist_free (remove);
616

617
  /*  Scale any Guides  */
618
  for (glist = gimage->guides; glist; glist = g_list_next (glist))
619 620 621 622 623
    {
      guide = (Guide*) glist->data;

      switch (guide->orientation)
	{
624
	case ORIENTATION_HORIZONTAL:
Sven Neumann's avatar
Sven Neumann committed
625
	  undo_push_guide (gimage, guide);
626 627
	  guide->position = (guide->position * new_height) / old_height;
	  break;
628
	case ORIENTATION_VERTICAL:
Sven Neumann's avatar
Sven Neumann committed
629
	  undo_push_guide (gimage, guide);
630 631 632 633 634 635
	  guide->position = (guide->position * new_width) / old_width;
	  break;
	default:
	  g_error("Unknown guide orientation II.\n");
	}
    }
636

637 638 639 640 641 642 643 644
  /*  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]);
645

646
  gimp_remove_busy_cursors (NULL);
647 648 649
}

TileManager *
650
gimp_image_shadow (GimpImage *gimage, 
651 652 653
		   gint       width, 
		   gint       height, 
		   gint       bpp)
654 655
{
  if (gimage->shadow &&
656 657 658
      ((width != tile_manager_level_width (gimage->shadow)) ||
       (height != tile_manager_level_height (gimage->shadow)) ||
       (bpp != tile_manager_level_bpp (gimage->shadow))))
659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680
    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)
{
681
  GimpImage* gimage = GIMP_IMAGE (object);
Sven Neumann's avatar
Sven Neumann committed
682 683 684 685 686 687 688 689 690 691 692 693 694

  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);
695

BST 1999 Andy Thomas's avatar
BST 1999 Andy Thomas committed
696 697 698
  if (gimage->comp_preview)
    temp_buf_free (gimage->comp_preview);

Sven Neumann's avatar
Sven Neumann committed
699
  if (gimage->parasites)
700
    gtk_object_unref (GTK_OBJECT (gimage->parasites));
701 702 703
}

void
704 705 706 707 708 709
gimp_image_apply_image (GimpImage	 *gimage,
			GimpDrawable	 *drawable,
			PixelRegion	 *src2PR,
			gint              undo,
			gint              opacity,
			LayerModeEffects  mode,
710
			/*  alternative to using drawable tiles as src1: */
711 712 713
			TileManager	 *src1_tiles,
			gint              x,
			gint              y)
714
{
715 716 717 718 719 720
  Channel     *mask;
  gint         x1, y1, x2, y2;
  gint         offset_x, offset_y;
  PixelRegion  src1PR, destPR, maskPR;
  gint         operation;
  gint         active [MAX_CHANNELS];
721 722

  /*  get the selection mask if one exists  */
723
  mask = (gimage_mask_is_empty (gimage)) ? NULL : gimp_image_get_mask (gimage);
724 725 726 727 728 729 730 731 732 733

  /*  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)
    {
Sven Neumann's avatar
Sven Neumann committed
734
      g_message ("gimp_image_apply_image sent illegal parameters");
735 736 737 738 739 740 741
      return;
    }

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

  /*  make sure the image application coordinates are within gimage bounds  */
742
  x1 = CLAMP (x, 0, drawable_width  (drawable));
743
  y1 = CLAMP (y, 0, drawable_height (drawable));
744
  x2 = CLAMP (x + src2PR->w, 0, drawable_width  (drawable));
745 746 747 748 749 750 751 752
  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
       */
753 754 755 756
      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);
757 758 759 760
    }

  /*  If the calling procedure specified an undo step...  */
  if (undo)
761
    undo_push_image (gimp_drawable_gimage (drawable), drawable, x1, y1, x2, y2);
762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783

  /* 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;

784 785 786 787 788
      pixel_region_init (&maskPR, 
			 drawable_data (GIMP_DRAWABLE(mask)), 
			 mx, my, 
			 (x2 - x1), (y2 - y1), 
			 FALSE);
789 790 791 792 793 794 795 796 797 798 799 800 801 802 803
      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
804 805 806
gimp_image_replace_image (GimpImage    *gimage, 
			  GimpDrawable *drawable, 
			  PixelRegion  *src2PR,
807 808
			  gint          undo, 
			  gint          opacity,
809
			  PixelRegion  *maskPR,
810 811
			  gint          x, 
			  gint          y)
812
{
813 814 815 816 817 818 819 820
  Channel     *mask;
  gint         x1, y1, x2, y2;
  gint         offset_x, offset_y;
  PixelRegion  src1PR, destPR;
  PixelRegion  mask2PR, tempPR;
  guchar      *temp_data;
  gint         operation;
  gint         active [MAX_CHANNELS];
821 822

  /*  get the selection mask if one exists  */
823
  mask = (gimage_mask_is_empty (gimage)) ? NULL : gimp_image_get_mask (gimage);
824 825 826 827 828 829 830 831 832 833

  /*  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)
    {
Sven Neumann's avatar
Sven Neumann committed
834
      g_message ("gimp_image_apply_image sent illegal parameters");
835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852
      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
       */
853 854 855 856
      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);
857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880
    }

  /*  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;

881 882 883 884 885
      pixel_region_init (&mask2PR, 
			 drawable_data (GIMP_DRAWABLE(mask)), 
			 mx, my, 
			 (x2 - x1), (y2 - y1), 
			 FALSE);
886 887 888 889 890 891

      tempPR.bytes = 1;
      tempPR.x = 0;
      tempPR.y = 0;
      tempPR.w = x2 - x1;
      tempPR.h = y2 - y1;
892
      tempPR.rowstride = tempPR.w * tempPR.bytes;
893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925
      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
926 927 928
gimp_image_get_foreground (GimpImage    *gimage, 
			   GimpDrawable *drawable, 
			   guchar       *fg)
929
{
930
  guchar pfg[3];
931 932

  /*  Get the palette color  */
933
  gimp_context_get_foreground (NULL, &pfg[0], &pfg[1], &pfg[2]);
934 935 936 937 938

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

void
939 940 941
gimp_image_get_background (GimpImage    *gimage, 
			   GimpDrawable *drawable, 
			   guchar       *bg)
942
{
943
  guchar pbg[3];
944 945

  /*  Get the palette color  */
946
  gimp_context_get_background (NULL, &pbg[0], &pbg[1], &pbg[2]);
947 948 949 950

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

951
guchar *
952
gimp_image_get_color_at (GimpImage *gimage, 
953 954
			 gint       x, 
			 gint       y)
955
{
956
  Tile   *tile;
957 958
  guchar *src;
  guchar *dest;
959

960 961
  g_return_val_if_fail (GIMP_IS_IMAGE (gimage), NULL);

962
  if (x < 0 || y < 0 || x >= gimage->width || y >= gimage->height)
963 964
    return NULL;
  
965
  dest = g_new (unsigned char, 5);
966 967 968 969
  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);
970

971
  if (GIMP_IMAGE_TYPE_HAS_ALPHA (gimp_image_composite_type (gimage)))
972 973 974
    dest[3] = src[gimp_image_composite_bytes (gimage) - 1];
  else
    dest[3] = 255;
975

976 977
  dest[4] = 0;
  tile_release (tile, FALSE);
978

979 980 981
  return dest;
}

982
void
983
gimp_image_get_color (GimpImage     *gimage, 
984
		      GimpImageType  d_type,
985 986
		      guchar        *rgb, 
		      guchar        *src)
987
{
988 989
  g_return_if_fail (GIMP_IS_IMAGE (gimage));

990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004
  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
1005 1006 1007 1008 1009
gimp_image_transform_color (GimpImage         *gimage, 
			    GimpDrawable      *drawable,
			    guchar            *src, 
			    guchar            *dest, 
			    GimpImageBaseType  type)
1010
{
1011
  GimpImageType d_type;
1012

Sven Neumann's avatar