From 004191b29b2dc397a915bbd6d9af65df9764ecad Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw?= Date: Tue, 7 Apr 2026 21:12:32 +0200 Subject: przem-teal-portrait-look-v3.scm:2.260407-0 --- script-fu/3.0/przem-teal-portrait-look-v3.scm | 59 ++++++++++++++++----------- script-fu/changelog.md | 3 ++ 2 files changed, 38 insertions(+), 24 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 327999b..b4e5cf7 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: Public Domain -; ver. 2.260406-1 +; ver. 2.260407-0 ; Ten script-fu wykorzystuje funkcje ze skryptu 'chrome-it.scm' ; Autorstwa Spencer Kimball @@ -28,7 +28,7 @@ -(define (saturation layer1 c1 c2 c3) +(define (saturation layer1) ; drawable, HUE-Range ( Red, Yellow, Green, Cyan, Blue, Magenta, or All), ; Hue Offset (-180 180), lightness (-100 100), saturation (-100 100) overlap (0 100) @@ -36,7 +36,7 @@ (gimp-drawable-hue-saturation layer1 HUE-RANGE-ALL 0.0 0.0 - -10 + -30 0.0) ;Podbicie cyjanów / zieleni (turkus szalika, chłodniejsze tło) @@ -64,31 +64,37 @@ 1 6 0.0) - ; farbuje na czerień - ;(gimp-drawable-color-balance layer1 TRANSFER-SHADOWS 1 - ; (shadows (rval c1)) - ; (shadows (gval c1)) - ; (shadows (bval c1))) - ;(gimp-drawable-color-balance layer1 TRANSFER-MIDTONES 1 - ; (midtones (rval c2) - ; (midtones (gval c2)) - ; (midtones (bval c2)))) - ;(gimp-drawable-color-balance layer1 TRANSFER-HIGHLIGHTS 2 - ; (highlights (rval c3)) - ; (highlights (gval c3)) - ; (highlights (bval c3))) + ) +(define (teal layer2) + (let* ( + ;cyan-red -5, magenta-green 0, yellow-blue +5 + (c1 '(-5 0 5)) + (c2 '(-3 0 3)) + (c3 '(5 0 -3)) + ) + (gimp-drawable-color-balance layer2 TRANSFER-SHADOWS 1 + (shadows (rval c1)) + (shadows (gval c1)) + (shadows (bval c1))) + (gimp-drawable-color-balance layer2 TRANSFER-MIDTONES 1 + (midtones (rval c2) + (midtones (gval c2)) + (midtones (bval c2)))) + (gimp-drawable-color-balance layer2 TRANSFER-HIGHLIGHTS 1 + (highlights (rval c3)) + (highlights (gval c3)) + (highlights (bval c3))) + )) + (define (przem-teal-portrait-look-v3 img drawable) (let* ( (ref-layer (vector-ref drawable 0)) (work-layer (car (gimp-layer-copy ref-layer TRUE))) + (teal-layer (car (gimp-layer-copy ref-layer TRUE))) (the-layer 0) - ;cyan-red -5, magenta-green 0, yellow-blue +5 - (c1 '(-5 0 5)) - (c2 '(-3 0 3)) - (c3 '(5 0 -3)) ) (gimp-context-push) (gimp-image-undo-group-start img) @@ -100,14 +106,19 @@ ;; Delikatne przyciemnienie i zwiększenie kontrastu ;; brightness: -5, contrast: 15 (gimp-drawable-brightness-contrast the-layer -0.5 0.15) - ;(gimp-layer-set-opacity the-layer 99) + + (gimp-image-insert-layer img teal-layer 0 -1) + (teal teal-layer) + (gimp-layer-set-opacity teal-layer 5) (gimp-image-insert-layer img work-layer 0 -1) - (saturation work-layer c1 c2 c3) + (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)) + + + ;(let* ((merged-layer (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))) + ; (gimp-item-set-visible merged-layer TRUE)) ;(gimp-selection-none img) (gimp-image-undo-group-end img) diff --git a/script-fu/changelog.md b/script-fu/changelog.md index c19c1fb..bb0d00b 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,3 +1,6 @@ +# [2.260407-0] przem-teal-portrait-look-v3 +* Dodanie odcieniu turkusu (nieco rozjaśnia obraz) + # [2.260406-1] przem-teal-portrait-look-v3 * Przyciemnienie, podbicie kontrastu, lekko przyduszona globalnie saturacja. Podbicie cyjanów i zieleni. Oraz Delikatne ocieplenie tonów skóry. -- cgit v1.2.3