Graphics 640,480;For i=1 To 30;j=i*8;SetColor j*2,j,j*0.8;DrawOval(i,i,20-i,20-i);Plot(Rand(10),Rand(10));Next;p=GrabPixmap(0,0,64,64);Repeat;Cls;For j=1 To 8;DrawPixmap(p,k*j,l+40*j);k:+1;k:Mod 640;l=k*1.1;Next;Flip;Until KeyHit(27)
235 Bytes... removing the grabpixmap and drawing the ovals each loop could decrease it to 200Bytes...but somehow it doesn't display the moving ovals when using the x,y-coordinates of the drawpixmap-command.
What is shown: asteroids/burning cannonballs... what you may imagine ;D
Changing the first for-loop-value changes the look... so also "rockets" are possible.
If one wants... change the code so Pixmap is exchanged with dynamical drawn Ovals...so it would be possible to "animate" the particles of the flame (the plot-command).
bye
MB