HOME | DD
fence-post — GIMP Melt Me Animation Script
by-nc-sa
Published: 2008-05-09 13:58:42 +0000 UTC; Views: 26049; Favourites: 112; Downloads: 8040
Redirect to original
Description
October 5, 2008: I've modified the script to run in GIMP 2.6 (the newest stable version). It should work in 2.4, as well. I won't make guarantees about whether it works in 2.2; however, because GIMP has progressed so far since 2.2, I'll no longer be updating GIMP 2.2 scripts. Let me know if you have any trouble with it.There are no "option" changes to the script. It runs exactly as before.
Please read the information below regarding installation and script options.
This is another script based on one of my tutorials (fence-post.deviantart.com/art/… .
The script runs in GIMP 2.2 as well.
Installation Instructions:
Click on the Download link and you will be given the option to open/save the script. If you choose the save option, it will most likely be saved to your desktop. Just get the file and drag/drop (or copy/paste) it into the GIMP scripts folder (location described below).
If you open it, you'll see a bunch of text. That's what it's supposed to be. Go to file Save As and save it to your GIMP scripts folder (ie....C
rogram FilesGIMP-2.Xsharegimp2.0scripts) Then go to Xtns > Script-Fu > Refresh Scripts.
On an open image in GIMP 2.4, go to Filters > Animation > Melt Me... In GIMP 2.2, you can find it here: Filters > Animation > Animators > Melt Me...Set the parameters as desired and a new, melting animation image will be created for you personal enjoyment!
Save as an animated gif.Options
Nothing fancy required here. Just open up the image you want to melt, scale to the desired size, and run the script. The script allows you to set the number of frames in the animation, how fast each frame will move, the delay at the beginning and middle of the animation (default for both is 2 sec or 2000 ms), whether or not you want the animation to have a border, the border color, and the border blend mode. If you use a border blend mode other than normal, the border appears to melt as well and will only show up completely on the middle frame. The reason is that wherever there are transparent pixels below the border layer, the various blend modes have nothing to blend with.
Let me know if you have any questions or problems, but I won't be responding right away as I'm still on break.
Take care.
Art
Related content
Comments: 54
Well, I don't know about that, but thank you! LOL
👍: 0 ⏩: 0
alrighty I got it...the scripts folder was located in a different location
👍: 0 ⏩: 0
ummm trying to use it it in GIMP 2.6...and there is not a scripts folder how can I save it as a plugin extension?
just learning to use gimp and my first attempt at using a script is epic failure...
👍: 0 ⏩: 0
I need a bit of help
I made an image with blinking animation and a transparent background. However whenever I try to post it it tells me to put a preview.
I have PSCS3.
👍: 0 ⏩: 0
this is all i see x.x 👍: 0 ⏩: 0
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
;
;
; Creates a "melting" animation of the active layer in an image as described in my tutorial here:
;
; [link]
; The animation may be saved with the gif-plug-in.
;
; The script can be found under Filters > Animation > Melt Me...
;
; Script updated on October 3, 2008 to work with GIMP 2.6
; Define the Function
(define (script-fu-melt-me-anim img
drawable
counter
inSpeed
pause1
pause2
addBorder
borderWidth
borderColor
blendOpt
)
; Declare the Variables
(let* (
(speed 0)
(width 0)
(height 0)
(theSelection 0)
(newImage 0)
(activeLayer 0)
(activeLayerCopy 0)
(activeLayerHolder 0)
(floatingSelection 0)
(borderBlendMode
(cond
(( equal? blendOpt 0 ) NORMAL-MODE)
(( equal? blendOpt 1 ) DISSOLVE-MODE)
(( equal? blendOpt 2 ) MULTIPLY-MODE)
(( equal? blendOpt 3 ) DIVIDE-MODE)
(( equal? blendOpt 4 ) SCREEN-MODE)
(( equal? blendOpt 5 ) OVERLAY-MODE)
(( equal? blendOpt 6 ) DODGE-MODE)
(( equal? blendOpt 7 ) BURN-MODE)
(( equal? blendOpt 8 ) HARDLIGHT-MODE)
(( equal? blendOpt 9 ) SOFTLIGHT-MODE)
(( equal? blendOpt 10 ) GRAIN-EXTRACT-MODE)
(( equal? blendOpt 11 ) GRAIN-MERGE-MODE)
(( equal? blendOpt 12 ) DIFFERENCE-MODE)
(( equal? blendOpt 13 ) ADDITION-MODE)
(( equal? blendOpt 14 ) SUBTRACT-MODE)
(( equal? blendOpt 15 ) DARKEN-ONLY-MODE)
(( equal? blendOpt 16 ) LIGHTEN-ONLY-MODE)
(( equal? blendOpt 17 ) HUE-MODE)
(( equal? blendOpt 18 ) SATURATION-MODE)
(( equal? blendOpt 19 ) COLOR-MODE)
(( equal? blendOpt 20 ) VALUE-MODE)
)
)
(displaceLayer 0)
(displaceLayerCopy 0)
(layerName 0)
(remainingFrames counter 0)
(transparentLayer 0)
(offset 0)
(step 0)
(frameNum 1)
(borderLayer 0)
(totalFrames counter)
)
(gimp-context-push)
(set! activeLayer (car (gimp-image-get-active-layer img)))
(set! theSelection (car (gimp-selection-save img)))
(gimp-selection-none img)
(set! width (car (gimp-drawable-width activeLayer)))
(set! height (car (gimp-drawable-height activeLayer)))
(set! activeLayer (car (gimp-edit-copy activeLayer)))
(set! newImage (car (gimp-image-new width height RGB)))
(gimp-image-undo-disable newImage)
(set! activeLayerHolder (car (gimp-layer-new newImage width height RGBA-IMAGE "Active Layer" 100 NORMAL-MODE)))
(gimp-drawable-fill activeLayerHolder TRANSPARENT-FILL)
(gimp-image-add-layer newImage activeLayerHolder -1)
(set! floatingSelection (car (gimp-edit-paste activeLayerHolder TRUE)))
(gimp-floating-sel-anchor floatingSelection)
(set! activeLayer (car (gimp-image-get-active-layer newImage)))
(set! displaceLayer (car (gimp-layer-new newImage width height RGBA-IMAGE "Displace Layer" 100 NORMAL-MODE)))
(gimp-image-add-layer newImage displaceLayer -1)
(plug-in-solid-noise RUN-NONINTERACTIVE newImage displaceLayer 0 0 (rand) (rand) 4.0 4.0)
(set! displaceLayerCopy (car (gimp-layer-copy displaceLayer TRUE)))
(gimp-image-add-layer newImage displaceLayerCopy -1)
(plug-in-solid-noise RUN-NONINTERACTIVE newImage displaceLayerCopy 0 0 (rand) (rand) 4.0 4.0)
(gimp-layer-set-mode displaceLayerCopy SCREEN-MODE)
(gimp-image-merge-down newImage displaceLayerCopy CLIP-TO-IMAGE)
(set! displaceLayer (car (gimp-image-get-active-layer newImage)))
(gimp-brightness-contrast displaceLayer 0 10)
(set! offset (* 2 height))
(set! step (/ (* 4 height) counter))
(while (> counter 0)
(set! speed inSpeed)
(if (= frameNum 1)
(begin
(set! speed pause1)
(set! transparentLayer (car (gimp-layer-copy activeLayer TRUE)))
(gimp-image-add-layer newImage transparentLayer -1)
(gimp-drawable-fill transparentLayer TRANSPARENT-FILL)
(set! layerName (string-append "Frame " (number->string frameNum) " (" (number->string speed) "ms)" " (replace)"))
(gimp-drawable-set-name transparentLayer layerName)
(set! frameNum (+ frameNum 1))
(set! speed inSpeed)
(if (= addBorder TRUE)
(begin
(set! borderLayer (car (gimp-layer-copy activeLayer TRUE)))
(gimp-image-add-layer newImage borderLayer -1)
(gimp-selection-all newImage)
(gimp-context-set-foreground borderColor)
(gimp-drawable-fill borderLayer FOREGROUND-FILL)
(gimp-selection-shrink newImage borderWidth)
(gimp-edit-clear borderLayer)
(gimp-layer-set-mode borderLayer borderBlendMode)
(gimp-selection-none newImage)
(gimp-image-merge-down newImage borderLayer CLIP-TO-IMAGE)
)
)
)
)
(if (= frameNum (trunc (/ totalFrames 2)))
(begin
(set! speed pause2)
(set! offset 0)
(set! counter (- counter 1))
)
)
(set! activeLayerCopy (car (gimp-layer-copy activeLayer TRUE)))
(gimp-image-add-layer newImage activeLayerCopy -1)
(if (= frameNum 1)
(plug-in-displace RUN-NONINTERACTIVE newImage activeLayerCopy 0 0 0 0 displaceLayer displaceLayer 3)
)
(plug-in-displace RUN-NONINTERACTIVE newImage activeLayerCopy 0 offset 0 1 displaceLayer displaceLayer 3)
(set! layerName (string-append "Frame " (number->string frameNum) " (" (number->string speed) "ms)" " (replace)"))
(gimp-drawable-set-name activeLayerCopy layerName)
(set! speed inSpeed)
(set! offset (- offset step))
(set! frameNum (+ frameNum 1))
(set! counter (- counter 1))
; Adds a border layer if chosen by the user with the values set
(if (= addBorder TRUE)
(begin
(set! borderLayer (car (gimp-layer-copy activeLayer TRUE)))
(gimp-image-add-layer newImage borderLayer -1)
(gimp-selection-all newImage)
(gimp-context-set-foreground borderColor)
(gimp-drawable-fill borderLayer FOREGROUND-FILL)
(gimp-selection-shrink newImage borderWidth)
(gimp-edit-clear borderLayer)
(gimp-layer-set-mode borderLayer borderBlendMode)
(gimp-selection-none newImage)
(gimp-image-merge-down newImage borderLayer CLIP-TO-IMAGE)
)
)
) ; goes with while
; Removes the original layer from the stack because it's no longer needed
(gimp-image-remove-layer newImage activeLayer)
(gimp-image-remove-layer newImage displaceLayer)
(gimp-image-undo-enable newImage)
(gimp-selection-load theSelection)
(gimp-image-remove-channel img theSelection)
(gimp-context-pop)
(gimp-displays-flush)
; Displays the final animation
(gimp-display-new newImage)
(gimp-image-set-active-layer img drawable)
)
)
(script-fu-register "script-fu-melt-me-anim"
"
"Create an animated melt effect"
"Art Wade"
"Art Wade"
"October 3, 20082008"
"RGB*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT "Number of frames" '(50 15 50 1 10 0 1)
SF-ADJUSTMENT "Animation Speed (in ms)" '(100 10 500 1 1 0 1)
SF-ADJUSTMENT "First Frame Delay Time (in ms)" '(2000 10 20000 1 1 0 1)
SF-ADJUSTMENT "Middle Frame Delay Time (in ms)" '(2000 10 20000 1 1 0 1)
SF-TOGGLE "Add Border?" FALSE
SF-ADJUSTMENT "Border Width" '(1 1 3 1 1 0 1)
SF-COLOR "Border Color" '(255 255 255)
SF-OPTION "Border Blend Mode" '("NORMAL-MODE"
"DISSOLVE-MODE"
"MULTIPLY-MODE"
"DIVIDE-MODE"
"SCREEN-MODE"
"OVERLAY-MODE"
"DODGE-MODE"
"BURN-MODE"
"HARDLIGHT-MODE"
"SOFTLIGHT-MODE"
"GRAIN-EXTRACT-MODE"
"GRAIN-MERGE-MODE" "DIFFERENCE-MODE"
"ADDITION-MODE"
"SUBTRACT-MODE"
"DARKEN-ONLY-MODE"
"LIGHTEN-ONLY-MODE"
"HUE-MODE"
"SATURATION-MODE"
"COLOR-MODE"
"VALUE-MODE")
)
when i click download it doesnt ask me to open or save but it takes me to a new webpage with just words
can you help
👍: 0 ⏩: 0
Hi Art,
thats wonderful. I'm verry happy and will download the script again.
Thanks for your work
loves from Germany
Avarra (gimpparadies)
👍: 0 ⏩: 1
The new version was just uploaded. I've fixed all of my scripts but haven't had the chance to get them on the web yet, but will be doing so over the next few days. Take care and thanks!
Art
👍: 0 ⏩: 0
Hi fence post,
thats go not on Gimp 2.6 sorry my bad english ... I'm a german girl
👍: 0 ⏩: 1
Thanks for the note. I had heard that there were some changes to scripting in the new GIMP version, but I haven't downloaded the new GIMP yet and don't know what the changes are. Hopefully I can experiment with the issues this weekend and get my scripts up-to-date.
Thanks again!
Art
👍: 0 ⏩: 0
When I click download it takes me straight to the text.
👍: 0 ⏩: 0
I cant get this to work. You say you need GAP to run this? Do you know of a legit place to download the GAP? Thanks.
👍: 0 ⏩: 1
No, you don't need GAP. I don't believe I mentioned that in the description. What process did you use to install the script? If you can provide me with some more information, I'll try and help you get it running, but I'm not sure what feedback to give you at this point.
Art
👍: 0 ⏩: 0
You're welcome! Thanks for the fave!
Art
👍: 0 ⏩: 0
Thanks So much. I tried the notepad but i didnt save it as .scm! Wow thanks a lot! Your Work Is Fantastic!
👍: 0 ⏩: 1
No problem! Glad you got it to work. Windows creates a LOT of problem with scripts. So, I plan on compiling all of my notes and creating a script installation tutorial because it gives so many people fits. Let me know if I can be of further help.
Art
👍: 0 ⏩: 0
[link] < That is all I get when I click the download link, nothing more. Thanks Snyper
👍: 0 ⏩: 1
Actually, that's the script! Here's what you need to do:
When you open up the script in IE, copy the entire code (Ctrl+A) and then open up Windows Notepad (should be some place like this Start > Accessories > Notepad). When Notepad opens, paste the code (Ctrl+V) into it. Then, go to File > Save As, locate your GIMP Scripts folder (C:\Program Files\GIMP-2.40\share\gimp\2.0\scripts), give the Script a Name (with a ".scm" extension on the end), and then under "Save as Type" select All Files. Hit the Save button. Then in GIMP go to Xtns > Script-Fu > Refresh Scripts and your script should be ready to use.
Let me know if you still have any trouble.
Art
👍: 0 ⏩: 0
When I click the download link, i do not get the option to open or save as.
👍: 0 ⏩: 1
Hmmm. What is happening? Anything? Can you post a screenshot or give me some more information so I can try to figure out a solution for you?
Art
👍: 0 ⏩: 1
the same thing is happening to me. It gives the code on Internet Explorer. Here is just a small clip of it:
";
; Creates a "melting" animation of the active layer in an image as described in my tutorial here:
;
; [link]
; The animation may be saved with the gif-plug-in.
;
; The script can be found under Filters > Animation > Melt Me...
;
; Script updated on October 3, 2008 to work with GIMP 2.6
; Define the Function"
👍: 0 ⏩: 1
That's the script code. Try right-clicking on the IE window and see if it will allow you to save it (make sure it either puts an ".scm" extension on it or you'll have to add one.) If that doesn't work, let me know and I'll put it in a zip file for you to access. IE screws everything up.
Art
👍: 0 ⏩: 0
Glad you like it! Thanks!
Art
👍: 0 ⏩: 0
it wont show up
when i go to my scrips folder it says images in that floder should i save it there or in scripts b//c when i just save it in scrips it doesnt work and yes i refresh it
👍: 0 ⏩: 1
Well, you need to save it in the scripts folder, not the images folder within it. What program opens the script when you click on the download link? Are you using Windows? If you can give me a little more information, I should be able to figure out a solution.
Art
👍: 0 ⏩: 1
well i put it in the scrips like you said but when u go to gimp to refresh
doesnt work
👍: 0 ⏩: 1
As I said in my previous reply I'll need a little more information to help you out.
👍: 0 ⏩: 0
How cool is this
I count that two deviations in as many days while you're on a break....admit it....you just can't stay away
👍: 0 ⏩: 1
You're absolutely correct! It's been hard to stay away!
👍: 0 ⏩: 0
You're welcome! Thanks for the comment.
Art
👍: 0 ⏩: 0
thanks!
i love this "style"[?] but never got to go through the tutorial...
thanks for the script!
👍: 0 ⏩: 1
| Next =>