The GIMP / Discussions

Latest discussions
Copyright label with script-fu
Updated 2 months ago
Comment rendre un ciel plus dramatique ?
Updated 2 months ago
Dodging and burning 'trick'
Updated 3 months ago
1 reply
Meet the GIMP! - A videopodcast about the free graphics program Gimp
Updated 5 months ago
2 replies
GREYCstoration - Open source algorithm for image denoising
Updated 5 months ago
Paths and the Ways About Them
Updated 5 months ago
Scripts for GIMP 2.4
Thanks for opening this group!
Updated 6 months ago
1 reply
[GIMP] Color enhancement using LAB color mode
Updated 8 months ago

Scripts for GIMP 2.4

posted by A Roberto Ballerini
Posted on Thursday November 8, 2007 at 19:55. 207 visits. ( permalink )
A lot of old Script-Fu scripts aren't working in version 2.4 because it integrates a new Scheme interpreter.
Let me know if you have a script you want translated for Gimp 2.4: perhaps I can do ti.

8 Replies

nochjemand says:
Hi Roberto,

thats great, i havn't the time yet.
Please kan you fix the set!-error?
And of cause add your copyright to


(define (script-fu-orton-effect theImage theLayer blurAmount)

;Start undo group
(gimp-image-undo-group-start theImage)

;Copy the layer
(let*
(
(copy1 (car (gimp-layer-copy theLayer 0)))
(copy2 (car (gimp-layer-copy theLayer 0)))
)

;Add the layers
(gimp-image-add-layer theImage copy1 -1)
(gimp-image-add-layer theImage copy2 -1)


;Change the layers mode to Screen (4)
(gimp-layer-set-mode copy2 4)

;Merge the copy2 down
(set! Orton-sharp (car (gimp-image-merge-down theImage copy2 0)))
;Set layers name
(gimp-drawable-set-name Orton-sharp "Orton Sharp")
;Create an new copy
(set! copy3 (car (gimp-layer-copy Orton-sharp 0)))
;Set layers name
(gimp-drawable-set-name copy3 "Orton Blur")
;Add the layer
(gimp-image-add-layer theImage copy3 -1)
;Gauss
(if (> blurAmount 0)
(plug-in-gauss 1 theImage copy3 blurAmount blurAmount 0)
)
;Change layers mode to multipicate (3)
(gimp-layer-set-mode copy3 3)

;EO undo group
(gimp-image-undo-group-end theImage)

;refresh screen
(gimp-displays-flush)

)
)


(script-fu-register "script-fu-orton-effect"
_"_Orton Effekt..."
"Performs a Orton Effect on the open image"
"Martin Conrad (Process)"
"2007, Martin Conrad (Process)"
"Apr. 11 2007"
"*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Blur:" '(5 0 500 1 1 1 0)
)

(script-fu-menu-register "script-fu-orton-effect"
_"/Filters/Enhance")


thanks a lot

Martin

--
Coming from a group home page (?)
Posted 7 months ago. ( permalink )
A Roberto Ballerini pro replies:
I will look at it as soon as I have time; in the meantime you can find a working Orton script in the GimpFX foundry: sourceforge.net/projects/gimpfx-foundry

--
Coming from a group home page (?)
Posted 7 months ago. ( permalink )
A Roberto Ballerini pro says:
Here you are:

