TD-e.com

Schräge Kanten abschneiden

Ein Skript-fu für den Gimp

Beispiel

Bild das mit dem Skript-fu 'Schräge Kanten abschneiden' bearbeitet wurde

Beschreibung

"Schräge Kanten abschneiden" ist ein Skript-fu für den Gimp. Um Fotos die leicht schräge Horizontlinien oder schräge senkrechte Achsen haben zu korrigieren, braucht es eine Drehung um einen kleinen Winkel. Nach so einer Drehung erhält man ein Bild mit schrägen Kanten. Einige Bildeditoren schneiden diese schrägen Kanten automatisch ab, andere tun es nicht.

Das Skript-fu "Schräge Kanten abschneiden" ist ein Gimp Skript das schräge Kanten automatisch abschneidet und das originale Bildverhältnis (Breite-Höhe Verhältnis) beibehält.

Das Skript wurde mit dem Gimp Version 2.2.9 unter Linux SuSE und mit dem Gimp Version 2.2.3 unter Windstoss getestet.

Die Version 1.10 wurde mit dem Gimp 2.4.0 unter Linux Ubuntu 7.10 Gutsy Gibbon getestet.

Versionen

2007.10.24 : Die gegenwärtige Version ist die 1.10 die an den Gimp 2.4 angepasst wurde.

Herunterladen (Download):

In den blauen Rahmen indem das Skript aufgelistet ist, hineinklicken.
Control-A tippen um das komplete Skript auszuwählen.
Control-C tippen um den Inhalt des Skripts in die Zwischenablage zu kopieren.
In einem Text-Editor (gedit, Kate, Aedix, Notepad, usw) Control-V tippen um das Skript einzufügen.
Als Datei crop-rotated-photo-d.scm abspeichern.

Bemerkung: Deutsche Tastaturen nennen die Weltweit genannte Control Taste nicht Control-Taste sondern Steuerung-Taste (bababobo).

Linux Ubuntu oder andere Gnome:   benutzen Sie den Text editor gedit oder bluefish

Linux Kubuntu oder andere KDE:   benutzen Sie den Text editor Kate oder Quanta

Mac OS X:   benutzen Sie den Text editor Smultron

Windstoss:   benutzen Sie den Text editor Aedix (gratis), oder Notepad (aber Achtung bei der Dateiendung .txt die unerwünscht ist, die Scriptdatei muss die Dateiendung .scm und nicht .scm.txt haben)

Andere Text Editoren sind auch tauglich, aber Text Bearbeitungsprogramme sind es nicht. Benutzen Sie kein Word, OpenOffice oder ähnliche.

Installation:

Die Datei crop-rotated-photo-d.scm in einen der Ordner (Verzeichnisse) die in den Gimp Einstellungen unter Ordner / Skripte eingetragen sind, kopieren.

Linux Ubuntu und viele andere:
  /home/[username]/.gimp-2.n/scripts   oder   /usr/share/gimp/2.0/scripts

Linux SuSE:
  /home/[username]/.gimp-2.n/scripts   oder   /opt/gnome/share/gimp/2.0/scripts

Windstoss:
  C:\.gimp-2.n\scripts   oder   C:\program-files\gimp2.n\share\gimp\scripts

Im Menü Xtns (im Gimp) Xtns / Skript-Fu / Auffrischen anwählen. Das war's.
Das Skript kann in dem Menü Ebene / Transformation / Schräge Kanten abschneiden... aufgerufen werden.

Die Drehung um einen kleinen Winkel muss vor dem Aufruf des Skript-fu "Schräge Kanten abschneiden" erfolgen.

Nachfolger:

Das neuere Skript Horizont korrigieren tut beides, die Drehung und die schrägen Kanten abschneiden.

Skript-fu crop-rotated-photo-d.scm für den Gimp

Hier unten in dem weissen Feld ist das komplette Script-Fu aufgelistet. Einfach kopieren und abspeichern.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; SCRIPT-FU-CROP-ROTATED-PHOTO crops the slanted edges of an image obtained after a rotation by a small angle
; Copyright (c) 2006 Tharsice Demand <www.td-e.com>
; version 1.02  2006.07.14 german
; version 1.10  2007.10.26, migration to Gimp 2.4
;
;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.
;
;Copy of the license at http://td-e.com/site/gpl.php

