Импортировать в GIMP свой скрипт

Главная Форумы Разработка Разработка сценариев Импортировать в GIMP свой скрипт

В этой теме 0 ответов, 1 участник, последнее обновление  Dan 5 года/лет, 2 мес. назад.

Просмотр 1 сообщения - с 1 по 1 (всего 1)
  • Автор
    Сообщения
  • #952

    Dan
    Участник

    Есть текст скрипта:

    (define (batch-resize pattern size quality)
    (let* ((filelist (cadr (file-glob pattern 1)))
    (len (if (string? size) (string-length size) 0))
    (rate (if (and (> len 0) (char=? #% (string-ref size (- len 1)))) (/ (string->number (substring size 0 (- len 1))) 100) 0))
    (size (if (> rate 0) 0 (if (> len 0) (string->number size) size)))
    )
    (while (not (null? filelist))
    (let* ((filename (car filelist))
    (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
    (drawable (car (gimp-image-get-active-layer image)))
    (old-width (car (gimp-image-width image)))
    (old-height (car (gimp-image-height image)))
    (width (if (> rate 0) (* rate old-width) (if (> old-width old-height) size (* size (/ old-width old-height)))))
    (height (if (> rate 0) (* rate old-height) (if (> old-width old-height) (* size (/ old-height old-width)) size)))
    )
    (gimp-image-scale image width height)
    (file-jpeg-save RUN-NONINTERACTIVE image drawable filename filename quality 0 1 1 "" 2 1 0 0)
    (gimp-image-delete image)
    )
    (set! filelist (cdr filelist))
    )
    )
    )

    Он пакетно уменьшает фотографии

    Надо его сделать доступным по умолчание в гимпе, а не вставлять каждый раз. Пытался я по аналогии с другими скриптами сделать — не получилось.
    Может есть инструкция, руководство? Как это сделать?

Просмотр 1 сообщения - с 1 по 1 (всего 1)

Для ответа в этой теме необходимо авторизоваться.