; This GIMP Script-fu script adds the architcture names to to CD Labels

(define (script-fu-rock-label xpos filename text)
    (gimp-message filename)
    (let*
	( (img (car (gimp-xcf-load 1 "cd-label.xcf" "cd-label.xcf"))) )
	(gimp-image-flatten img)
	(gimp-palette-set-foreground '(0 0 0))
	(gimp-text img -1 xpos 300 text -1 TRUE 20 0
		"*" "tekton" "*" "*" "*" "*" "*" "*" "*")
	(gimp-image-flatten img)
	(gimp-convert-indexed img 0 0 250 0 0 "")
	(file-gif-save 1 img (car (gimp-image-active-drawable img))
		filename filename 0 0 0 0)
	(gimp-image-delete img)
    )
)

(define (script-fu-rock-all)
	(script-fu-rock-label 55 "cd-label-source.gif"  "Source")
	(script-fu-rock-label 60 "cd-label-intel.gif"   "Intel")
	(script-fu-rock-label 40 "cd-label-powerpc.gif" "PowerPC")
	(script-fu-rock-label 35 "cd-label-alpha.gif"   "Alpha AXP")
	(script-fu-rock-label 60 "cd-label-sparc.gif"   "Sparc")
)

(script-fu-register "script-fu-rock-all"
	_"<Toolbox>/Xtns/Script-Fu/Create ROCK Linux CD Labels"
	"Create ROCK Linux CD labels (GIF)"
	"Clifford Wolf" "Clifford Wolf" "Oct 1999, Dec2001" ""
)