1

(2 ответов, оставленных в Вопросы)

Спасибо, заработало)

(define (script-fu-border ?)
(let* ((img (car (gimp-drawable-get-image ?)))
(owidth (car (gimp-image-width img)))
(oheight (car (gimp-image-height img)))
(border (car (if (< oheight owidth) (* 2 (round (/ oheight 25))) (* 2 (round (/ owidth 25))) )))
(width (+ owidth border))
(height (+ height border))
(layer (car (gimp-layer-new img width height 0 “Border-Layer” 100 BEHIND-MODE))) )
(gimp-image-undo-group-start img)
(gimp-image-add-layer img layer 0)
(gimp-image-undo-group-end img) ))
(script-fu-register 
“script-fu-border”
“script-fu-border”
“”
“”
“”
“”
“”
“RGB”)
(script-fu-menu-register 
“script-fu-border”
“/Filters/My scripts”)