.cube

from gimpfu import *

def run_hue_saturation(image, drawable):
    # Wywołanie narzędzia Barwa i nasycenie
    pdb.gimp_hue_saturation(drawable, 0, 0, 0, 0, 0, 0)

# Rejestracja skryptu w menu
register(
    "python_fu_hue_saturation_button",
    "Szybki dostęp do Barwy i Nasycenia",
    "Dodaje Barwę i Nasycenie jako przycisk w menu",
    "Twoje Imię",
    "Twoje Imię",
    "2024",
    "Barwa i Nasycenie...",  # Tytuł przycisku
    "RGB*, GRAY*",  # Obsługiwane obrazy
    [
        (PF_IMAGE, "image", "Aktywny obraz", None),
        (PF_DRAWABLE, "drawable", "Aktywna warstwa", None),
    ]]>]    []]>]    run_hue_saturation,  # Funkcja do uruchomienia
    menu="<Image>/Narzedzia/Ustawienia Kolorow"  # Lokalizacja w menu
)

main()

(define (script-fu-fill-black-with-pattern image drawable)
  (gimp-context-push)

  (gimp-image-undo-group-start image)

  (gimp-fuzzy-select drawable 0 0 15 CHANNEL-OP-REPLACE TRUE TRUE 3.0 FALSE)
  (gimp-selection-invert image)

  (gimp-context-set-pattern "2a")
  (gimp-edit-bucket-fill drawable BUCKET-FILL-PATTERN NORMAL-MODE 100 0 FALSE 0 0)

  (gimp-selection-none image)

  (gimp-displays-flush)
  (gimp-image-undo-group-end image)

  (gimp-context-pop)
)

(define (filename-from-path path)
  (car (reverse (strbreakup path "\\")))
)

(define (basename-from-filename file-name)
(let* (
    (tokens (reverse (strbreakup file-name ".")))
  )
  (if (> (length tokens) 1)
    (unbreakupstr (reverse (cdr tokens)) ".")
    file-name
  )
))

(define (script-fu-fill-black-with-pattern-batch input-pattern result-directory)
(let* (
    (files (cadr (file-glob input-pattern 1)))
  )
  (while (not (null? files))
    (let* (
        (file-name (car files))
        (output-filename (string-append result-directory "\\" (basename-from-filename (filename-from-path file-name)) ".jpg"))
        (image (car (gimp-file-load RUN-NONINTERACTIVE file-name file-name)))
        (drawable (car (gimp-image-get-active-layer image)))
      )
      (script-fu-fill-black-with-pattern image drawable)
      (gimp-file-save RUN-NONINTERACTIVE image drawable output-filename output-filename)
      (gimp-image-delete image)
    )
    (set! files (cdr files))
  )
))

"C:\Program Files\GIMP 2\bin\gimp-2.10.exe" -i -b "(script-fu-fill-black-with-pattern-batch \"input\\*.jpg\" \"output\")" -b "(gimp-quit 0)"

(define (script-fu-fill-black-with-pattern image drawable)
  (gimp-context-push)

  (gimp-image-undo-group-start image)

  (gimp-fuzzy-select drawable 0 0 15 CHANNEL-OP-REPLACE TRUE TRUE 3.0 FALSE)
  (gimp-selection-invert image)

  (gimp-context-set-pattern "2a")
  (gimp-edit-bucket-fill drawable BUCKET-FILL-PATTERN NORMAL-MODE 100 0 FALSE 0 0)

  (gimp-selection-none image)

  (gimp-displays-flush)
  (gimp-image-undo-group-end image)

  (gimp-context-pop)
)

(define (filename-from-path path)
  (car (reverse (strbreakup path "\\")))
)

(define (basename-from-filename file-name)
  (car (strbreakup file-name "."))
)

(define (script-fu-fill-black-with-pattern-batch input-pattern result-directory)
(let* (
    (files (cadr (file-glob input-pattern 1)))
  )
  (while (not (null? files))
    (let* (
        (file-name (car files))
        (output-filename (string-append result-directory "\\" (basename-from-filename (filename-from-path file-name)) ".jpg"))
        (image (car (gimp-file-load RUN-NONINTERACTIVE file-name file-name)))
        (drawable (car (gimp-image-get-active-layer image)))
      )
      (script-fu-fill-black-with-pattern image drawable)
      (gimp-file-save RUN-NONINTERACTIVE image drawable output-filename output-filename)
      (gimp-image-delete image)
    )
    (set! files (cdr files))
  )
))

