blob: 47c7aa37126dd8635972f08ec7509095c463d733 (
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
|
; przem-helios-40 - Symuluje charakterystyczną kolorystykę obiektywu Helios-40
; author: PRP
; licencja: Public Domain
; Gdańsk - 14-7-2025
; ver. 2.250714-0~beta
(define (przem-helios-40 img drawable blur-amount warmth-amount bloom-effect)
(gimp-context-push)
; Zapisz oryginalną selekcję
(let* ((orig-selection (car (gimp-selection-save img))))
(gimp-image-undo-group-start img)
; Dodaj warstwę dla efektów
(let* ((helios-layer (car (gimp-layer-copy drawable FALSE))))
(gimp-image-insert-layer img helios-layer 0 -1)
(gimp-item-set-name helios-layer "Helios-40 Effect")
; Efekt ciepłych tonów
(if (> warmth-amount 0)
(begin
(gimp-color-balance helios-layer 0 TRUE 0 warmth-amount 0)
(gimp-color-balance helios-layer 1 TRUE warmth-amount 0 0)))
; Lekkie rozmycie dla charakterystycznego looku
(if (> blur-amount 0)
(plug-in-gauss 1 img helios-layer blur-amount blur-amount 0))
; Zmniejsz kontrast
(gimp-brightness-contrast helios-layer 0 -20)
; Efekt bloom (dla symulacji bokeh)
(if (> bloom-effect 0)
(begin
(let* ((bloom-layer (car (gimp-layer-copy helios-layer FALSE))))
(gimp-image-insert-layer img bloom-layer 0 -1)
(gimp-layer-set-mode bloom-layer 13) ; Tryb nakładania - Overlay
(plug-in-gauss 1 img bloom-layer (* bloom-effect 3) (* bloom-effect 3) 0)
(gimp-layer-set-opacity bloom-layer 50))))
; Przywróć oryginalną selekcję
(gimp-selection-load orig-selection)
(gimp-image-remove-channel img orig-selection))
;(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
)
(gimp-context-pop)
)
(script-fu-register "przem-helios-40"
_"Helios-40 Effect..."
_"Symuluje charakterystyczną kolorystykę obiektywu Helios-40"
"PRP"
"Public Domain"
"2025-07-14"
"RGB*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT "Rozmycie (0-20)" '(3 0 20 1 1 0 0)
SF-ADJUSTMENT "Ciepłe tony (0-100)" '(30 0 100 1 1 0 0)
SF-ADJUSTMENT "Efekt bloom (0-5)" '(2 0 5 1 1 0 0))
(script-fu-menu-register "przem-helios-40"
"<Image>/Filters/PIETRASZCZYK/")
|
