TD-e.com

Filigrane et filigrane par lots

Deux scripts pour le Gimp

Exemple

image avec filigranes traitée par le script-fu 'watermark it'

Image agrandie

Description

"Filigrane" (Watermark-it en anglais) est un script-fu pour le Gimp. Il ajoute une image ou un texte en filigrane à une photo digitale. Un filigrane peut être placé au centre et/ou dans un des 4 coins de la photo.

Pour ajouter des filigranes à une seule photo, il vous faut le script 'Watermark-it'. Pour ajouter des filigranes à de nombreuses photos en traitement par lots, il vous faut les 2 scripts 'Watremark-it' et 'Watermark-batch'.

Le champ 'Image filigrane' doit contenir un chemin valide vers une image existante, si vous placez une image filigrane à l'une des 5 positions. Si le chemin n'est pas valide, vous aurez un message d'erreur. Si vous ne placez que des filigranes textes (et pas de filigrane image), le chemin n'a pas besoin d'être valide.

Une marge en x (abscisse) et en y (ordonnée) peut être spécifiée pour les filigranes en coin. La marge n'a pas d'influence pour le filigrane central.

Les facteurs les plus importants pour l'aspect final des filigranes sont l'opacité de l'image, l'opacité du texte, l'opacité du périmètre du texte et la couleur des caractères. La couleur des caractères est importante, même lors du choix 'sans couleur'. Dans le cas du choix 'sans couleur', la teinte (hue) n'a pas d'effet, mais la saturation et la valeur ont une influence sur le résultat. C'est pourquoi je recommande de choisir la couleur en HSV (hue, saturation, value) plutôt qu'en RGB (rouge, vert, bleu).

Faut-il souligner que si vous conservez les réglages par défaut, à savoir 'Pas de filigrane' pour toutes les 5 positions, le script ne fera tout simplement... rien !

Le script 'Watermark-batch' comporte 2 champs de plus à remplir que le script 'Watermark-it'. Les champs additionnels sont le chemin vers les images sources (auquelles les filigranes seront appliqués) et le chemin vers les images destination (ou les images avec filigranes produites seront sauvegardées). Les 2 chemins doivent être valides bien sûr.

Les scripts ont été testés avec le Gimp 2.4.2 sous Linux Ubuntu 7.10 Gutsy Gibbon.

Versions

Watermark-it
2007.11.12 : Version 1.00

Watermark-batch
2007.11.12 : Version 1.00 pour Gimp 2.4.0
2008.06.13 : Version 1.01 pour Gimp 2.4.2, une conversion de variable, qui n'était pas nécessaire auparavant, a dû être rajoutée.
2008.08.06 : Version 1.02 pour Gimp 2.4.5, nouvelle boucle, car 2.4.5 n'aime pas l'ancienne. La version fonctionne correctement avec Gimp 2.4.5 sous Ubuntu, mais il semblerait qu'il y ait un problème sous Windoze, du moins dans certains cas. Plus d'infos dès que disponibles.

Téléchargement (Download):

Cliquez dans les cadres bleus ci-dessous dans lesquels se trouve les listings des 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 du haut sous le nom watermark-it-f.scm
Sauvegardez le script du bas sous le nom watermark-batch-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 watermark-it-f.scm et facultativement watermark-batch-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 watermark-it-f.scm peut être lancé à partir du menu Filtres / Décor / Filigranes...
Le script watermark-batch-f.scm peut être lancé à partir du menu Exts / Batch / Filigranes par lots...

Script-fu watermark-it-f.scm pour le Gimp

