GT Portal . Forums . Official Tutorials . Art Galleries . FAQs . Search . New Posts . Contact Us Login  .  Register


GimpTalk Announcement :
Try your digital-art skills against your fellow gimpers in GIMPtalk's Biweekly Art competition !


Board index » GIMP Art Galleries and Resources » GIMP Plugins, Filters, and Scripts Make Money Online . Free Image Hosting Script . Convert FLV to Cell Phone Format
Featured Tutorial : Learn how to create characters by Griatch
Search for :  


Post new topic Reply to topic   [ 48 posts ]   Go to page 1, 2  Next


Author Message
 Post subject:
PostPosted: Sun Oct 28, 2007 1:22 am 
Offline
User avatar

Joined:
Mon Jun 13, 2005 11:15 am

Topics: 598
Posts: 7376

Find User's Topics

This is not for request but to avoid duplicated works and share the result

If you updated some older script for Gimp 2.4 please share it , and post here
(better a link for the scm file )

here how to update http://www.gimp.org/docs/script-fu-update.html


_________________
Image

http://www.flickr.com/photos/97844002@N00/


Top
 Profile  
 
 Post subject:
PostPosted: Sun Oct 28, 2007 1:50 am 
Offline
User avatar

Joined:
Mon Jun 13, 2005 11:15 am

Topics: 598
Posts: 7376

Find User's Topics
well ,latest found

Death effect (LOMO+vintage) by Alexia Death (examples + download)
http://alexia.death.pri.ee/archives/category/art/

Convolution Matrix preset (a lot of cool effects) by Icci, edited by Lasms, ported to gimp 2.4 by Alexia Death
http://alexia.death.pri.ee/archives/category/gimp/

_________________
Image

http://www.flickr.com/photos/97844002@N00/


Top
 Profile  
 
 Post subject:
PostPosted: Sun Oct 28, 2007 9:40 am 
Online
User avatar

Joined:
Thu Jun 02, 2005 5:42 pm

Topics: 29
Posts: 516

Find User's Topics
I will be upgrading all of my scripts and will post links both here and my usual thread once i get them uploaded

_________________
Image


Top
 Profile E-mail  
 
 Post subject:
PostPosted: Sun Oct 28, 2007 2:55 pm 
Online
User avatar

Joined:
Thu Jun 02, 2005 5:42 pm

Topics: 29
Posts: 516

Find User's Topics
now updated the following scripts of mine to run with 2.4

Diamond Text
Blended Text
Old Rusted

_________________
Image


Top
 Profile E-mail  
 
 Post subject:
PostPosted: Sun Oct 28, 2007 11:40 pm 
Offline
User avatar

Joined:
Mon Jun 13, 2005 11:15 am

Topics: 598
Posts: 7376

Find User's Topics
All the scripts on this page are updated

http://registry.gimp.org/person?id=9242

All scripts are by Harry Philiphs

_________________
Image

http://www.flickr.com/photos/97844002@N00/


Top
 Profile  
 
 Post subject:
PostPosted: Fri Nov 09, 2007 10:32 pm 
Offline

Joined:
Fri Nov 09, 2007 10:28 pm

Topics: 0
Posts: 1

Find User's Topics
I updated shrek-text to work with Gimp 2.4. I wish I could take the credit for writing the original, but...well it works in 2.4 now anyway.

Here is the link:

http://www.open-source-depot.com/blog (it's the first entry)

or if significant time has passed:

http://www.open-source-depot.com/blog/archives/16-Shrek-Text-for-Gimp-2.4.html

Enjoy!

Jon

Image


Top
 Profile  
 
 Post subject:
PostPosted: Sat Nov 10, 2007 4:11 am 
Offline

Joined:
Mon Oct 09, 2006 5:41 am

Topics: 4
Posts: 121

Find User's Topics
:m: I love you all!! Thank you!!


Top
 Profile  
 
 Post subject:
