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

Sven Neumann's avatar
Sven Neumann committed
23 24 25 26
#include <gtk/gtk.h>

#include "apptypes.h"

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

scott's avatar
scott committed
41 42
#include "tile_manager.h"
#include "tile.h"
43 44 45
#include "layer_pvt.h"
#include "drawable_pvt.h"		/* ick ick. */

46 47
#include "libgimp/gimpcolorspace.h"
#include "libgimp/gimplimits.h"
48
#include "libgimp/gimpmath.h"
49
#include "libgimp/gimpparasite.h"
50 51 52

#include "libgimp/gimpintl.h"

53

54 55 56 57 58 59 60
#ifdef DEBUG
#define TRC(x) printf x
#else
#define TRC(x)
#endif


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

/*  projection functions  */
74 75
static void     project_intensity            (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *,
76
					      PixelRegion *);
77 78
static void     project_intensity_alpha      (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *,
79
					      PixelRegion *);
80 81 82 83
static void     project_indexed              (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *);
static void     project_channel              (GimpImage *, Channel *,
					      PixelRegion *, PixelRegion *);
84 85 86 87

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

104
guint32 next_guide_id = 1;  /* For generating guide_ID handles for PDB stuff */
105

106 107 108 109 110

/*
 *  Static variables
 */

111
enum {
112
  CLEAN,
113 114 115 116 117
  DIRTY,
  REPAINT,
  RENAME,
  RESIZE,
  RESTRUCTURE,
118
  COLORMAP_CHANGED,
119
  UNDO_EVENT,
120 121
  LAST_SIGNAL
};
122

123
static guint            gimp_image_signals[LAST_SIGNAL];
124
static GimpObjectClass *parent_class;
125

126

