TD-e.com

Flatternde Fahne

Ein Skript-fu für den Gimp

Beispiel

Original Bild das mit dem Script 'Flatternde Fahne' bearbeitet wurde

Original Fahnen Bild
Mehr Fahnen

Flatternde Fahne

Beschreibung

"Flatternde Fahne" ist ein Skript-fu für den Gimp. Es erzeugt ein animiertes Bild einer im Wind flatternden Fahne indem es Wind auf die Fahne bläst. Genauer gesagt, es erzeugt eine bestimmte Anzahl Ebenen die als animierte gif Datei abgespeichert werden können. Es ist empfohlen 8 Ebenen zu erzeugen und Originalbilder mit einer Breite unter 200 Pixel zu verwenden. Das Skript kann auch grössere Bilder bearbeiten, jedoch können die erzeugten gif Animationen sehr gross werden und wären deshalb als Element einer Web Seite ungeeignet.

Das Originalbild sollte ein RGB (24 bit Tiefe), ein RGBA (32 bit Tiefe), ein GRAY, GRAYA, INDEXED oder INDEXEDA sein. Das heisst dass *.png Dateien, *.gif oder *.jpg Dateien benutzt werden können.

Eingangsparameter

- Eine tiefe Welligkeit erzeugt eine ziemlich glatte Fahne, eine hohe Welligkeit erzeugt eine sehr wellige Fahne.
- Der Parameter Wind (Wind-Stärke) beeinflusst die Amplitude (Ausschlagweite) der Bewegung.
- Der Form Faktor kann eine Zufallszahl oder eine bestimmte Zahl sein. Einige Form Faktoren erzeugen schönere Animationen als andere. Dunkle senkrechte Linien können durch einige Form Faktoren erzeugt werden, meiden Sie solche Werte. Empfohlene Werte sind unter anderem: 5, 14, 134, 199. Wenn Sie einen besonders schönen Form Faktor heraus finden, geben Sie mir Bitte Bescheid.
- Die Check Box "unregelmässige Form" soll nur bei Fahnen die nicht rechteckig oder quadratisch sind, angekreuzt werden wie zum Beispiel die Fahne von Nepal. Dadurch werden weisse Flächen die den Rand erreichen als durchsichtig behandelt. Eine solche Behandlung ist aber bei regelmässigen Fahnen wie Canada, USA, Mexico, Frankreich, UK, NL, Luxemburg, Italien, usw... die weisse Felder beinhalten die den Rand erreichen nicht erwünscht. Also bei den meisten Fahnen, kein Häckchen in "unregelmässige Form" setzen.

Abspeichern als gif Datei

Wenn die erzeugten Ebenen als *.gif Datei abgespeichert werden erscheinen 2 Dialog Boxen. In der ersten Dialog Box wählen Sie:
- Als Animation speichern
In der zweiten Dialog Box wählen Sie:
- Unendliche Schleife
- Pause zwischen Frames = 100 ms.
- Frame-Übergang = ein Frame pro Ebene

Kommentar

Dieses Skript soll das Ziel haben parametrierbarer und mehr aufs Detail bedacht als ähnliche Skripts zu sein. Skripts mit minimalen Algorithmen produzieren animierte Fahnen die wie fliegende Teppiche aussehen, da sie in allen Teilen ihrer Fläche eine Bewegung aufweisen und dadurch am Mast herauf und herunter zu rutschen scheinen. Dieses Skript sorgt dafür das die Fahne in der Nähe des Mastes ruhig bleibt.
Der paramtrierbare Wind (Wind-Stärke) ist auch eine Eigenschaft die bei ähnlichen Skripts meistens nicht vorhanden ist.
Das Experimentieren mit dem Form Faktor mag Ihnen gefallen oder auch nicht. Wenn nicht dann bleiben Sie einfach beim Default Wert 5 und vergessen Sie ihn.

Das Skript wurde mit dem Gimp Version 2.2.9 unter Linux SuSE, mit dem Gimp Version 2.2.10 unter Windstoss und mit dem Gimp Version 2.2.13 unter Linux Ubuntu getestet.
Die Version 1.20 wurde mit dem Gimp 2.4.0 unter Linux Ubuntu 7.10 Gutsy Gibbon getestet.
Die Version 1.22 wurde mit dem Gimp 2.4.5 unter Linux Ubuntu 8.04 Hardy Heron getestet.
Die Version 1.31 wurde mit dem Gimp 2.6.8 unter Linux Ubuntu 10.04 Lucid Lynx getestet.

