[psorek]

wejście:
warstwa1

działanie:
skopiować warstwę1 do warstwy2
sprowadzić na warstwie2 kolor czarny do alfy
skopiować warstwę2 do warstwy3
zastosować na warstwie2 rozmycie gussa (wys, szer 10)
rozmyć promieniście (130 długości) warstwę3
skopiować warstwę3 do 3 takich warstw
spłaszczyć obraz

wyjście:
efekt działania skryptu zapisany na wejściowej warstwie


Muszę te operacje wykonać na kolejnych 50 warstwach, więc ręcznie jest ciężko. Z moich informacji wynika że skryptem plus narzędzie "filter all layers" będzie prościej. Uda się coś takiego wykonać?

[Rodez]

Spokojnie, trochę wytrwałości... jest kilka osób, które umieją pisać skrypty, ale nawet one potrzebują na to trochę czasu jeśli już...

[Ziomioslaw]

spłaszczyć obraz

Dla 50 warstw to i tak będzie jeden przebieg:)

[psorek]

ech, chodziło mi o połączenie dwóch warstw.

[Ziomioslaw]

Albo sam zaczniesz to pisać, albo poczekasz do weekendu.

[psorek]

Mogę czekać, nie spieszy mi się.

[Ziomioslaw]

skopiować warstwę3 do 3 takich warstw
spłaszczyć obraz

A po co właściwie to 3 kopiować?

[psorek]

żeby wzmocnić efekt jaki ma dać ta warstwa.

[Ziomioslaw]

Dodałem Ci też funkcję, która wywołuje tą metodę dla wszystkich warstw obrazka.
Mam nadziej, że dobrze zrozumiałem co chciałeś uzyskać.

Kod:

