Space Skull

[Peter]

Hello,

Code: [Select]

include "asm.inc"
Window 640,480,1

int np=500

Type pp
  int x,y,z
End Type
pp p[500]

For f=1 to np
    p[f].x = Rand(0, 639)
    p[f].y = Rand(0, 479)
    p[f].z = Rand(0xFFFF,0xFFFFFFFF)
Next

LoadImage "bmp/skully.bmp"

while Key(27)=0
ImageBlend 1,0,0,640,480,15
For f=1 to np
    p[f].x -=1
    iF p[f].x <0
       p[f].x = 640
       p[f].y = Rand(0,479)
    End iF
    PutPoint p[f].x,p[f].y,4,p[f].z   
Next
Redraw
SetFps 120
'wait 10   
wend
winEnd
   




.

[Mike Lobanovsky]

I'm a little busy at the moment, Peter, but when I have more time, you'll get from me what's shown below.

This Msimg32.dll alpha blended GDI jugglery is a little overkill for the GPU at such framerates though.

.