Gimptalk - Premier Gimp Community: Red eye script - Gimptalk - Premier Gimp Community

Jump to content

Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Red eye script

#1 User is offline   Metallo 

  • Member
  • PipPip
  • Group: Members
  • Posts: 29
  • Joined: 05-September 07

Posted 16 February 2009 - 07:09 PM

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
0

#2 User is offline   Metallo 

  • Member
  • PipPip
  • Group: Members
  • Posts: 29
  • Joined: 05-September 07

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
0

#3 User is offline   PhotoComix 

  • GT Senior Moderator
  • Group: Senior Moderators
  • Posts: 11,288
  • Joined: 13-June 05

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

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 "/Filters/Decor/Text Backdrop " with "/Filters/Text Fx/Text Backdrop " i move the script there

same to move any other script whatever you wish
just open with the notepad,edit and save
0

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic