07/10/27 21:29:06 hU7X+zll0
>>28
こうかな
(define (script-fu-layer-shift img drawable x y type)
(let ( (off-x 0) (off-y 0) )
(set! off-x (car (gimp-drawable-offsets drawable)))
(set! off-y (cadr (gimp-drawable-offsets drawable)))
(if (= type 0)
(gimp-layer-set-offsets drawable (+ off-x x) (+ off-y y))
(gimp-layer-set-offsets drawable x y)
)
(gimp-displays-flush)
))