Le script pour appliquer des filigranes à une photo.

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; SCRIPT-FU-WATERMARK-IT
; version 1.00  2007.11.12 for Gimp 2.4 / french
; Copyright (c) 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 (onewatermark 
img mainlayer wmposition floatinglayer textlayer textbglayer ximg yimg xtext ytext xtextbg ytextbg opai opat opatb wmtext wmfont wmfontsize wmemboss wmnocolor textbgwid textbghei)
  ;---1=TOP-LEFT---;---2=TOP-RIGHT---;---3=BOTTOM-LEFT---;---4=BOTTOM-RIGHT---;---5=CENTER---
  ;---0=none---;---1=img---;---2=text---
  (if (= wmposition 1)
    (begin 
      (set! floatinglayer (car (gimp-edit-paste mainlayer TRUE)))
      (gimp-layer-set-offsets floatinglayer ximg yimg)
      (gimp-layer-set-mode floatinglayer VALUE-MODE)
      (gimp-layer-set-opacity floatinglayer opai)
      (gimp-floating-sel-anchor floatinglayer)
    )
  )
  (if (= wmposition 2)
    (begin
      (if (> opatb 1)
        (begin
          (set! textbglayer (car (gimp-layer-new img textbgwid textbghei 1 "textbglayer" opatb NORMAL-MODE)))
          (gimp-image-add-layer img textbglayer 0)
          (gimp-layer-set-offsets textbglayer xtextbg ytextbg)
          (gimp-edit-fill textbglayer 0)
          (gimp-invert textbglayer)
          (if (= wmnocolor 1) (gimp-layer-set-mode textbglayer VALUE-MODE))
        )
      )
      (set! textlayer (car (gimp-text-fontname img -1 xtext ytext wmtext -1 TRUE wmfontsize 0 wmfont)))
      (if (= wmemboss 1) (plug-in-bump-map 1 img textlayer textlayer 135 30 3 0 0 0 0 1 0 0))
      (if (= wmnocolor 1) (gimp-layer-set-mode textlayer VALUE-MODE))
      (gimp-layer-set-opacity textlayer opat)
    )
  )
)