(define (script-fu-orton-effect theImage theLayer blurAmount)

;Start undo group
(gimp-image-undo-group-start theImage)

;Copy the layer
(let*
(
(copy1 (car (gimp-layer-copy theLayer 0)))
(copy2 (car (gimp-layer-copy theLayer 0)))
(Orton-sharp)
(copy3)
)

;Add the layers
(gimp-image-add-layer theImage copy1 -1)
(gimp-image-add-layer theImage copy2 -1)


;Change the layers mode to Screen (4)
(gimp-layer-set-mode copy2 4)

;Merge the copy2 down
(set! Orton-sharp (car (gimp-image-merge-down theImage copy2 0)))
;Set layers name
(gimp-drawable-set-name Orton-sharp "Orton Sharp")
;Create an new copy
(set! copy3 (car (gimp-layer-copy Orton-sharp 0)))
;Set layers name
(gimp-drawable-set-name copy3 "Orton Blur")
;Add the layer
(gimp-image-add-layer theImage copy3 -1)
;Gauss
(if (> blurAmount 0)
(plug-in-gauss 1 theImage copy3 blurAmount blurAmount 0)
)
;Change layers mode to multipicate (3)
(gimp-layer-set-mode copy3 3)

;EO undo group
(gimp-image-undo-group-end theImage)

;refresh screen
(gimp-displays-flush)

)
)


(script-fu-register "script-fu-orton-effect"
_"/Filters/Enhance/Orton effect..."
"Performs a Orton Effect on the open image"
"Martin Conrad (Process)"
"2007, Martin Conrad (Process)"
"Apr. 11 2007"
"*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Blur:" '(5 0 500 1 1 1 0)
)


--
Coming from a group home page (?)
Posted 7 months ago. ( permalink )
A Roberto Ballerini pro says:
NOTE: if you install FXFoundry, you have to rename from script-fu-orton-effect to something else, to avoid a name clash
Posted 7 months ago. ( permalink )
nochjemand says:
Thanks Roberto. I had renamed it.
It runs fine. :-)

--
Coming from a group home page (?)
Posted 7 months ago. ( permalink )
nochjemand says:
Again this script for others. Browser interpret the &lt,Image> as tag and doesn't display it.
so the characters < must be written as &lt; and > as &gt; while posting scripts here.
Here again for copy and paste:

(define (script-fu-orton-effect theImage theLayer blurAmount)

;Start undo group
(gimp-image-undo-group-start theImage)

;Copy the layer
(let*
(
(copy1 (car (gimp-layer-copy theLayer 0)))
(copy2 (car (gimp-layer-copy theLayer 0)))
(Orton-sharp)
(copy3)
)

;Add the layers
(gimp-image-add-layer theImage copy1 -1)
(gimp-image-add-layer theImage copy2 -1)


;Change the layers mode to Screen (4)
(gimp-layer-set-mode copy2 4)

;Merge the copy2 down
(set! Orton-sharp (car (gimp-image-merge-down theImage copy2 0)))
;Set layers name
(gimp-drawable-set-name Orton-sharp "Orton Sharp")
;Create an new copy
(set! copy3 (car (gimp-layer-copy Orton-sharp 0)))
;Set layers name
(gimp-drawable-set-name copy3 "Orton Blur")
;Add the layer
(gimp-image-add-layer theImage copy3 -1)
;Gauss
(if (> blurAmount 0)
(plug-in-gauss 1 theImage copy3 blurAmount blurAmount 0)
)
;Change layers mode to multipicate (3)
(gimp-layer-set-mode copy3 3)

;EO undo group
(gimp-image-undo-group-end theImage)

;refresh screen
(gimp-displays-flush)

)
)


(script-fu-register "script-fu-orton-effect"
_"Orton effect..."
"Performs a Orton Effect on the open image"
"Martin Conrad, Roberto Ballerini (Process)"
"2007, Martin Conrad, Roberto Ballerini (Process)"
"Apr. 11 2007"
"*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Blur:" '(5 0 500 1 1 1 0)
)


(script-fu-menu-register "script-fu-orton-effect"
_"<Image>/Filters/Enhance")
Posted 7 months ago. ( permalink )
Hercules Rockafeller pro says:
The GIMP registry re-launched and there are quite a few 2.4 script-fu's updated there. registry.gimp.org
Posted 5 months ago. ( permalink )
A Roberto Ballerini pro replies:
Thanks for highlighting it!

--
Coming from a group home page (?)
Posted 5 months ago. ( permalink )

You must be logged on to post a reply. Sign in now?

rss Latest comments – Subscribe to the comment feed for this topic.