; electricity logo
;
; --------------------------------------------------------------------
; version 1.0 by Michael Schalla 2003/02/17
; version 2.0 by Eric Lamarque 2004/08/20
; --------------------------------------------------------------------
;

(define (apply-electricity-logo-effect img inLayer inGrow inElectricity inColor)
(let*
(
(width (car (gimp-drawable-width inLayer)))
(height (car (gimp-drawable-height inLayer)))
(theElectricityLayer (car (gimp-layer-new img width height RGBA-IMAGE "Electricity" 100 ADDITION)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background)))
)

(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img theElectricityLayer 0)
(gimp-edit-clear theElectricityLayer)

(gimp-selection-layer-alpha inLayer)

(if (> inGrow 0)
(gimp-selection-grow img inGrow)
(if (< inGrow 0)
(gimp-selection-shrink img (- 0 inGrow))
)
)

(gimp-palette-set-foreground '(255 255 255))
(gimp-edit-fill theElectricityLayer FG-IMAGE-FILL)
(gimp-selection-none img)

(plug-in-cubism 1 img theElectricityLayer inElectricity 2.5 0)
(plug-in-ripple 1 img theElectricityLayer inElectricity (/ inElectricity 4) 1 0 1 TRUE FALSE)
(plug-in-ripple 1 img theElectricityLayer inElectricity (/ inElectricity 2) 0 0 1 TRUE FALSE)
(plug-in-ripple 1 img theElectricityLayer inElectricity (/ inElectricity 4) 1 0 1 TRUE FALSE)
(plug-in-spread 1 img theElectricityLayer inElectricity inElectricity)

(plug-in-gauss-iir 1 img theElectricityLayer 3 TRUE TRUE)

(define (set-pt a index x y)
(begin
(aset a (* index 2) x)
(aset a (+ (* index 2) 1) y)))

(define (splineValue)
(let* ((a (cons-array 15 'byte)))
(set-pt a 0 0 0)
(set-pt a 1 32 64)
(set-pt a 2 96 255)
(set-pt a 3 160 64)
(set-pt a 4 255 0)
a
)
)
(gimp-curves-spline theElectricityLayer VALUE-LUT 10 (splineValue))
;(define red (larg-default inColor 0 0))
(define red (nth 0 inColor))
(if (= red 0)
(set! red 1)
(if (= red 255)
(set! red 254)
)
)
;(define green (larg-default inColor 1 0))
(define green (nth 1 inColor))
(if (= green 0)
(set! green 1)
(if (= green 255)
(set! green 254)
)
)
;(define blue (larg-default inColor 2 0))
(define blue (nth 2 inColor))
(if (= blue 0)
(set! blue 1)
(if (= blue 255)
(set! blue 254)
)
)
(define gray (/ (+ (* red 299) (* green 587) (* blue 114)) 1000))

(define (splineRed)
(let* ((a (cons-array 6 'byte)))
(set-pt a 0 0 0)
(set-pt a 1 gray red)
(set-pt a 2 255 255)
a
)
)
(gimp-curves-spline theElectricityLayer RED-LUT 6 (splineRed))

(define (splineGreen)
(let* ((a (cons-array 6 'byte)))
(set-pt a 0 0 0)
(set-pt a 1 gray green)
(set-pt a 2 255 255)
a
)
)
(gimp-curves-spline theElectricityLayer GREEN-LUT 6 (splineGreen))

(define (splineBlue)
(let* ((a (cons-array 6 'byte)))
(set-pt a 0 0 0)
(set-pt a 1 gray blue)
(set-pt a 2 255 255)
a
)
)
(gimp-curves-spline theElectricityLayer BLUE-LUT 6 (splineBlue))

(gimp-curves-spline theElectricityLayer ALPHA-LUT 10 (splineValue))

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

(define (script-fu-electricity-alpha img theLayer inGrow inElectricity inIceColor)
(begin
(gimp-undo-push-group-start img)

(apply-electricity-logo-effect img theLayer inGrow inElectricity inIceColor)

(gimp-undo-push-group-end img)
(gimp-displays-flush)))

(script-fu-register "script-fu-electricity-alpha"
_"<Image>/Script-Fu/Alpha to Logo (MS)/Electricity..."
"Creates a electricity logo."
"Michael Schalla"
"Michael Schalla"
"Februar 2001"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT "Grow" '(-6 -50 50 1 1 0 1)
SF-ADJUSTMENT "Electricity" '(16 2 100 1 1 0 1)
SF-COLOR "Electricity Color" '(32 128 255)
)

(define (script-fu-electricity-logo inText inFont inFontSize inIceColor inTextColor inGrow inElectricity inAbsolute inImageWidth inImageHeight inFlatten)
(let*
(
; Definition unserer lokalen Variablen

; Erzeugen des neuen Bildes

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

; 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 "Ebene 2" 100 NORMAL) ) )

(old-fg (car (gimp-palette-get-foreground) ) )
(old-bg (car (gimp-palette-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-palette-set-background '(0 0 0) )
(gimp-palette-set-foreground inTextColor)

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

(set! theText (car (gimp-text-fontname img theTextLayer 0 0 inText 0 TRUE inFontSize PIXELS inFont)))

(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 theTextHeight inElectricity ) )
)

(if (= inAbsolute FALSE)
(set! imgHeight (+ (* theTextHeight 1.5 ) (* (+ inElectricity inGrow ) ) ) )
)

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

(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-floating-sel-anchor theText theTextLayer)
(gimp-floating-sel-anchor theText)

(set! theTextLayer2 (car (gimp-layer-copy theTextLayer TRUE)))
(gimp-image-add-layer img theTextLayer2 1)

(plug-in-gauss-iir 1 img theTextLayer2 16 TRUE TRUE)
(plug-in-bump-map 1 img theTextLayer theTextLayer2 135.0 45.0 32 0 0 0 0 TRUE FALSE 0)

(gimp-selection-layer-alpha theTextLayer)
(gimp-selection-grow img 2)
(gimp-selection-feather img 8)

(gimp-palette-set-foreground '(255 255 255))
(gimp-edit-fill theTextLayer2 FG-IMAGE-FILL)
(gimp-selection-none img)

(apply-electricity-logo-effect img theTextLayer inGrow inElectricity inIceColor)

(if (= inFlatten TRUE)
(gimp-image-flatten img)
()
)

(gimp-palette-set-background old-bg)
(gimp-palette-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-electricity-logo"
"<Toolbox>/Xtns/Script-Fu/Extra Logos/Electricity..."
"Creates a electricity logo."
"Michael Schalla"
"Michael Schalla"
"October 2002"
""
SF-STRING "Text" "electricity"
SF-FONT "Font" "Arial Black"
SF-ADJUSTMENT "Font Size" '(200 2 1000 1 10 0 1)
SF-COLOR "Electricity Color" '(32 128 255)
SF-COLOR "Text Color" '(192 64 64)
SF-ADJUSTMENT "Grow" '(-6 -50 50 1 1 0 1)
SF-ADJUSTMENT "Electricity" '(16 2 100 1 1 0 1)
SF-TOGGLE "Absolute Size?" FALSE
SF-VALUE "Image Width" "400"
SF-VALUE "Image Height" "150"
SF-TOGGLE "Flatten Layers?" FALSE
)