;
; art-border
;
; Do a cool fade to a given colour at the border of an image (optional shadow)
; Will make image RGB if it isn't already.
;
; Chris Gutteridge (cjg@ecs.soton.ac.uk)
; At ECS Dept, University of Southampton, England.

; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; 
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
; 
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

; Define the function:

(define (script-fu-art-border	inImage
				inLayer
				inSize
				inCopy
				inDesaturate
				inInvert
				inBlur
	)
 
  (let (
       (theWidth (car (gimp-image-width inImage)))
       (theHeight (car (gimp-image-height inImage)))
       (theImage)
       (theLayer)
       )

    (gimp-context-push)
   
	(gimp-image-flatten inImage)

	(set! theImage (if (= inCopy TRUE)
		       (car (gimp-image-duplicate inImage))
                       inImage)
        )
    (set! theWidth (car (gimp-image-width inImage)))
	(set! theHeight (car (gimp-image-height inImage)))

	(set! theLayer (car (gimp-image-get-active-layer theImage)))

	(gimp-selection-all theImage)
	(gimp-selection-shrink theImage inSize)
	(gimp-selection-invert theImage)
	
	(if 	(= inDesaturate TRUE)
		(gimp-desaturate theLayer)
	)
	
	(if 	(= inInvert TRUE)
		(gimp-invert theLayer)
	)
	
	(if 	(= inBlur TRUE)
		(plug-in-blur 1 theImage theLayer)
	)

	(gimp-selection-invert theImage)
	(gimp-selection-border theImage 1)
	(gimp-edit-fill theLayer 0)

	(if 	(= inCopy TRUE)
		(begin 	(gimp-image-clean-all theImage)
			(gimp-display-new theImage)
		)
		()
	)
	(gimp-displays-flush)
    (gimp-context-pop)
  )
)

(script-fu-register "script-fu-art-border"
		    _"_Art Border..."
		    "Add art border to the image"
		    "Antony Dovgal"
		    "2006, Antony Dovgal. This script is based on 'fuzzy border' by Chris Gutteridge"
		    "21 April 2006"
		    "RGB*"
		    SF-IMAGE       "The image"              0
		    SF-DRAWABLE    "The layer"              0
		    SF-ADJUSTMENT _"Border size"            '(16 1 300 1 10 0 1)
		    SF-TOGGLE     _"Work on copy"           TRUE
		    SF-TOGGLE     _"Desaturate border"      TRUE
		    SF-TOGGLE     _"Invert border colors"   FALSE
		    SF-TOGGLE     _"Blur border"            FALSE)

(script-fu-menu-register "script-fu-art-border"
			 _"<Image>/Script-Fu/Decor")