PostPosted: Wed Nov 14, 2007 10:49 am 
Offline
User avatar

Joined:
Tue Aug 21, 2007 8:36 am

Topics: 21
Posts: 107

Find User's Topics
i'll be glad to help, please send me a message with some scripts that need update and i'll be happy to help.

~LIMN


Top
 Profile  
 
 Post subject:
PostPosted: Wed Nov 14, 2007 3:30 pm 
Offline
User avatar

Joined:
Wed Nov 14, 2007 2:59 pm

Topics: 0
Posts: 2

Find User's Topics
hi everyone ;)
I need some hepl since I have many old scripts..

Code:
(define (apply-3d-outline-logo-effect img
                                      logo-layer
                                      text-pattern
                                      outline-blur-radius
                                      shadow-blur-radius
                                      bump-map-blur-radius
                                      noninteractive
                                      s-offset-x
                                      s-offset-y)
  (let* (
        (width (car (gimp-drawable-width logo-layer)))
        (height (car (gimp-drawable-height logo-layer)))
        (bg-layer (car (gimp-layer-new img width height
                                       RGB-IMAGE "Background" 100 NORMAL-MODE)))
        (pattern (car (gimp-layer-new img width height
                                      RGBA-IMAGE "Pattern" 100 NORMAL-MODE)))
        (layer2)
        (layer3)
        (pattern-mask)
        (floating-sel)
        )

    (gimp-context-push)

    (gimp-selection-none img)
    (script-fu-util-image-resize-from-layer img logo-layer)
    (gimp-image-add-layer img pattern 1)
    (gimp-image-add-layer img bg-layer 2)
    (gimp-context-set-background '(255 255 255))
    (gimp-edit-fill bg-layer BACKGROUND-FILL)
    (gimp-edit-clear pattern)
    (gimp-layer-set-lock-alpha logo-layer TRUE)
    (gimp-context-set-foreground '(0 0 0))
    (gimp-edit-fill logo-layer FOREGROUND-FILL)
    (gimp-layer-set-lock-alpha logo-layer FALSE)
    (plug-in-gauss-iir RUN-NONINTERACTIVE img logo-layer outline-blur-radius TRUE TRUE)

    (gimp-drawable-set-visible pattern FALSE)
    (set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
    (plug-in-edge RUN-NONINTERACTIVE img layer2 2 1 0)
    (set! layer3 (car (gimp-layer-copy layer2 TRUE)))
    (gimp-image-add-layer img layer3 2)
    (plug-in-gauss-iir RUN-NONINTERACTIVE img layer2 bump-map-blur-radius TRUE TRUE)

    (gimp-selection-all img)
    (gimp-context-set-pattern text-pattern)
    (gimp-edit-bucket-fill pattern
                           PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
    (plug-in-bump-map noninteractive img pattern layer2
                      110.0 45.0 4 0 0 0 0 TRUE FALSE 0)

    (set! pattern-mask (car (gimp-layer-create-mask pattern ADD-ALPHA-MASK)))
    (gimp-layer-add-mask pattern pattern-mask)

    (gimp-selection-all img)
    (gimp-edit-copy layer3)
    (set! floating-sel (car (gimp-edit-paste pattern-mask FALSE)))
    (gimp-floating-sel-anchor floating-sel)

    (gimp-layer-remove-mask pattern MASK-APPLY)
    (gimp-invert layer3)
    (plug-in-gauss-iir RUN-NONINTERACTIVE img layer3 shadow-blur-radius TRUE TRUE)

    (gimp-drawable-offset layer3 0 1 s-offset-x s-offset-y)

    (gimp-drawable-set-visible layer2 FALSE)
    (gimp-drawable-set-visible pattern TRUE)
    ;;(set! final (car (gimp-image-flatten img)))

    (gimp-context-pop)
  )
)

(define (script-fu-3d-outline-logo-alpha img
                                         logo-layer
                                         text-pattern
                                         outline-blur-radius
                                         shadow-blur-radius
                                         bump-map-blur-radius
                                         noninteractive
                                         s-offset-x
                                         s-offset-y)
  (begin
    (gimp-image-undo-group-start img)
    (apply-3d-outline-logo-effect img logo-layer text-pattern
                                  outline-blur-radius shadow-blur-radius
                                  bump-map-blur-radius noninteractive
                                  s-offset-x s-offset-y)
    (gimp-image-undo-group-end img)
    (gimp-displays-flush)
  )
)

(script-fu-register "script-fu-3d-outline-logo-alpha"
  _"3D _Outline..."
  _"Outline the selected region (or alpha) with a pattern and add a drop shadow"
  "Hrvoje Horvat (hhorvat@open.hr)"
  "Hrvoje Horvat"
  "07 April, 1998"
  "RGBA"
  SF-IMAGE       "Image"               0
  SF-DRAWABLE    "Drawable"            0
  SF-PATTERN    _"Pattern"             "Parque #1"
  SF-ADJUSTMENT _"Outline blur radius" '(5 1 200 1 10 0 1)
  SF-ADJUSTMENT _"Shadow blur radius"  '(10 1 200 1 10 0 1)
  SF-ADJUSTMENT _"Bumpmap (alpha layer) blur radius" '(5 1 200 1 10 0 1)
  SF-TOGGLE     _"Default bumpmap settings" TRUE
  SF-ADJUSTMENT _"Shadow X offset"     '(0 0 200 1 5 0 1)
  SF-ADJUSTMENT _"Shadow Y offset"     '(0 0 200 1 5 0 1)
)

(script-fu-menu-register "script-fu-3d-outline-logo-alpha"
                         "<Image>/Filters/Alpha to Logo")


(define (script-fu-3d-outline-logo text-pattern
                                   text
                                   size
                                   font
                                   outline-blur-radius
                                   shadow-blur-radius
                                   bump-map-blur-radius
                                   noninteractive
                                   s-offset-x
                                   s-offset-y)
  (let* (
        (img (car (gimp-image-new 256 256 RGB)))
        (text-layer (car (gimp-text-fontname img -1 0 0 text 30 TRUE size PIXELS font)))
        )
    (gimp-image-undo-disable img)
    (apply-3d-outline-logo-effect img text-layer text-pattern
                                  outline-blur-radius shadow-blur-radius
                                  bump-map-blur-radius noninteractive
                                  s-offset-x s-offset-y)
    (gimp-image-undo-enable img)
    (gimp-display-new img)
  )
)

(script-fu-register "script-fu-3d-outline-logo"
  _"3D _Outline..."
  _"Create a logo with outlined text and a drop shadow"
  "Hrvoje Horvat (hhorvat@open.hr)"
  "Hrvoje Horvat"
  "07 April, 1998"
  ""
  SF-PATTERN    _"Pattern"             "Parque #1"
  SF-STRING     _"Text"                "GIMP"
  SF-ADJUSTMENT _"Font size (pixels)"  '(100 2 1000 1 10 0 1)
  SF-FONT       _"Font"                "RoostHeavy"
  SF-ADJUSTMENT _"Outline blur radius" '(5 1 200 1 10 0 1)
  SF-ADJUSTMENT _"Shadow blur radius"  '(10 1 200 1 10 0 1)
  SF-ADJUSTMENT _"Bumpmap (alpha layer) blur radius" '(5 1 200 1 10 0 1)
  SF-TOGGLE     _"Default bumpmap settings" TRUE
  SF-ADJUSTMENT _"Shadow X offset"     '(0 0 200 1 5 0 1)
  SF-ADJUSTMENT _"Shadow Y offset"     '(0 0 200 1 5 0 1)
)

(script-fu-menu-register "script-fu-3d-outline-logo"
                         "<Toolbox>/Xtns/Logos")



Top
 Profile E-mail  
 
 Post subject:
PostPosted: Wed Nov 14, 2007 3:52 pm 
Online
User avatar

Joined:
Mon Aug 22, 2005 8:35 pm

Topics: 80
Posts: 3945

Find User's Topics
Quote:
I need some hepl since I have many old scripts..


I would be glad to help you. What problems are you having with your scripts?

_________________
this is bizarre ... it's crazy ... it's stupid ... how can this ... oh my God! It's brilliant!


Top
 Profile  
 
 Post subject:
PostPosted: Wed Nov 14, 2007 5:35 pm 
Offline
User avatar

Joined:
Fri Nov 02, 2007 8:04 pm

Topics: 4
Posts: 19

Find User's Topics
I'm finding cases where scripts are suppose to be updated to Gimp2.4 but they don't work in the Linux version. I'm wondering if script-fu compatibility is now lost between Windows and Linux versions?

I've updated quite a few scripts as well and gathered together others that have been tested for compatibility with Linux and Windows versions of Gimp 2.4. They can be found at my blog.

http://www.gimpscripts.com

_________________
Gimp Scripts | Gimp Tutorials | Gizmo Watcher


Top
 Profile  
 
 Post subject:
PostPosted: Wed Nov 14, 2007 6:36 pm 
Offline
User avatar

Joined:
Mon Jun 13, 2005 11:15 am

Topics: 598
Posts: 7376

Find User's Topics
Quote:
I'm finding cases where scripts are suppose to be updated to Gimp2.4 but they don't work in the Linux version. I'm wondering if script-fu compatibility is now lost between Windows and Linux versions?


That should not happen ...could you post the link of that scripts (even better pointing which is working ONLY in linux or win), please

Quote:
've updated quite a few scripts as well and gathered together others that have been tested for compatibility with Linux and Windows versions of Gimp 2.4. They can be found at my blog.

http://www.gimpscripts.com


Cool thank for the link

_________________
Image

http://www.flickr.com/photos/97844002@N00/


Top
 Profile  
 
 Post subject:
PostPosted: Wed Nov 14, 2007 6:45 pm 
Offline
User avatar

Joined:
Mon Jun 13, 2005 11:15 am

Topics: 598
Posts: 7376

Find User's Topics
44 scripts, for tons of possible effect ...in the First pack from Fx_Foundry ready for download
http://sourceforge.net/project/showfiles.php?group_id=208874

the 2 packs (.ZIP and tar.gz) contain exactly the same material...just windows dependent may found more friendly a Zip, while a tar.gz allow to save more in file size,

Anyway if you prefer you can decompress tar.gz in Windows and unzip zip file in Linux , result doesn't change :w:

_________________
Image

http://www.flickr.com/photos/97844002@N00/


Top
 Profile  
 
 Post subject:
PostPosted: Thu Nov 15, 2007 1:54 am 
Offline
User avatar

Joined:
Fri Nov 02, 2007 8:04 pm

Topics: 4
Posts: 19

Find User's Topics
Quote:
That should not happen .

I agree. I loaded up the Windows version and I can't confirm any differences.

It looks like what I'm seeing on gimp registry and a few other places are mislabeled scripts that aren't updated to Gimp 2.4, but claim to be.

Nice job on the 40 scripts guys!! :h:

I'll contribute whatever I have to the effort.

_________________
Gimp Scripts | Gimp Tutorials | Gizmo Watcher


Top
 Profile  
 
 Post subject:
PostPosted: Fri Nov 16, 2007 11:42 am 
Offline
User avatar

Joined:
Tue Oct 30, 2007 4:13 pm

Topics: 6
Posts: 81

Find User's Topics
Gadget :l: You have some neat stuff converted in the blog, And you wish to share! Thank you! :h: If you wish to join the project, let me know through the source forge mail :) More helping hands are always great.

_________________
Image


Top
 Profile  
 
 Post subject:
PostPosted: Sat Dec 08, 2007 12:05 pm 
Offline
User avatar

Joined:
Wed Nov 14, 2007 2:59 pm

Topics: 0
Posts: 2

Find User's Topics
Quote:
I would be glad to help you. What problems are you having with your scripts?


When I put it to the script folder it says it can't be loaded.


Top
 Profile E-mail  
 
 Post subject:
PostPosted: Sat Dec 08, 2007 3:00 pm 
Online
User avatar

Joined:
Mon Aug 22, 2005 8:35 pm

Topics: 80
Posts: 3945

Find User's Topics
Quote:
When I put it to the script folder it says it can't be loaded.


You may need to be more specific. I am not aware of any problems with GIMP 2.4 loading older scripts, most problems only appear when the scripts are run. Could you provide a link to an example script?

_________________
this is bizarre ... it's crazy ... it's stupid ... how can this ... oh my God! It's brilliant!


Top
 Profile  
 
 Post subject:
PostPosted: Mon Dec 10, 2007 11:52 pm 
Offline

Joined:
Mon Dec 10, 2007 11:47 pm

Topics: 0
Posts: 2

Find User's Topics
Hi, hoping someone can help a newish GIMP user! I'm trying to run Alexis Death's vintage photo and cross processing photo scripts, and I get an error message 'error while scripting (script-fu-vintage effect 2 9 TRUE FALSE)
error: invalid type for argument 4 to gimp_curves_spline. Can anyone direct me where to go to work out how to fix this, or give me any tips?
Many thanks!


Top
 Profile  
 
 Post subject:
PostPosted: Tue Dec 11, 2007 2:30 am 
Offline
User avatar

Joined:
Mon Jun 13, 2005 11:15 am

Topics: 598
Posts: 7376

Find User's Topics
sure but you may please take a screenshoot of the setting are you using?

i just used both script with no error messages so they should be connected to some peculiar setting

_________________
Image

http://www.flickr.com/photos/97844002@N00/


Top
 Profile  
 
 Post subject:
PostPosted: Tue Dec 11, 2007 5:39 am 
Offline

Joined:
Mon Dec 10, 2007 11:47 pm

Topics: 0
Posts: 2

Find User's Topics
Opps, terrible newbie error, realised the script doesn't work with v2.2, upgrading to 2.4 now! Thanks for the reply.


Top
 Profile  
 
 Post subject:
PostPosted: Thu Dec 13, 2007 3:25 pm 
Offline
User avatar

Joined:
Mon Jun 13, 2005 11:15 am

Topics: 598
Posts: 7376

Find User's Topics
Ok a lot of new script pop out, i repost here the link

electricity logo (updated by JamesH) copy (AFTER word "quote") paste and save as .scm

electricity logo

;
Quote:

; --------------------------------------------------------------------

; 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

)


gel bar

http://split-visionz.net/Scripts/GelbarScript%20Pack%20version%201.zip

_________________
Image

http://www.flickr.com/photos/97844002@N00/


Top
 Profile  
 
 Post subject:
PostPosted: Thu Dec 13, 2007 3:32 pm 
Offline
User avatar

Joined:
Mon Jun 13, 2005 11:15 am

Topics: 598
Posts: 7376

Find User's Topics
From Fatal Edge a cool border script (border may be extern or intern to the image)
http://insanity-prevails.deviantart.com ... t-71646868

and a "flower generator"

http://insanity-prevails.deviantart.com/art/Flower-Generator-Script-71805937

2 script to emulate "Dave Hill" effect

how to+ links here http://www.gimptalk.com/forum/topic/Dave-Hill-Effect-mini-How-To-2-New-Script-fu-26895-1.html

_________________
Image

http://www.flickr.com/photos/97844002@N00/


Top
 Profile  
 
 Post subject:
PostPosted: Fri Dec 14, 2007 6:57 am 
Offline
User avatar

Joined:
Fri Nov 02, 2007 8:04 pm

Topics: 4
Posts: 19

Find User's Topics
Four more freshly updated scripts for Gimp 2.4.

feurio-logo.scm
Ice-fire-logo.scm
ice-cube-logo.scm
chrominium.scm

You can grab them here.

_________________
Gimp Scripts | Gimp Tutorials | Gizmo Watcher


Top
 Profile  
 
 Post subject:
PostPosted: Sat Dec 15, 2007 12:31 pm 
Offline
User avatar

Joined:
Wed Jul 13, 2005 11:31 am

Topics: 121
Posts: 474

Find User's Topics
I am not sure if this is the right place to post this if so then moderators please move to appropriate area. I have the erase every nth row script, but for some reason it does register in the script fu menu. Can someone point out what is wrong and why does it not register in the script fu menu. I already see one in the Filter>Distort>Erase every other row. But this one should be Script Fu> Alchemy>Erase every n-th Row...

Edit: Fatal Edge indicated that a parenthesis was missing after (height (car (gimp-drawable-height drawable))).
The below script is correct for anyone to use.



Code:
; February 2004 - add selection linewidth of rows/columns by mpro
(define (script-fu-erase-rows-2 img drawable orientation which type rows1 rows2)
  (let* (
        (width (car (gimp-drawable-width drawable)))
         (height (car (gimp-drawable-height drawable))))
    (gimp-undo-push-group-start img)
    (letrec ((loop (lambda (i max)
                       (if (< i max)
                        (begin
                          (if (= orientation 0)
                              (gimp-rect-select img 0 i width rows1 REPLACE FALSE 0)
                              (gimp-rect-select img i 0 rows1 height REPLACE FALSE 0))
                          (if (= type 0)
                              (gimp-edit-clear drawable)
                              (gimp-edit-fill drawable BG-IMAGE-FILL))
                          (loop (+ i (+ rows1 rows2)) max))))))
       (loop (if (= which 0)
                    rows2
                    0)
              (if (= orientation 0)
                  height
                  width)
        )
      )
      (gimp-selection-none img)
      (gimp-undo-push-group-end img)
      (gimp-displays-flush)
  )
)

(script-fu-register "script-fu-erase-rows-2"
          _"<Image>/Filters/Distorts/Erase every n-th Row..."
          "Erase every n-th row/column with the background color"
          "Federico Mena Quintero, mpro"
          "Federico Mena Quintero"
          "June 1997, February 2004"
          "RGB* GRAY* INDEXED*"
          SF-IMAGE "Image" 0
          SF-DRAWABLE "Drawable" 0
          SF-OPTION _"Rows/Cols" '(_"Rows" _"Columns")
          SF-OPTION _"Even/Odd"  '(_"Even" _"Odd")
          SF-OPTION _"Erase/Fill"  '(_"Erase" _"Fill with BG")
                SF-ADJUSTMENT _"Linewidth of erased Rows/Columns" '( 1 0 30 1 10 0 1)
                SF-ADJUSTMENT _"Linewidth of Rows/Columns with picture" '( 1 0 30 1 10 0 1)
)


_________________
I know I'm in my own little world. But its ok. They know me HERE


Top
 Profile  
 
 Post subject:
PostPosted: Sat Dec 15, 2007 12:42 pm 
Online
User avatar

Joined:
Mon Aug 22, 2005 8:35 pm

Topics: 80
Posts: 3945

Find User's Topics
Quote:
Can someone point out what is wrong and why does it not register in the script fu menu.


There are several instances of unmatched parentheses in that code. I am skeptical of it having ever worked in that form for any version of GIMP.

_________________
this is bizarre ... it's crazy ... it's stupid ... how can this ... oh my God! It's brilliant!


Top
 Profile  
 
Display posts from previous:  Sort by  

Post new topic Reply to topic
 [ 48 posts ]  Go to page 1, 2  Next



Who is online

Users browsing this forum: lylejk and 0 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Jump to:  
Related Website
Gimp tutorials database
All rights reserved © GimpTalk 2008
forum software by
phpBB