Untitled

;; drop shadow for image
;; offset (8,8) radius 15
(define (my-shadow input-file output-file)
  (let* ((image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))
         (drawable (car (gimp-image-get-active-layer image))))
    (script-fu-drop-shadow image drawable 8 8 15 '(0 0 0) 80 TRUE)
    (gimp-image-merge-visible-layers image TRUE)
    (set! drawable (car (gimp-image-get-active-layer image)))
    (gimp-file-save RUN-NONINTERACTIVE image drawable output-file output-file)
    )
   (gimp-quit TRUE)
  )