;;; $Id: gallery.scm,v 0.2 1998/03/22 21:20:39 tjchol01 Exp $
;;; Create a miniature version of an image with a drop shadow.

(define (script-fu-gallery image drawable)
  (let* (
	 (owidth (car (gimp-image-width image)))
	 (oheight (car (gimp-image-height image)))
	 (width (if (>= owidth oheight) 120 78))
	 (height (if (>= owidth oheight) 78 120)) ; gee
	 )

    (gimp-image-disable-undo image)

    (gimp-image-scale image
		      width
		      height)

    (plug-in-sharpen TRUE
		     image
		     drawable
		     40)

    (script-fu-drop-shadow image
			   drawable
			   8
			   8
			   15
			   '(0 0 0)
			   100
			   TRUE)

    (gimp-image-merge-visible-layers image EXPAND-AS-NECESSARY)

    (gimp-image-clean-all image)

    (gimp-selection-none image)
    (gimp-selection-all image)
    (gimp-edit-copy image drawable)

    (gimp-displays-flush)

    ))

(define (%guash-gallery image drawable fileinfo)
  (if (number? image)
      (script-fu-gallery image drawable)))

(script-fu-register "script-fu-gallery"
		    "<Image>/Script-Fu/TJC/Gallery"
		    "Create a miniature version with a drop shadow"
		    "Tomasz Cholewo (tjchol01@mecca.spd.louisville.edu)"
		    "Tomasz Cholewo"
		    "$Date: 1998/03/22 21:20:39 $"
		    "RGB GRAY"
		    SF-IMAGE "Image" 0
		    SF-DRAWABLE "Drawable" 0
		    )