1 files changed, 69 insertions, 0 deletions
diff --git a/3.0/przem-traditional-photo-v3.scm b/3.0/przem-traditional-photo-v3.scm
new file mode 100644
index 0000000..f7e6fff
--- /dev/null
+++ b/3.0/przem-traditional-photo-v3.scm
@@ -0,0 +1,69 @@
+; przem-traditional-photo-v3 - luźne nawiązanie do chemii tradycyjnej fototgrafii
+; author: PRP
+; licencja: Public Domain
+; Gdańsk - 15-02-2025
+; ver. 2.250216-3~beta for GIMP 3
+
+
+(define (przem-traditional-photo-v3 image drawable crossing contrast-colors balance-color)
+	(let (
+       ;(the-image (car (gimp-image-duplicate image)) image)
+       (the-layer 0)
+       (image-width (car (gimp-image-get-width image)))
+       (image-height (car (gimp-image-get-height image)))
+       )
+	(gimp-image-undo-group-start image)
+	
+	;(gimp-selection-all the-image)
+
+	(set! the-layer (car (gimp-image-flatten image)))
+
+	(if (= crossing TRUE)
+		(cross image image-width image-height))
+	;(if (= grain TRUE)
+	;  (gimp-noise-hurl drawable 1 0.02))
+	(if (= contrast-colors TRUE)
+		; Zmniejsz kontrast i dodaj kolor
+		(gimp-drawable-brightness-contrast the-layer -0.078125 -0.15625)
+		(gimp-drawable-color-balance the-layer TRANSFER-SHADOWS TRUE balance-color 0 -30))
+	
+	;(gimp-selection-none the-tmage)
+	
+	
+	(gimp-image-undo-group-end image)
+	(gimp-displays-flush)
+) )
+
+(define (cross image width height)
+	; crossing photo
+	;(gimp-drawable-curves-spline layer1 HISTOGRAM-VALUE (spline-chrome-it))
+	(let* ((layer (gimp-layer-new image "Cross" width 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 10 #(0 0 64 90 128 160 192 230 255 255))
+		(gimp-drawable-curves-spline layer HISTOGRAM-RED 10 #(0 0 64 50 128 180 192 230 255 255))
+		(gimp-drawable-curves-spline layer HISTOGRAM-GREEN 10 #(0 0 64 80 128 120 192 200 255 255))
+		(gimp-drawable-curves-spline layer HISTOGRAM-BLUE 10 #(0 0 64 30 128 150 192 220 255 255))
+		; lub
+		;(define value #(0 0 64 90 128 160 192 230 255 255))
+		;(gimp-drawable-curves-spline drawable HISTOGRAM-VALUE 10 value)
+	))
+)
+
+(script-fu-register-filter "przem-traditional-photo-v3"
+	_"_Convert photographs to neotraditional"
+	_"Konwertuje na neotradycyjną fotografię"
+	"Przemyslaw R. Pietraszczyk"
+	"Public Domain"
+	"2025-02-15"
+	"RGB*"
+	SF-ONE-OR-MORE-DRAWABLE
+	SF-TOGGLE _"Crossing" FALSE
+	SF-TOGGLE _"Contrast and Color corection" TRUE
+	;SF-ADJUSTMENT _"Contrast" (list -0.15625 -1 1 0.00010 0.00100 0 0) ; źle działa dodanie jako parametru
+	SF-ADJUSTMENT _"Balance Color" (list -30 -126 127 1 1 0 0)
+) 
+
+(script-fu-menu-register "przem-traditional-photo-v3"
+                         "<Image>/Filters/PIETRASZCZYK/")