TD-e.com

Encadrement

Un script pour le Gimp

Exemple

image encadrée par le script-fu 'encadrement'

Agrandir l'image

Description

"Encadrement" est un script pour le Gimp. Il génère un encadrement autour d'une image. La largeur du cadre peut être choisie à volonté. Vous avez les choix suivants: un encadrement de couleur unie, un dégradé entre 2 couleurs ou l'un des dégradés pré-définis dans le Gimp, basés sur plus de 2 couleurs. Vous pourriez aussi définir un nouveau dégragé complexe et ensuite l'utiliser avec ce script pour générer un cadre. Comme d'habitude vous pouvez choisir de fusionner les calques (ou non) pendant l'exécution du 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.

Versions

2007.07.12 : Un décalage d'un pixel dans 2 des 4 coins a été corrigé grâce à une proposition de Harald, un utilisateur.

2007.10.25 : La version actuelle est la 1.10 et a été adaptée au Gimp 2.4. Elle se trouve désormais sous le menu Filtres.

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 frame-it-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 frame-it-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 Script-Fu / Décor / Encadrement...

ATTENTION : La version 1.10 peut être lancée à partir du menu Filtres / Decor / Encadrement.... Pour des raisons mystérieuses, le groupe "Decor" refuse d'apparaître sous le menu "Script-Fu", tout au moins dans mon Gimp 2.4.0, j'ai donc placé le script sous le menu Filtres/Decor.

Script-fu frame-it-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-FRAME-IT
; version 1.02  2006.07.14 french
; version 1.03  2007.07.12 one pixel precision error in 2 corners corrected
; version 1.10  2007.10.25, migration to Gimp 2.4
; Copyright (c) 2006-2007 Tharsice Demand <www.td-e.com>
;
;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 (deltacolor col delta)
  (let* ((newcol (+ col delta)))
    (if (< newcol 0) (set! newcol 0))
    (if (> newcol 255) (set! newcol 255))
    newcol)
)

(define (adjcolor col delta)
  (mapcar (lambda (x) (deltacolor x delta)) col)
)

