TD-e.com

Wasserzeichen und Wasserzeichen batch

Zwei Script-fu für den Gimp

Beispiel

Mit dem script-fu 'watermark it' bearbeitetes Bild mit Wasserzeichen

Bild vergrössern

Beschreibung

"Wasserzeichen" ist ein Script-fu für den Gimp. Mit diesem Skript kann man ein Bild-Wasserzeichen und/oder ein Text-Wasserzeichen auf ein digitales Foto setzen. Wasserzeichen können in die Mitte und/oder in eine Ecke des Fotos gesetzt werden.

Um Wasserzeichen auf ein einzelnes Foto zu setzen braucht man nur 'Watermark-it'. Um Wasserzeichen im Batchverfahren auf viele Fotos zu setzen, braucht man beide Skript 'Watermark-it' and 'Watermark-batch'.

Das Feld 'Wasserzeichen Bild' muss einen gültigen Pfad zu einem Wasserzeichen-Bild enthalten, wenn Sie ein Bild-Wasserzeichen setzen wollen. Sonst erscheint eine Fehlermeldung. Wenn Sie jedoch nur Text-Wasserzeichen setzen wollen (und keine Bild-Wasserzeichen), dann muss der Pfad nicht unbedingt gültig sein.

Ein Randabstand X und ein Randabstand Y kann für Wasserzeichen die sich in einer Ecke befinden definiert werden. Der Randabstand hat keinen Einfluss auf Wasserzeichen die sich in der Mitte befinden.

Der wichtigste Einfluss auf das Resultat haben die Werte 'Undurchsichtigkeit Bild', 'Undurchsichtigkeit Text', 'Undurchsichtigkeit Text Umfang' und 'Zeichen Farbe'. Die Zeichen Farbe hat auch dann einen Einfluss wenn Sie 'farblos' wählen. Bei der Wahl 'farblos', hat der Farbton (hue) keinen Einfluss, aber die Sättigung (saturation) und der Wert (value) beeinflussen das Resultat. Deshalb empfehle ich bei der Farbwahl in der Form HSV (hue, saturation, value) und nicht in der Form RGB (rot, grün, blau) zu denken.

Vielleicht ist es auch noch wichtig zu unterstreichen dass wenn Sie alle fünf Positionen auf 'Kein Wasserzeichen' stehen lassen, das Skript ganz einfach... gar nichts tut !

'Watermark-batch' hat zwei Felder mehr als 'Watermark-it'. Dies sind die Felder 'Quellpfad' und 'Zielpfad' die natürlich gültig sein müssen.

Beide Skripts wurden mit dem Gimp 2.4.2 unter Linux Ubuntu 7.10 Gutsy Gibbon getestet.

Versionen

Watermark-it
2007.11.12 : Version 1.00

Watermark-batch
2007.11.12 : Version 1.00 für Gimp 2.4.0
2008.06.13 : Version 1.01 für Gimp 2.4.2, eine Variable Umwandlung ist nun notwendig, die zuvor nicht notwendig war.
2008.08.06 : Version 1.02 für Gimp 2.4.5, neue Schlaufe, da 2.4.5 die alte nicht mag. Die Version funktionniert korrekt mit Gimp 2.4.5 under Ubuntu, aber es scheint dass es mit Windstoss ein Problem geben könnte, zumindest in bestimmten Fällen. Mehr Infos sobald erhältlich.

Herunterladen (Download):

In den blauen Rahmen indem das Skript aufgelistet ist, hineinklicken.
Control-A tippen um das komplete Skript auszuwählen.
Control-C tippen um den Inhalt des Skripts in die Zwischenablage zu kopieren.
In einem Text-Editor (gedit, Kate, Aedix, Notepad, usw) Control-V tippen um das Skript einzufügen.

Die obere Datei als watermark-it-d.scm abspeichern.
Die untere Datei als watermark-batch-d.scm abspeichern.

Bemerkung: Deutsche Tastaturen nennen die Weltweit genannte Control Taste nicht Control-Taste sondern Steuerung-Taste (bababobo).

