TD-e.com

Couper bords penchés

Un script pour le Gimp

Exemple

Image manipulée par le Script-fu 'Couper bords penchés'

Description

"Couper bords penchés" est un script pour le Gimp. Pour corriger des photos dont la ligne d'horizon ou un axe vertical sont penchés, il faut leur appliquer une rotation d'un petit angle en utilisant un programme de traitement d'images. Après une telle rotation, l'image obtenue présente des bords penchés. Certains éditeurs d'images coupent automatiquement ces bords penchés, d'autres ne le font pas.

Le Script-Fu "Couper bords penchés" pour le Gimp est une function qui coupe automatiquement ces bords penchés d'images ayant subi une rotation, tout en gardant les proportions de l'image originale.

Le script a été testé avec le Gimp version 2.2.9 sous Linux SuSE et avec le Gimp version 2.2.3 sous Windoze.

Le script version 1.10 a été testée avec le Gimp 2.4.0 sous Linux Ubuntu 7.10 Gutsy Gibbon.

Versions

2007.10.24 : La version actuelle est la 1.10 et 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 crop-rotated-photo-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 crop-rotated-photo-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 / Couper bords penchés...

Successeur:

Le script plus récent correction-horizon fait les 2 choses, la rotation et couper les bords obliques.

Script-fu crop-rotated-photo-f.scm pour le Gimp

Notice: Undefined index: isbrowser in /home/photowp/domains/td-e.com/public_html/pbin/func/piphost.php on line 58

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; 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 french
; 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/Couper bords penches..."
                    "Elimine les bords penches apres une rotation d'un petit angle."
                    "Tharsice Demand <td-e.com>"
                    "Tharsice Demand"
                    "2007.10.26"
                    "RGBA"
                    SF-IMAGE    "Image" 0
                    SF-DRAWABLE "Drawable" 0
                    SF-TOGGLE   "Couper les bords\n sinon, affiche la selection a decouper" TRUE
)

Sponsoring

Si le script 'Couper bords penchés' vous est utile et vous voulez soutenir le développeur, vous pouvez

Licence

Le texte GNU general public license s'applique au script-fu crop-rotated-photo-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.10 ne contient aucun caractère accentué.

Blog TD-e.com
Ajouter un commentaire

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