GIMP Plugin Registry

; plastic logo
; Copyright (C) 2002-2003 Michael Schalla
; Copyright (C) 2004-2008 Eric Lamarque

; 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.

;
; --------------------------------------------------------------------
; version 1.0 by Michael Schalla 2003/02/17
; version 2.0 by Eric Lamarque 2004/08/20
; version 2.4 by Eric Lamarque 2007/05/21
; version 2.4.1 by Eric Lamarque 2008/11/03 - License Fix + script register
; version 2.4.2 by Jason Goff 2009/08/06 - Fix script register for Gimp 2.6
; --------------------------------------------------------------------
;

(define (script-fu-plastic-logo inText inFont inFontSize inBackGroundColor inHighlightColor inTextColor inDarkColor inHighlightValue inThreshold inShrink inFeather inShadow inAbsolute inImageWidth inImageHeight inFlatten)
(let*
(
; Definition unserer lokalen Variablen

; Erzeugen des neuen Bildes

(img ( car (gimp-image-new 10 10 RGB) ) )
(theText)
(theTextWidth)
(theTextHeight)
(theFloatSel)
(imgWidth)
(imgHeight)
(theBufferX)
(theBufferY)

; Erzeugen einer neuen Ebene zum Bild
(theLayer (car (gimp-layer-new img 10 10 RGB-IMAGE "Ebene 1" 100 NORMAL) ) )
(theTextLayer (car (gimp-layer-new img 10 10 RGBA-IMAGE "Text" 100 NORMAL) ) )
(theTextMask)

(old-fg (car (gimp-context-get-foreground) ) )
(old-bg (car (gimp-context-get-background) ) )
; Ende unserer lokalen Variablen
)

(gimp-image-add-layer img theLayer 0)
(gimp-image-add-layer img theTextLayer 0)

; zum Anzeigen des leeren Bildes
; (gimp-display-new img)

(gimp-context-set-background '(255 255 255) )
(gimp-context-set-foreground '(0 0 0) )

(gimp-selection-all img)
(gimp-edit-clear theLayer)
(gimp-selection-none img)

(gimp-context-set-foreground '(255 255 255) )
(set! theText (car (gimp-text-fontname img -1 0 0 inText -1 TRUE inFontSize PIXELS inFont)))
(gimp-context-set-foreground '(0 0 0) )

(set! theTextWidth (car (gimp-drawable-width theText) ) )
(set! theTextHeight (car (gimp-drawable-height theText) ) )

(set! imgWidth inImageWidth )
(set! imgHeight inImageHeight )

(if (= inAbsolute FALSE)
(set! imgWidth (+ theTextWidth 20 ) )
)

(if (= inAbsolute FALSE)
(set! imgHeight (+ theTextHeight 20 ) )
)

(set! theBufferX (/ (- imgWidth theTextWidth) 2) )
(set! theBufferY (/ (- imgHeight theTextHeight) 2) )

(gimp-image-resize img imgWidth imgHeight 0 0)
(gimp-layer-resize theLayer imgWidth imgHeight 0 0)
(gimp-layer-resize theTextLayer imgWidth imgHeight 0 0)

(gimp-layer-set-offsets theText theBufferX theBufferY)
(gimp-selection-layer-alpha theText)
(gimp-edit-blend theLayer FG-BG-RGB NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 FALSE FALSE 0 (+ theBufferY theTextHeight) 0 theBufferY)
(gimp-selection-none img)

(plug-in-gauss-iir 1 img theLayer 5 TRUE TRUE)

(gimp-context-set-foreground inTextColor )
(gimp-selection-layer-alpha theText)
;(set! theText (car (gimp-text-fontname img theTextLayer 0 0 inText 0 TRUE inFontSize PIXELS inFont)))
;(gimp-layer-set-offsets theText theBufferX theBufferY)
;(set! theFloatSel (car (gimp-edit-paste theTextLayer FALSE)))
;(gimp-floating-sel-anchor theFloatSel)
(gimp-edit-bucket-fill theTextLayer FG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-none img)

(gimp-by-color-select theLayer (list inHighlightValue inHighlightValue inHighlightValue) inThreshold 0 FALSE FALSE 10 FALSE)

(gimp-selection-shrink img inShrink )
(gimp-selection-feather img inFeather )

(gimp-context-set-foreground inHighlightColor )
(gimp-edit-bucket-fill theTextLayer FG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-none img)

(gimp-selection-all img)
(gimp-edit-clear theLayer)
(gimp-selection-none img)

(gimp-context-set-foreground '(0 0 0) )
(gimp-selection-layer-alpha theText)
;(set! theText (car (gimp-text-fontname img theLayer 0 0 inText 0 TRUE inFontSize PIXELS inFont)))

;(gimp-layer-set-offsets theText theBufferX theBufferY)

(gimp-edit-blend theLayer FG-BG-RGB NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 FALSE FALSE 0 theBufferY 0 (+ theBufferY theTextHeight) )
;(set! theFloatSel (car (gimp-edit-paste theLayer FALSE)))
;(gimp-floating-sel-anchor theFloatSel)
(gimp-selection-none img)

(plug-in-gauss-iir 1 img theLayer 5 TRUE TRUE)

(gimp-by-color-select theLayer (list inHighlightValue inHighlightValue inHighlightValue) inThreshold 0 FALSE FALSE 10 FALSE)

(gimp-selection-shrink img inShrink )
(gimp-selection-feather img inFeather )

(gimp-context-set-foreground inDarkColor )
(gimp-edit-bucket-fill theTextLayer FG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-none img)

(gimp-layer-add-alpha theTextLayer)
(set! theTextMask (car (gimp-layer-create-mask theTextLayer ADD-BLACK-MASK)))
(gimp-layer-add-mask theTextLayer theTextMask)

(gimp-context-set-foreground '(255 255 255) )
;(set! theText (car (gimp-text-fontname img -1 0 0 inText 0 TRUE inFontSize PIXELS inFont)))
(gimp-layer-resize-to-image-size theText)
;(set! theText (car (gimp-text-fontname img theTextMask 0 0 inText 0 TRUE inFontSize PIXELS inFont)))

;(gimp-layer-set-offsets theText theBufferX theBufferY)
(gimp-edit-copy theText)

(set! theFloatSel (car (gimp-edit-paste theTextMask FALSE)))
(gimp-floating-sel-anchor theFloatSel)

(gimp-layer-remove-mask theTextLayer APPLY)
(gimp-image-remove-layer img theText)

(if (= inShadow TRUE)
(script-fu-drop-shadow img theTextLayer 2 2 5 '(0 0 0) 100 FALSE )
()
)

(if (= TRUE FALSE) (begin
(gimp-context-set-background inBackGroundColor )
(gimp-selection-all img)
(gimp-edit-clear theLayer)
(gimp-selection-none img)
))
(if (= inFlatten TRUE)
(gimp-image-flatten img)
()
)

(gimp-context-set-background old-bg)
(gimp-context-set-foreground old-fg)

(gimp-display-new img)
(list img theLayer theText)

; Bereinigen Dirty-Flag
(gimp-image-clean-all img)

)
)

(script-fu-register "script-fu-plastic-logo"
_"/Script-Fu/Misc/MS - Plastic..."
"Creates a plastic-like logo."
"Michael Schalla"
"Michael Schalla"
"October 2002"
""
SF-STRING "Text" "Plastic"
SF-FONT "Font" "-*-Fillmore-*-r-*-*-24-*-*-*-p-*-*-*"
SF-VALUE "Font size" "100"
SF-COLOR "BG Color" '(255 255 255)
SF-COLOR "Color 1" '(224 224 255)
SF-COLOR "Color 2" '(128 128 255)
SF-COLOR "Color 3" '(64 64 192)
SF-ADJUSTMENT "Highlight Value" '(208 0 255 1 1 0 1)
SF-ADJUSTMENT "Highlight Threshold" '(25 0 255 1 1 0 1)
SF-ADJUSTMENT "Highlight Shrink" '(0 0 10 1 1 0 1)
SF-ADJUSTMENT "Highlight Feather" '(8 0 20 1 1 0 1)
SF-TOGGLE "Shadow?" TRUE
SF-TOGGLE "Absolute Size?" FALSE
SF-VALUE "Image Width" "300"
SF-VALUE "Image Height" "100"
SF-TOGGLE "Flatten Layers?" FALSE
)

(script-fu-menu-register "script-fu-plastic-logo"
"/Xtns/Logos")

Sorry, but I couldn't find that useful script in the GIMP menu. Using Vista 64Bit with GIMP 2.6.6

Other Scripts are working... please help
Thanks
Manuel