(define (script-fu-watermark-it 
aimg adraw wmfile xmargini ymargini opai wmtext xmargint ymargint opat opatb wmfont wmfontsize wmfontcolor wmnocolor wmemboss toplef toprig botlef botrig centered)
  (let* 
    (
      (flatten 1)
      (fontheifac 1.1)
      (fontheifacbg 1.2)
      (old-fg (car (gimp-palette-get-foreground)))
      (img (car (gimp-drawable-get-image adraw)))
      (wid (car (gimp-image-width img)))
      (hei (car (gimp-image-height img)))

(imgused (if (or (= toplef 1) (or (= toprig 1) (or (= botlef 1) (or (= botrig 1) (= centered 1))))) 1 0))
      (dirs (strbreakup wmfile "/"))
      (depthofpath (length dirs))
      (wmfilename (nth (- depthofpath 1) dirs))
      (lenfullname (string-length wmfile))
      (lenfilename (string-length wmfilename))
      (wmpathname (substring wmfile 0 (- lenfullname lenfilename)))

(wmimage (if (= imgused 1) (car (gimp-file-load RUN-NONINTERACTIVE wmfile wmfilename)) 0))
      (wmdrawable (if (= imgused 1) (car (gimp-image-get-active-layer wmimage)) 0))
      (copied (if (= imgused 1) (gimp-edit-copy wmdrawable) 0))
      (imgwid (if (= imgused 1) (car (gimp-image-width wmimage)) 0))
      (imghei (if (= imgused 1) (car (gimp-image-height wmimage)) 0))
      (ximg1 xmargini)
      (yimg1 ymargini)
      (ximg2 (- wid (+ xmargini imgwid)))
      (yimg2 ymargini)
      (ximg3 xmargini)
      (yimg3 (- hei (+ ymargini imghei)))
      (ximg4 (- wid (+ xmargini imgwid)))
      (yimg4 (- hei (+ ymargini imghei)))
      (ximg5 (/ (- wid imgwid) 2))
      (yimg5 (/ (- hei imghei) 2))

(textwid (car (gimp-text-get-extents-fontname wmtext wmfontsize 0 wmfont)))
      (xtext1 xmargint)
      (ytext1 (- ymargint (* wmfontsize 0.1)))
      (xtext2 (- wid (+ xmargint textwid)))
      (ytext2 (- ymargint (* wmfontsize 0.1)))
      (xtext3 xmargint)
      (ytext3 (- hei (+ ymargint (* wmfontsize fontheifac))))
      (xtext4 (- wid (+ xmargint textwid)))
      (ytext4 (- hei (+ ymargint (* wmfontsize fontheifac))))
      (xtext5 (/ (- wid textwid) 2))
      (ytext5 (/ (- hei (* wmfontsize fontheifac)) 2))
      (textbgwidpadding (* wmfontsize (- fontheifacbg fontheifac)))
      (textbgwid (+ textwid textbgwidpadding))
      (textbghei (* wmfontsize fontheifacbg))

(xtextbg1 (- xtext1 (/ textbgwidpadding 2)))
      (ytextbg1 (- ytext1 textbgwidpadding))
      (xtextbg2 (- xtext2 (/ textbgwidpadding 2)))
      (ytextbg2 (- ytext2 textbgwidpadding))
      (xtextbg3 (- xtext3 (/ textbgwidpadding 2)))
      (ytextbg3 (- ytext3 textbgwidpadding))
      (xtextbg4 (- xtext4 (/ textbgwidpadding 2)))
      (ytextbg4 (- ytext4 textbgwidpadding))
      (xtextbg5 (- xtext5 (/ textbgwidpadding 2)))
      (ytextbg5 (- ytext5 textbgwidpadding))

(textlayer1 0)
      (textlayer2 0)
      (textlayer3 0)
      (textlayer4 0)
      (textlayer5 0)

(textbglayer1 0)
      (textbglayer2 0)
      (textbglayer3 0)
      (textbglayer4 0)
      (textbglayer5 0)

(floatinglayer1 0)
      (floatinglayer2 0)
      (floatinglayer3 0)
      (floatinglayer4 0)
      (floatinglayer5 0)
    )

(gimp-context-push)
    (gimp-image-undo-group-start img)
    (gimp-palette-set-foreground wmfontcolor)

;---1=TOP-LEFT---
    (onewatermark 
     img adraw toplef floatinglayer1 textlayer1 textbglayer1 ximg1 yimg1 xtext1 ytext1 xtextbg1 ytextbg1 opai opat opatb wmtext wmfont wmfontsize wmemboss wmnocolor textbgwid textbghei)

;---2=TOP-RIGHT---
    (onewatermark 
     img adraw toprig floatinglayer2 textlayer2 textbglayer2 ximg2 yimg2 xtext2 ytext2 xtextbg2 ytextbg2 opai opat opatb wmtext wmfont wmfontsize wmemboss wmnocolor textbgwid textbghei)

;---3=BOTTOM-LEFT---
    (onewatermark 
     img adraw botlef floatinglayer3 textlayer3 textbglayer3 ximg3 yimg3 xtext3 ytext3 xtextbg3 ytextbg3 opai opat opatb wmtext wmfont wmfontsize wmemboss wmnocolor textbgwid textbghei)

;---4=BOTTOM-RIGHT---
    (onewatermark 
     img adraw botrig floatinglayer4 textlayer4 textbglayer4 ximg4 yimg4 xtext4 ytext4 xtextbg4 ytextbg4 opai opat opatb wmtext wmfont wmfontsize wmemboss wmnocolor textbgwid textbghei)

;---5=CENTER---
    (onewatermark 
     img adraw centered floatinglayer5 textlayer5 textbglayer5 ximg5 yimg5 xtext5 ytext5 xtextbg5 ytextbg5 opai opat opatb wmtext wmfont wmfontsize wmemboss wmnocolor textbgwid textbghei)

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

(gimp-palette-set-foreground old-fg)
    (gimp-image-undo-group-end img)
    (gimp-context-pop)
  )
)

