blob: b77c3fed975083657194feb35f17df0b505669a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
; przem-sepia-dust-v3xTworzy dramatyczne światło, wysoki kontrast.
; Przmeysław R. Pietraszczyk
; 2026-08-05
; ver 2.260805-0
; editor: Kate
(define (przem-sepia-dust-v3x image drawable)
(let* (
(image-width (car ( gimp-image-get-width image)))
(image-height (car (gimp-image-get-height image)))
(new-layer 0)
(grain-layer 0)
(curves-layer 0)
(base-layer (vector-ref drawable 0))
(type (car (gimp-drawable-type-with-alpha base-layer)))
)
(gimp-image-undo-group-start image)
; 1. Desaturacja (konwersja na czarno-biały)
;(gimp-desaturate drawable DESATURATE-LUMINOSITY)
(if (= type RGBA-IMAGE)
(gimp-drawable-desaturate base-layer DESATURATE-LIGHTNESS)
)
(set! new-layer (car (gimp-layer-copy base-layer TRUE)))
(set! grain-layer (car (gimp-layer-copy base-layer TRUE)))
(set! curves-layer (car (gimp-layer-copy base-layer TRUE)))
; 2. Warstwa koloryzująca (Sepia Brown)
(gimp-image-insert-layer image new-layer 0 -1)
(gimp-context-set-background '(165 142 123)) ; Kolor: #A58E7B
;(gimp-edit-fill new-layer FILL-FOREGROUND)
(gimp-drawable-edit-fill new-layer FILL-BACKGROUND)
(gimp-layer-set-mode new-layer LAYER-MODE-NORMAL)
(gimp-layer-set-opacity new-layer 25)
; 3. Warstwa szumu (Ziarno filmowe)
(gimp-image-insert-layer image grain-layer 0 -1)
(gimp-context-set-foreground '(128 128 128)) ; 50% szarości
;(gimp-edit-fill grain-layer FILL-FOREGROUND)
(gimp-drawable-edit-fill new-layer FILL-FOREGROUND)
;(plug-in-noise-hurl 1 grain-layer 0 FALSE 50 50 50)
(gimp-drawable-merge-new-filter grain-layer "gegl:noise-hsv" "Noise-HSV" LAYER-MODE-NORMAL 0.8 "holdness" 2 "hue-distance" 0.3 "saturation-distance" 0.5 "value-distance" 0.5 "seed" 50)
;(plug-in-gauss-rle 1 grain-layer 1.5 TRUE TRUE) ; Miękkie rozmycie szumu
(gimp-drawable-merge-new-filter grain-layer "gegl:gaussian-blur" "Gauss-Blur" LAYER-MODE-NORMAL 0.8 "std-dev-x" 1.5 "std-dev-y" 1.5)
(gimp-layer-set-mode grain-layer LAYER-MODE-OVERLAY)
;(gimp-layer-set-opacity grain-layer 25)
; 4. Warstwa krzywych (Podbicie czerni - mleczny wygląd)
(gimp-image-insert-layer image curves-layer 0 -1)
(gimp-layer-set-mode curves-layer LAYER-MODE-NORMAL)
(gimp-layer-set-opacity curves-layer 25)
; Tworzymy krzywą (wejście 0 -> wyjście 30, wejście 255 -> wyjście 245)
(let* (
(channels #(0 0 0))
(curve-points #(0 30 255 245))
)
;(gimp-curves-explicit curves-layer HISTOGRAM-VALUE channels curve-points)
(gimp-drawable-curves-spline curves-layer HISTOGRAM-VALUE curve-points)
)
; Spłaszczenie i koniec
(gimp-image-merge-visible-layers image CLIP-TO-IMAGE)
(gimp-image-undo-group-end image)
(gimp-displays-flush)
)
)
(script-fu-register-filter "przem-sepia-dust-v3x"
_"Sepia Dust Effect"
_"Tworzy vintage'owy efekt sepii z szumem i mlecznymi czerniami"
"Przemysław R. Pietraszczyk"
"Public Domain"
"2026-08-04"
"RGB* GRAY*"
SF-ONE-OR-MORE-DRAWABLE
)
(script-fu-menu-register "przem-sepia-dust-v3x" "<Image>/Filters/PIETRASZCZYK/"
)
|
