Script de redimensionnement sous Gimp

Publié le 17 août 2011 par Dr Bowman

Gimp est un outil open source gratuit de traitement d'image. Malheureusement, il est aussi puissant que peu convivial.

Un des aspects intéressants est la possibilité de faire des scripts et de piloter ainsi toutes les fonctions graphiques. Cependant, le langage utilisé est assez complexe à mettre en oeuvre.

Voici un exemple de script qui redimmensionne en un clic l'image courante à 600 pixel de largeur, en gardant le bon ratio. La fonctionne s'insère également dans un menu créé pour l'occasion "mon_menu".

Pour que ça fonctionne, il faut aussi placer ce script (on le nommera comme_on_veut.scm) dans le bon répertoire. En l'occurrence : C:\Program Files\GIMP-2.0\share\gimp\2.0\scripts

(define (script-fu-resize-600 inImage)

(let* ((old-largeur (car (gimp-image-width inImage)))
         (old-hauteur (car (gimp-image-height inImage)))
         (new-largeur 600)
         (new-hauteur (/ (* old-hauteur new-largeur) old-largeur))
         (calque (car (gimp-image-get-active-drawable inImage)))
         (fichier (car (gimp-image-get-filename inImage)))
        )
    (gimp-image-scale inImage new-largeur new-hauteur)
    (file-jpeg-save RUN-NONINTERACTIVE inImage calque fichier fichier 1 0 1 0 "" 0 1 0 0)
)

) ;end define

(script-fu-register
          "script-fu-resize-600"                        ;func name
          "Resize-600"                                  ;menu label
          "Réduit la largeur à 600 px"              ;description
          "Dr Bowman"                             ;author
          "copyright 2011"             ;copyright notice
          "2011"                          ;date created
          ""                     ;image type that the script works on
          SF-IMAGE "inImage" 0
)

(script-fu-menu-register "script-fu-resize-600" "<Image>/Mon_menu")