Here a very simple image to pixel explosion-ish I did ages ago. It's doesn't use physics but it should be fairly easy to adapt it to create an explosion effect.
If it's the sort of thing you're after then let me know and I'll change it to something more realistic :)
"space bar" to break up and "space bar" to reconstruct.
Graphics 640,480
SeedRnd MilliSecs()
; variables
Const block_size = 3
restore_frames = 100
restore_count = restore_frames
image = LoadImage("image.bmp")
width = ImageWidth(image)
height = ImageHeight(image)
block_state = 2
; Wooohooo one type
Type pixel
Field i
Field x#
Field y#
Field sx#
Field sy#
Field rsx#
Field rsy#
Field mx#
Field my#
End Type
; split the image up into ickle tiny blocks
SetBuffer ImageBuffer(image)
For count1 = 1 To height Step block_size
For count2 = 1 To width Step block_size
picture.pixel = New pixel
picture\i = CreateImage(block_size, block_size)
GrabImage picture\i,count2,count1
picture\x# = ((320 - (width / 2))) + count2
picture\sx# = picture\x#
picture\y# = ((240 - (height / 2))) + count1
picture\sy# = picture\y#
picture\mx# = Rnd(-2.0,2.0)
picture\my# = Rnd(-2.0,2.0)
Next
Next
SetBuffer BackBuffer()
; main stuff
While Not KeyHit(1)
Cls
; space bar sets block state - move blocks / restore blocks
If KeyHit(57) Then
If block_state = 0 Then block_state = 1
If block_state = 2 Then block_state = 0
End If
; move the blocks about
If block_state = 0 Then
For picture.pixel = Each pixel
picture\sx# = picture\sx# + picture\mx#
picture\sy# = picture\sy# + picture\my#
If picture\sx# < 0 - block_size Then picture\sx# = 639
If picture\sx# > 639 Then picture\sx# = 0 - block_size
If picture\sy# < 0 - block_size Then picture\sy# = 479
If picture\sy# > 479 Then picture\sy# = 0 - block_size
DrawBlock picture\i, picture\sx#, picture\sy#
Next
End If
; how much do we move each pixel each frame to restore the image ?
If block_state = 1
restore_count = 0
For picture.pixel = Each pixel
picture\rsx# = ((picture\x# - picture\sx#) / restore_frames)
picture\rsy# = ((picture\y# - picture\sy#) / restore_frames)
Next
block_state = 2
End If
; restore the image
If block_state = 2 Then
If restore_count < restore_frames Then
For picture.pixel = Each pixel
DrawBlock picture\i,picture\sx#, picture\sy#
picture\sx# = picture\sx# + picture\rsx#
picture\sy# = picture\sy# + picture\rsy#
Next
restore_count = restore_count + 1
Else
For picture.pixel = Each pixel
DrawBlock picture\i, picture\x#, picture\y#
Next
End If
End If
Flip
Wend
End
| 