127 128 129 130
static void
gimp_image_class_init (GimpImageClass *klass)
{
  GtkObjectClass *object_class;
131
  GtkType         type;
132 133 134 135 136 137 138 139
  
  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;

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


/* static functions */

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

Sven Neumann's avatar
Sven Neumann committed
207 208 209 210 211
GtkType 
gimp_image_get_type (void) 
{
  static GtkType type;

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

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:
243
      g_assert_not_reached ();
244 245 246 247
    }

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


/* function definitions */

GimpImage *
275 276 277
gimp_image_new (gint               width,
		gint               height,
		GimpImageBaseType  base_type)
278
{
279 280
  GimpImage *gimage = GIMP_IMAGE (gtk_type_new (gimp_image_get_type ()));
  gint i;
281

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

  /*  configure the active pointers  */
302
  gimage->active_layer   = NULL;
303
  gimage->active_channel = NULL;  /* no default active channel */
304
  gimage->floating_sel   = NULL;
305 306 307 308

  /*  set all color channels visible and active  */
  for (i = 0; i < MAX_CHANNELS; i++)
    {
309 310
      gimage->visible[i] = TRUE;
      gimage->active[i]  = TRUE;
311 312 313
    }

  /* create the selection mask */
314 315
  gimage->selection_mask = channel_new_mask (gimage,
					     gimage->width, gimage->height);
316

317
  /* set the qmask properties */
318 319
  gimage->qmask_state    = FALSE;
  gimage->qmask_opacity  = 50;
320 321 322
  gimage->qmask_color[0] = 255; 
  gimage->qmask_color[1] = 0; 
  gimage->qmask_color[2] = 0; 
323 324 325 326 327

  return gimage;
}

void
328
gimp_image_set_filename (GimpImage *gimage, 
329
			 gchar     *filename)
330
{
331 332 333
  gchar    *new_filename;
  gchar    *old_filename;
  gboolean  free_old;
334

335 336 337 338 339 340
  /* 
   * 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.
   */

341
  new_filename = g_strdup (filename);
342 343
  old_filename = gimage->filename;
  free_old = gimage->has_filename;
344 345 346 347 348 349 350 351 352 353 354 355

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

356 357 358
  if (free_old)
    g_free (old_filename);

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

362
void
363
gimp_image_set_resolution (GimpImage *gimage,
364 365
			   gdouble    xresolution,
			   gdouble    yresolution)
366
{
367 368 369 370 371
  /* 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;

372 373 374
  /* 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)
375 376
    return;

377
  undo_push_resolution (gimage);
378

379 380
  gimage->xresolution = xresolution;
  gimage->yresolution = yresolution;
381 382 383

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

386 387
void
gimp_image_get_resolution (GimpImage *gimage,
388 389
			   gdouble   *xresolution,
			   gdouble   *yresolution)
390
{
391 392
  g_return_if_fail (xresolution && yresolution);

393 394
  *xresolution = gimage->xresolution;
  *yresolution = gimage->yresolution;
395 396
}

397 398
void
gimp_image_set_unit (GimpImage *gimage,
399
		     GimpUnit   unit)
400
{
401 402
  undo_push_resolution (gimage);

403 404 405
  gimage->unit = unit;
}

406
GimpUnit
407 408 409 410 411
gimp_image_get_unit (GimpImage *gimage)
{
  return gimage->unit;
}

412
void
Sven Neumann's avatar
Sven Neumann committed
413 414
gimp_image_set_save_proc (GimpImage     *gimage, 
			  PlugInProcDef *proc)
415 416 417 418 419 420 421 422 423
{
  gimage->save_proc = proc;
}

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

425
void
426
gimp_image_resize (GimpImage *gimage, 
427 428 429 430
		   gint       new_width, 
		   gint       new_height,
		   gint       offset_x, 
		   gint       offset_y)
431 432
{
  Channel *channel;
433 434 435 436
  Layer   *layer;
  Layer   *floating_layer;
  GSList  *list;
  GList   *guide_list;
437

438
  gimp_add_busy_cursors ();
439

440
  g_assert (new_width > 0 && new_height > 0);
441 442 443 444

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

Sven Neumann's avatar
Sven Neumann committed
445
  undo_push_group_start (gimage, IMAGE_RESIZE_UNDO);
446 447 448 449 450 451 452 453 454

  /*  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  */
455
  gimage->width  = new_width;
456 457 458
  gimage->height = new_height;

  /*  Resize all channels  */
459
  for (list = gimage->channels; list; list = g_slist_next (list))
460 461
    {
      channel = (Channel *) list->data;
462

463
      channel_resize (channel, new_width, new_height, offset_x, offset_y);
464 465 466 467 468 469 470 471 472
    }

  /*  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
473
      guide_list = g_list_next (guide_list);
474 475 476

      switch (guide->orientation)
	{
477
	case ORIENTATION_HORIZONTAL:
Sven Neumann's avatar
Sven Neumann committed
478
	  undo_push_guide (gimage, guide);
479 480 481 482
	  guide->position += offset_y;
	  if (guide->position < 0 || guide->position > new_height)
	    gimp_image_delete_guide (gimage, guide);
	  break;
483

484
	case ORIENTATION_VERTICAL:
Sven Neumann's avatar
Sven Neumann committed
485
	  undo_push_guide (gimage, guide);
486 487 488 489
	  guide->position += offset_x;
	  if (guide->position < 0 || guide->position > new_width)
	    gimp_image_delete_guide (gimage, guide);
	  break;
490

491
	default:
492
	  g_error ("Unknown guide orientation\n");
493
	}
494 495 496
    }

  /*  Don't forget the selection mask!  */
497 498
  channel_resize (gimage->selection_mask,
		  new_width, new_height, offset_x, offset_y);
499 500 501
  gimage_mask_invalidate (gimage);

  /*  Reposition all layers  */
502
  for (list = gimage->layers; list; list = g_slist_next (list))
503 504
    {
      layer = (Layer *) list->data;
505

506 507 508 509 510 511 512 513 514 515 516
      layer_translate (layer, offset_x, offset_y);
    }

  /*  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]);
517

518
  gimp_remove_busy_cursors (NULL);
519 520
}

521 522 523 524 525 526 527 528 529 530 531 532
gint
gimp_image_get_width (const GimpImage *gimage)
{
  return gimage->width;
}

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

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

550
  if ((new_width == 0) || (new_height == 0))
551
    {
552
      g_message (("gimp_image_scale: Scaling to zero width or height has been rejected."));
553 554
      return;
    }
555

556
  gimp_add_busy_cursors ();
557

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

Sven Neumann's avatar
Sven Neumann committed
561
  undo_push_group_start (gimage, IMAGE_SCALE_UNDO);
562 563 564 565 566 567 568 569 570

  /*  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  */
571 572 573

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

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

  /*  Scale all layers  */
  list = gimage->layers;
597
  for (list = gimage->layers; list; list = g_slist_next (list))
598
    {
599 600
      layer = (Layer *) list->data;
      if (layer_scale_by_factors (layer, img_scale_w, img_scale_h) == FALSE)
601
	{
602 603 604 605 606
	  /* 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.
	   */
607

608
          remove = g_slist_append (remove, layer);
609 610 611 612 613
        }
    }
  /* We defer removing layers lost to scaling until now            */
  /* so as not to mix the operations of iterating over and removal */
  /* from gimage->layers.                                          */  
614

615
  for (list = remove; list; list = g_slist_next (list))
616
    {
617
      layer = list->data;
618
      gimage_remove_layer (gimage, layer);
619
    }
620
  g_slist_free (remove);
621

622
  /*  Scale any Guides  */
623
  for (glist = gimage->guides; glist; glist = g_list_next (glist))
624 625 626 627 628
    {
      guide = (Guide*) glist->data;

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

642 643 644 645 646 647 648 649
  /*  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]);
650

651
  gimp_remove_busy_cursors (NULL);
652 653 654
}

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

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

BST 1999 Andy Thomas's avatar
BST 1999 Andy Thomas committed
701 702 703
  if (gimage->comp_preview)
    temp_buf_free (gimage->comp_preview);

Sven Neumann's avatar
Sven Neumann committed
704
  if (gimage->parasites)
705
    gtk_object_unref (GTK_OBJECT (gimage->parasites));
706 707 708
}

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

  /*  get the selection mask if one exists  */
728
  mask = (gimage_mask_is_empty (gimage)) ? NULL : gimp_image_get_mask (gimage);
729 730 731 732 733 734 735

  /*  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...
   */
736
  operation = valid_combinations[drawable_type (drawable)][src2PR->bytes];
737 738
  if (operation == -1)
    {
Sven Neumann's avatar
Sven Neumann committed
739
      g_message ("gimp_image_apply_image sent illegal parameters");
740 741 742 743 744 745 746
      return;
    }

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

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

  /*  If the calling procedure specified an undo step...  */
  if (undo)
766
    undo_push_image (gimp_drawable_gimage (drawable), drawable, x1, y1, x2, y2);
767 768 769 770 771

  /* configure the pixel regions
   *  If an alternative to using the drawable's data as src1 was provided...
   */
  if (src1_tiles)
772 773
    pixel_region_init (&src1PR, src1_tiles, 
		       x1, y1, (x2 - x1), (y2 - y1), FALSE);
774
  else
775 776 777 778 779 780 781
    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));
782 783 784

  if (mask)
    {
785
      gint mx, my;
786 787 788 789 790 791 792 793

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

794 795 796 797 798
      pixel_region_init (&maskPR, 
			 drawable_data (GIMP_DRAWABLE(mask)), 
			 mx, my, 
			 (x2 - x1), (y2 - y1), 
			 FALSE);
799 800 801 802
      combine_regions (&src1PR, src2PR, &destPR, &maskPR, NULL,
		       opacity, mode, active, operation);
    }
  else
803 804 805 806
    {
      combine_regions (&src1PR, src2PR, &destPR, NULL, NULL,
		       opacity, mode, active, operation);
    }
807 808 809 810 811 812 813 814 815
}

/* 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
816 817 818
gimp_image_replace_image (GimpImage    *gimage, 
			  GimpDrawable *drawable, 
			  PixelRegion  *src2PR,
819 820
			  gint          undo, 
			  gint          opacity,
821
			  PixelRegion  *maskPR,
822 823
			  gint          x, 
			  gint          y)
824
{
825 826 827 828 829 830 831 832
  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];
833 834

  /*  get the selection mask if one exists  */
835
  mask = (gimage_mask_is_empty (gimage)) ? NULL : gimp_image_get_mask (gimage);
836 837 838 839 840 841 842 843 844 845

  /*  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
846
      g_message ("gimp_image_apply_image sent illegal parameters");
847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864
      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
       */
865 866 867 868
      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);
