gimpimage-resize.c 97.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
#include "config.h"

20
#include <string.h>
21

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

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

42 43 44 45 46 47
#include "libgimp/gimpcolorspace.h"
#include "libgimp/gimplimits.h"
#include "libgimp/parasite.h"

#include "libgimp/gimpintl.h"

48

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


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

/*  projection functions  */
68 69
static void     project_intensity            (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *,
70
					      PixelRegion *);
71 72
static void     project_intensity_alpha      (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *,
73
					      PixelRegion *);
74 75 76 77
static void     project_indexed              (GimpImage *, Layer *,
					      PixelRegion *, PixelRegion *);
static void     project_channel              (GimpImage *, Channel *,
					      PixelRegion *, PixelRegion *);
78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97

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

98
guint32 next_guide_id = 1;  /* For generating guide_ID handles for PDB stuff */
99

100 101 102 103 104

/*
 *  Static variables
 */

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

static void  gimp_image_destroy (GtkObject *);
118 119

static guint gimp_image_signals[LAST_SIGNAL];
120
static GimpObjectClass *parent_class;
121 122 123 124 125 126 127 128 129 130 131 132 133 134

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

  object_class->destroy =  gimp_image_destroy;

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


/* static functions */

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

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

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

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

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


/* function definitions */

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

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

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

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

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

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

  return gimage;
}

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

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

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

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

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

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

356
void
357
gimp_image_set_resolution (GimpImage *gimage,
358 359
			   gdouble    xresolution,
			   gdouble    yresolution)
360
{
361 362 363 364 365
  /* 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;

366 367 368
  /* 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)
369 370
    return;

371
  undo_push_resolution (gimage);
372

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

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

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

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

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

397 398 399
  gimage->unit = unit;
}

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

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

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

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

432 433
  gimp_add_busy_cursors();

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

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

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

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

    }

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

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

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

513
  gimp_remove_busy_cursors (NULL);
514 515
}

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

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

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

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

550
  gimp_add_busy_cursors ();
551

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

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

  /*  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  */
565 566 567

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

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

  /*  Scale all layers  */
  list = gimage->layers;
586
  for (list = gimage->layers; list; list = g_slist_next (list))
587
    {
588 589
      layer = (Layer *) list->data;
      if (layer_scale_by_factors (layer, img_scale_w, img_scale_h) == FALSE)
590 591 592 593 594 595
	{
	  /* 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.*/

596
          remove = g_slist_append (remove, layer);
597 598 599 600 601
        }
    }
  /* We defer removing layers lost to scaling until now            */
  /* so as not to mix the operations of iterating over and removal */
  /* from gimage->layers.                                          */  
602

603
  for (list = remove; list; list = g_slist_next (list))
604
    {
605
      layer = list->data;
606
      gimage_remove_layer (gimage, layer);
607
    }
608
  g_slist_free (remove);
609

610
  /*  Scale any Guides  */
611
  for (glist = gimage->guides; glist; glist = g_list_next (glist))
612 613 614 615 616
    {
      guide = (Guide*) glist->data;

      switch (guide->orientation)
	{
617
	case ORIENTATION_HORIZONTAL:
Sven Neumann's avatar
Sven Neumann committed
618
	  undo_push_guide (gimage, guide);
619 620
	  guide->position = (guide->position * new_height) / old_height;
	  break;
621
	case ORIENTATION_VERTICAL:
Sven Neumann's avatar
Sven Neumann committed
622
	  undo_push_guide (gimage, guide);
623 624 625 626 627 628
	  guide->position = (guide->position * new_width) / old_width;
	  break;
	default:
	  g_error("Unknown guide orientation II.\n");
	}
    }
629

630 631 632 633 634 635 636 637
  /*  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]);
638

639
  gimp_remove_busy_cursors (NULL);
640 641 642
}

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

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

BST 1999 Andy Thomas's avatar
BST 1999 Andy Thomas committed
689 690 691
  if (gimage->comp_preview)
    temp_buf_free (gimage->comp_preview);

Sven Neumann's avatar
Sven Neumann committed
692
  if (gimage->parasites)
693
    gtk_object_unref (GTK_OBJECT (gimage->parasites));
694 695 696
}

void
697 698 699 700 701 702
gimp_image_apply_image (GimpImage	 *gimage,
			GimpDrawable	 *drawable,
			PixelRegion	 *src2PR,
			gint              undo,
			gint              opacity,
			LayerModeEffects  mode,
703
			/*  alternative to using drawable tiles as src1: */
704 705 706
			TileManager	 *src1_tiles,
			gint              x,
			gint              y)
707
{
Sven Neumann's avatar
Sven Neumann committed
708
  Channel *mask;
709 710
  gint x1, y1, x2, y2;
  gint offset_x, offset_y;
711
  PixelRegion src1PR, destPR, maskPR;
712 713
  gint operation;
  gint active [MAX_CHANNELS];
714 715

  /*  get the selection mask if one exists  */
716
  mask = (gimage_mask_is_empty (gimage)) ? NULL : gimp_image_get_mask (gimage);
717 718 719 720 721 722 723 724 725 726

  /*  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
727
      g_message ("gimp_image_apply_image sent illegal parameters");
728 729 730 731 732 733 734
      return;
    }

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

  /*  make sure the image application coordinates are within gimage bounds  */
735
  x1 = CLAMP (x, 0, drawable_width  (drawable));
736
  y1 = CLAMP (y, 0, drawable_height (drawable));
737
  x2 = CLAMP (x + src2PR->w, 0, drawable_width  (drawable));
738 739 740 741 742 743 744 745
  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
       */
746 747 748 749
      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);
