Code archives/Graphics/Pixel explosion effect

Cool! :D

This looks very good :)

I hope it is ok that I have made a Blitzmax conversion with some small additions.
Every frame is saved as a seperate PNG file and after rendering it could also be saved as an animstrip.

Type TPixelExplosion
	Field Image:TImage
	Field Width:Int = 256
	Field Height:Int = 256
	
	Field Map:TExPix[,]
	Field Pixels:TList = New TList
	Field Frame:Int = 0
	
	Function Create:TPixelExplosion(W:Int = 256,H:Int = 256)
		Local E:TPixelExplosion = New TPixelExplosion
		E.Width = W
		E.Height = H
		E.Init()
		Return E
	End Function
	
	Method Init()
		Image = CreateImage(Width,Height)
		Pixels.Addlast(TExPix.Create(Width/2,Height/2,760,760/100.0^2+8))
		Map = New TExPix[Width,Height]
		Map[Width/2,Height/2] = TExPix(Pixels.Last())
	End Method
	
	Method Update()
		Local PixMap:TPixmap = LockImage(Image)
		ClearPixels(PixMap)
		For Local p:TExPix = EachIn Pixels
			Local C:Int = Setcol(P.T)
			WritePixel PixMap,P.X,P.Y,C
			P.X = P.X + P.DX
			P.Y = P.Y + P.DY
			
			For Local dx:Int = -1 To 1
				For Local dy:Int = -1 To 1
				
					Local X:Float
					Local Y:Float
					X = P.X+DX
					Y = P.Y+DY
					
					If X>0 And x<Width-1 And y>0 And Y<Height-1 Then
						If Map[x,y] = Null And Rnd(10)>8 Then
							Map[X,Y] = TExPix.Create(X,Y,P.T-Rnd(20),0)
							Local spd:Float = Rnd(1.5)
							Local dir:Float = Rnd(360)
							Map[X,Y].dx = spd*Cos(dir)
							Map[X,Y].dy = spd*Sin(dir)
							
							Pixels.Addlast(Map[X,Y])
							If Map[X,Y].T > 0 Then
								Map[X,Y].decay = (Map[x, y].T/100.0) ^ 2+8
							Else
								Pixels.Remove(Map[X,Y])
								'Map[X,Y] = Null
							EndIf
						EndIf
					EndIf
				Next
			Next
			
			P.T = P.T - Rnd(p.decay)
			If p.T <= 0 Or (P.X<0 Or x>Width-1 Or y<0 Or Y>Height-1) Then 
				Pixels.Remove(P)
				P = Null
			EndIf
		Next
		
		
		
		UnlockImage(Image)
				
	End Method
	
	Method Draw(X:Int,Y:Int)
		DrawImage(Image,X,Y)
	End Method
	
	Method Save(X:Int,Y:Int)
		If Pixels.Count() > 1 Then
				SavePixmapPNG(MaskPixmap(GrabPixmap(X,Y,Width,Height),0,0,0),"Frame"+Frame+".png")
				Frame:+1
		Else
			'SaveAnimImage()
		EndIf
	End Method
	
	Method SaveAnimImage()
		Local Pix:TPixmap = CreatePixmap(Width*Frame,Height,PF_RGBA8888)
		Print (Width*Height) + "Frames : " + Frame
		'DebugStop()
		For Local F:Int = 0 To Frame-1
			Local PixMap:TPixmap = LoadPixmap("Frame"+f+".png")
			For Local X:Int = 0 To Width-1
				For Local Y:Int = 0 To Height-1
					Local C:Int = ReadPixel(Pixmap,X,Y)
					WritePixel(Pix,X+(F*Width),Y,C)
					'Print "X:"+X+"Y:"+Y+"C:"+Hex(C)
				Next
			Next
		Next
		SavePixmapPNG(Pix,"AnimExpl.png")
		Print "Ready ..."
	End Method
			
End Type

Type TExPix
	Field T:Int
	Field X:Float
	Field Y:Float
	Field DX:Float
	Field DY:Float
	Field Decay:Float
	
	Function Create:TExPix(x:Float,y:Float,Temp:Int,decay:Float)
		Local P:TExPix = New TExPix
		P.X = X
		P.Y = Y
		P.T = Temp
		P.Decay = decay
		Return P
	End Function
End Type

Function SetCol:Int(t:Float)
	If t >= 256*3.0 Then
		SetColor 255, 255, 255
	ElseIf t >= 256*2 Then
		SetColor 255, 255, t-256*2
	
	ElseIf t >= 256
		SetColor 255, t-256, 0
		
	ElseIf t > 0
		If t > 64 Then
			gb = (256-t)/3.0	
		Else
			gb = t
		End If
		
		SetColor t, gb, gb
		
	Else
		SetColor 0, 0, 0
	End If
	Local R:Int
	Local G:Int
	Local B:Int
	GetColor(R,G,B)
	SetColor 255,255,255
	Return IntColor(R,G,B)	
End Function

Function IntColor(R,G,B,A=255)
'returns argb value from red, green, blue.
     Return A Shl 24 | R Shl 16 | G Shl 8 | B Shl 0
End Function

Graphics 800,600,0,-1

Local Ex:TPixelExplosion = TPixelExplosion.Create(128,128)
Local anim:Byte = False
Local Img:TImage '= LoadAnimImage("AnimExpl.png",ex.width,ex.height,0,ex.frame)
Local fr:Float = 0

While Not KeyHit(KEY_ESCAPE)
	Cls
	Ex.Update()
	Ex.Draw(0,0)
	Ex.Save(0,0)
	
	If KeyHit(KEY_SPACE) Then 
		Ex.SaveAnimImage()
		img = LoadAnimImage("AnimExpl.png",ex.width,ex.height,0,ex.frame)
		anim = True
	End If
	
	If anim = True Then 
		DrawImage img,0+ex.width,0,fr
		fr:+.1
		If fr>ex.frame-1 Then fr = 0
	EndIf
	
	Flip
Wend

sure... it's public domain after all...

Nice - I may use that! Thanks.

I know this is a biut of an old thread, but Ive just had a good luck at it. I'm curious to how writepixelfast may be worth adding

BlitzMax version:
I just get a black image saved although the initial image draws, am I missing something?

"Burn baby, burn!"