TD-e.com

Correction horizon

Un script pour le Gimp

Exemple

Image 1: Avec l'outil de sélection rectangulaire 2 points sont définis sur la ligne d'horizon inclinée..

Avant de lancer le script-fu, une sélection est définie

Image 2: Correction exécutée.
Image corrigée avec le script-fu 'Correction horizon'

Description

"Correction horizon" est un script pour le Gimp. C'est une version améliorée du script "Couper bords penchés". "Correction horizon" assure aussi la rotation nécessaire pour corriger une ligne d'horizon penchée ou un axe vertical penché. Plus besoin de deviner la valeur de l'angle de rotation nécessaire. Définissez 2 points sur la ligne qui devrait être horizontale ou verticale et lancez le script.

Le script a été testé avec le Gimp version 2.2.9 sous Linux SuSE et avec le Gimp version 2.2.10 sous Windoze.
Le script version 1.10 a été testé avec le Gimp 2.4.0 sous Linux Ubuntu 7.10 Gutsy Gibbon.
Le script version 1.13 a été testé avec le Gimp 2.6.8 sous Linux Ubuntu 10.04 Lucid Lynx.

Versions

2011.07.10 : La version actuelle est la 1.13. Elle a été testée avec Gimp 2.6.8. L'angle manuel et la rotation anti-horaire ne fonctionnaient plus ces derniers temps. Problème résolu.
2007.10.24 : La version 1.10 a été adaptée au Gimp 2.4.

Téléchargement (Download):

Cliquez dans le cadre bleu ci-dessous dans lequel se trouve le listing du script.
Tapez Control-A pour sélectionner le texte complet du script.
Tapez Control-C pour copier le script dans le presse-papier.
Ouvrez votre éditeur de texte et tapez Control-V pour coller le contenu du script (insérer me paraît plus adéquat que coller...).
Sauvegardez le script sous le nom correct-horizon-f.scm

Linux Ubuntu ou autres Gnome:   utiliser l'éditeur gedit ou bluefish

Linux Kubuntu ou autres KDE:   utiliser l'éditeur Kate ou Quanta

Mac OS X:   utiliser l'éditeur Smultron

Windoze:   utiliser l'éditeur Aedix (gratuit), ou Notepad (mais attention à l'extension .txt indésirable, le fichier script doit avoir l'extension .scm et non pas .scm.txt)

D'autres éditeurs de textes conviennent aussi, mais les traitements de texte ne conviennent pas. Pas de Word ou OpenOffice ou similaires.

Installation:

Copiez correct-horizon-f.scm dans l'un des dossiers enregistrés dans les préférences du Gimp sous Dossiers/Scripts.

Linux Ubuntu et beaucoup d'autres:
  /home/[username]/.gimp-2.n/scripts   ou   /usr/share/gimp/2.0/scripts

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

Windoze:
  C:\.gimp-2.n\scripts   ou   C:\program-files\gimp2.n\share\gimp\scripts

Ensuite allez dans le menu Exts et choisissez Exts / Script-Fu / Rafraîchir les scripts. C'est tout.
Le script peut être lancé à partir du menu Calque / Transformer / Correction Horizon...

Script-fu correct-horizon-f.scm pour le Gimp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; 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 french
; 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*
  '(("Avant (sens horaire)" GIMP-TRANSFORM-FORWARD)
    ("Arriere (sens anti-horaire)"  GIMP-TRANSFORM-BACKWARD)))

(define *correct-horizon-interpolation-def*
  '(
    ("Aucune"   GIMP-INTERPOLATION_NONE)
    ("Lineaire" GIMP-INTERPOLATION_LINEAR)
    ("Cubique"  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/Correction Horizon..."
                    "Effectue une rotation de l'image et decoupe les bords obliques qui en resultent. L'angle de rotation est calcule par le script. Avant de lancer le script, dessiner une selection rectangulaire dont la diagonale est l'horizon. Pour cela prendre l'outil de selection rectangulaire, cliquer sur la ligne d'horizon du cote gauche de la photo, glisser vers le bord droit et relacher le bouton de la souris en etant exactement sur la ligne d'horizon.\n\nPour plus de precision, afficher l'image en 100% ou meme plus si necessaire. Peut etre utilise aussi pour corriger des axes verticaux p.ex. batiments eleves. Inutile d'entrer un angle si une selection rectangulaire existante permet de le determiner. Decoupe les bords obliques si la case est cochee, sinon affiche la selection qui est a decouper. Conserve les proportions largeur-hauteur d'origine."
                    "Tharsice Demand <td-e.com>"
                    "Tharsice Demand"
                    "2011.07.10"
                    "RGB RGBA GRAY GRAYA"
                    SF-IMAGE    "Image" 0
                    SF-DRAWABLE "Drawable" 0
                    SF-OPTION   "Sens de rotation" (mapcar car *correct-horizon-direction-def*)
                    SF-OPTION   "Interpolation" (mapcar car *correct-horizon-interpolation-def*)
                    SF-VALUE    "Angle, a remplir seulement si pas de\nselection rectangulaire" "1.00"
                    SF-TOGGLE   "Couper les bords\n si non coche, affiche la selection a decouper" TRUE
)

Sponsoring

Si le script 'Correction horizon' vous est utile et vous voulez soutenir le développeur, vous pouvez

Licence

Le texte GNU general public license s'applique au script-fu correct-horizon-f.scm ci-dessus.

En cas de problème

Les versions anglaises de mes scripts fonctionnent aussi bien sous Linux que sous Windoze. Les versions françaises fonctionnent sous Linux. Dans certains cas ils peuvent poser un problème sous Windoze à cause des caractères accentués (en fait tout ce qui n'est pas dans le code ASCII 7 bit). Il m'a été rapporté que dans ces cas-là, le script n'apparaît pas dans le menu prévu.

Si ce cas se produit, il y a 2 solutions: soit installer la version anglaise, soit remplacer tous les caractères accentués par des caractères non-accentués dans la version française (remplacer àâçéèêëîïùûü par aceiu).

Remarque : la version actuelle 1.13 ne contient aucun caractère accentué.

Commentaires
Ajouter un commentaire à cette page

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