This will give you a start. Have an image called YourPic.bmp in the same folder. You need to try ghosted plains on this.
Edit: Oh you want to do an effect on the full screen image. I see now.
This code is not what you want then.
set display mode 800,600,32
hide mouse
Load Image "YourPic.bmp",1
ObjNo = 12
Dim X(ObjNo)
Dim Y(ObjNo)
angle = (360/ObjNo)
sync on
sync rate 0
backdrop on
color backdrop rgb(0,0,0)
for n = 1 to ObjNo
Make object plain n,256,256
texture object n,1
set object n,1,0,0,0,1
zrotate object n,180
fix object pivot n
scale object n,77,55,55
`fade object n,50
next n
color light 0,rgb(255,255,255)
set light to object position 0,1
set light to object orientation 0,1
set ambient light 0
gosub Position_Flames
position camera 0,0,-500
set camera to object orientation 1
for n = 1 to ObjNo
texture object n,1
next n
do
sync
loop
Position_Flames:
#v=angle-90
cx = 0
cy = 0
for n = 1 to ObjNo
ox = cos(#v)*150
oy = sin(#v)*150
#v=#v+30
position object n,cx+ox,cy+oy,500
zrotate object n,angle*n
X(n) = cx+ox
Y(n) = cy+oy
next n
return
