Code has been fixed to work in the newer versions of GIMP. Replace it with the current code and refresh your scripts.
;
; LOMO Effect
; by Alexia Death
;
;
; Licesnse: GPL ver2 or later
;
; This represents my third attempt at gimp scripting and
; Scheme language. If you feel its not as good as it can be,
; feel free to improve it.
;
(define (script-fu-lomo-effect inImage
inLayer
inCopy
inFlatten
)
(let (
(theWidth (car (gimp-image-width inImage)))
(theHeight (car (gimp-image-height inImage)))
(theImage 0)
(base 0)
(overlay 0)
(floating-sel 0)
)
(set! theImage (if (= inCopy TRUE)
(car (gimp-image-duplicate inImage))
inImage
)
)
(if (= inCopy FALSE)
(begin
(gimp-image-undo-group-start theImage)
)
)
(if (> (car (gimp-drawable-type inLayer)) 1)
(gimp-image-convert-rgb theImage)
)
; flattning the image at hand into a copy
(gimp-edit-copy-visible theImage)
; Making base layer
(set! base (car (gimp-layer-new theImage
theWidth
theHeight
RGBA-IMAGE
"base"
100
NORMAL-MODE)))
(gimp-image-add-layer theImage base -1)
(gimp-floating-sel-anchor (car (gimp-edit-paste base TRUE)))
(gimp-hue-saturation base ALL-HUES 0 0 20)
(gimp-brightness-contrast base 0 20)
; making vignetting layer
(set! overlay (car (gimp-layer-new theImage
theWidth
theHeight
RGBA-IMAGE
"vignetting"
100
OVERLAY-MODE)))
(gimp-image-add-layer theImage overlay -1)
(gimp-context-push)
(gimp-context-set-foreground '(255 255 255))
(gimp-context-set-background '(0 0 0))
(gimp-edit-blend overlay FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-RADIAL 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
(/ theWidth 2) (/ theHeight 2) (- theWidth (/ theWidth 8)) (- theHeight (/ theHeight 8)))
(gimp-context-pop)
;(gimp-layer-set-opacity overlay 50)
(if (= inFlatten TRUE)
(gimp-image-flatten theImage)
)
(if (= inCopy TRUE)
(begin
(gimp-image-clean-all theImage)
(gimp-display-new theImage)
)
)
(if (= inCopy FALSE)
(begin
(gimp-image-undo-group-end theImage)
)
)
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-lomo-effect"
_"_LOMO effect..."
_"Give LOMO look to a photos."
"Alexia Death"
"2007, Alexia Death."
"4rd October 2007"
"RGB* GRAY*"
SF-IMAGE "The image" 0
SF-DRAWABLE "The layer" 0
SF-TOGGLE _"Work on copy" FALSE
SF-TOGGLE _"Flatten image" FALSE
)
(script-fu-menu-register "script-fu-lomo-effect"
"<Image>/FX-Foundry/Photo Effects")