750 751 752 753
    }

  /*  If the calling procedure specified an undo step...  */
  if (undo)
754
    undo_push_image (gimp_drawable_gimage (drawable), drawable, x1, y1, x2, y2);
755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792

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

  if (mask)
    {
      int mx, my;

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

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

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

   Takes an additional mask pixel region as well.
*/
void
793 794 795
gimp_image_replace_image (GimpImage    *gimage, 
			  GimpDrawable *drawable, 
			  PixelRegion  *src2PR,
796 797
			  gint          undo, 
			  gint          opacity,
798
			  PixelRegion  *maskPR,
799 800
			  gint          x, 
			  gint          y)
801
{
Sven Neumann's avatar
Sven Neumann committed
802
  Channel *mask;
803 804
  gint x1, y1, x2, y2;
  gint offset_x, offset_y;
805 806
  PixelRegion src1PR, destPR;
  PixelRegion mask2PR, tempPR;
807 808 809
  guchar *temp_data;
  gint operation;
  gint active [MAX_CHANNELS];
810 811

  /*  get the selection mask if one exists  */
812
  mask = (gimage_mask_is_empty (gimage)) ? NULL : gimp_image_get_mask (gimage);
813 814 815 816 817 818 819 820 821 822

  /*  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
823
      g_message ("gimp_image_apply_image sent illegal parameters");
824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841
      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
       */
842 843 844 845
      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);
846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910
    }

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

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

  if (mask)
    {
      int mx, my;

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

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

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

      copy_region (&mask2PR, &tempPR);

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

      apply_mask_to_region (&tempPR, maskPR, OPAQUE_OPACITY);

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

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

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

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

void
911 912 913
gimp_image_get_foreground (GimpImage    *gimage, 
			   GimpDrawable *drawable, 
			   guchar       *fg)
914
{
915
  guchar pfg[3];
916 917

  /*  Get the palette color  */
918
  gimp_context_get_foreground (NULL, &pfg[0], &pfg[1], &pfg[2]);
919 920 921 922 923

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

void
924 925 926
gimp_image_get_background (GimpImage    *gimage, 
			   GimpDrawable *drawable, 
			   guchar       *bg)
927
{
928
  guchar pbg[3];
929 930

  /*  Get the palette color  */
931
  gimp_context_get_background (NULL, &pbg[0], &pbg[1], &pbg[2]);
932 933 934 935

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

936
guchar *
937
gimp_image_get_color_at (GimpImage *gimage, 
938 939
			 gint       x, 
			 gint       y)
940 941
{
  Tile *tile;
942 943
  guchar *src;
  guchar *dest;
944

945 946
  g_return_val_if_fail (GIMP_IS_IMAGE (gimage), NULL);

947
  if (x < 0 || y < 0 || x >= gimage->width || y >= gimage->height)
948 949 950 951
    {
      return NULL;
    }
  dest = g_new (unsigned char, 5);
952 953 954 955
  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);
956 957

  if (TYPE_HAS_ALPHA (gimp_image_composite_type (gimage)))
958 959 960
    dest[3] = src[gimp_image_composite_bytes (gimage) - 1];
  else
    dest[3] = 255;
961

962 963
  dest[4] = 0;
  tile_release (tile, FALSE);
964

965 966 967
  return dest;
}

968
void
969
gimp_image_get_color (GimpImage     *gimage, 
970
		      GimpImageType  d_type,
971 972
		      guchar        *rgb, 
		      guchar        *src)
973
{
974 975
  g_return_if_fail (GIMP_IS_IMAGE (gimage));

976 977 978 979 980 981 982 983 984 985 986 987 988 989 990
  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
991 992 993 994 995
gimp_image_transform_color (GimpImage         *gimage, 
			    GimpDrawable      *drawable,
			    guchar            *src, 
			    guchar            *dest, 
			    GimpImageBaseType  type)
996
{
997
  GimpImageType d_type;
998

999 1000
  g_return_if_fail (GIMP_IS_IMAGE (gimage));

1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024
  d_type = (drawable != NULL) ? drawable_type (drawable) :
    gimp_image_base_type_with_alpha (gimage);

  switch (type)
    {
    case RGB:
      switch (d_type)
	{
	case RGB_GIMAGE: case RGBA_GIMAGE:
	  /*  Straight copy  */
	  *dest++ = *src++;
	  *dest++ = *src++;
	  *dest++ = *src++;
	  break;
	case GRAY_GIMAGE: case GRAYA_GIMAGE:
	  /*  NTSC conversion  */
	  *dest = INTENSITY (src[RED_PIX],
			     src[GREEN_PIX],
			     src[BLUE_PIX]);
	  break;
	case INDEXED_GIMAGE: case INDEXEDA_GIMAGE:
	  /*  Least squares method  */
	  *dest = map_rgb_to_indexed (gimage->cmap,
				      gimage->num_cols,
1025
				      gimage,
1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048
				      src[RED_PIX],
				      src[GREEN_PIX],
				      src[BLUE_PIX]);
	  break;
	}
      break;
    case GRAY:
      switch (d_type)
	{
	case RGB_GIMAGE: case RGBA_GIMAGE:
	  /*  Gray to RG&B */
	  *dest++ = *src;
	  *dest++ = *src;
	  *dest++ = *src;
	  break;
	case GRAY_GIMAGE: case GRAYA_GIMAGE:
	  /*  Straight copy  */
	  *dest = *src;
	  break;
	case INDEXED_GIMAGE: case INDEXEDA_GIMAGE:
	  /*  Least squares method  */
	  *dest = map_rgb_to_indexed (gimage->cmap,
				      gimage->num_cols,
1049
				      gimage,
1050 1051 1052 1053 1054 1055 1056 1057