"C:\Program Files\GIMP 2\bin\gimp-2.10.exe" -i -b "(script-fu-fill-black-with-pattern-batch \"input\\*.jpg\" \"output\")" -b "(gimp-quit 0)"

(define (script-fu-fill-black-with-pattern image drawable)
  (gimp-context-push)

  (gimp-image-undo-group-start image)

  (gimp-context-set-antialias FALSE)
  (gimp-context-set-feather FALSE)
  (gimp-context-set-sample-threshold 0.3)
  (gimp-image-select-color image CHANNEL-OP-ADD drawable '(0 0 0))

  (gimp-context-set-pattern "2a")
  (gimp-edit-bucket-fill drawable BUCKET-FILL-PATTERN NORMAL-MODE 100 0 FALSE 0 0)

  (gimp-selection-none image)

  (gimp-displays-flush)
  (gimp-image-undo-group-end image)

  (gimp-context-pop)
)

(define (filename-from-path path)
  (car (reverse (strbreakup path "\\")))
)

(define (basename-from-filename file-name)
  (car (strbreakup file-name "."))
)

(define (script-fu-fill-black-with-pattern-batch input-pattern result-directory)
(let* (
    (files (cadr (file-glob input-pattern 1)))
  )
  (while (not (null? files))
    (let* (
        (file-name (car files))
        (output-filename (string-append result-directory "\\" (basename-from-filename (filename-from-path file-name)) ".jpg"))
        (image (car (gimp-file-load RUN-NONINTERACTIVE file-name file-name)))
        (drawable (car (gimp-image-get-active-layer image)))
      )
      (script-fu-fill-black-with-pattern image drawable)
      (gimp-file-save RUN-NONINTERACTIVE image drawable output-filename output-filename)
      (gimp-image-delete image)
    )
    (set! files (cdr files))
  )
))

"C:\Program Files\GIMP 2\bin\gimp-2.10.exe" -i -b "(script-fu-fill-black-with-pattern-batch \"input\\*.jpg\" \"output\")" -b "(gimp-quit 0)"

(define (script-fu-fill-black-with-pattern image drawable)
  (gimp-context-push)
  (gimp-image-undo-group-start image)

  (let* (
         (left-top-x 0)
         (left-top-y 0)

         (color-at-point (car (gimp-image-pick-color image drawable left-top-x left-top-y FALSE FALSE 0)))
        )
    (gimp-context-set-foreground color-at-point)
    (gimp-context-set-antialias FALSE)
    (gimp-context-set-feather FALSE)
    (gimp-context-set-sample-threshold 0.3)
    (gimp-image-select-color image CHANNEL-OP-ADD drawable '(0 0 0))

    (gimp-context-set-pattern "2a")
    (gimp-edit-bucket-fill drawable BUCKET-FILL-PATTERN NORMAL-MODE 100 0 FALSE 0 0)

    (gimp-selection-none image)
  )

  (gimp-image-undo-group-end image)

  (gimp-displays-flush)
  (gimp-context-pop)
)

(script-fu-register
  "script-fu-fill-black-with-pattern"                    ;; Script name
  "Fill Black Areas with Pattern"                        ;; Menu label
  "Fills all black areas with a specified pattern"       ;; Description
  "Your Name"                                            ;; Author
  "Your License"                                         ;; License
  "2024"                                                 ;; Year
  "*"                                                    ;; Image types
  SF-IMAGE "Image" 0                                     ;; Input image
  SF-DRAWABLE "Drawable" 0                               ;; Input layer
)

(script-fu-menu-register "script-fu-fill-black-with-pattern" "<Image>/Filters/Custom")

(define (script-fu-replace-with-selection image drawable new-color threshold)
  (gimp-context-push)
  (gimp-image-undo-group-start image)

  (let* (
         (left-top-x 0)
         (left-top-y 0)

         (color-at-point (car (gimp-image-pick-color image drawable left-top-x left-top-y FALSE FALSE 0)))
        )
    (gimp-context-set-foreground color-at-point)
    (gimp-context-set-antialias FALSE)
    (gimp-context-set-feather FALSE)
    (gimp-context-set-sample-threshold threshold)
    (gimp-image-select-color image CHANNEL-OP-ADD drawable '(0 0 0))
    (gimp-context-set-foreground new-color)
    (gimp-edit-fill drawable FOREGROUND-FILL)
    (gimp-selection-none image)
  )

  (gimp-image-undo-group-end image)

  (gimp-displays-flush)
  (gimp-context-pop)
)

(script-fu-register
  "script-fu-replace-with-selection"           ; Nazwa skryptu
  "Replace with Selection"                     ; Nazwa w interfejsie
  "Pick color from top-left, invert selection and fill"  ; Opis
  "Your Name"                                  ; Autor
  "Your License"                               ; Licencja
  "2024"                                       ; Rok
  "*"                                          ; Typ obrazu (dla wszystkich)
  SF-IMAGE "Image" 0                           ; Parametry: Obraz
  SF-DRAWABLE "Drawable" 0                     ; Parametry: Warstwa
  SF-COLOR "New Color" '(0 0 0)                ; Nowy kolor (czarny domyślnie)
  SF-ADJUSTMENT "Threshold" '(0.15 0.0 1.0 0.01 0.1 2 0)  ; Próg wyboru koloru
)

(script-fu-menu-register "script-fu-replace-with-selection" "<Image>/Filters/Custom")

(define (script-fu-replace-with-selection image drawable new-color threshold)
  (gimp-context-push)
  (gimp-image-undo-group-start image)

  (let* (
         (left-top-x 0)
         (left-top-y 0)

         (color-at-point (car (gimp-image-pick-color image drawable left-top-x left-top-y FALSE FALSE 0)))
        )
    (gimp-context-set-foreground color-at-point)
    (gimp-context-set-antialias TRUE)
    (gimp-context-set-feather FALSE)
    (gimp-context-set-sample-threshold threshold)
    (gimp-image-select-color image CHANNEL-OP-ADD drawable '(0 0 0))
    (gimp-context-set-foreground new-color)
    (gimp-edit-fill drawable FOREGROUND-FILL)
  )

  (gimp-image-undo-group-end image)

  (gimp-displays-flush)
  (gimp-context-pop)
)

(script-fu-register
  "script-fu-replace-with-selection"           ; Nazwa skryptu
  "Replace with Selection"                     ; Nazwa w interfejsie
  "Pick color from top-left, invert selection and fill"  ; Opis
  "Your Name"                                  ; Autor
  "Your License"                               ; Licencja
  "2024"                                       ; Rok
  "*"                                          ; Typ obrazu (dla wszystkich)
  SF-IMAGE "Image" 0                           ; Parametry: Obraz
  SF-DRAWABLE "Drawable" 0                     ; Parametry: Warstwa
  SF-COLOR "New Color" '(0 0 0)                ; Nowy kolor (czarny domyślnie)
  SF-ADJUSTMENT "Threshold" '(0.15 0.0 1.0 0.01 0.1 2 0)  ; Próg wyboru koloru
)

(script-fu-menu-register "script-fu-replace-with-selection" "<Image>/Filters/Custom")

(define (script-fu-replace-with-selection image drawable new-color threshold)
  (gimp-context-push)
  (gimp-image-undo-group-start image)

  (let* (
         (left-top-x 0)
         (left-top-y 0)

         (color-at-point (car (gimp-image-pick-color image drawable left-top-x left-top-y FALSE FALSE 0)))
        )
    (gimp-context-set-foreground color-at-point)
    (gimp-context-set-sample-threshold threshold)
    (gimp-image-select-color image CHANNEL-OP-ADD drawable '(0 0 0))
    (gimp-context-set-foreground new-color)
    (gimp-edit-fill drawable FOREGROUND-FILL)
  )

  (gimp-image-undo-group-end image)

  (gimp-displays-flush)
  (gimp-context-pop)
)

(script-fu-register
  "script-fu-replace-with-selection"           ; Nazwa skryptu
  "Replace with Selection"                     ; Nazwa w interfejsie
  "Pick color from top-left, invert selection and fill"  ; Opis
  "Your Name"                                  ; Autor
  "Your License"                               ; Licencja
  "2024"                                       ; Rok
  "*"                                          ; Typ obrazu (dla wszystkich)
  SF-IMAGE "Image" 0                           ; Parametry: Obraz
  SF-DRAWABLE "Drawable" 0                     ; Parametry: Warstwa
  SF-COLOR "New Color" '(0 0 0)                ; Nowy kolor (czarny domyślnie)
  SF-ADJUSTMENT "Threshold" '(0.15 0.0 1.0 0.01 0.1 2 0)  ; Próg wyboru koloru
)

(script-fu-menu-register "script-fu-replace-with-selection" "<Image>/Filters/Custom")

(define (script-fu-replace-with-selection image drawable new-color)
  (gimp-context-push)
  (gimp-image-undo-group-start image)

  (let* (
         (left-top-x 0)
         (left-top-y 0)

         (color-at-point (car (gimp-image-pick-color image drawable left-top-x left-top-y FALSE FALSE 0)))
        )
    (gimp-context-set-foreground color-at-point)
    (gimp-fuzzy-select drawable left-top-x left-top-y 15 CHANNEL-OP-REPLACE TRUE TRUE 5.0 FALSE)
    (gimp-selection-invert image)
    (gimp-context-set-foreground new-color)
    (gimp-edit-fill drawable FOREGROUND-FILL)
  )

  (gimp-image-undo-group-end image)

  (gimp-displays-flush)
  (gimp-context-pop)
)

(define (filename-from-path path)
  (car (reverse (strbreakup path "\\")))
)

(define (basename-from-filename file-name)
  (car (strbreakup file-name "."))
)

(define (script-fu-replace-with-selection-batch new-color input-pattern result-directory)
(let* (
    (files (cadr (file-glob input-pattern 1)))
  )
  (while (not (null? files))
    (let* (
        (file-name (car files))
        (output-filename (string-append result-directory "\\" (basename-from-filename (filename-from-path file-name)) ".jpg"))
        (image (car (gimp-file-load RUN-NONINTERACTIVE file-name file-name)))
        (drawable (car (gimp-image-get-active-layer image)))
      )
      (script-fu-replace-with-selection image drawable new-color)
      (gimp-file-save RUN-NONINTERACTIVE image drawable output-filename output-filename)
      (gimp-image-delete image)
    )
    (set! files (cdr files))
  )
))

(define (script-fu-replace-with-selection image drawable new-color)
  (gimp-context-push)
  (gimp-image-undo-group-start image)

  (let* (
         (left-top-x 0)
         (left-top-y 0)

         (color-at-point (car (gimp-image-pick-color image drawable left-top-x left-top-y FALSE FALSE 0)))
        )
    (gimp-context-set-foreground color-at-point)
    (gimp-fuzzy-select drawable left-top-x left-top-y 0 CHANNEL-OP-REPLACE TRUE TRUE 15.0 FALSE)
    (gimp-selection-invert image)
    (gimp-context-set-foreground new-color)
    (gimp-edit-fill drawable FOREGROUND-FILL)
  )

  (gimp-image-undo-group-end image)

  (gimp-displays-flush)
  (gimp-context-pop)
)

(define (filename-from-path path)
  (car (reverse (strbreakup path "\\")))
)

(define (basename-from-filename file-name)
  (car (strbreakup file-name "."))
)

(define (script-fu-replace-with-selection-batch new-color input-pattern result-directory)
(let* (
    (files (cadr (file-glob input-pattern 1)))
  )
  (while (not (null? files))
    (let* (
        (file-name (car files))
        (output-filename (string-append result-directory "\\" (basename-from-filename (filename-from-path file-name)) ".jpg"))
        (image (car (gimp-file-load RUN-NONINTERACTIVE file-name file-name)))
        (drawable (car (gimp-image-get-active-layer image)))
      )
      (script-fu-replace-with-selection image drawable new-color)
      (gimp-file-save RUN-NONINTERACTIVE image drawable output-filename output-filename)
      (gimp-image-delete image)
    )
    (set! files (cdr files))
  )
))

"C:\Program Files\GIMP 2\bin\gimp-2.10.exe" -i -b "(script-fu-replace-with-selection-batch '(255 0 0) \"input\\*.jpg\" \"output\")" -b "(gimp-quit 0)"