blob: 9174cb5b4eae0fb6d2618da62d03463c475439fa (
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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
; przem-wet-collodion - imituje efekt mokrego kolodionu
; author: PRP
; licencja: Public Domain
; Gdańsk - 15-07-2025
; ver. 2.250718-0~beta
(define (add-hsv-noise img drawable intensity-h intensity-s intensity-v grain)
(let* (
(width (car (gimp-drawable-width drawable)))
(height (car (gimp-drawable-height drawable)))
(noise-layer (car (gimp-layer-new img width height RGB-IMAGE "Noise" 100 NORMAL-MODE)))
)
; Rozpocznij edycję
;(gimp-image-undo-group-start img)
; Konwertuj do HSV jeśli to konieczne
;(if (not (= (car (gimp-drawable-is-rgb drawable)) 1))
; (gimp-image-convert-rgb img))
(gimp-image-insert-layer img noise-layer 0 -1)
(gimp-drawable-fill noise-layer FILL-TRANSPARENT)
; Generuj szum
(plug-in-solid-noise RUN-NONINTERACTIVE img noise-layer 0 0 (random 1000) 0 4 4)
; Ustaw odpowiednie intensywności dla każdego kanału HSV
(let* (
(h-channel (car (gimp-layer-new img width height RGB-IMAGE "H Channel" 100 LAYER-MODE-HSV-HUE)))
(s-channel (car (gimp-layer-new img width height RGB-IMAGE "S Channel" 100 LAYER-MODE-HSV-SATURATION)))
(v-channel (car (gimp-layer-new img width height RGB-IMAGE "V Channel" 100 LAYER-MODE-HSV-VALUE))))
; Dodaj kanały
(gimp-image-insert-layer img h-channel 0 -1)
(gimp-image-insert-layer img s-channel 0 -1)
(gimp-image-insert-layer img v-channel 0 -1)
; Skopiuj szum do każdego kanału
(gimp-edit-copy noise-layer)
(gimp-floating-sel-anchor (car (gimp-edit-paste h-channel TRUE)))
(gimp-floating-sel-anchor (car (gimp-edit-paste s-channel TRUE)))
(gimp-floating-sel-anchor (car (gimp-edit-paste v-channel TRUE)))
(gimp-layer-set-opacity noise-layer 0)
; Ustaw przezroczystość dla każdego kanału
(gimp-layer-set-opacity h-channel intensity-h)
(gimp-layer-set-opacity s-channel intensity-s)
(gimp-layer-set-opacity v-channel intensity-v)
; Połącz kanały z oryginalnym obrazem
(gimp-image-merge-down img h-channel EXPAND-AS-NECESSARY)
(gimp-image-merge-down img s-channel EXPAND-AS-NECESSARY)
(gimp-image-merge-down img v-channel EXPAND-AS-NECESSARY)
)
;(gimp-image-remove-layer img noise-layer)
)
)
(define (przem-wet-collodion image drawable intensity-h intensity-s intensity-v grain blur)
(let* (
(width (car (gimp-image-width image)))
(height (car (gimp-image-height image)))
)
(gimp-image-undo-group-start image)
;; Desaturacja
(gimp-desaturate-full drawable DESATURATE-LUMINOSITY)
;; Dodanie winiety
(let* ((layer (car (gimp-layer-copy drawable TRUE))))
(gimp-image-insert-layer image layer 0 -1)
(plug-in-gauss-iir2 RUN-NONINTERACTIVE image layer 200 200)
(gimp-layer-set-mode layer MULTIPLY-MODE)
(gimp-layer-set-opacity layer 60)
)
;; Dodanie szumu
(add-hsv-noise image drawable intensity-h intensity-s intensity-v grain)
(plug-in-noisify RUN-NONINTERACTIVE image drawable FALSE grain grain grain 0)
;; Dodanie lekkiego rozmycia
(plug-in-gauss-iir2 RUN-NONINTERACTIVE image drawable blur blur)
(gimp-image-undo-group-end image)
(gimp-displays-flush)
)
)
(script-fu-register "przem-wet-collodion"
_"Wet Collodion"
_"Imituje efekt mokrego kolodionu"
"PRP"
"Public Domain"
"2025-07-15"
"RGB*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT "Hue Noise Intensity" '(30 0 100 1 10 0 0)
SF-ADJUSTMENT "Saturation Noise Intensity" '(20 0 100 1 10 0 0)
SF-ADJUSTMENT "Value Noise Intensity" '(15 0 100 1 10 0 0)
SF-ADJUSTMENT "Grain" '(0.2 0 1 0.1 0.1 2 0)
SF-ADJUSTMENT "Blur" '(2 0 100 1 10 0 0)
)
(script-fu-menu-register "przem-wet-collodion"
"<Image>/Filters/PIETRASZCZYK/")
|
