Bonjour,
j'ai développé un petit script-fu pour GIMP 2.6 pour mes besoins personnels, je me propose de le mettre à disposition de la communauté.
Je ferais évolué ce script en fonction de ma disponibilité et des idées.
Pour l'instant, le script fonctionne ainsi:
Ajout d'une ombre à l'image.
Ajout d'un cadre et d'un liseret.
Possiblité de choisir la couleur du cadre et du liseret.
Les évolutions que je souhaiterais apporter:
Choix de la couleur de l'ombre.
Choix du nombre de "bordure" (actuellement le script en ajoute 3.)
Choix de la taille (épaisseur) des bordures.
Voici la version 2.1, elle apporte les améliorations suivantes:
Choix de la taille et de la couleur pour tous les éléments graphiques.
Le code du script, à copier dans un éditeur de texte (bloc-notes) et à renommer en .scm:
;; Script-fu Encadrement
;;Version 2.1
(define (script-fu-bordure-encadrement image drawable toggle-cadre-interieur couleur-cadre-interieur taille-cadre-interieur toggle-cadre-exterieur couleur-cadre-exterieur taille-cadre-exterieur toggle-liseret couleur-liseret taille-liseret couleur-fond toogle-ombre couleur-ombre decalage-ombre rayon-flou opacite)
;; debut d'historique d'annulation
(gimp-image-undo-group-start image)
;;Définit les couleurs par défaut, arrière-plan: noir, premier-plan: blanc
(gimp-context-set-foreground '(0 0 0))
(gimp-context-set-background '(255 255 255))
;;Création de l'ombre
(let* (
;; Dimensions de l'image
(img-width (car (gimp-image-width image)))
(img-height (car (gimp-image-height image)))
;;Modifie la couleur du premier plan
(gimp-context-set-foreground couleur-ombre)
)
(if (eq? toogle-ombre FALSE)
()
;;Création de l'ombre
(script-fu-drop-shadow image drawable decalage-ombre decalage-ombre rayon-flou couleur-ombre opacite 100)
)
(gimp-image-resize-to-layers image)
)
;;Création du fond blanc
(let* (
;;Dimensions de la nouvelle image
(new-img-width (car (gimp-image-width image)))
(new-img-height (car (gimp-image-height image)))
;; Paramétre du nouveau calque
(layer-fond (car (gimp-layer-new image new-img-width new-img-height RGB-IMAGE "Fond" 100 NORMAL)))
)
;;Crée un nouveau masque et le descend en dernière position
(gimp-image-add-layer image layer-fond +2)
;;Modifie la couleur du fond
(gimp-context-set-background couleur-fond)
;;Remplit le masque
(gimp-edit-fill layer-fond 1)
;;Raffraichit l'écran
(gimp-displays-flush)
)
;;Création du cadre et du liseret
(let* (
;;Dimensions de l'image ombrée
(width (car (gimp-image-width image)))
(height (car (gimp-image-height image)))
)
;;Crée le cadre et les liserets
(if (eq? toggle-cadre-interieur FALSE)
()
(script-fu-addborder image drawable taille-cadre-interieur taille-cadre-interieur couleur-cadre-interieur 0)
)
(if (eq? toggle-liseret FALSE)
()
(script-fu-addborder image drawable taille-liseret taille-liseret couleur-liseret 0)
)
(if (eq? toggle-cadre-exterieur FALSE)
()
(script-fu-addborder image drawable taille-cadre-exterieur taille-cadre-exterieur couleur-cadre-exterieur 0)
)
)
;;Re-initialise les outils
(gimp-context-set-foreground '(0 0 0))
(gimp-context-set-background '(255 255 255))
;; fin d'historique d'annulation
(gimp-image-undo-group-end image)
;; fin de la fonction
)
(script-fu-register "script-fu-bordure-encadrement"
"<Image>/Script-Fu/Encadrement"
"Cree un cadre"
"Erik DELAFOSSE"
"Copyright 2010"
"29/9/10"
"RGB*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
;;Variable pour le cadre intérieur
SF-TOGGLE "Cadre interieur (O/N)" FALSE
SF-COLOR "Couleur du cadre interieur" '(255 255 255)
SF-ADJUSTMENT "Taille du cadre interieur" '( 10 1 1000 1 1)
;;Variable pour le cadre extérieur
SF-TOGGLE "Cadre exterieur (O/N)" FALSE
SF-COLOR "Couleur du cadre exterieur" '(255 255 255)
SF-ADJUSTMENT "Taille du cadre exterieur" '( 20 1 1000 1 1)
;;Variable pour le liseret
SF-TOGGLE "Liseret (O/N)" FALSE
SF-COLOR "Couleur du liseret" '(0 0 0)
SF-ADJUSTMENT "Taille du liseret" '( 2 1 12 1 1)
;;Variable pour la couleur du fond
SF-COLOR "Couleur du fond" '(255 255 255)
;;Variable pour la création de l'ombre
SF-TOGGLE "Ombre (O/N)" FALSE
SF-COLOR "Couleur de l'ombre" '(0 0 0)
SF-ADJUSTMENT "Decalage de l'ombre" '( 6 1 200 1 1)
SF-ADJUSTMENT "Rayon du flou de l'ombre" '( 10 1 200 1 1)
SF-ADJUSTMENT "Opacite" '( 80 1 100 1 1)
;; fin du register
)
ou à télécharger à cette adresse:
http://dl.free.fr/jiePTl7uR (http://dl.free.fr/jiePTl7uR)
Nom du fichier: Cadre&Bordure.scm
Mot de passe: gimp
Comme pour les photos, merci de me donner votre avis sur le script. !!!!
Ah ! C'est sympa de faire ce genre de cadeau !
Citation de: Loïra le 30 Septembre 2010, 11:48:43
Ah ! C'est sympa de faire ce genre de cadeau !
Merci, mais a priori, ça n'intéresse pas grand monde ! :cry:
Signale-le à Raymond Ostertag...