(script-fu-register 
  "script-fu-watermark-it"
  "<Image>/Filters/Decor/Filigrane..."
  "Applique une image et/ou un texte en filigrane au centre et/ou dans un coin d'une photo."
  "Tharsice Demand <td-e.com>"
  "Tharsice Demand"
  "2007.11.12"
  "RGB RGBA GRAY GRAYA"
  SF-IMAGE       "Image"              0
  SF-DRAWABLE    "Drawable"           0
  SF-STRING      "Image filigrane--------------" "/home/~username/Pictures/wm/c104.png"
  SF-ADJUSTMENT  "Marge X image"      '(10 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Marge Y image"      '(10 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Opacite image"      '(60 1 100 1 10 0 1)
  SF-STRING      "Texte filigrane------------------" "(c)2007 Nom de l'auteur"
  SF-ADJUSTMENT  "Marge X texte"      '(20 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Marge Y texte"      '(20 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Opacite texte"      '(90 1 100 1 10 0 1)
  SF-ADJUSTMENT  "Opacite perimetre texte" '(40 0 100 1 10 0 1)
  SF-FONT        "Police caractere"        "FreeSans Bold"
  SF-ADJUSTMENT  "Hauteur police (pixels)" '(20 6 1000 1 10 0 1)
  SF-COLOR       "Couleur police"          '(255 208 128)
  SF-TOGGLE      "Sans couleur c.a.d. eclaircir ou assombrir image" FALSE
  SF-TOGGLE      "Texte en relief"         TRUE
  SF-OPTION      "EN HAUT A GAUCHE" '("Pas de filigrane" "Filigrane image" "Filigrane texte")
  SF-OPTION      "EN HAUT A DROITE" '("Pas de filigrane" "Filigrane image" "Filigrane texte")
  SF-OPTION      "EN BAS A GAUCHE"  '("Pas de filigrane" "Filigrane image" "Filigrane texte")
  SF-OPTION      "EN BAS A DROITE"  '("Pas de filigrane" "Filigrane image" "Filigrane texte")
  SF-OPTION      "AU CENTRE"        '("Pas de filigrane" "Filigrane image" "Filigrane texte")
)

Script-fu watermark-batch-f.scm pour le Gimp

Le script pour appliquer des filigranes à de nombreuses photos en traitements par lots.
Pour utiliser 'Watermark-batch', le script 'Watermark-it' doit être installé aussi.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; SCRIPT-FU-WATERMARK-BATCH
; Copyright (c) 2007-2008 Tharsice Demand <www.td-e.com>
; version 1.00  2007.11.12 for Gimp 2.4.0 / french
; version 1.01  2008.06.13 for Gimp 2.4.2  a variable conversion is necessary, which wasn't b4
; version 1.02  2008.06.26 for Gimp 2.4.5  new while loop since 2.4.5 does not like the old one
;
;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-watermark-batch 
srcpath destpath wmfile xmargini ymargini opai wmtext xmargint ymargint opat opatb wmfont wmfontsize wmfontcolor wmnocolor wmemboss toplef toprig botlef botrig centered)
  (let* 
    (
      (flatten 1)
      (filepattern "*.jpg")
      (pathpattern (string-append srcpath filepattern))
      (filelist (cadr (file-glob pathpattern 1)))
    )
    (while (not (null? filelist))
      (let* 
        (
          (filename (car filelist))
          (dirs (strbreakup filename "/"))
          (depthofpath (length dirs))
          (shortfilename (nth (- depthofpath 1) dirs))
          (destfilename (string-append destpath shortfilename))

(imagelist (gimp-file-load RUN-NONINTERACTIVE filename filename))
          (image (if (not (null? imagelist)) (car imagelist) 0))
          (drawablelist (gimp-image-get-active-layer image))
          (drawable (if (not (null? drawablelist)) (car drawablelist) 0))
        )

(if (> drawable 0)
          (begin
            (script-fu-watermark-it 
             image drawable wmfile xmargini ymargini opai wmtext xmargint ymargint opat opatb wmfont wmfontsize wmfontcolor wmnocolor wmemboss toplef toprig botlef botrig centered)
            (set! drawable (car (gimp-image-get-active-layer image)))
            (gimp-file-save RUN-NONINTERACTIVE image drawable destfilename shortfilename)
            (gimp-image-delete image)
          )
        )
      )
      (set! filelist (cdr filelist))
    )
  )
)

