Create Animation Sequence

BlitzMax Forums/BlitzMax Programming/Create Animation Sequence

BLaBZ

(Posted 2012) [#1]

Hey Guys -

I have a sequence of png's I created in After effects and would to convert them to an animated image.

Is there a tool that can do this?

jsp	(Posted 2012) [#2]

IIRC you own Logic Gui and it comes with the IconStripCreator:
http://jsp.logiczone.de/downloads/IconStripCreator1.0.pdf

It can handle single png's to build strips and also animations to split into single files.
Checkout the manual to see if it helps for what you are looking for.

Jesse

(Posted 2012) [#3]

gimp:
http://www.gimp.org/downloads/

Last edited 2012

Kryzon

(Posted 2012) [#4]

http://blitzbasic.com/Community/posts.php?topic=99225

GfK	(Posted 2012) [#5]

...or, if you like:

Global prefix:String = Input("Prefix (without numbers): ")
Global firstFrame:Int = Int(Input("First frame: "))
Global lastFrame:Int = Int(Input("Last Frame: "))
Global dest:String = Input("Output filename (.PNG will be added): ")

Global pos:Int = Int(firstFrame)

Repeat
	suff:String = String(Pos)
	Repeat
		suff = "0" + suff
	Until Len(suff) = 4
	file:String = prefix+suff+".png"

	imgIn:TPixmap = LoadPixmap(file)
	size:Int = PixmapWidth(imgIn)
	If imgOut:TImage = Null
		imgOut:TImage = CreateImage(PixmapWidth(imgIn)*((lastFrame-firstframe)+1),PixmapHeight(imgIn),1,DYNAMICIMAGE)
		pixmapOut:TPixmap = LockImage(imgOut)
	EndIf
	
	For x:Int = 0 To PixmapWidth(imgIn)-1
		For y:Int = 0 To PixmapHeight(imgIn)-1
			px:Int = ReadPixel(imgIn,x,y)
			WritePixel(pixmapOut,x+(size*(pos-firstframe)),y,px)
		Next
	Next
	pos:+1
Until pos > lastframe

SavePixmapPNG(pixmapOut,dest+".png",9)

Build that as a console app and run it from the same location as your images. It works assuming your image files are called, eg; myimage0001.png, myimage0002.png etc.

So the prefix would be "myimage"
First frame would be "1"
Last frame would be <the highest frame number>
...and the output filename.

Wrote it for my own use years back, but if it works for you, feel free.