Hi,
I have downloaded and put the .scm script by Martin Guldahl in the scripts folder, but I cannot find it in the Script-Fu menu or in the filters.
I run v 2.6.1
Where is it ?
Thank you
Alex
Page 1 of 1
Red eye script
#2
Posted 16 February 2009 - 07:25 PM
OK, I found it by coincidence under the Select menu.
It doesn't appear to be the appropriate location to me, anyhow... it works :(
Alex
It doesn't appear to be the appropriate location to me, anyhow... it works :(
Alex
#3
Posted 17 February 2009 - 02:49 AM
Quote
t doesn't appear to be the appropriate location to me, anyhow... it works
You may change that do n require knowledge of script fu, just be able to trace a path that is usually close the end of the script
with a example is more clear
Note the part in bold and in red the point is there
Quote
(define (script-fu-text-backdrop-dot image drawable)
(let* (
(width (car (gimp-drawable-width drawable)))
(height (car (gimp-drawable-height drawable)))
(max-wh (max width height))
(x (car (gimp-drawable-offsets drawable)))
(y (cadr (gimp-drawable-offsets drawable)))
(layer)
(orig-selection))
(gimp-image-undo-group-start image)
(set! orig-selection (car (gimp-selection-save image)))
(set! layer (car (gimp-layer-new image
max-wh
max-wh
RGBA-IMAGE
(string-append (car (gimp-drawable-get-name drawable)) "--backdrop")
100
NORMAL-MODE )))
(gimp-image-add-layer image layer -1)
(if (> height width)
(set! x (- x (- (/ max-wh 2) (/ width 2))))
(set! y (- y (- (/ max-wh 2) (/ height 2))))
)
(gimp-layer-set-offsets layer x y)
(gimp-ellipse-select image x y max-wh max-wh CHANNEL-OP-ADD TRUE FALSE 0)
(gimp-edit-fill layer BACKGROUND-FILL)
(gimp-image-lower-layer image layer)
(gimp-selection-load orig-selection)
(gimp-image-remove-channel image orig-selection)
(gimp-displays-flush)
(gimp-image-undo-group-end image)
)
)
(script-fu-register
"script-fu-text-backdrop-dot"
"/Filters/Decor/Text Backdrop"
"Create a circle behind a text layer using background color"
"Saul Goode"
"Saul Goode"
"April 2008"
""
SF-IMAGE "" 0
(let* (
(width (car (gimp-drawable-width drawable)))
(height (car (gimp-drawable-height drawable)))
(max-wh (max width height))
(x (car (gimp-drawable-offsets drawable)))
(y (cadr (gimp-drawable-offsets drawable)))
(layer)
(orig-selection))
(gimp-image-undo-group-start image)
(set! orig-selection (car (gimp-selection-save image)))
(set! layer (car (gimp-layer-new image
max-wh
max-wh
RGBA-IMAGE
(string-append (car (gimp-drawable-get-name drawable)) "--backdrop")
100
NORMAL-MODE )))
(gimp-image-add-layer image layer -1)
(if (> height width)
(set! x (- x (- (/ max-wh 2) (/ width 2))))
(set! y (- y (- (/ max-wh 2) (/ height 2))))
)
(gimp-layer-set-offsets layer x y)
(gimp-ellipse-select image x y max-wh max-wh CHANNEL-OP-ADD TRUE FALSE 0)
(gimp-edit-fill layer BACKGROUND-FILL)
(gimp-image-lower-layer image layer)
(gimp-selection-load orig-selection)
(gimp-image-remove-channel image orig-selection)
(gimp-displays-flush)
(gimp-image-undo-group-end image)
)
)
(script-fu-register
"script-fu-text-backdrop-dot"
"
"Create a circle behind a text layer using background color"
"Saul Goode"
"Saul Goode"
"April 2008"
""
SF-IMAGE "" 0
Noticed once, you will spot easily again, even without the help of that large red Font....close the end of rghe script after "( script fu register" there is the registration path
now if i replace "
same to move any other script whatever you wish
just open with the notepad,edit and save
Share this topic:
Page 1 of 1

Help