(define (gen_top_array xsize ysize owidth oheight width height)
  (let* ((n_array (cons-array 10 'double)))
    (aset n_array 0 0 )
    (aset n_array 1 0 )
    (aset n_array 2 xsize)
    (aset n_array 3 ysize)
    (aset n_array 4 (+ xsize owidth))
    (aset n_array 5 ysize)
    (aset n_array 6 width)
    (aset n_array 7 0 )
    (aset n_array 8 0 )
    (aset n_array 9 0 )
    n_array)
)

(define (gen_left_array xsize ysize owidth oheight width height)
  (let* ((n_array (cons-array 10 'double)))
    (aset n_array 0 0 )
    (aset n_array 1 0 )
    (aset n_array 2 xsize)
    (aset n_array 3 ysize)
    (aset n_array 4 xsize)
    (aset n_array 5 (+ ysize oheight))
    (aset n_array 6 0 )
    (aset n_array 7 height )
    (aset n_array 8 0 )
    (aset n_array 9 0 )
    n_array)
)

(define (gen_right_array xsize ysize owidth oheight width height)
  (let* ((n_array (cons-array 10 'double)))
    (aset n_array 0 width )
    (aset n_array 1 0 )
    (aset n_array 2 (+ xsize owidth))
    (aset n_array 3 ysize)
    (aset n_array 4 (+ xsize owidth))
    (aset n_array 5 (+ ysize oheight))
    (aset n_array 6 width)
    (aset n_array 7 height)
    (aset n_array 8 width )
    (aset n_array 9 0 )
    n_array)
)

(define (gen_bottom_array xsize ysize owidth oheight width height)
  (let* ((n_array (cons-array 10 'double)))
    (aset n_array 0 0 )
    (aset n_array 1 height)
    (aset n_array 2 xsize)
    (aset n_array 3 (+ ysize oheight))
    (aset n_array 4 (+ xsize owidth))
    (aset n_array 5 (+ ysize oheight))
    (aset n_array 6 width)
    (aset n_array 7 height)
    (aset n_array 8 0 )
    (aset n_array 9 height)
    n_array)
)

(define *border-color*
  '(
    ("Degrade ci-dessus" 0)
    ("Degrade couleur 1/couleur 2" 1)
    ("Couleur 1 avec Delta" 2)
   )
)

(define (script-fu-frame-it aimg adraw xsize ysize fcolor1 fcolor2 fgradient revgradient dvalue bordercol flatten)
  (let* 
    (
      (img (car (gimp-drawable-get-image adraw)))
      (owidth (car (gimp-image-width img)))
      (oheight (car (gimp-image-height img)))
      (width (+ owidth (* 2 xsize)))
      (height (+ oheight (* 2 ysize)))
      (layer (car (gimp-layer-new img
                                  width height
                                  (car (gimp-drawable-type-with-alpha adraw))
                                  "Border-Layer" 100 NORMAL-MODE)))
      (blendmode (if (= bordercol 0) CUSTOM-MODE FG-BG-RGB-MODE))

(topout (if (= revgradient FALSE) 0 (- ysize 1) ))
      (topin  (if (= revgradient FALSE) (- ysize 1) 0 ))
      (bottomout  (if (= revgradient FALSE) (- height 1) (- height ysize) ))
      (bottomin  (if (= revgradient FALSE) (- height ysize) (- height 1) ))
      (leftout  (if (= revgradient FALSE) 0 (- xsize 1) ))
      (leftin  (if (= revgradient FALSE) (- xsize 1) 0 ))
      (rightout  (if (= revgradient FALSE) (- width 1) (- width xsize) ))
      (rightin  (if (= revgradient FALSE) (- width xsize) (- width 1) ))
    )

(gimp-context-push)
    (gimp-image-undo-group-start img)

(gimp-image-resize img
                       width
                       height
                       xsize
                       ysize)

(gimp-image-add-layer img layer 0)
    (gimp-drawable-fill layer TRANSPARENT-FILL)
    (if (<= bordercol 1) (gimp-context-set-background fcolor1))
    (if (<= bordercol 1) (gimp-context-set-foreground fcolor2))
    (if (= bordercol 0) (gimp-context-set-gradient fgradient))

;---TOP---
    (gimp-context-set-background (adjcolor fcolor1 (- 0 dvalue)))
    (gimp-free-select img
                      10
                      (gen_top_array xsize ysize owidth oheight width height)
                      CHANNEL-OP-REPLACE
                      0
                      0
                      0.0)

(if (>= bordercol 0) (gimp-edit-fill layer BACKGROUND-FILL))
    (if (<= bordercol 1) (gimp-edit-blend
      layer
      blendmode
      NORMAL-MODE
      GRADIENT-LINEAR
      100
      0
      REPEAT-NONE
      FALSE
      FALSE
      0 0
      FALSE
      (/ width 2) topout
      (/ width 2) topin)
    )

;---LEFT---
    (gimp-context-set-background (adjcolor fcolor1 (- 0 (/ dvalue 2))))
    (gimp-free-select img
                      10
                      (gen_left_array xsize ysize owidth oheight width height)
                      CHANNEL-OP-REPLACE
                      0
                      0
                      0.0)
    (if (>= bordercol 0) (gimp-edit-fill layer BACKGROUND-FILL))
    (if (<= bordercol 1) (gimp-edit-blend
      layer
      blendmode
      NORMAL-MODE
      GRADIENT-LINEAR
      100
      0
      REPEAT-NONE
      FALSE
      FALSE
      0 0
      FALSE
      leftout (/ height 2)
      leftin (/ height 2))
    )

;---RIGHT---
    (gimp-context-set-background (adjcolor fcolor1 (/ dvalue 2)))
    (gimp-free-select img
                      10
                      (gen_right_array xsize ysize owidth oheight width height)
                      CHANNEL-OP-REPLACE
                      0
                      0
                      0.0)
    (if (>= bordercol 0) (gimp-edit-fill layer BACKGROUND-FILL))
    (if (<= bordercol 1) (gimp-edit-blend
      layer
      blendmode
      NORMAL-MODE
      GRADIENT-LINEAR
      100
      0
      REPEAT-NONE
      FALSE
      FALSE
      0 0
      FALSE
      rightout (/ height 2)
      rightin (/ height 2))
    )

;---BOTTOM---
    (gimp-context-set-background (adjcolor fcolor1 dvalue))
    (gimp-free-select img
                      10
                      (gen_bottom_array xsize ysize owidth oheight width height)
                      CHANNEL-OP-REPLACE
                      0
                      0
                      0.0)

;---FINISHING---
    (gimp-selection-none img)
    (if (= flatten 1) (gimp-image-flatten img) ())
    (gimp-displays-flush)

(gimp-image-undo-group-end img)
    (gimp-context-pop)
  )
)

(script-fu-register "script-fu-frame-it"
                    "<Image>/Filters/Decor/Encadrement..."
                    "Encadrer une image."
                    "Tharsice Demand <td-e.com>"
                    "Tharsice Demand"
                    "2007.10.25"
                    "RGB RGBA GRAY GRAYA"
                    SF-IMAGE       "Image"               0
                    SF-DRAWABLE    "Drawable"            0
                    SF-ADJUSTMENT  "Largeur du cadre X"  '(40 1 250 1 10 0 1)
                    SF-ADJUSTMENT  "Largeur du cadre Y"  '(40 1 250 1 10 0 1)
                    SF-COLOR       "Couleur du cadre 1"  '(116 72 24)
                    SF-COLOR       "Couleur du cadre 2"  '(204 150 40)
                    SF-GRADIENT    "Degrade du cadre"    "Golden"
                    SF-TOGGLE      "Degrade inverse"     TRUE
                    SF-ADJUSTMENT  "Delta de couleur"    '(25 1 255 1 10 0 1)
                    SF-OPTION      "Couleur du cadre"    (mapcar car *border-color*)
                    SF-TOGGLE      "Fusionner"           FALSE
)

Sponsoring

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

Licence

Le texte GNU general public license s'applique au script-fu frame-it-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

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