Witamy, Gość. Zaloguj się lub zarejestruj.
Czy dotarł do Ciebie email aktywacyjny?


Zaloguj się podając nazwę użytkownika, hasło i długość sesji

Strony: 1 2 [3]  Wszystkie
DrukujPobierz PDF
Autor Wątek: Opracowanie Skyptu Script-Fu  (Przeczytany 724 razy)
0 użytkowników i 1 Gość przegląda ten wątek.
mariuszole
Nowicjusz

Reputacja: 3 Offline Offline

Wiadomości: 14
Galeria Użytkownika

mariuszole


Zobacz profil
« Odpowiedz #28 : 19.11.2022, 17:50:12 »

Nie działa po uruchomieniu z terminala 650x650.
Zapisane
Ziomioslaw
Administrator

Reputacja: 46 Online Online

Płeć: Mężczyzna
GIMP: 2.10
JID: ziomioslaw@jabber.org
Licencja: Copyright
Wiadomości: 7 412
Galeria Użytkownika


Cyklista Apokalipsy


Zobacz profil
« Odpowiedz #29 : 19.11.2022, 20:20:42 »

No tworzy się kwadrat o boku 660x660.
Czy jak otworzysz ten sam obrazek w GIMP i wybierzesz Obraz -> Przytnij dokładnie, to ciągle obrazek będzie kwadratem?

PS. "Przytnij dokładnie" wycina także nie używane obszary (na podstawie koloru tła) z wnętrza obrazka.
Zapisane
mariuszole
Nowicjusz

Reputacja: 3 Offline Offline

Wiadomości: 14
Galeria Użytkownika

mariuszole


Zobacz profil
« Odpowiedz #30 : 19.11.2022, 22:12:54 »

Wysłałem w PW link do zdjęcia, które po uruchomieniu w konsoli nie jest kwadratem.
Przez GIMP działa normalnie (tworzy kwadrat) ale nie zapisuje do pliku.

95% procent zdjęć to 1 produkt i opcja "Przytnij dokładnie" się sprawdza. Pozostałych przypadkach jest czasem problem, ponieważ 2 produkty "ściska" do siebie.
Zapisane
Ziomioslaw
Administrator

Reputacja: 46 Online Online

Płeć: Mężczyzna
GIMP: 2.10
JID: ziomioslaw@jabber.org
Licencja: Copyright
Wiadomości: 7 412
Galeria Użytkownika


Cyklista Apokalipsy


Zobacz profil
« Odpowiedz #31 : 20.11.2022, 07:58:26 »

Wydaje się, że problemem była przezroczystość (najwyraźniej, czy zapisie do jgp jest ona automatycznie usuwana). To widać na plikach xcf.
Dodałem usuwanie przezroczystości przed zapisem do jpg.

Kod:
(define (resize-into-square image drawable)
  (gimp-image-undo-group-start image)
  (plug-in-autocrop RUN-NONINTERACTIVE image drawable)

  (let* (
      (current-width (car (gimp-image-width image)))
      (current-height (car (gimp-image-height image)))
      (square-size (if
          (or (> current-width 1490) (> current-height 1490))
          1500
          (+ (max current-width current-height) 10)
      ))
      (wanted-width (min (- square-size 10) current-width))
      (wanted-height (min (- square-size 10) current-height))
      (ratio (min (/ wanted-width current-width) (/ wanted-height current-height)))
      (width (* ratio current-width))
      (height (* ratio current-height))
    )

    (gimp-image-scale image width height)
    (gimp-image-resize image square-size square-size (/ (- square-size width) 2) (/ (- square-size height) 2))
  )

  (gimp-layer-resize-to-image-size drawable)
  (gimp-image-undo-group-end image)
  (gimp-displays-flush)
)

(define (resize-into-square-save pattern)
  (let* (
      (filelist (cadr (file-glob pattern 1)))
    )

    (while (not (null? filelist))
      (let* (
          (file-name (car filelist))
          (image (car (gimp-file-load RUN-NONINTERACTIVE file-name file-name)))
          (drawable (car (gimp-image-get-active-layer image)))
          (file-name-without-extension (unbreakupstr (butlast (strbreakup file-name ".")) "."))
        )

        (resize-into-square image drawable)

        (gimp-file-save RUN-NONINTERACTIVE image drawable (string-append file-name-without-extension ".xcf") (string-append file-name-without-extension ".xcf"))

        (gimp-layer-flatten drawable)
        (gimp-file-save RUN-NONINTERACTIVE image drawable (string-append file-name-without-extension ".jpg") (string-append file-name-without-extension ".jpg"))

        (gimp-image-delete image)
      )

      (set! filelist (cdr filelist))
    )
  )
)

(script-fu-register "resize-into-square"
    "<Image>/Script-Fu/Resize and add border"
    "Automatically adjust contrast of drawable"
    "Ziomioslaw"
    "Ziomioslaw"
    "2022"
    "*"
    SF-IMAGE "Image" 0
    SF-DRAWABLE "Current Layer" 0
)
Zapisane
Strony: 1 2 [3]  Wszystkie
DrukujPobierz PDF
Polskie Forum Użytkowników GIMP-aHyde zoneBazarZlecę / KupięWątek: Opracowanie Skyptu Script-Fu
Skocz do: