1 files changed, 113 insertions, 0 deletions
diff --git a/chalk/plugins/viewplugins/shearimage/shearimage.cpp b/chalk/plugins/viewplugins/shearimage/shearimage.cpp
new file mode 100644
index 000000000..2596e62ee
--- /dev/null
+++ b/chalk/plugins/viewplugins/shearimage/shearimage.cpp
@@ -0,0 +1,113 @@
+/*
+ * shearimage.cpp -- Part of Chalk
+ *
+ * Copyright (c) 2004 Michael Thaler
+ *
+ *  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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ */
+
+
+#include <math.h>
+
+#include <stdlib.h>
+
+#include <tqslider.h>
+#include <tqpoint.h>
+
+#include <tdelocale.h>
+#include <kiconloader.h>
+#include <kinstance.h>
+#include <tdemessagebox.h>
+#include <kstandarddirs.h>
+#include <tdetempfile.h>
+#include <kdebug.h>
+#include <kgenericfactory.h>
+
+#include <kis_doc.h>
+#include <kis_config.h>
+#include <kis_image.h>
+#include <kis_layer.h>
+#include <kis_global.h>
+#include <kis_types.h>
+#include <kis_view.h>
+#include <kis_selection.h>
+
+#include "shearimage.h"
+#include "dlg_shearimage.h"
+
+typedef KGenericFactory<ShearImage> ShearImageFactory;
+K_EXPORT_COMPONENT_FACTORY( chalkshearimage, ShearImageFactory( "chalk" ) )
+
+// XXX: this plugin could also provide layer scaling/resizing
+ShearImage::ShearImage(TQObject *parent, const char *name, const TQStringList &)
+    : KParts::Plugin(parent, name)
+{
+    if ( parent->inherits("KisView") )
+    {
+        setInstance(ShearImageFactory::instance());
+        setXMLFile(locate("data","chalkplugins/shearimage.rc"), true);
+
+        (void) new TDEAction(i18n("&Shear Image..."), 0, 0, this, TQT_SLOT(slotShearImage()), actionCollection(), "shearimage");
+        (void) new TDEAction(i18n("&Shear Layer..."), 0, 0, this, TQT_SLOT(slotShearLayer()), actionCollection(), "shearlayer");
+
+        m_view = (KisView*) parent;
+    }
+}
+
+ShearImage::~ShearImage()
+{
+    m_view = 0;
+}
+
+void ShearImage::slotShearImage()
+{
+    KisImageSP image = m_view->canvasSubject()->currentImg();
+
+    if (!image) return;
+
+    DlgShearImage * dlgShearImage = new DlgShearImage(m_view, "ShearImage");
+    TQ_CHECK_PTR(dlgShearImage);
+
+    dlgShearImage->setCaption(i18n("Shear Image"));
+
+        if (dlgShearImage->exec() == TQDialog::Accepted) {
+        TQ_INT32 angleX = dlgShearImage->angleX();
+                TQ_INT32 angleY = dlgShearImage->angleY();
+                m_view->shearCurrentImage(angleX, angleY);
+    }
+        delete dlgShearImage;
+}
+
+void ShearImage::slotShearLayer()
+{
+    KisImageSP image = m_view->canvasSubject()->currentImg();
+
+    if (!image) return;
+
+    DlgShearImage * dlgShearImage = new DlgShearImage(m_view, "ShearLayer");
+    TQ_CHECK_PTR(dlgShearImage);
+
+    dlgShearImage->setCaption(i18n("Shear Layer"));
+
+    if (dlgShearImage->exec() == TQDialog::Accepted) {
+                TQ_INT32 angleX = dlgShearImage->angleX();
+                TQ_INT32 angleY = dlgShearImage->angleY();
+                m_view->shearLayer(angleX, angleY);
+
+    }
+    delete dlgShearImage;
+}
+
+#include "shearimage.moc"