TD-e.com

Horizont korrigieren

Ein Skript-fu für den Gimp

Beispiel

Bild 1: Mit dem rechteckigen Auswahl-Werkzeug werden 2 Punkten auf der Linie die schräg ist, gesetzt.

Vor dem Skript-fu Aufruf wird eine Auswahl gesetzt

Bild 2: Korrektur ausgeführt
Mit dem Skript-fu 'Horizont korrigieren' korrigiertes Bild

Beschreibung

"Horizont korrigieren" ist ein Skript-fu für den Gimp. Es ist eine Nachfolger Version des Skripts "Schräge Kanten abschneiden". "Horizont korrigieren" führt auch die kleine Drehung die es braucht um einen schrägen Horizont zu korrigieren aus. Sie müssen nicht raten um welchen Winkel gedreht werden muss. Setzen Sie 2 Punkten auf der Linie die horizontal (waagerecht) sein sollte und rufen Sie das Skript auf.

Mehr Details gibt es in unserem Tutorial mit Beispielen.

Das Skript wurde mit dem Gimp Version 2.2.9 unter Linux SuSE und mit dem Gimp Version 2.2.10 unter Windstoss getestet.
Die Version 1.10 wurde mit dem Gimp 2.4.0 unter Linux Ubuntu 7.10 Gutsy Gibbon getestet.
Die Version 1.13 wurde mit dem Gimp 2.6.8 unter Linux Ubuntu 10.04 Lucid Lynx getestet.

Versionen

2011.07.10 : Die gegenwärtige Version ist die 1.13. Sie wurde mit Gimp 2.6.8 getestet. Manueller Winkel und Rotation im Gegenuhrzeigersinn funktionnierten in letzter Zeit nicht mehr. Problem behoben.
2007.10.24 : Die Version 1.10 wurde an den Gimp 2.4 angepasst.

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 correct-horizon-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 correct-horizon-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 / Horizont korrigieren... aufgerufen werden.

Skript-fu correct-horizon-d.scm für den Gimp

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; SCRIPT-FU-CORRECT-HORIZON corrects a slanted horizon line or a slanted vertical axis
; Copyright (c) 2006-2007 Tharsice Demand <www.td-e.com>
; version 1.02  2006.07.14 german
; version 1.10  2007.10.24, migration to Gimp 2.4
; version 1.11  2007.11.24  rotation angle determined by rect. selection, problem corrected
; version 1.12  2008.08.08  rotation angle determined by manual input, problem corrected
; version 1.13  2011.07.02  manual input and backward rotation were broken due to changes in Gimp, problem corrected
;
;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 *correct-horizon-direction-def*
  '(("Vorwaerts (Uhrzeigersinn)" GIMP-TRANSFORM-FORWARD)
    ("Rueckwaerts (gegen Uhrzeigersinn)"  GIMP-TRANSFORM-BACKWARD)))

(define *correct-horizon-interpolation-def*
  '(
    ("Keine"   GIMP-INTERPOLATION_NONE) 
    ("Linear"  GIMP-INTERPOLATION_LINEAR)
    ("Kubisch" GIMP-INTERPOLATION_CUBIC)
    ("Lanczos" GIMP-INTERPOLATION-LANCZOS)
   ))

(define (script-fu-correct-horizon image drawable direction interpolation angleinput crop)

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

; init variables
  (let* 
    (
     (image-wi     (car (gimp-image-width image)))
     (image-he     (car (gimp-image-height image)))
     (image-r      (/ image-wi image-he))
     (centerx      (/ image-wi 2))
     (centery      (/ image-he 2))
     (lolimit-wi   (/ image-wi 2))

(bounds       (gimp-selection-bounds image))
     (selexist     (car bounds))
     (selx1        (if selexist (nth 1 bounds) 0))
     (sely1        (if selexist (nth 2 bounds) 0))
     (selx2        (if selexist (nth 3 bounds) image-wi))
     (sely2        (if selexist (nth 4 bounds) image-he))
     (selwi        (- selx2 selx1))
     (selhe        (- sely2 sely1))
     (angleselrad  (atan (/ selhe selwi)))
     (fullselwi    (= selwi image-wi))
     (fullselhe    (= selhe image-he))
     (fullsel      (and fullselwi fullselhe))
     (notfullsel   (not fullsel))

(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)
     (cornersvalid 0)
     (posfound     0)
     (pi           3.1415926535897932384626)
     (angleinrad   (* (/ angleinput 180) pi))
     (angleraw     (if notfullsel angleselrad angleinrad))
     (angleradians (if (< angleraw (/ pi 4)) angleraw (- (/ pi 2) angleraw)))
     ;(angleradians (if (= direction 1) (- angleradians) angleradians))
     (fullselwistr (if fullselwi "true" "false"))
     (fullselhestr (if fullselhe "true" "false"))
     (fullselstr   (if fullsel "true" "false"))
     (notfullselstr (if notfullsel "true" "false"))
    )

; deselect the selection boxes used to define the angle
    (gimp-selection-none image)

; performing the rotation
    (gimp-drawable-transform-rotate drawable angleradians TRUE centerx centery direction interpolation 0 3 1)

; 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
    ; 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) (define msg1 "Cropping area could not be defined, width/2 reached\n")
                               (define msg1 ""))
    (if (> ii 3000) (define msg2 "Cropping area could not be defined after 3000 loops\n")
                    (define msg2 ""))
    (define msge (string-append msg1 msg2))

