blob: a11531abec356c8b89828bd638ff5653a4cf7fbc (
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
|
; przem-soft-focus-noninteractive-v3x.scm - Filtr dodający miękki focus
; 2025-06-19 - PRP
; Public Domain
; ver. 2025-06-19
;(define (przem-soft-focus-noninteractive-v3 basout savename)
(define (przem-soft-focus-noninteractive-v3x ask-fileglob)
(let* (
(glob-result (cadr (file-glob ask-fileglob 0)))
(pattern glob-result)
;(savename (cadr glob-result))
;; Inicjalizacja zmiennych obrazu (tylko jeśli plik istnieje)
(image (gimp-file-load RUN-NONINTERACTIVE pattern pattern))
;(image (car (gimp-file-load RUN-NONINTERACTIVE baseout savename)))
(selected-layers-array (car (gimp-image-get-selected-layers image)))
(num-selected-layers (vector-length selected-layers-array))
(width (car (gimp-image-get-width image)))
(height (car (gimp-image-get-height image)))
(active-layer 0)
(blur-radius 100)
(opacity 100)
)
(gimp-message (string-append "Wartość pattern to: " ask-fileglob)) ; lub użyj samego pattern jeśli podejrzewasz że to string
;(gimp-message (string-append \"baseout: \" (number->string baseout)))
;(gimp-message (string-append \"savename: \" (number->string savename)))
(set! active-layer (vector-ref selected-layers-array (- num-selected-layers 1)))
; Rozmycie Gaussa
;(plug-in-gauss RUN-NONINTERACTIVE image active-layer blur-radius blur-radius 0)
(gimp-drawable-merge-new-filter active-layer "gegl:gaussian-blur" RUN-NONINTERACTIVE LAYER-MODE-REPLACE 1.0 "std-dev-x" blur-radius "std-dev-y" 0.0 "filter" "auto")
; Zmień tryb mieszania na Overlay lub Screen
(gimp-layer-set-mode active-layer LAYER-MODE-OVERLAY)
; Dostosuj przezroczystość
(gimp-layer-set-opacity active-layer opacity)
;(gimp-image-merge-down image active-layer CLIP-TO-IMAGE)
;(let* (
;(merged-layer (car (gimp-image-merge-visible-layers image EXPAND-AS-NECESSARY)))
;(merged-layer (car (gimp-image-merge-down image active-layer CLIP-TO-IMAGE)))
;)
;(file-tiff-save RUN-NONINTERACTIVE image active-layer savename baseout 1) ; 1 - lZW
;(gimp-file-save RUN-NONINTERACTIVE image active-layer savename savename)
(gimp-image-undo-enable image)
;)
(gimp-image-delete image)
))
|
