diff options
| -rw-r--r-- | script-fu/3.0/przem-teal-portrait-look-v3.scm | 25 | ||||
| -rw-r--r-- | script-fu/changelog.md | 3 |
2 files changed, 27 insertions, 1 deletions
diff --git a/script-fu/3.0/przem-teal-portrait-look-v3.scm b/script-fu/3.0/przem-teal-portrait-look-v3.scm index e4cfd5c..0fa766e 100644 --- a/script-fu/3.0/przem-teal-portrait-look-v3.scm +++ b/script-fu/3.0/przem-teal-portrait-look-v3.scm @@ -1,7 +1,7 @@ ; przem-teal-portrait-look-v3 - Fotografia portretowa na sterydach
; 2026-04-06 - Przemysław R. Pietraszczyk
; licence: GPL v3
-; ver. 2.260407-0
+; ver. 2.260408-1
; Ten script-fu wykorzystuje funkcje ze skryptu 'chrome-it.scm'
; Autorstwa Spencer Kimball
@@ -107,12 +107,32 @@ (work-layer (car (gimp-layer-copy ref-layer TRUE)))
(color-layer (car (gimp-layer-copy ref-layer TRUE)))
(the-layer 0)
+ (width (car (gimp-image-get-width img)))
+ (height (car (gimp-image-get-height img)))
+ (noise-layer (car (gimp-layer-new img "Noise" width height RGB-IMAGE 100 LAYER-MODE-NORMAL)))
+ ;(fg-color '(203 182 138))
+ (fg-color '(217 199 161))
)
(gimp-context-push)
(gimp-image-undo-group-start img)
+
+ (gimp-image-insert-layer img noise-layer 0 -1)
+
+
+ ; Generuj szum
+ (let* ((noise-width (cadddr (gimp-drawable-mask-intersect noise-layer)))
+ (noise-height (caddr (cddr (gimp-drawable-mask-intersect noise-layer)))))
+
+ (gimp-drawable-merge-new-filter noise-layer "gegl:noise-solid" 0 LAYER-MODE-REPLACE 1.0 "tileable" FALSE "turbulent" FALSE "seed" 0
+ "detail" 1 "x-size" 4.0 "y-size" 4.0
+ "width" noise-width "height"noise-height))
+ (gimp-context-set-foreground fg-color)
+ (gimp-drawable-fill noise-layer FILL-TRANSPARENT)
+
;(gimp-selection-all img)
(set! the-layer (car (gimp-image-flatten img)))
+ (gimp-layer-set-opacity the-layer 100)
(gimp-image-insert-layer img color-layer 0 -1)
(if (= mode 0) (begin
@@ -129,6 +149,9 @@ (saturation work-layer)
(gimp-layer-set-opacity work-layer 40)
+
+
+
;(let* ((merged-layer (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))))
; (gimp-item-set-visible merged-layer TRUE))
;(gimp-selection-none img)
diff --git a/script-fu/changelog.md b/script-fu/changelog.md index 70adcd2..11e1a25 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,3 +1,6 @@ +# [2.260408-1] przem-teal-portrait-look-v3 +* Czarno-biala implementacja szumu + # [2.260408-0] przem-teal-portrait-look-v3 * Dodanie nowego balansu koloru - piaskowy (Sand) |