Added przem-helos-40.scm

2 files changed, 71 insertions, 0 deletions

diff --git a/script-fu/2.10/przem-helos-40.scm b/script-fu/2.10/przem-helos-40.scm
new file mode 100644
index 0000000..47c7aa3
--- /dev/null
+++ b/script-fu/2.10/przem-helos-40.scm
@@ -0,0 +1,68 @@
+; przem-helios-40  - Symuluje charakterystyczną kolorystykę obiektywu Helios-40
+; author: PRP
+; licencja: Public Domain
+; Gdańsk - 14-7-2025
+; ver. 2.250714-0~beta
+
+(define (przem-helios-40 img drawable blur-amount warmth-amount bloom-effect)
+
+  (gimp-context-push)
+
+  ; Zapisz oryginalną selekcję
+  (let* ((orig-selection (car (gimp-selection-save img))))
+    
+    (gimp-image-undo-group-start img)
+
+    ; Dodaj warstwę dla efektów
+    (let* ((helios-layer (car (gimp-layer-copy drawable FALSE))))
+      (gimp-image-insert-layer img helios-layer 0 -1)
+      (gimp-item-set-name helios-layer "Helios-40 Effect")
+      
+      ; Efekt ciepłych tonów
+      (if (> warmth-amount 0)
+          (begin
+            (gimp-color-balance helios-layer 0 TRUE 0 warmth-amount 0)
+            (gimp-color-balance helios-layer 1 TRUE warmth-amount 0 0)))
+      
+      ; Lekkie rozmycie dla charakterystycznego looku
+      (if (> blur-amount 0)
+          (plug-in-gauss 1 img helios-layer blur-amount blur-amount 0))
+      
+      ; Zmniejsz kontrast
+      (gimp-brightness-contrast helios-layer 0 -20)
+      
+      ; Efekt bloom (dla symulacji bokeh)
+      (if (> bloom-effect 0)
+          (begin
+            (let* ((bloom-layer (car (gimp-layer-copy helios-layer FALSE))))
+              (gimp-image-insert-layer img bloom-layer 0 -1)
+              (gimp-layer-set-mode bloom-layer 13) ; Tryb nakładania - Overlay
+              (plug-in-gauss 1 img bloom-layer (* bloom-effect 3) (* bloom-effect 3) 0)
+              (gimp-layer-set-opacity bloom-layer 50))))
+      
+      ; Przywróć oryginalną selekcję
+      (gimp-selection-load orig-selection)
+      (gimp-image-remove-channel img orig-selection))
+      ;(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY)
+
+    (gimp-image-undo-group-end img)
+    (gimp-displays-flush)
+    )
+    (gimp-context-pop)
+    )
+  
+(script-fu-register "przem-helios-40"
+                    _"Helios-40 Effect..."
+                    _"Symuluje charakterystyczną kolorystykę obiektywu Helios-40"
+                    "PRP"
+                    "Public Domain"
+                    "2025-07-14"
+                    "RGB*"
+                    SF-IMAGE "Image" 0
+                    SF-DRAWABLE "Drawable" 0
+                    SF-ADJUSTMENT "Rozmycie (0-20)" '(3 0 20 1 1 0 0)
+                    SF-ADJUSTMENT "Ciepłe tony (0-100)" '(30 0 100 1 1 0 0)
+                    SF-ADJUSTMENT "Efekt bloom (0-5)" '(2 0 5 1 1 0 0))
+
+(script-fu-menu-register "przem-helios-40"
+                         "<Image>/Filters/PIETRASZCZYK/")
diff --git a/script-fu/changelog.md b/script-fu/changelog.md
index d533603..87f2272 100644
--- a/script-fu/changelog.md
+++ b/script-fu/changelog.md
@@ -1,3 +1,6 @@
+# [2.250714-0] przem-helos-40
+* Dodanie symulacji charakterystycznej kolorystyki obiektywu Helios-40
+
 # [2.250712-0] przem-prossian-blue-effect-v3.scm
 * Dodałem tryby mieszania warstwy
 * Snapshot dla Helios-40.scm