Remove ancient trunk folder from svn repository
[synfig.git] / synfig-core / src / modules / mod_magickpp / trgt_magickpp.cpp
diff --git a/synfig-core/src/modules/mod_magickpp/trgt_magickpp.cpp b/synfig-core/src/modules/mod_magickpp/trgt_magickpp.cpp
new file mode 100644 (file)
index 0000000..875f2b5
--- /dev/null
@@ -0,0 +1,309 @@
+/* === S Y N F I G ========================================================= */
+/*!    \file trgt_magickpp.cpp
+**     \brief Magick++ Target Module
+**
+**     $Id$
+**
+**     \legal
+**     Copyright (c) 2007, 2008 Chris Moore
+**
+**     This package 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 package 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.
+**     \endlegal
+**
+** === N O T E S ===========================================================
+**
+** ========================================================================= */
+
+/* === H E A D E R S ======================================================= */
+
+#define SYNFIG_TARGET
+
+#ifdef USING_PCH
+#      include "pch.h"
+#else
+#ifdef HAVE_CONFIG_H
+#      include <config.h>
+#endif
+
+#include <ETL/misc>
+#include "trgt_magickpp.h"
+
+#endif
+
+/* === M A C R O S ========================================================= */
+
+using namespace synfig;
+using namespace std;
+using namespace etl;
+
+/* === G L O B A L S ======================================================= */
+
+SYNFIG_TARGET_INIT(magickpp_trgt);
+SYNFIG_TARGET_SET_NAME(magickpp_trgt,"magick++");
+SYNFIG_TARGET_SET_EXT(magickpp_trgt,"gif");
+SYNFIG_TARGET_SET_VERSION(magickpp_trgt,"0.1");
+SYNFIG_TARGET_SET_CVS_ID(magickpp_trgt,"$Id$");
+
+/* === M E T H O D S ======================================================= */
+
+template <class Container>
+MagickLib::Image* copy_image_list(Container& container)
+{
+       typedef typename Container::iterator Iter;
+       MagickLib::Image* previous = 0;
+       MagickLib::Image* first = NULL;
+       MagickLib::ExceptionInfo exceptionInfo;
+       MagickLib::GetExceptionInfo(&exceptionInfo);
+       for (Iter iter = container.begin(); iter != container.end(); ++iter)
+       {
+               MagickLib::Image* current;
+
+               try
+               {
+                       current = CloneImage(iter->image(), 0, 0, Magick::MagickTrue, &exceptionInfo);
+
+                       if (!first) first = current;
+
+                       current->previous = previous;
+                       current->next     = 0;
+
+                       if ( previous != 0) previous->next = current;
+                       previous = current;
+               }
+               catch(Magick::Warning warning) {
+                       synfig::warning("exception '%s'", warning.what());
+               }
+       }
+
+       return first;
+}
+
+magickpp_trgt::~magickpp_trgt()
+{
+       MagickLib::ExceptionInfo exceptionInfo;
+       MagickLib::GetExceptionInfo(&exceptionInfo);
+
+       try
+       {
+               bool multiple_images = images.size() != 1;
+               bool can_adjoin = false;
+
+               if (multiple_images)
+               {
+                       // check whether this file format supports multiple-image files
+                       Magick::Image image(*(images.begin()));
+                       image.fileName(filename);
+                       try
+                       {
+                               SetImageInfo(image.imageInfo(),Magick::MagickTrue,&exceptionInfo);
+                               can_adjoin = image.adjoin();
+                       }
+                       catch(Magick::Warning warning) {
+                               synfig::warning("exception '%s'", warning.what());
+                       }
+               }
+
+               // the file type is now in image.imageInfo()->magick and
+               // image.adjoin() tells us whether we can write to a single file
+               if (can_adjoin)
+               {
+                       synfig::info("joining images");
+                       unsigned int delay = round_to_int(100.0 / desc.get_frame_rate());
+                       for_each(images.begin(), images.end(), Magick::animationDelayImage(delay));
+
+                       // optimize the images (only write the pixels that change from frame to frame
+#ifdef HAVE_MAGICK_OPTIMIZE
+                       // make a completely new image list
+                       // this is required because:
+                       //   RemoveDuplicateLayers wants a linked list of images, and removes some of them
+                       //   when it removes an image, it invalidates it using DeleteImageFromList, but we still have it in our container
+                       //   when we destroy our container, the image is re-freed, failing an assertion
+
+                       synfig::info("copying image list");
+                       MagickLib::Image *image_list = copy_image_list(images);
+
+                       synfig::info("clearing old image list");
+                       images.clear();
+
+                       if (!getenv("SYNFIG_DISABLE_REMOVE_DUPS"))
+                       {
+                               synfig::info("removing duplicate frames");
+                               try
+                               {
+                                       RemoveDuplicateLayers(&image_list, &exceptionInfo);
+                               }
+                               catch(Magick::Warning warning) {
+                                       synfig::warning("exception '%s'", warning.what());
+                               }
+                       }
+
+                       if (!getenv("SYNFIG_DISABLE_OPTIMIZE"))
+                       {
+                               synfig::info("optimizing layers");
+                               try
+                               {
+                                       image_list = OptimizeImageLayers(image_list,&exceptionInfo);
+                               }
+                               catch(Magick::Warning warning) {
+                                       synfig::warning("exception '%s'", warning.what());
+                               }
+                       }
+
+                       if (!getenv("SYNFIG_DISABLE_OPTIMIZE_TRANS"))
+                       {
+                               synfig::info("optimizing layer transparency");
+                               try
+                               {
+                                       OptimizeImageTransparency(image_list,&exceptionInfo);
+                               }
+                               catch(Magick::Warning warning) {
+                                       synfig::warning("exception '%s'", warning.what());
+                               }
+                       }
+
+                       synfig::info("recreating image list");
+                       insertImages(&images, image_list);
+#else
+                       synfig::info("not optimizing images");
+                       // DeconstructImages is available in ImageMagic 6.2.* but it doesn't take
+                       // the 'dispose' method into account, so for frames with transparency where
+                       // nothing is moving, we end up with objects disappearing when they shouldn't
+
+                       // linkImages(images.begin(), images.end());
+                       // MagickLib::Image* new_images = DeconstructImages(images.begin()->image(),&exceptionInfo);
+                       // unlinkImages(images.begin(), images.end());
+                       // images.clear();
+                       // insertImages(&images, new_images);
+#endif
+               }
+               else if (multiple_images)
+               {
+                       // if we can't write multiple images to a file of this type,
+                       // include '%04d' in the filename, so the files will be numbered
+                       // with a fixed width, '0'-padded number
+                       synfig::info("can't join images of this type - numbering instead");
+                       filename = (filename_sans_extension(filename) + ".%04d" + filename_extension(filename));
+               }
+
+               synfig::info("writing %d image%s to %s", images.size(), images.size() == 1 ? "" : "s", filename.c_str());
+               try
+               {
+                       Magick::writeImages(images.begin(), images.end(), filename);
+                       synfig::info("done");
+               }
+               catch(Magick::Warning warning) {
+                       synfig::warning("exception '%s'", warning.what());
+               }
+       }
+       catch(Magick::Warning warning) {
+               synfig::warning("exception '%s'", warning.what());
+       }
+       catch(Magick::Error error) {
+               synfig::error("exception '%s'", error.what());
+       }
+       catch(...) {
+               synfig::error("unknown exception");
+       }
+
+       if (buffer1 != NULL) delete [] buffer1;
+       if (buffer2 != NULL) delete [] buffer2;
+       if (color_buffer != NULL) delete [] color_buffer;
+}
+
+bool
+magickpp_trgt::set_rend_desc(RendDesc *given_desc)
+{
+       desc = *given_desc;
+       return true;
+}
+
+bool
+magickpp_trgt::init()
+{
+       width = desc.get_w();
+       height = desc.get_h();
+
+       start_pointer = NULL;
+
+       buffer1 = new unsigned char[4*width*height];
+       if (buffer1 == NULL)
+               return false;
+
+       buffer2 = new unsigned char[4*width*height];
+       if (buffer2 == NULL)
+       {
+               delete [] buffer1;
+               return false;
+       }
+
+       color_buffer = new Color[width];
+       if (color_buffer == NULL)
+       {
+               delete [] buffer1;
+               delete [] buffer2;
+               return false;
+       }
+
+       return true;
+}
+
+void
+magickpp_trgt::end_frame()
+{
+       Magick::Image image(width, height, "RGBA", Magick::CharPixel, start_pointer);
+       if (transparent && images.begin() != images.end())
+               (images.end()-1)->gifDisposeMethod(Magick::BackgroundDispose);
+       images.push_back(image);
+}
+
+bool
+magickpp_trgt::start_frame(synfig::ProgressCallback *callback __attribute__ ((unused)))
+{
+       previous_buffer_pointer = start_pointer;
+
+       if (start_pointer == buffer1)
+               start_pointer = buffer_pointer = buffer2;
+       else
+               start_pointer = buffer_pointer = buffer1;
+
+       transparent = false;
+       return true;
+}
+
+Color*
+magickpp_trgt::start_scanline(int scanline __attribute__ ((unused)))
+{
+       return color_buffer;
+}
+
+bool
+magickpp_trgt::end_scanline()
+{
+       convert_color_format(buffer_pointer, color_buffer,
+                                                width, PF_RGB|PF_A, gamma());
+
+       if (!transparent)
+               for (int i = 0; i < width; i++)
+                       if (previous_buffer_pointer &&                                  // this isn't the first frame
+                               buffer_pointer[i*4 + 3] < 128 &&                        // our pixel is transparent
+                               !(previous_buffer_pointer[i*4 + 3] < 128))      // the previous frame's pixel wasn't
+                       {
+                               transparent = true;
+                               break;
+                       }
+
+       buffer_pointer += 4 * width;
+
+       if (previous_buffer_pointer)
+               previous_buffer_pointer += 4 * width;
+
+       return true;
+}