gimpimage-resize.c 99.6 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 439
  gimp_add_busy_cursors();

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 459 460 461 462 463 464
  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);
465 466 467 468 469 470 471 472 473 474

    }

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

      switch (guide->orientation)
	{
479
	case ORIENTATION_HORIZONTAL:
Sven Neumann's avatar
Sven Neumann committed
480
	  undo_push_guide (gimage, guide);
481 482 483 484
	  guide->position += offset_y;
	  if (guide->position < 0 || guide->position > new_height)
	    gimp_image_delete_guide (gimage, guide);
	  break;
485
	case ORIENTATION_VERTICAL:
Sven Neumann's avatar
Sven Neumann committed
486
	  undo_push_guide (gimage, guide);
487 488 489 490 491 492 493
	  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");
	}
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 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517
  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]);
518

519
  gimp_remove_busy_cursors (NULL);
520 521
}

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

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

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

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

557
  gimp_add_busy_cursors ();
558

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

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

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

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

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

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

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 736 737 738

  /*  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
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 803 804 805 806 807 808 809 810 811 812 813
      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
814 815 816
gimp_image_replace_image (GimpImage    *gimage, 
			  GimpDrawable *drawable, 
			  PixelRegion  *src2PR,
817 818
			  gint          undo, 
			  gint          opacity,
819
			  PixelRegion  *maskPR,
820 821
			  gint          x, 
			  gint          y)
822
{
823 824 825 826 827 828 829 830
  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];
831 832

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

  /*  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
844
      g_message ("gimp_image_apply_image sent illegal parameters");
845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862
      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
       */
863 864 865 866
      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);
867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890
    }

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

891 892 893 894 895
      pixel_region_init (&mask2PR, 
			 drawable_data (GIMP_DRAWABLE(mask)), 
			 mx, my, 
			 (x2 - x1), (y2 - y1), 
			 FALSE);
896 897 898 899 900 901

      tempPR.bytes = 1;
      tempPR.x = 0;
      tempPR.y = 0;
      tempPR.w = x2 - x1;
      tempPR.h = y2 - y1;
902
      tempPR.rowstride = tempPR.w * tempPR.bytes;
903 904 905 906 907 908 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 935
      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
936 937 938
gimp_image_get_foreground (GimpImage    *gimage, 
			   GimpDrawable *drawable, 
			   guchar       *fg)
939
{
940
  guchar pfg[3];
941 942

  /*  Get the palette color  */
943
  gimp_context_get_foreground (NULL, &pfg[0], &pfg[1], &pfg[2]);
944 945 946 947 948

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

void
949 950 951
gimp_image_get_background (GimpImage    *gimage, 
			   GimpDrawable *drawable, 
			   guchar       *bg)
952
{
953
  guchar pbg[3];
954 955

  /*  Get the palette color  */
956
  gimp_context_get_background (NULL, &pbg[0], &pbg[1], &pbg[2]);
957 958 959 960

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

961
guchar *
962
gimp_image_get_color_at (GimpImage *gimage, 
963 964
			 gint       x, 
			 gint       y)
965
{
966
  Tile   *tile;
967 968
  guchar *src;
  guchar *dest;
969

970 971
  g_return_val_if_fail (GIMP_IS_IMAGE (gimage), NULL);

972
  if (x < 0 || y < 0 || x >= gimage->width || y >= gimage->height)
973 974
    return NULL;
  
975
  dest = g_new (unsigned char, 5);
976 977 978 979
  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);
980

981
  if (GIMP_IMAGE_TYPE_HAS_ALPHA (gimp_image_composite_type (gimage)))
982 983 984
    dest[3] = src[gimp_image_composite_bytes (gimage) - 1];
  else
    dest[3] = 255;
985

986 987
  dest[4] = 0;
  tile_release (tile, FALSE);
988

989 990 991
  return dest;
}

992
void
993
gimp_image_get_color (GimpImage     *gimage, 
994
		      GimpImageType  d_type,
995 996
		      guchar        *rgb, 
		      guchar        *src)
997
{
998 999
  g_return_if_fail (GIMP_IS_IMAGE (gimage));

1000 1001 1002 1003 1004 1005 1006 1007 1008