869 870 871 872 873 874 875 876 877
    }

  /*  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...
   */
878 879 880 881 882 883 884
  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));
885 886 887 888 889 890 891 892 893 894 895 896

  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;

897 898 899 900 901
      pixel_region_init (&mask2PR, 
			 drawable_data (GIMP_DRAWABLE(mask)), 
			 mx, my, 
			 (x2 - x1), (y2 - y1), 
			 FALSE);
902 903 904 905 906 907

      tempPR.bytes = 1;
      tempPR.x = 0;
      tempPR.y = 0;
      tempPR.w = x2 - x1;
      tempPR.h = y2 - y1;
908
      tempPR.rowstride = tempPR.w * tempPR.bytes;
909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934
      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
935 936 937 938
    {
      combine_regions_replace (&src1PR, src2PR, &destPR, maskPR, NULL,
			       opacity, active, operation);
    }
939 940 941 942 943
}

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

void
944 945 946
gimp_image_get_foreground (GimpImage    *gimage, 
			   GimpDrawable *drawable, 
			   guchar       *fg)
947
{
948
  guchar pfg[3];
949 950

  /*  Get the palette color  */
951
  gimp_context_get_foreground (NULL, &pfg[0], &pfg[1], &pfg[2]);
952 953 954 955 956

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

void
957 958 959
gimp_image_get_background (GimpImage    *gimage, 
			   GimpDrawable *drawable, 
			   guchar       *bg)
960
{
961
  guchar pbg[3];
962 963

  /*  Get the palette color  */
964
  gimp_context_get_background (NULL, &pbg[0], &pbg[1], &pbg[2]);
965 966 967 968

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

969
guchar *
970
gimp_image_get_color_at (GimpImage *gimage, 
971 972
			 gint       x, 
			 gint       y)
973
{
974
  Tile   *tile;
975 976
  guchar *src;
  guchar *dest;
977

978 979
  g_return_val_if_fail (GIMP_IS_IMAGE (gimage), NULL);

980
  if (x < 0 || y < 0 || x >= gimage->width || y >= gimage->height)
981 982
    return NULL;
  
983
  dest = g_new (unsigned char, 5);
984 985 986 987
  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);
988

989
  if (GIMP_IMAGE_TYPE_HAS_ALPHA (gimp_image_composite_type (gimage)))