From 6e090251c18a29ad85e9eab2c431206a29580362 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Przemys=C5=82aw?= Date: Sun, 16 Feb 2025 16:11:50 +0100 Subject: przem-traditional-photo.scm-2.250216-0 --- 2.10/przem-traditional-photo.scm | 40 ++++++++++++++++++++++++++-------------- 1 file changed, 26 insertions(+), 14 deletions(-) (limited to '2.10/przem-traditional-photo.scm') diff --git a/2.10/przem-traditional-photo.scm b/2.10/przem-traditional-photo.scm index f89051f..e852d76 100644 --- a/2.10/przem-traditional-photo.scm +++ b/2.10/przem-traditional-photo.scm @@ -2,7 +2,7 @@ ; author: PRP ; licencja: Public Domain ; Gdańsk - 15-02-2025 -; ver. 0.250215-0 +; ver. 2.250216-0~beta (define (cross drawable) ; crossing photo @@ -10,30 +10,42 @@ (gimp-curves-spline drawable HISTOGRAM-RED 10 #(0 0 64 50 128 180 192 230 255 255)) (gimp-curves-spline drawable HISTOGRAM-GREEN 10 #(0 0 64 80 128 120 192 200 255 255)) (gimp-curves-spline drawable 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) ) -(define (przem-traditional-photo image drawable) +(define (przem-traditional-photo image drawable crossing contrast-colors contrast balance-color) (gimp-image-undo-group-start image) - (cross drawable) - ;(define value #(0 0 64 90 128 160 192 230 255 255)) - ;(gimp-drawable-curves-spline drawable HISTOGRAM-VALUE 10 value) - + (if (= crossing TRUE) + (cross drawable)) + ;(if (= grain TRUE) + ; (gimp-noise-hurl drawable 1 0.02)) + (if (= contrast-colors TRUE) + ; Zmniejsz kontrast i dodaj kolor + (gimp-brightness-contrast drawable 10 contrast) + (gimp-color-balance drawable FALSE 0 balance-color 0 10)) (gimp-image-undo-group-end image) (gimp-displays-flush) ) (script-fu-register "przem-traditional-photo" - _"Convert photo to neo traditional photo" - _"KOnwertuje na neotradycyjną fotografię" - "Przemyslaw R. Pietraszczyk" - "Public Domain" - "2025-02-15" - "RGB*" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 + _"Convert photographs to neotraditional" + _"Konwertuje na neotradycyjną fotografię" + "Przemyslaw R. Pietraszczyk" + "Public Domain" + "2025-02-15" + "RGB*" + SF-IMAGE "Image" 0 + SF-DRAWABLE "Drawable" 0 + SF-TOGGLE "Crossing" FALSE + ;SF-TOGGLE "Grain" FALSE + SF-TOGGLE "Contrast and Color corection" TRUE + SF-ADJUSTMENT "Contrast" '(-30 -126 127 1 1 0 0) + SF-ADJUSTMENT "Balance Color" '(-5 -126 127 1 1 0 0) ) (script-fu-menu-register "przem-traditional-photo" -- cgit v1.2.3