Dissolve Effect

This code has been declared by its author to be Public Domain code.

Dissolve Effect by ninjarat

2006

This takes whatever is currently on the backbuffer and tiles it. Then it shrinks and rotates the tiles slowly until they dissapear.

Global imgs:TImage[20,15]
initfadeout()

'your code goes here

Function initfadeout()
	For j=0 To 19
		For k=0 To 14
			imgs[j,k]=CreateImage(GraphicsWidth()/20,GraphicsHeight()/15,1,DYNAMICIMAGE)
			MidHandleImage imgs[j,k]
		Next
	Next
End Function
	
Function fadeout()
	For j=0 To 19
		For k=0 To 14
			GrabImage imgs[j,k],j*(GraphicsWidth()/20),k*(GraphicsHeight()/15)
		Next
	Next
	
	For i#=1 To 0 Step -.015
		Cls
		SetTransform (1-i)*180,i,i
		For j=0 To 19
			For k=0 To 14
				x=j*(GraphicsWidth()/20); y=k*(GraphicsHeight()/15)
				xh=GraphicsWidth()/40; yh=GraphicsHeight()/30
				DrawImage imgs[j,k],x+xh,y+yh
			Next
		Next
		SetHandle 0,0
		SetTransform 0,1,1
		Flip
	Next
End Function

Comments

Curtastic

2006

Hi, nice little effect. Make it work in strict mode please.

ninjarat

2006

Okay, this should work in strict mode.

Strict

Global imgs:TImage[20,15]
initfadeout()

'your code goes here

Function initfadeout()
	For Local j%=0 To 19
		For Local k%=0 To 14
			imgs[j,k]=CreateImage(GraphicsWidth()/20,GraphicsHeight()/15,1,DYNAMICIMAGE)
			MidHandleImage imgs[j,k]
		Next
	Next
End Function
	
Function fadeout()
	For Local j%=0 To 19
		For Local k%=0 To 14
			GrabImage imgs[j,k],j*(GraphicsWidth()/20),k*(GraphicsHeight()/15)
		Next
	Next
	
	Local x%,xh%
	Local y%,yh%
	
	For Local i#=1 To 0 Step -.015
		Cls
		SetTransform (1-i)*180,i,i
		For Local j%=0 To 19
			For Local k%=0 To 14
				x=j*(GraphicsWidth()/20); y=k*(GraphicsHeight()/15)
				xh=GraphicsWidth()/40; yh=GraphicsHeight()/30
				DrawImage imgs[j,k],x+xh,y+yh
			Next
		Next
		SetHandle 0,0
		SetTransform 0,1,1
		Flip
	Next
End Function

Booticus

2006

Hey thats damned neat! Thanks a lot!

Code Archives Forum