1 files changed, 30 insertions, 3 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"