Linux Ubuntu oder andere Gnome:   benutzen Sie den Text editor gedit oder bluefish

Linux Kubuntu oder andere KDE:   benutzen Sie den Text editor Kate oder Quanta

Mac OS X:   benutzen Sie den Text editor Smultron

Windstoss:   benutzen Sie den Text editor Aedix (gratis), oder Notepad (aber Achtung bei der Dateiendung .txt die unerwünscht ist, die Scriptdatei muss die Dateiendung .scm und nicht .scm.txt haben)

Andere Text Editoren sind auch tauglich, aber Text Bearbeitungsprogramme sind es nicht. Benutzen Sie kein Word, OpenOffice oder ähnliche.

Installation:

Die Datei watermark-it-d.scm und fakultativ die Datei watermark-batch-d.scm in einen der Ordner (Verzeichnisse) die in den Gimp Einstellungen unter Ordner / Skripte eingetragen sind, kopieren.

Linux Ubuntu und viele andere:
  /home/[username]/.gimp-2.n/scripts   oder   /usr/share/gimp/2.0/scripts

Linux SuSE:
  /home/[username]/.gimp-2.n/scripts   oder   /opt/gnome/share/gimp/2.0/scripts

Windstoss:
  C:\.gimp-2.n\scripts   oder   C:\program-files\gimp2.n\share\gimp\scripts

Im Menü Extras (im Gimp) Extras / Skript-Fu / Skripte auffrischen anwählen. Das war's.

Das Skript watermark-it-d.scm kann in dem Menü Filter / Dekoration / Wasserzeichen... aufgerufen werden.
Das Skript watermark-batch-d.scm kann in dem Menü Extras / Batch / Wasserzeichen Batch... aufgerufen werden.

Skript-fu watermark-it-d.scm für den Gimp