(define (script-fu-crop-rotated-photo image drawable crop)

(gimp-image-undo-group-start image)

; alpha to selection will select the transparent slanted parts obtained after rotation
  (gimp-selection-layer-alpha drawable)

; defining the rectangle inscribed in the slanted rectangle obtained after rotation
  (let* 
    ((image-wi     (car (gimp-image-width image)))
     (image-he     (car (gimp-image-height image)))
     (image-r      (/ image-wi image-he))
     (lolimit-wi   (/ image-wi 2))
     (ii           0)
     (rect-x0      0)
     (rect-y0      0)
     (rect-x1      image-wi)
     (rect-y1      image-he)
     (rect-wi      image-wi)
     (rect-he      image-he)
     (corner00     0)
     (corner01     0)
     (corner10     0)
     (corner11     0)
     (msgwa        "")
     (cornersvalid 0)
     (posfound     0)
     (msg1         "")
     (msg2         "")
     (msga         "")
     (msgb         "")
     (msge         "")
     (msgz         "")
    )

; searching the inscribed rectangle through a while loop
    (while (< posfound 1)
      ; decrementing the size of the testing rectangle
      (set! rect-wi      (- rect-wi 2))
      (set! rect-he      (/ rect-wi image-r))
      (set! rect-x0      (/ (- image-wi rect-wi) 2))
      (set! rect-y0      (/ (- image-he rect-he) 2))
      (set! rect-x1      (+ rect-x0 rect-wi))
      (set! rect-y1      (+ rect-y0 rect-he))

; getting the selection values of the 4 corners of the testing rectangle, selected=transparent, or not
      (set! corner00 (car (gimp-selection-value image rect-x0 rect-y0)))
      (set! corner01 (car (gimp-selection-value image rect-x0 rect-y1)))
      (set! corner10 (car (gimp-selection-value image rect-x1 rect-y0)))
      (set! corner11 (car (gimp-selection-value image rect-x1 rect-y1)))

; if all 4 corners are valid=not transparent, the rectangle is inscribed in the slanted rectangle
      (if (> corner00 0) 
        (if (> corner01 0) 
          (if (> corner10 0) 
            (if (> corner11 0) 
              (set! cornersvalid 1)
            )
          )
        )
      )

; preparing the exit of the loop
      (if (= cornersvalid 1) (set! posfound 1))
      (if (< rect-wi lolimit-wi) (set! posfound 1))
      (set! ii (+ ii 1))
      (if (> ii 3000) (set! posfound 1))
    ) ; end of loop

; preparing error messages
    (if (< rect-wi lolimit-wi) (set! msg1 "Cropping area could not be defined, width/2 reached\n")
                               (set! msg1 ""))
    (if (> ii 3000) (set! msg2 "Cropping area could not be defined after 3000 loops\n")
                    (set! msg2 ""))
    (set! msge (string-append msg1 msg2))

; preparing debug messages
    (set! msga (string-append "Searched for " (number->string ii) " loops"
      "\n cornersvalid=" (number->string cornersvalid)
      "\n posfound=" (number->string posfound)
    ))
    (set! msgb (string-append "Selection values:"
      "\n x0=" (number->string rect-x0)
      "\n y0=" (number->string rect-y0)
      "\n x1=" (number->string rect-x1)
      "\n y1=" (number->string rect-y1)
      "\n corner00=" (number->string corner00)
      "\n corner10=" (number->string corner10)
      "\n corner01=" (number->string corner01)
      "\n corner11=" (number->string corner11)
     ))

; deciding whether to show error messages
    (if (> (string-length msge) 0)
      (begin
        (set! msgz (string-append msge "\n" msgb))
        (gimp-message msgz))
      ; else branch for debugging, to be commented in working version
      ;(begin
      ;  ;(set! msgz (string-append msge "\n" msgwa "\n\n" msga "\n\n" msgb))
      ;  (set! msgz (string-append msge "\n\n" msga "\n\n" msgb))
      ;  (gimp-message msgz)
    )

(if (eq? crop TRUE)
        (begin
          (gimp-crop image rect-wi rect-he rect-x0 rect-y0)
          (gimp-selection-clear image))
        (gimp-rect-select image rect-x0 rect-y0 rect-wi rect-he 2 0 0))
    (gimp-displays-flush)
  )
  (gimp-image-undo-group-end image)
)

(script-fu-register "script-fu-crop-rotated-photo"
                    "<Image>/Layer/Transform/Schraege Kanten Abschneiden..."
                    "Entfernt die schraegen Kanten nach einer Drehung um einen kleinen Winkel."
                    "Tharsice Demand <td-e.com>"
                    "Tharsice Demand"
                    "2007.10.26"
                    "RGBA"
                    SF-IMAGE    "Image" 0
                    SF-DRAWABLE "Drawable" 0
                    SF-TOGGLE   "Kanten abschneiden\nkein Kreuz heisst nur anzeigen wo abgeschnitten wuerde" TRUE
)

Hier oben in dem weissen Feld ist das komplette Script-Fu aufgelistet. Einfach kopieren und abspeichern.

Sponsoring

Wenn Ihnen das Skript 'Schräge Kanten abschneiden' nützlich ist und Sie wollen den Entwickler unterstützen, dann können Sie eine

Lizenz

Für das Skript-Fu crop-rotated-photo-d.scm hier oben gilt die Lizenz GNU general public license. Dieses Skript ist eine eigene Entwicklung des Webmasters dieser website (td-e.com). Nur hier gibt es die Originalversion. Da unter GPL veröffentlicht, können eventuell von dritten veränderte Varianten auf anderen Websites gefunden werden.

Problembehebung

Die englischen Versionen meiner Script-Fu funktionnieren sowohl unter Linux wie auch unter Windstoss. Die deutschen Versionen funktionnieren unter Linux. Sie können anscheinend bei Windstoss ein Problem wegen den Umlauten haben (alles was nicht im 7 bit ASCII Code enthalten ist). Es wurde berichtet dass das Script dann ganz einfach nicht im vorgesehenen Menü erscheint.

Wenn so ein Fall auftreten sollte, gibt es 2 Möglichkeiten: entweder Sie installieren die englische Version, oder Sie ersetzen alle äöü mit ae oe ue in der deutschen Version. Eszett gibt es keine zu ersetzen da ich mit ss schreibe wie seit Jahrzehnten (1930. Jahren) üblich in der Schweiz.

Bemerkung : Die gegenwärtige Version 1.10 enthält kein Umlaute und ist damit Windstoss tauglich.

Kommentare
Dieser Seite einen Kommentar hinzufügen

... ...
.. ..
. .