2.260108-0:przem-lith-effect-v3.scm

3 files changed, 56 insertions, 110 deletions

diff --git a/script-fu/3.0/przem-lith-effect-v3.scm b/script-fu/3.0/przem-lith-effect-v3.scm
index 0220952..786b81c 100644
--- a/script-fu/3.0/przem-lith-effect-v3.scm
+++ b/script-fu/3.0/przem-lith-effect-v3.scm
@@ -2,46 +2,70 @@
 ; author: PRP

 ; licencja: Public Domain

 ; Gdańsk - 25-12-2025

-; ver. 2.251225-1~beta

+; ver. 2.260108-0~beta

 

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

   (let* (

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

-	(layer-copy 0)

-  )

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

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

+

+	)

   (gimp-context-push)

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

 

-  (set! layer-copy (car (gimp-layer-copy source-layer)))

+  ;; jeśli obraz jest szary to konwertuje go na RGB - tak na sztukę

+  (if (> (car (gimp-drawable-type type-layer)) 1)

+	(gimp-image-convert-rgb img))

 

+   ; Konwersja obrazu do skali szarości

+   (if (= type RGB-IMAGE)

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

+   )

 

   ;; 1. Mocny kontrast (levels)

-  ;(let* ((f1 (gimp-drawable-merge-new-filter layer-copy "gegl:levels")))

-  ;  (gimp-item-set-property f1 "low-input" 0.15)

-  ;  (gimp-item-set-property f1 "high-input" 0.85)

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

-

-  ;; 2. Miękkie światła (soft glow)

- ; (let* ((f2 (gimp-drawable-merge-new-filter layer-copy "gegl:softglow")))

-  ;  (gimp-item-set-property f2 "glow-radius" 25.0)

-  ;  (gimp-item-set-property f2 "brightness" 0.20)

-  ;  (gimp-item-set-property f2 "sharpness" 0.50)

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

-

-  ;; 3. Tonowanie (ciepły lith)

-  (let* ((f3 (gimp-drawable-merge-new-filter layer-copy "gegl:colorize")))

-    (gimp-item-set-property f3 "hue" 30.0)        ;; ciepły brąz

-    (gimp-item-set-property f3 "saturation" 0.25)

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

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

+	(gimp-drawable-merge-new-filter 

+		type-layer

+		"gegl:levels"

+		0

+		LAYER-MODE-REPLACE

+		0.5         

+		"in-low" 0.15

+		"in-high" 0.85

+	)

+

+  ;; 2. Miękkie światła (soft-kight)

+	(gimp-drawable-merge-new-filter 

+		type-layer

+		"gegl:soft-light"

+		0

+		LAYER-MODE-REPLACE

+		0.5

+	)

+

+	;; 3. Tonowanie (ciepły lith)

+	(gimp-drawable-merge-new-filter 

+		type-layer

+		"gegl:color"

+		0

+		LAYER-MODE-REPLACE

+		0.5         

+		"value" (list 150 75 0)

+	)

 

   ;; 4. Ziarno (noise-rgb)

- ; (let* ((f4 (gimp-drawable-merge-new-filter layer-copy "gegl:noise-rgb")))

- ;   (gimp-item-set-property f4 "red" 0.02)

- ;   (gimp-item-set-property f4 "green" 0.02)

-  ;  (gimp-item-set-property f4 "blue" 0.02)

-  ;  (gimp-item-set-property f4 "alpha" 0.00)

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

+	(gimp-drawable-merge-new-filter

+		type-layer

+		"gegl:noise-rgb"

+		0

+		LAYER-MODE-NORMAL

+		0.5

+        "red" 0.2

+        "green" 0.2

+        "blue" 0.2

+        "alpha" 0.0

+        "independent" TRUE

+   )

 

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

   (gimp-displays-flush)

@@ -50,7 +74,7 @@
 )

 

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

- "_Lith-effect"

+ "_Lith effect"

  "_Odbitka Litowa"

  "P.R.P"

  "Public Domain"

diff --git a/script-fu/3.0/przem-surreal-v3 — kopia.scm b/script-fu/3.0/przem-surreal-v3 — kopia.scm
deleted file mode 100644
index 1c9a809..0000000
--- a/script-fu/3.0/przem-surreal-v3 — kopia.scm
+++ /dev/null
@@ -1,81 +0,0 @@
-; przem-surreal-v3 - imitacja surrealistycznych obrazów

-; author: PRP

-; licencja: Public Domain

-; Gdańsk - 22-6-2025

-; ver. 2.250712-0~beta

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

-  (let* (

-         ; Duplikujemy warstwę

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

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

-         (layer-copy 0)

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

-         (green-layer (car (gimp-layer-new img "Green" width height RGB-IMAGE 100 LAYER-MODE-NORMAL)))

-		 (gauss-layer (car (gimp-layer-new img "Gauss" width height RGB-IMAGE 100 LAYER-MODE-NORMAL)))

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

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

-

-        )

-	(gimp-context-push)

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

-	

-

-	(set! layer-copy (car (gimp-layer-copy source-layer)))

-

-	

-    ; Dodajemy skopiowaną warstwę

-    (gimp-image-insert-layer img layer-copy -1)

-

-  

-	;; jeśli obraz jest szary to konwertuje go na RGB - tak na sztukę

-	(if (> (car (gimp-drawable-type type-layer)) 1)

-    (gimp-image-convert-rgb img))

-        

-    ; Konwersja obrazu do skali szarości

-	(if (= type RGB-IMAGE)

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

-	)

-        

-

-

-

-    ; Dodajemy lekki niebieski odcień

-    ;(gimp-colorize layer-copy 200 30 0)

-    (gimp-context-set-foreground '(200 30 0))

-

-    

-    (gimp-image-insert-layer img gauss-layer -1)

-

-    ; Rozmycie dla efektu mgły

-    ;(plug-in-gauss RUN-NONINTERACTIVE img layer-copy 10.0 10.0 1)

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

-

-    ; Tryb mieszania: Overlay

-    (gimp-layer-set-mode layer-copy LAYER-MODE-MULTIPLY)

-    (gimp-layer-set-opacity layer-copy 70.0)

-

-    ; Dodajemy zieloną warstwę

-    (gimp-image-insert-layer img green-layer -1)

-    (gimp-context-set-foreground '(60 120 60)) ; ciemna zieleń

-    (gimp-drawable-edit-fill green-layer FILL-FOREGROUND)

-    (gimp-layer-set-mode green-layer LAYER-MODE-MULTIPLY)

-    (gimp-layer-set-opacity green-layer 25.0)

-

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

-	(gimp-displays-flush)

-	(gimp-context-pop)

-  )

-)

-

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

- "_Surreal Toning with Green"

- "_Nadaje obrazowi chłodne barwy z zielonymi akcentami i efektem mgły"

- "P.R.P"

- "Public Domain"

- "24-12-2025"

- "RGB* GRAY*"

- SF-ONE-OR-MORE-DRAWABLE

-)

-

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

-                         "<Image>/Filters/PIETRASZCZYK/")

diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index 5f0771b..152389e 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,6 @@
+# [2.260108-0]  przem-lith-effect-v3.scm
+* Finalna wersja odbitki litowej
+
 # [2.251225-1]  przem-lith-effect-v3.scm
 * Propozycja nowej wtyczki dt. Odbitki Litowej