Um einzelne Fotos mit Wasserzeichen zu versehen.

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 / german
; 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/Wasserzeichen..."
  "Setzt ein Bild Wasserzeichen und/oder ein Text Wasserzeichen in die Mitte und/oder in eine Ecke eines digitalen Fotos."
  "Tharsice Demand <td-e.com>"
  "Tharsice Demand"
  "2007.11.12"
  "RGB RGBA GRAY GRAYA"
  SF-IMAGE       "Image"              0
  SF-DRAWABLE    "Drawable"           0
  SF-STRING      "Wasserzeichen Bild--------------" "/home/~username/Pictures/wm/c104.png"
  SF-ADJUSTMENT  "Randabstand X Bild"      '(10 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Randabstand Y Bild"      '(10 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Undurchsichtigkeit Bild" '(60 1 100 1 10 0 1)
  SF-STRING      "Wasserzeichen Text------------------" "(c)2007 Name des Autors"
  SF-ADJUSTMENT  "Randabstand X Text"      '(20 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Randabstand Y Text"      '(20 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Undurchsichtigkeit Text" '(90 1 100 1 10 0 1)
  SF-ADJUSTMENT  "Undurchsichtigkeit Text Umfang" '(40 0 100 1 10 0 1)
  SF-FONT        "Schriftzeichen"          "FreeSans Bold"
  SF-ADJUSTMENT  "Schrifthoehe (Pixel)"    '(20 6 1000 1 10 0 1)
  SF-COLOR       "Schriftfarbe"            '(255 208 128)
  SF-TOGGLE      "Farblos d.h Foto erhellen oder verdunkeln" FALSE
  SF-TOGGLE      "Relieftext"              TRUE
  SF-OPTION      "OBEN LINKS"    '("Kein Wasserzeichen" "Bild Wasserzeichen" "Text Wasserzeichen")
  SF-OPTION      "OBEN RECHTS"   '("Kein Wasserzeichen" "Bild Wasserzeichen" "Text Wasserzeichen")
  SF-OPTION      "UNTEN LINKS"   '("Kein Wasserzeichen" "Bild Wasserzeichen" "Text Wasserzeichen")
  SF-OPTION      "UNTEN RECHTS"  '("Kein Wasserzeichen" "Bild Wasserzeichen" "Text Wasserzeichen")
  SF-OPTION      "MITTE"         '("Kein Wasserzeichen" "Bild Wasserzeichen" "Text Wasserzeichen")
)

Script-fu watermark-batch-d.scm für den Gimp

Um viele Fotos in einer Batch Verarbeitung mit Wasserzeichen zu versehen.
Um 'Watermark-batch' zu benutzen, muss 'Watermark-it' auch installiert sein.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; 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 / german
; 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/Wasserzeichen Batch..."
  "Batch Bearbeitung mit dem Skript 'Wasserzeichen' (Watermark-it) der jpg Dateien die sich im Quellpfad befinden. Die bearbeiteten Dateien werden im Zielpfad abgespeichert."
  "T. Demand <td-e.com>"
  "T. Demand"
  "2007.11.12"
  ""
  SF-STRING      "Quellpfad"               "/home/~username/Pictures/source/"
  SF-STRING      "Zielpfad"                "/home/~username/Pictures/dest/"
  SF-STRING      "Wasserzeichen Bild--------------" "/home/~username/Pictures/wm/c104.png"
  SF-ADJUSTMENT  "Randabstand X Bild"      '(10 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Randabstand Y Bild"      '(10 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Undurchsichtigkeit Bild" '(60 1 100 1 10 0 1)
  SF-STRING      "Wasserzeichen Text------------------" "(c)2007 Name des Autors"
  SF-ADJUSTMENT  "Randabstand X Text"      '(20 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Randabstand Y Text"      '(20 0 250 1 10 0 1)
  SF-ADJUSTMENT  "Undurchsichtigkeit Text" '(90 1 100 1 10 0 1)
  SF-ADJUSTMENT  "Undurchsichtigkeit Text Umfang" '(40 0 100 1 10 0 1)
  SF-FONT        "Schriftzeichen"          "FreeSans Bold"
  SF-ADJUSTMENT  "Schrifthoehe (Pixel)"    '(20 6 1000 1 10 0 1)
  SF-COLOR       "Schriftfarbe"            '(255 208 128)
  SF-TOGGLE      "Farblos d.h Foto erhellen oder verdunkeln" FALSE
  SF-TOGGLE      "Relieftext"              TRUE
  SF-OPTION      "OBEN LINKS"    '("Kein Wasserzeichen" "Bild Wasserzeichen" "Text Wasserzeichen")
  SF-OPTION      "OBEN RECHTS"   '("Kein Wasserzeichen" "Bild Wasserzeichen" "Text Wasserzeichen")
  SF-OPTION      "UNTEN LINKS"   '("Kein Wasserzeichen" "Bild Wasserzeichen" "Text Wasserzeichen")
  SF-OPTION      "UNTEN RECHTS"  '("Kein Wasserzeichen" "Bild Wasserzeichen" "Text Wasserzeichen")
  SF-OPTION      "MITTE"         '("Kein Wasserzeichen" "Bild Wasserzeichen" "Text Wasserzeichen")
)

Sponsoring

Wenn Ihnen die Skripts 'Watermark it' und 'Watermark Batch' nützlich sind und Sie wollen den Entwickler unterstützen, dann können Sie eine

Lizenz

Für beide Skript-Fu watermark-it-d.scm und watermark-batch-d.scm gilt die Lizenz GNU general public license. Diese Skript sind eine eigene Entwicklung des Webmasters dieser website (td-e.com). Nur hier gibt es die Originalversion. Da unter GPL veröffentlicht, können eventuell von dritten veränderte Varianten auf anderen Websites gefunden werden.

Wasserzeichen Bild

Sie können untenstehendes Wasserzeichen Bild benutzen. Legen Sie einen Ordner 'wm' unter Ihrem Bilder Ordner an. Klicken Sie mit der rechten Maustaste auf das Bild und wählen Sie 'Bild speichern unter...'. Speichern Sie das Bild im Ordner 'wm'

Wenn Sie ein Logo haben und daraus gerne ein Wasserzeichen machen würden, so kann ich das gegen eine kleine Bezahlung für Sie machen. Sie müssen sich nur über die Kontaktseite melden.

Blog TD-e.com
Kommentar hinzufügen

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