; preparing debug messages
    (define msga (string-append "Searched for " (number->string ii) " loops"
      "\n direction=" (number->string direction)
      "\n selexist=" (number->string selexist)
      ;"\n selx1=" (number->string selx1)
      ;"\n sely1=" (number->string sely1)
      ;"\n selx2=" (number->string selx2)
      ;"\n sely2=" (number->string sely2)
      "\n image-wi=" (number->string image-wi)
      "\n image-he=" (number->string image-he)
      "\n selwi=" (number->string selwi)
      "\n selhe=" (number->string selhe)
      ;"\n fullselwi=" fullselwistr
      ;"\n fullselhe=" fullselhestr
      "\n fullsel=" fullselstr
      "\n notfullsel=" notfullselstr
      "\n angleselrad[deg]=" (number->string (* (/ angleselrad pi) 180))
      "\n angleselrad=" (number->string angleselrad)
      "\n angleinput=" (number->string angleinput)
      "\n angleinrad=" (number->string angleinrad)
      "\n angleradians=" (number->string angleradians)
      "\n cornersvalid=" (number->string cornersvalid)
      "\n posfound=" (number->string posfound)
      "\n\nCrop at:"
      "\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
        (define msgz (string-append msge "\n" msga))
        (gimp-message msgz))
      ; else branch for debugging, to be commented in working version
      ;(begin
      ;  (define msgz (string-append msge "\n\n" msga))
      ;  (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-correct-horizon"
                    "<Image>/Layer/Transform/Horizont korrigieren..."
                    "Dreht ein Foto um einen kleinen Winkel und entfernt die schraegen Kanten anschliessend. Der Winkel wird von dem Skript berechnet. Vor dem Skript Aufruf, muss eine rechteckige Auswahl dessen Diagonale der Horizont ist, gesetzt werden. Rechteckige Auswahl Funktion anwaehlen, Klick auf den Horizont im linken Teil des Bildes, nach rechts fahren, die Maustaste in der Naehe des rechten Bildrandes genau auf der Horizontlinie loslassen.\n\nUm eine bessere Genauigkeit zu erreichen, das Bild auf 100% oder mehr anzeigen. Kann auch benutzt werden um vertikale Achsen wie Hochhaeuser zu korrigieren. Der Winkel muss nicht eingegeben werden wenn die Diagonale einer Auswahl zu seiner Ermittlung benutzt wird. Schneidet die schraegen Kanten ab wenn die Check box angekreuzt ist, wenn nicht wird nur angezeigt wo abgeschnitten wuerde. Das Breite Hoehe Verhaeltnis des Original wird beibehalten."
                    "Tharsice Demand <td-e.com>"
                    "Tharsice Demand"
                    "2011.07.10"
                    "RGB RGBA GRAY GRAYA"
                    SF-IMAGE    "Image" 0
                    SF-DRAWABLE "Drawable" 0
                    SF-OPTION   "Drehrichtung" (mapcar car *correct-horizon-direction-def*)
                    SF-OPTION   "Interpolation" (mapcar car *correct-horizon-interpolation-def*)
                    SF-VALUE    "Winkel, nur eigeben wenn keine\nrechteckige Auswahl gesetzt ist" "1.00"
                    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 'Horizont korrigieren' nützlich ist und Sie wollen den Entwickler unterstützen, dann können Sie eine

Lizenz

Für das Skript-Fu correct-horizon-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.13 enthält kein Umlaute und ist damit Windstoss tauglich.

Kommentare
Dieser Seite einen Kommentar hinzufügen

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