diff options
| author | Przemysław R. Pietraszczyk <przem@prymula.ct8.pl> | 2025-10-06 20:20:41 +0200 |
|---|---|---|
| committer | Przemysław R. Pietraszczyk <przem@prymula.ct8.pl> | 2025-10-06 20:20:41 +0200 |
| commit | 4f4de52068f75da1ab43760faa74ce16511575f4 (patch) | |
| tree | 71d7c3aa6ae0fa26759f615fa116c774166e0ebc | |
| parent | 5bc9c722e3a74a37054e8a085eaabb4f3b74b062 (diff) | |
2.251006-0:przem-ilford-expired-v3.scm
| -rw-r--r-- | script-fu/3.0/przem-ilford-expired-v3.scm | 22 | ||||
| -rw-r--r-- | script-fu/changelog.md | 4 |
2 files changed, 18 insertions, 8 deletions
diff --git a/script-fu/3.0/przem-ilford-expired-v3.scm b/script-fu/3.0/przem-ilford-expired-v3.scm index 6aaecfb..f89ebdd 100644 --- a/script-fu/3.0/przem-ilford-expired-v3.scm +++ b/script-fu/3.0/przem-ilford-expired-v3.scm @@ -1,7 +1,7 @@ ; przem-ilford-expired-v3 - Fotografia imitująca przeterminowany film Ilforda ; 2025-10-05 - Przemysław R. Pietraszczyk ; licence: Public Domain -; ver. 2.251005-0 +; ver. 2.251006-0 ; Ten script-fu wykorzystuje funkcje ze skryptu 'chrome-it.scm' ; Autorstwa Spencer Kimball @@ -97,15 +97,21 @@ (gimp-drawable-color-balance work-layer TRANSFER-MIDTONES TRUE red-adjust 0 blue-adjust) (gimp-drawable-color-balance work-layer TRANSFER-HIGHLIGHTS TRUE red-adjust 0 blue-adjust) (if (= apply TRUE) - (gimp-drawable-brightness-contrast work-layer-brightness-contrast brightness-value contrast-value)) - + (gimp-drawable-brightness-contrast work-layer-brightness-contrast brightness-value contrast-value) + (gimp-layer-set-opacity work-layer-brightness-contrast 40)) + (apply-quick-tint image work-layer work-layer-second image-width image-height saturation lightness hc cc) - - (let* ((layer (gimp-layer-new image "Curves" image-width image-height RGB-IMAGE 100 LAYER-MODE-NORMAL)) - (set! layer (gimp-image-merge-visible-layers image CLIP-TO-IMAGE)) - (gimp-drawable-curves-spline layer HISTOGRAM-VALUE 8 #(0 0 24 22 129 138 255 255)) + (gimp-layer-set-opacity work-layer 40) + + (let* ((finish-layer (car (gimp-layer-copy work-layer-brightness-contrast TRUE))) + (gimp-drawable-curves-spline finish-layer HISTOGRAM-VALUE 8 #(0 0 24 22 129 138 255 255)) + (gimp-layer-set-opacity finish-layer 40) + )) - + (let* ((merged-layer (car (gimp-image-merge-visible-layers image CLIP-TO-IMAGE)))) + ;(gimp-image-merge-visible-layers image CLIP-TO-IMAGE) + (gimp-item-set-visible merged-layer TRUE)) + (gimp-image-undo-group-end image) (gimp-displays-flush) diff --git a/script-fu/changelog.md b/script-fu/changelog.md index 9c86863..202aee4 100644 --- a/script-fu/changelog.md +++ b/script-fu/changelog.md @@ -1,3 +1,7 @@ +# [2.251006-0] przem-ilford-expired-v3.scm +* Nadanie wartwom transparentności +* Polączenie i uwidoczniene powstałej warstwy + # [2.251005-0] przem-ilford-expired-v3.scm * Nowy filtr, imitujący przeterminowane kolorowe filmy Ilforda |