[Peter424]

Chciałbym wymienić masowo kolory na zdjęciach (z 1 identycznego koloru na inny kolor) z automatu (nie wiem zdjęć wgranych do 1 folderu).

Doczytałem, że może to zrobić dobrze napisany skrypt, aby nie musieć ręcznie tego robić. Dla mnie jest to magia, więc zlecę napisanie takiego skryptu.

Proszę o kontakt osoby, która może to ogarnąć.

PS

[Ziomioslaw]

Pytanie, co znaczy zmienić kolor. Jak bardzo skomplikowane są to zdjęcia, kwestia odcieni itp, może zapostuj chociaż jedno (możesz fragment, albo podobne stokowe), aby można było ocenić co dokładnie chcesz zmienić.

[Peter424]

Kolor z palety (np. czerwony) na przygotowany deseń. Teraz robię to ręczenie (różdżka), zaznaczam kolor na produkcie, klikam w deseń przygotowany, wypełnił deseniem i wyeksportuje do .jpg. Jeśli jest szansa wykonania takiego skryptu to bardzo proszę o telefon w wolnej chwili (wyjaśnię szczegóły) 603036361

[Ziomioslaw]

No dobra, ale jak ma automat wiedzieć gdzie kliknąć różdżką. Zamieść jakiś przykład.

[Ziomioslaw]

Kod:

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

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

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

Spróbuj czy to robi, co chcesz.

[Ziomioslaw]

Wywoływanie tego tego skryptu z konsoli:

Kod:

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

Uruchamia się to poleceniem:

Kod:

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

To, zostało wywołane w katalogu, gdzie znajduje się katalog "input" (w nim są pliki JPG, którym kolor zmieniamy), w "output" zapisują się wyniki.

[Ziomioslaw]

Podmieniłem nieco ustawienia wywołania też różdżki na zbliżone do domyślnych.
W sumie zmieniła się tylko jedna linijka (ta z gimp-fuzzy-select).

Kod:

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

[Ziomioslaw]

Zmiana podejścia, tym razem korzystam z funkcji gimp-image-select-color

Kod:

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

[Ziomioslaw]

Bez zmiękczania krawędzi.

Kod:

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

[Ziomioslaw]

Wyłączony antyaliasing też

Kod:

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

[Ziomioslaw]

Wypełnienie koloru czarnego zadanym deseniem ("2a" tutaj):

Kod:

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

[Ziomioslaw]

Wersja pod uruchamianie masowe:

Kod:

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

Wywołanie na Windowsie:

Kod:

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

[Ziomioslaw]

Podmieniony sposób lokalizacji obiektu:

Kod:

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

Komenda do wywoływania:

Kod:

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

[Ziomioslaw]

To samo co poprzednio, ale podmieniona funkcja wyciągająca nazwę pliku (nietestowana przeze mnie całkowicie, ale podobno działa):

Kod:

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

Wywołanie:

Kod:

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