From 003fc530c79f74f54e93ade3207b9b2c2d8b4c4e Mon Sep 17 00:00:00 2001
From: Nicolas Dufour <nicoduf@yahoo.fr>
Date: Thu, 18 Aug 2011 23:29:26 +0200
Subject: Extensions. New Crop bitmap extension (see Bug #517082, Request Crop
 Image).

(bzr r10554)
---
 src/extension/internal/bitmap/crop.cpp | 84 ++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100644 src/extension/internal/bitmap/crop.cpp

(limited to 'src/extension/internal/bitmap/crop.cpp')

diff --git a/src/extension/internal/bitmap/crop.cpp b/src/extension/internal/bitmap/crop.cpp
new file mode 100644
index 000000000..23e31b510
--- /dev/null
+++ b/src/extension/internal/bitmap/crop.cpp
@@ -0,0 +1,84 @@
+/*
+ * Copyright (C) 2011 Authors:
+ *   Nicolas Dufour <nicoduf@yahoo.fr>
+ *
+ * Released under GNU GPL, read the file 'COPYING' for more information
+ */
+
+#include "2geom/transforms.h"
+#include "extension/effect.h"
+#include "extension/system.h"
+
+#include "crop.h"
+#include "selection-chemistry.h"
+#include "sp-item-transform.h"
+
+namespace Inkscape {
+namespace Extension {
+namespace Internal {
+namespace Bitmap {
+
+void
+Crop::applyEffect(Magick::Image *image) {
+    int width = image->baseColumns() - (_left + _right);
+    int height = image->baseRows() - (_top + _bottom);
+    if (width > 0 and height > 0) {
+        image->crop(Magick::Geometry(width, height, _left, _top, false, false));
+        image->page("+0+0");
+    }
+}
+
+void
+Crop::postEffect(Magick::Image *image, SPItem *item) {
+
+    // Scale bbox
+    Geom::Scale scale (0,0);
+    scale = Geom::Scale(image->columns() / (double) image->baseColumns(),
+                        image->rows() / (double) image->baseRows());
+    sp_item_scale_rel (item, scale);  
+
+    // Translate proportionaly to the image/bbox ratio
+    Geom::OptRect bbox(item->getBboxDesktop());
+    //g_warning("bbox. W:%f, H:%f, X:%f, Y:%f", bbox->dimensions()[Geom::X], bbox->dimensions()[Geom::Y], bbox->min()[Geom::X], bbox->min()[Geom::Y]);
+
+    Geom::Translate translate (0,0);
+    translate = Geom::Translate(((_left - _right) / 2.0) * (bbox->dimensions()[Geom::X] / (double) image->columns()),
+                                ((_bottom - _top) / 2.0) * (bbox->dimensions()[Geom::Y] / (double) image->rows()));
+    sp_item_move_rel(item, translate);
+}
+
+void
+Crop::refreshParameters(Inkscape::Extension::Effect *module) {    
+    _top = module->get_param_int("top");
+    _bottom = module->get_param_int("bottom");
+    _left = module->get_param_int("left");
+    _right = module->get_param_int("right");
+}
+
+#include "../clear-n_.h"
+
+void
+Crop::init(void)
+{
+    Inkscape::Extension::build_from_mem(
+        "<inkscape-extension xmlns=\"" INKSCAPE_EXTENSION_URI "\">\n"
+          "<name>" N_("Crop") "</name>\n"
+          "<id>org.inkscape.effect.bitmap.crop</id>\n"
+          "<param name=\"top\" gui-text=\"" N_("Top (px):") "\" type=\"int\" min=\"0\" max=\"100000\">0</param>\n"
+          "<param name=\"bottom\" gui-text=\"" N_("Bottom (px):") "\" type=\"int\" min=\"0\" max=\"100000\">0</param>\n"
+          "<param name=\"left\" gui-text=\"" N_("Left (px):") "\" type=\"int\" min=\"0\" max=\"100000\">0</param>\n"
+          "<param name=\"right\" gui-text=\"" N_("Right (px):") "\" type=\"int\" min=\"0\" max=\"100000\">0</param>\n"
+          "<effect>\n"
+            "<object-type>all</object-type>\n"
+            "<effects-menu>\n"
+              "<submenu name=\"" N_("Raster") "\" />\n"
+            "</effects-menu>\n"
+            "<menu-tip>" N_("Crop selected bitmap(s).") "</menu-tip>\n"
+          "</effect>\n"
+        "</inkscape-extension>\n", new Crop());
+}
+
+}; /* namespace Bitmap */
+}; /* namespace Internal */
+}; /* namespace Extension */
+}; /* namespace Inkscape */
-- 
cgit v1.2.3