[Ziomioslaw]

Natknąłem się na coś takiego:

http://www.technonews.pl/Technonews/1,94439,6418491,JPG_po_600_zapisach.html

Pomijając, że koleś który to pisał ma nieco dziwne pojęcie o sztuce, czy ogólnie o informatyce, komputerach itp... tp
próbowałem coś podobnego osiągnąć w GIMPie. Nie bardzo mi się udało... już po 100 zapisach obrazek był do niczego.
Ale zamieszczam skrypt, może ktoś będzie wiedział co zrobić.

Kod:

(define (script-fu-jpg-multisaver fileName howManySave delta)
(let*	(
		(i 0)		; licznik iteracji
		(image 0)	; zmienna obrazu
		(drawable 0)	; zmienna warstwy
		(quality 1)	; zmienna jakości kompresji
	)
	(while (< i howManySave)
		; Wczytanie obrazk
		(set! image (car (file-jpeg-load 1 fileName fileName)))
		; Pobranie wartswy
		(set! drawable (car (gimp-image-get-active-layer image)))
		; Zapis obrazu
		(file-jpeg-save 1 image drawable fileName fileName quality 0 0 0 "" 0 1 0 1)
		; Czyścimy pamięć po obrazie
		(gimp-image-delete image)
		; Zwiększamy jakoś kompresji - czyli pogarszamy samo wyjście
		(set! quality (- quality delta))
		; Zwiększamy interator
		(set! i (+ i 1))
	)
)
)

(script-fu-register "script-fu-jpg-multisaver"
	"<Image>/Script-Fu/JPG Multisaver"
	"Otwiera, zapisuje, otwiera i zapisuje jpg - bardzo dużo nawet razy"
	"Ziomioslaw"
	"Ziomioslaw"
	"Marzec 2009"
	""
	SF-FILENAME	"Pliki jpg"			""
	SF-ADJUSTMENT	"Ilość zapisów"			'(100 1 10000 1 10 0 1)
	SF-ADJUSTMENT	"Wzrost jakości kompresji"	'(0.001 0.001 1 0.001 0.01 3 1)
)

Chwilę proces ten zajmuje