(script-fu-register 
  "script-fu-watermark-batch"
  "<Toolbox>/Xtns/Batch/Filigrane par lots..."
  "Traitement par lots des fichiers jpg qui se trouvent au chemin source au moyen du script filigrane (Watermark-it). Sauvegarde des resultats au chemin destination."
  "T. Demand <td-e.com>"
  "T. Demand"
  "2007.11.12"
  ""
  SF-STRING      "Chemin source"        "/home/~username/Pictures/source/"
  SF-STRING      "Chemin destination"   "/home/~username/Pictures/dest/"
  SF-STRING      "Image filigrane----------------" "/home/~username/Pictures/wm/c104.png"
  SF-ADJUSTMENT  "Marge X image"      '(10 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Marge Y image"      '(10 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Opacite image"      '(60 1 100 1 10 0 1)
  SF-STRING      "Texte filigrane------------------" "(c)2007 Nom de l'auteur"
  SF-ADJUSTMENT  "Marge X texte"      '(20 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Marge Y texte"      '(20 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Opacite texte"      '(90 1 100 1 10 0 1)
  SF-ADJUSTMENT  "Opacite perimetre texte" '(40 0 100 1 10 0 1)
  SF-FONT        "Police caractere"        "FreeSans Bold"
  SF-ADJUSTMENT  "Hauteur police (pixels)" '(20 6 1000 1 10 0 1)
  SF-COLOR       "Couleur police"          '(255 208 128)
  SF-TOGGLE      "Sans couleur c.a.d. eclaircir ou assombrir image" FALSE
  SF-TOGGLE      "Texte en relief"         TRUE
  SF-OPTION      "EN HAUT A GAUCHE" '("Pas de filigrane" "Filigrane image" "Filigrane texte")
  SF-OPTION      "EN HAUT A DROITE" '("Pas de filigrane" "Filigrane image" "Filigrane texte")
  SF-OPTION      "EN BAS A GAUCHE"  '("Pas de filigrane" "Filigrane image" "Filigrane texte")
  SF-OPTION      "EN BAS A DROITE"  '("Pas de filigrane" "Filigrane image" "Filigrane texte")
  SF-OPTION      "AU CENTRE"        '("Pas de filigrane" "Filigrane image" "Filigrane texte")
)

Sponsoring

Si les scripts 'Watermark it' et 'Watermark Batch' vous sont utiles et vous voulez soutenir le développeur, vous pouvez

Licence

Le texte GNU general public license s'applique au script-fu watermark-it-f.scm et au script-fu watermark-batch-f.scm ci-dessus.

Image filigrane

Vous pouvez utiliser l'image ci-dessous comme filigrane. Créez un nouveau dossier appelé wm sous votre dossier d'images. Cliquez avec le bouton droit de la souris sur l'image ci-dessous et choisissez 'sauvegarder l'image sous...'. Sauvegardez l'image dans le dossier wm.

Un filigrane que vous pouvez utiliser pour appliquer des filigranes à vos photos

Si vous avez un logo et aimeriez en faire faire un filigrane (que vous pourrez appliquer à vos photos avec les scripts ci-dessus), je peux vous faire un filigrane à partir de votre logo à tarif préférentiel. Il vous suffit de me contacter via la page de contact.

Blog TD-e.com
Ajouter un commentaire

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