2.260109-0HEADmaster

3 files changed, 60 insertions, 12 deletions

diff --git a/script-fu/3.0/przem-lith-effect-v3.scm b/script-fu/3.0/przem-lith-effect-v3.scm
index 786b81c..91e8694 100644
--- a/script-fu/3.0/przem-lith-effect-v3.scm
+++ b/script-fu/3.0/przem-lith-effect-v3.scm
@@ -4,12 +4,17 @@
 ; Gdańsk - 25-12-2025

 ; ver. 2.260108-0~beta

 

-(define (przem-lith-effect-v3 img drawable)

+(define (przem-lith-effect-v3 img drawable shades)

   (let* (

     (source-layer (vector-ref (car (gimp-image-get-layers img)) 0 ))

 	(type-layer (vector-ref drawable 0))

     (type (car (gimp-drawable-type type-layer)))

-

+    (hot-lith (list 150 75 0))

+    (light-lithium-brown (list 217 169 121))

+	(warm-honey-brown (list 200 146 90))

+	(golden-clay (list 185 125 74))

+	(amber-brown (list 168 106 58))

+	(lit 0)

 	)

   (gimp-context-push)

   (gimp-image-undo-group-start img)

@@ -43,6 +48,26 @@
 		0.5

 	)

 

+	(if (= shades 0)

+       (begin

+       (set! lit hot-lith)

+     ))

+	(if (= shades 1)

+       (begin

+       (set! lit light-lithium-brown)

+     ))

+     (if (= shades 2)

+       (begin

+       (set! lit warm-honey-brown)

+     ))

+     (if (= shades 3)

+       (begin

+       (set! lit golden-clay)

+     ))

+     (if (= shades 4)

+       (begin

+       (set! lit amber-brown)

+     ))

 	;; 3. Tonowanie (ciepły lith)

 	(gimp-drawable-merge-new-filter 

 		type-layer

@@ -50,7 +75,7 @@
 		0

 		LAYER-MODE-REPLACE

 		0.5         

-		"value" (list 150 75 0)

+		"value" lit

 	)

 

   ;; 4. Ziarno (noise-rgb)

@@ -81,6 +106,8 @@
  "25-12-2025"

  "RGB* GRAY*"

  SF-ONE-OR-MORE-DRAWABLE

+ SF-OPTION     _"Shades of lithium" '("Hot Lith" "Light Lithium Brown" "Warm Honey Brown" "Golden Clay" "Amber Brown")

+

 )

 

 (script-fu-menu-register "przem-lith-effect-v3"

diff --git a/script-fu/3.0/przem-surreal-v3.scm b/script-fu/3.0/przem-surreal-v3.scm
index a0a3680..fd9654e 100644
--- a/script-fu/3.0/przem-surreal-v3.scm
+++ b/script-fu/3.0/przem-surreal-v3.scm
@@ -2,9 +2,9 @@
 ; author: PRP

 ; licencja: Public Domain

 ; Gdańsk - 24-12-2025

-; ver. 2.251225-0~beta

+; ver. 2.260109-0~beta

 

-(define (przem-surreal-v3 img drawable)

+(define (przem-surreal-v3 img drawable shades)

   (let* (

          (width (car (gimp-image-get-width img)))

 		 (height (car (gimp-image-get-height img)))

@@ -13,6 +13,9 @@
          (green-layer (car (gimp-layer-new img "Green" width height RGB-IMAGE 100 LAYER-MODE-NORMAL)))

 		 (type-layer (vector-ref drawable 0))

 		 (type (car (gimp-drawable-type type-layer)))

+		 (blue-glow  (list 102 204 255))

+		 (blue-pastel (list 153 221 255))

+		 (blue 0)

         )

         

 	(gimp-context-push)

@@ -31,13 +34,25 @@
 	(if (= type RGB-IMAGE)

 		(gimp-drawable-desaturate type-layer DESATURATE-LIGHTNESS)

 	)

-

-	(define filter (gimp-drawable-merge-new-filter layer-copy "gegl:colorize"))

-	; dodajemy lekką niebieską poświatę - chłodzącą zdjęcie

-    (gimp-item-set-property filter "hue" 210.0)

-	(gimp-item-set-property filter "saturation" 0.18)

-	(gimp-item-set-property filter "lightness" 0.02)

-    (gimp-drawable-merge-filter layer-copy filter)

+    

+    (if (= shades 0)

+       (begin

+       (set! blue blue-glow)

+     ))

+	(if (= shades 1)

+       (begin

+       (set! blue blue-pastel)

+     ))

+    

+    ;; 3. Tonowanie (niebieska poświata)

+	(gimp-drawable-merge-new-filter 

+		layer-copy

+		"gegl:color"

+		0

+		LAYER-MODE-ADDITION

+		0.1         

+		"value" blue

+	)

     

     ; Rozmycie dla efektu mgły

 	(gimp-drawable-merge-new-filter layer-copy "gegl:gaussian-blur"  RUN-NONINTERACTIVE LAYER-MODE-REPLACE 1.0 "std-dev-x" 10.0 "std-dev-y" 10.0  "filter" "auto")

@@ -67,6 +82,8 @@
  "24-12-2025"

  "RGB* GRAY*"

  SF-ONE-OR-MORE-DRAWABLE

+ SF-OPTION     _"Shades of blue" '("Glow" "Pastel")

+

 )

 

 (script-fu-menu-register "przem-surreal-v3"

diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index 152389e..eca13ab 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,7 @@
+# [2.260109-0] przem-lith-effect-v3.scm, przem-surreal-v3.scm
+* Dodanie checkboxa z wyborem odcienia dla Obróbki Litowej
+* gegl:color dla surreal
+
 # [2.260108-0]  przem-lith-effect-v3.scm
 * Finalna wersja odbitki litowej