Version:

Version 1.00 am 2006.08.15 veröffentlicht
Version 1.10 am 2007.09.16 veröffentlicht
Die Dicke des Mastes kann nun eingestellt werden, der Mast is nun eine Option.
Ein Glätten des Rucks bei der Wiederholung der Bilder ist eingebaut worden.
Version 1.20 am 2007.10.25 : Die Version 1.20 ist an den Gimp 2.4 angepasst worden. Sie befindet sich jetzt im Menü Filter.
Version 1.21 am 2008.04.05 : Die Benutzung des Skripts mit indizierten Bilder die kein Grau in ihrer Palette haben, konnte unerwartete Ergebnisse bringen. Der Fehler wurde korrigiert.
Version 1.22 am 2008.11.29 : Die Kante der Fahne bei durchsichtigem Hintergrund wurde verbessert. Danke Peter PKHG aus den Niederlanden für den Vorschlag und den Code.
Version 1.31 am 2012.01.12 : Die Farbe die transparent sein wird kann gewählt werden. Die Masthöhe kann eingestellt werden.

Herunterladen (Download):

Keine Download Taste, das Script-Fu fluttering-flag-d.scm ist direkt hier unten in dem hellblauen Feld, bereit zum kopieren und abspeichern.

⇩ Das Skript ist hier ⇩

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; SCRIPT-FU-FLUTTERING-FLAG animates a flat image of a flag by blowing wind on it
; Copyright (c) 2006-2008  Tharsice Demand <www.td-e.com>
; version 1.00  2006.08.15  german
; version 1.10  2007.09.16  replaced set! with define for future compatibility,
;                           mast now optional, mast thickness can be adjusted,
;                           smoothing the hitch of the repetition of the images
; version 1.20  2007.10.25, migration to Gimp 2.4
; version 1.21  2008.04.05  indexed pictures without grey in their palette did not produce correct results, bug corrected
; version 1.22  2008.11.29  improvement of the flag edges when the bg is transparent, thx Peter PKHG from NL
; version 1.30  2011.10.18  A color can be selected for the parts of the flag that should became transparent and/or show the sky
; version 1.31  2012.01.12  The height of the mast can be adjusted
;
;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 (addReplaceToName image)
  (let* (
	 (layerNr 0)
	 (tmp 0)
	 (teller 0)
	 (layerName "vlagPKHG ")
	 (flagLayersVec (cadr (gimp-image-get-layers image)))
	 (nrOfLayers (vector-length flagLayersVec))
	 )    
    (while (< teller nrOfLayers) 
      (set! layerNr (vector-ref flagLayersVec teller))
      (set! tmp (string-append "vlagNEU" (number->string teller) "(replace)"))
      (gimp-drawable-set-name layerNr tmp)
      
      (set! teller  (+ teller 1))
      )    
    )
  )

