;;
;; This script generates the footer bar for the Math Department home page.
;;
(script-fu-register
 "script-fu-psuMath-footer"    ; func name
 "<Toolbox>/Xtns/Script-Fu/PSU Math/footer" ; menu position
 "Creates the footer bar for the PSU Math Department web page";
 "Ron Tapia" ; author
 "copyright 2003" ; copyright
 "Jan 26, 2003" ; creation date
 "" ; image that the script works on
)

(define (script-fu-psuMath-footer)
  (let* ((image (car (gimp-image-new 640 25 RGB)))
	 (layer (car (gimp-layer-new image 640 25 RGB_IMAGE "foobar" 100 NORMAL-MODE))))
    (gimp-palette-set-background '(0 0 0))
    (gimp-palette-set-foreground '(255 255 255))
    (gimp-drawable-fill layer BG-IMAGE-FILL)
    (gimp-image-add-layer image layer 0)

    (gimp-floating-sel-anchor (car (gimp-text-fontname image layer 30 8 "Calendars" 0 TRUE 12 PIXELS "-adobe-helvetica-bold-r-normal-*-*-120-*-*-p-*-iso8859-1")))

    (gimp-floating-sel-anchor (car (gimp-text-fontname image layer 130 8 "Other Mathematics Sites" 0 TRUE 12 PIXELS "-adobe-helvetica-bold-r-normal-*-*-120-*-*-p-*-iso8859-1")))

    (gimp-floating-sel-anchor (car (gimp-text-fontname image layer 320 8 "Old Home Page" 0 TRUE 12 PIXELS "-adobe-helvetica-bold-r-normal-*-*-120-*-*-p-*-iso8859-1")))

    (gimp-floating-sel-anchor (car (gimp-text-fontname image layer 450 8 "Site Map" 0 TRUE 12 PIXELS "-adobe-helvetica-bold-r-normal-*-*-120-*-*-p-*-iso8859-1")))

    (gimp-floating-sel-anchor (car (gimp-text-fontname image layer 550 8 "Search" 0 TRUE 12 PIXELS "-adobe-helvetica-bold-r-normal-*-*-120-*-*-p-*-iso8859-1")))


    (gimp-display-new image)
    image))