(define (script-fu-raw-fun-with-layer image drawable)
 (let* (
	(layer-top (car (gimp-image-get-layer-position image drawable)))
	(layer2 0)
	(layer3 0)
 )
	(gimp-image-undo-group-start image)
	; skopiować warstwę1 do warstwy2
	(set! layer2 (car (gimp-layer-copy drawable TRUE)))
	(gimp-image-add-layer image layer2 layer-top)
	; skopiować warstwę2 do warstwy3
	(set! layer3 (car (gimp-layer-copy layer2 TRUE)))
	(gimp-image-add-layer image layer3 layer-top)
	; sprowadzić na warstwie2 kolor czarny do alfy
	(plug-in-colortoalpha RUN-NONINTERACTIVE image layer2 '(0 0 0))
	; zastosować na warstwie2 rozmycie gussa (wys, szer 10)
	(plug-in-gauss RUN-NONINTERACTIVE image layer2 10 10 0)
	; rozmyć promieniście (130 długości) warstwę3
	(plug-in-mblur RUN-NONINTERACTIVE image layer3 0 130 10 0 0)

	(gimp-image-merge-down image layer2 0)
	; skopiować warstwę3 do 3 takich warstw i spłaszczyć obraz
	(set! layer2 (car (gimp-layer-copy layer3 TRUE)))
	(gimp-image-add-layer image layer2 (+ layer-top 1))
	(gimp-image-merge-down image layer2 0)
	(set! layer2 (car (gimp-layer-copy layer3 TRUE)))
	(gimp-image-add-layer image layer2 (+ layer-top 1))
	(gimp-image-merge-down image layer2 0)
	(gimp-image-merge-down image layer3 0)
	(gimp-image-undo-group-end image)
 )
)

(define (script-fu-fun-with-all-layers image drawable)
 (let* (
	(layers (cadr (gimp-image-get-layers image)))
	(layers-count (car (gimp-image-get-layers image)))
	(i 0)
 )
	(while (< i layers-count)
		(script-fu-raw-fun-with-layer image (aref layers i))
		(set! i (+ i 1))
	) ; BŁĄD: w funkcji raw nie warstwy są w złych miejscach wyświetlane.
 )
)

(define (script-fu-fun-with-layer image drawable)
	(script-fu-raw-fun-with-layer image drawable)
	(gimp-displays-flush)
)

(script-fu-register "script-fu-fun-with-layer"
 _"<Image>/Script-Fu/Zabawa na jednej warstwie"
 _"Wykonuje szereg operacji na wybranej warstwie: kopiuje warstwę do warstwy2, sprowadza na warstwie2 kolor czarny do alfy, kopiuje warstwę2 do warstwy3,
stosuje na warstwie2 rozmycie gussa (wys, szer 10), rozmywa warstwę3 promieniście (130 długości), kopiuje warstwę3 do 3 takich warstw, sprowadza wszystko do jednej warstwy."
 "Ziomioslaw (ziomioslaw@wp.pl)"
 "Ziomioslaw"
 "2010-08-04"
 "*"
 SF-IMAGE        "Image"     0
 SF-DRAWABLE     "Drawable"  0
)

(script-fu-register "script-fu-fun-with-all-layers"
 _"<Image>/Script-Fu/Zabawa na wszystkich warstwach"
 _"Wykonuje 'Zabawę na jednej warstwie' na wszystkich warstwach obrazka."
 "Ziomioslaw (ziomioslaw@wp.pl)"
 "Ziomioslaw"
 "2010-08-05"
 "*"
 SF-IMAGE        "Image"     0
 SF-DRAWABLE     "Drawable"  0
)

[psorek]

Hehe wielkie dzięki. Jest tylko jeden problem: zastosowałeś rozmycie w ruchu a nie promieniste, ale jestem jednak programistą i się dokopię co zmienić. Przy okazji może kiedyś... Może nauczę się pisać skrypty w tym języku.


edit:

Kod:

(define (script-fu-raw-fun-with-layer image drawable)
 (let* (
	(layer-top (car (gimp-image-get-layer-position image drawable)))
	(layer2 0)
	(layer3 0)
 )
	(gimp-image-undo-group-start image)
	; skopiować warstwę1 do warstwy2
	(set! layer2 (car (gimp-layer-copy drawable TRUE)))
	(gimp-image-add-layer image layer2 layer-top)
	; sprowadzić na warstwie2 kolor czarny do alfy
	(plug-in-colortoalpha RUN-NONINTERACTIVE image layer2 '(0 0 0))
	; skopiować warstwę2 do warstwy3
	(set! layer3 (car (gimp-layer-copy layer2 TRUE)))
	(gimp-image-add-layer image layer3 layer-top)
	; zastosować na warstwie2 rozmycie gussa (wys, szer 10)
	(plug-in-gauss RUN-NONINTERACTIVE image layer2 10 10 0)
	; rozmyć promieniście (130 długości) warstwę3
	(plug-in-mblur RUN-NONINTERACTIVE image layer3 2 130 10 200 200)

	(gimp-image-merge-down image layer2 0)
	; skopiować warstwę3 do 3 takich warstw i spłaszczyć obraz
	(set! layer2 (car (gimp-layer-copy layer3 TRUE)))
	(gimp-image-add-layer image layer2 (+ layer-top 1))
	(set! layer2 (car (gimp-layer-copy layer3 TRUE)))
	(gimp-image-add-layer image layer2 (+ layer-top 1))
	(gimp-image-undo-group-end image)
 )
)

(define (script-fu-fun-with-all-layers image drawable)
 (let* (
	(layers (cadr (gimp-image-get-layers image)))
	(layers-count (car (gimp-image-get-layers image)))
	(i 0)
 )
	(while (< i layers-count)
		(script-fu-raw-fun-with-layer image (aref layers i))
		(set! i (+ i 1))
	) ; BŁĄD: w funkcji raw nie warstwy są w złych miejscach wyświetlane.
 )
)

(define (script-fu-fun-with-layer image drawable)
	(script-fu-raw-fun-with-layer image drawable)
	(gimp-displays-flush)
)

(script-fu-register "script-fu-fun-with-layer"
 _"<Image>/Script-Fu/Zabawa na jednej warstwie"
 _"Wykonuje szereg operacji na wybranej warstwie: kopiuje warstwę do warstwy2, sprowadza na warstwie2 kolor czarny do alfy, kopiuje warstwę2 do warstwy3,
stosuje na warstwie2 rozmycie gussa (wys, szer 10), rozmywa warstwę3 promieniście (130 długości), kopiuje warstwę3 do 3 takich warstw, sprowadza wszystko do jednej warstwy."
 "Ziomioslaw (ziomioslaw@wp.pl)"
 "Ziomioslaw"
 "2010-08-04"
 "*"
 SF-IMAGE        "Image"     0
 SF-DRAWABLE     "Drawable"  0
)

(script-fu-register "script-fu-fun-with-all-layers"
 _"<Image>/Script-Fu/Zabawa na wszystkich warstwach"
 _"Wykonuje 'Zabawę na jednej warstwie' na wszystkich warstwach obrazka."
 "Ziomioslaw (ziomioslaw@wp.pl)"
 "Ziomioslaw"
 "2010-08-05"
 "*"
 SF-IMAGE        "Image"     0
 SF-DRAWABLE     "Drawable"  0
)

Trochę przerobiłem.
Mógłbyś tylko napisać, jak scalić potem te warstwy w jedną? Jest to niezbędne dla mnie.

[Ziomioslaw]

Scalają się w jedną, potem możesz nawet ręcznie użyć opcji "scal widoczne".

[psorek]

warstwa1 scala się z warstwą2, ale 3 kopie warstwy3 pozostają luźne. Co do opcji "scal widoczne", to u mnie nie da się jej zastosować. (widoczne są fragmenty niższych warstw, a to ma być potem animacja gif.)


EDIT:
już działa. Kiedy modyfikowałem wcześniej skrypt, usunąłem przypadkiem jedną linijkę. Jest dobrze.