; przem-traditional-photo - luźne nawiązanie do chemii tradycyjnej fototgrafii
; author: PRP
; licencja: Public Domain
; Gdańsk - 15-02-2025
; ver. 0.250215-0

(define (cross drawable)
	; crossing photo
	(gimp-curves-spline drawable HISTOGRAM-VALUE 10 #(0 0 64 90 128 160 192 230 255 255))
	(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))
)

(define (przem-traditional-photo image drawable)

	(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)
	
	
	(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
) 

(script-fu-menu-register "przem-traditional-photo"
                         "<Image>/Filters/PIETRASZCZYK/")