Tűzeffekt videó/mozgókép egyszerű (sima) fekete háttérrel?

Ha megy neked a pascal akkor itt egy példa:

procedure comp;

var n,t: integer;

b:^byte;

begin

for n:=1 to spots do

begin

longint(b):=longint(buf1)+width*(height-1)+random(width);

{also sor veletlenszeru feltoltese}

b^:=255;

end;

asm

push es

push ds

les di,buf2 {es:di-> buf2}

lds si,buf1 {ds:si-> buf1}

mov dx,height {dx=sorok}

@sorok:

mov cx,width-2 {cx=oszlopok (a ket szelet kihagyjuk)}

@oszlopok:

xor ax,ax {atlagoljuk a pontokat:}

xor bx,bx

mov al,[si+width+1] {egy sorral lejjebb jobbra}

mov bl,[si+width-1] {egy sorral lejjebb balra}

add ax,bx

mov bl,[si+1] {jobbra}

add ax,bx

mov bl,[si-1] {balra}

add ax,bx

mov bl,[si+width] {lefele}

add ax,bx

mov bl,[si+2*width-1] {ket sorral lejjebb balra}

add ax,bx

mov bl,[si+2*width+1] {ket sorral lejjebb jobbra}

add ax,bx

mov bl,[si+2*width] {ket sorral lejjebb}

add ax,bx

shr ax,3 {8 pont osszege 8-al osztva (ATLAG az ax-ben!!!)}

mov es:[di],al {a pont szine a 8 pont atlaga lesz}

inc si

inc di

loop @oszlopok

add si,2 {szeleket kihagyjuk}

add di,2

dec dx

jnz @sorok

pop ds

push ds {visszamasoljuk a regi tombbe}

les di,buf1

lds si,buf2

mov cx,height*width/2

rep movsw {buf1<-buf2}

pop ds

pop es

end;

end;

Aztán az egyik tömböt csak ki kell nyomatni a videomemóriába:

procedure dump;assembler;

asm

push ds

push es

mov ax,0a000h

mov es,ax

lds si,buf1

mov di,Fx+Fy*width

mov cx,(height-4)*width/2

rep movsw

pop es

pop ds

end;

Ezt a két függvényt pedig egymásután futtatgatjuk.

repeat

comp;

dump;

until keypressed;