(define (script-fu-fluttering-flag image flatflag layertotal ripple windstrength formf mthickness mheight hitch skycolor mastcolorl mastcolorr transcolor formrand skytrans)
  (let*
    (
      (old-fg (car (gimp-context-get-foreground)))
      (old-bg (car (gimp-context-get-background)))
      (owidth (car (gimp-image-width image)))
      (oheight (car (gimp-image-height image)))
      (borderx (/ owidth 10))
      (bordery borderx)
      (mastlef (* borderx (- 0.80 (/ (* 0.60 mthickness) 100))))
      (mastrig (* borderx (+ 0.80 (/ (* 0.60 mthickness) 100))))
      (width (+ owidth (* 2 borderx)))
      (mastheight (/ (* oheight mheight) 10))
      (height (+ mastheight (* 2 bordery)))
      (snx (/ ripple 10)) ;5..150 default to 25 -> 0.5..15 defaults to 2.5
      (sny 0.1) ;~ 0.1
      (flutterx (/ owidth (- layertotal 1))) ;dependent on num of layers
      (fluttery (/ oheight (- layertotal 1)))
      (layerindex 0)
      (formseed (if (= formrand TRUE) (rand 4294967295) (* formf 10000000))) ;(2^32-1 = 4 294 967 295)
      (fgcolormax hitch)
      (fgcolormin 0)
      (fgcolorval 0)
      (fgcolorvalar '(0 0 0))
      (attenmax (+ 0.40 (/ (* hitch 0.59) 255)))
      (attenmin 0.40)
      (attenval 0.40)
      ;---factors for smoothing the repetition---
      ; y = ax^2 + bx + c
      ; a = 4 (max - min) / layerindex^2  ; b= 4 (min -max) / layerindex  ; c= max
      ;
      ; attenuation
      ; max = 0.95  ; min = 0.40  ; a = 2.20 / layertotal^2 ;  b = - 2.20 / layertotal ;  c = 0.95
      ;
      ; foreground color
      ; max = 160  ; min = 0  ; a = 640 / layertotal^2 ;  b = - 640 / layertotal ;  c = 160
      ;
      (attena (/ (* 4 (- attenmax attenmin)) (* layertotal layertotal)))
      (attenb (/ (* 4 (- attenmin attenmax)) layertotal))
      (attenc attenmax)
      (fgcolora (/ (* 4 (- fgcolormax fgcolormin)) (* layertotal layertotal)))
      (fgcolorb (/ (* 4 (- fgcolormin fgcolormax)) layertotal))
      (fgcolorc fgcolormax)
    )
    (srand (realtime))
    (gimp-image-undo-group-start image)

(gimp-context-set-background '(255 255 255))
    (define flatflag1 (car (gimp-image-flatten image)))

;---if not an RGB, make one---
    (if (= (car (gimp-drawable-is-rgb flatflag1)) 0) (gimp-image-convert-rgb image))

;---add a 10% border---
    (gimp-image-resize image width height borderx bordery)
    (define borderlayer (car (gimp-layer-new image width height 1 "sky" 100 0)))
    (gimp-layer-add-alpha borderlayer)
    (gimp-context-set-foreground transcolor)
    (gimp-drawable-fill borderlayer 0)
    (gimp-image-add-layer image borderlayer 1)
    (gimp-context-set-background transcolor)
    (define flatflagf (car (gimp-image-flatten image)))

;(gimp-context-set-background '(255 255 255))
    ;(gimp-context-set-foreground '(0 0 0))

(if (= (car (gimp-selection-is-empty image)) 1) (gimp-selection-all image))
    (define flag-select (car (gimp-selection-save image)))
    (gimp-selection-none image)

;---make the added border transparent---
    (gimp-fuzzy-select flatflagf 1 1 10 0 FALSE FALSE 0.0 0)
    (gimp-layer-add-alpha flatflagf)
    (gimp-edit-clear flatflagf)
    (gimp-selection-none image)

;---draw the mast layer---
    (define mastlayer (car (gimp-layer-new image width height 1 "mast" 100 0)))
    (gimp-layer-add-alpha mastlayer)
    (gimp-drawable-fill mastlayer 3)
    (gimp-image-add-layer image mastlayer 0)

(gimp-context-set-foreground mastcolorl)
    (gimp-context-set-background mastcolorr)

(define (gen-mast-array borderx bordery width height mastlef mastrig)
      (let*
        ((mastarray (cons-array 10 'double)))
        (aset mastarray 0 mastlef)
        (aset mastarray 1 (* bordery 0.5))
        (aset mastarray 2 mastrig)
        (aset mastarray 3 (* bordery 0.5))
        (aset mastarray 4 mastrig)
        (aset mastarray 5 height)
        (aset mastarray 6 mastlef)
        (aset mastarray 7 height )
        (aset mastarray 8 mastlef)
        (aset mastarray 9 (* bordery 0.5))
        mastarray
      )
    )

(define mastsel (gen-mast-array borderx bordery width height mastlef mastrig))
    (gimp-free-select image
                      10
                      mastsel
                      CHANNEL-OP-REPLACE
                      0
                      0
                      0.0)
    (if (>= mthickness 10)
      (gimp-edit-blend
        mastlayer FG-BG-RGB-MODE NORMAL-MODE GRADIENT-LINEAR
        100 0 REPEAT-NONE FALSE FALSE
        0 0 FALSE
        mastlef (/ height 2) mastrig (/ height 2)
      )
    )
    (gimp-selection-none image)

;---draw the sky layer---
    (if (= skytrans TRUE)
      (begin
        (define skylayer (car (gimp-layer-new image width height 1 "sky" 0 0)))
        (gimp-layer-add-alpha skylayer)
      )
      (begin
        (define skylayer (car (gimp-layer-new image width height 1 "sky" 100 0)))
        (gimp-layer-add-alpha skylayer)
        (gimp-context-set-foreground skycolor)
        (gimp-drawable-fill skylayer 0)
      )
    )
    (gimp-image-add-layer image skylayer 0)

;---draw the flutter layer---
    (define flutterlayer (car (gimp-layer-new image width height 1 "flutter" 100 0)))
    (gimp-drawable-fill flutterlayer 3)
    (gimp-image-add-layer image flutterlayer 0)

(plug-in-solid-noise 1 image flutterlayer 1 0 formseed 1 snx sny)
    (plug-in-gauss 1 image flutterlayer 5 5 0)
    (plug-in-c-astretch 1 image flutterlayer)
    (gimp-selection-load flag-select)

(while (< layerindex layertotal)
      ;---stabilize flag at mast---
      (define fluttercopy (car (gimp-layer-copy flutterlayer 1)))
      (gimp-drawable-set-name fluttercopy "fluttercopy")
      (gimp-image-add-layer image fluttercopy -1)

(define stablemast (car (gimp-layer-new image width height 1 "stablemast" 100 0)))
      (gimp-image-add-layer image stablemast -1)
      (define stablemastmask (car (gimp-layer-create-mask stablemast 0)))
      (gimp-layer-add-mask stablemast stablemastmask)
      (gimp-context-set-foreground '(128 128 128))
      (gimp-drawable-fill stablemast 0)

;---smoothing the repetition---
      ; y = ax ^ 2 + bx + c
      (set! attenval   (+ (+ (* attena   (* layerindex layerindex)) (* attenb   layerindex)) attenc))
      (set! fgcolorval (+ (+ (* fgcolora (* layerindex layerindex)) (* fgcolorb layerindex)) fgcolorc))
      (set! fgcolorvalar (list fgcolorval fgcolorval fgcolorval))

(gimp-context-set-foreground fgcolorvalar)
      (gimp-context-set-background '(255 255 255))

(gimp-edit-blend
          stablemastmask FG-BG-RGB-MODE NORMAL-MODE GRADIENT-LINEAR
          100 0 REPEAT-NONE TRUE FALSE
          0 0 FALSE
          (* borderx 0.80) (/ height 2) (* width attenval) (/ height 2))
      (define fluttermodif (car (gimp-image-merge-down image stablemast 1)))
      (gimp-drawable-set-name fluttermodif "fluttermodif")

;---blow onto the flag---
      (define flagcopy (car (gimp-layer-copy flatflagf 1)))
      (gimp-image-add-layer image flagcopy -1)

(plug-in-bump-map 1 image flagcopy fluttermodif 135 45 10 0 0 0 0 1 0 2)
      (plug-in-displace 1 image flagcopy (/ (* owidth windstrength) 400) (/ (* oheight windstrength) 100) 1 1 fluttermodif fluttermodif 1)
      (gimp-image-remove-layer image fluttermodif)
      (gimp-drawable-offset flutterlayer 1 0 flutterx fluttery)

;---add the sky---
      (define skycopy (car (gimp-layer-copy skylayer 1)))
      (gimp-image-add-layer image skycopy -1)
      (gimp-image-lower-layer image skycopy)
      (gimp-image-merge-down image flagcopy 1)

;---add the mast---
      (define mastcopy (car (gimp-layer-copy mastlayer 1)))
      (gimp-image-add-layer image mastcopy -1)
      (gimp-image-merge-down image mastcopy 1)

(set! layerindex (+ layerindex 1))
    )

(gimp-image-remove-layer image mastlayer)
    (gimp-image-remove-layer image skylayer)
    (gimp-image-remove-layer image flutterlayer)
    (gimp-image-remove-layer image flatflagf)
    (gimp-context-set-foreground old-fg)
    (gimp-context-set-background old-bg)

(gimp-selection-none image)
    (gimp-image-remove-channel image flag-select)
    (gimp-image-convert-indexed image 0 0 255 0 0 "")
    ;---line below added in case of transparent sky---
    (if (= skytrans TRUE) (addReplaceToName image))
    (gimp-image-undo-group-end image)
    (gimp-displays-flush)
  )
)
(script-fu-register "script-fu-fluttering-flag"
                    "<Image>/Filters/Animation/Flatternde Fahne..."
                    "Erzeugt ein animiertes Bild einer im Wind flatternden Fahne
das aus einer bestimmten Anzahl Ebenen besteht
Beim Abspeichern als gif Datei, folgendes ankreuzen 
- Als Animation speichern 
- Unendliche Schleife
- Pause zwischen Frames = 100 ms. 
- Frame-Uebergang = ein Frame pro Ebene
Eine hohe Welligkeit erzeugt eine sehr wellige Fahne.
Der Parameter Wind-Staerke beeinflusst die Ausschlagweite der Bewegung.
Der Form Faktor kann eine Zufallszahl oder eine bestimmte Zahl sein.
Empfohlene Werte sind: 5, 14, 134, 199. "
                    "Tharsice Demand <td-e.com>"
                    "Tharsice Demand"
                    "2012.01.12"
                    "RGB RGBA GRAY GRAYA INDEXED INDEXEDA"
                    SF-IMAGE      "Image" 0
                    SF-DRAWABLE   "Drawable" 0
                    SF-ADJUSTMENT "Anzahl Ebenen"                      '(8 4 32 1 4 0 1)
                    SF-ADJUSTMENT "Welligkeit"                         '(30 5 150 1 5 0 1)
                    SF-ADJUSTMENT "Wind"                               '(5 1 9 1 2 0 1)
                    SF-ADJUSTMENT "Form Faktor"                        '(5 1 400 1 10 0 1)
                    SF-ADJUSTMENT "Mastdicke"                          '(60 5 100 1 10 0 1)
                    SF-ADJUSTMENT "Masthoehe Multiplikator 10=1x 20=2x "   '(10 10 100 1 10 0 1)
                    SF-ADJUSTMENT "Wiederholungsruck glaetten"         '(1 1 255 1 10 0 1)
                    SF-COLOR      "Himmelfarbe"                        '(128 170 255)
                    SF-COLOR      "Linke Farbe des Mast-Farbverlaufs"  '(255 240 176)
                    SF-COLOR      "Rechte Farbe des Mast-Farbverlaufs" '(80 48 16)
                    SF-COLOR      "Diese Farbe wird transparent sein"  '(76 19 76)
                    SF-TOGGLE     "Form Faktor oben ignorieren, statt dessen Zufallszahl erzeugen" FALSE
                    SF-TOGGLE     "Himmelfarbe oben ignorieren und Hintergrund durchsichtig erzeugen" FALSE
)

Hier oben in dem hellblauen Feld ist das komplette Script-Fu fluttering-flag-d.scm aufgelistet. Einfach kopieren und abspeichern.

In den hellblauen 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.
Als Datei fluttering-flag-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, Geany oder Bluefish

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

Mac OS X:   benutzen Sie den Text editor Smultron

Windstoss:   benutzen Sie den Text editor Aedix (gratis), Geany 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 LibreOffice, OpenOffice, Word oder ähnliche.

Installation:

Die Datei fluttering-flag-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ü Filter Filter / Skript-Fu / Auffrischen anwählen (Gimp 2.6) oder im Menü Xtns Xtns / Skript-Fu / Auffrischen anwählen (Gimp 2.4). Das war's.
Das Skript kann in dem Menü Filter / Animation / Flatternde Fahne... aufgerufen werden.

Tutorial

Ein Tutorial zur Anwendung des Skripts 'Flatternde Fahne' ist vorhanden.

Sponsoring

Wenn Ihnen das Skript 'Flatternde Fahne' nützlich ist und Sie wollen den Entwickler unterstützen, dann können Sie eine

Lizenz

Für das Skript-Fu fluttering-flag-d.scm hier oben gilt die Lizenz GNU general public license. Dieses Skript ist 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.

Problembehebung

Die englischen Versionen meiner Script-Fu funktionnieren sowohl unter Linux wie auch unter Windstoss. Die deutschen Versionen funktionnieren unter Linux. Sie können anscheinend bei Windstoss ein Problem wegen den Umlauten haben (alles was nicht im 7 bit ASCII Code enthalten ist). Es wurde berichtet dass das Script dann ganz einfach nicht im vorgesehenen Menü erscheint.

Wenn so ein Fall auftreten sollte, gibt es 2 Möglichkeiten: entweder Sie installieren die englische Version, oder Sie ersetzen alle äöü mit ae oe ue in der deutschen Version. Eszett gibt es keine zu ersetzen da ich mit ss schreibe wie seit Jahrzehnten (1930. Jahren) üblich in der Schweiz.

Hinweis: Diese deutsche Version des Skripts 'Flatternde Fahne' beinhaltet keine Umlaute, sollten also keine Umlaut Probleme auftreten.

Kommentare
Dieser Seite einen Kommentar hinzufügen

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