Type spark
   Field x
   Field y
   Field xs
   Field ys
   Field live
End Type

s=New spark
s\x=y
s\y=x
;Local s.spark





While 1


up_spark()
Wend




Function up_spark()
   For s=Each spark
      WritePixelFast(s\x,s\y,rgb=alpha*$1000000 + 255*$10000 + 255*$100 + blau)
      WritePixelFast(s\x+1,s\y-1,rgb=alpha*$1000000 + 255*$10000 + 255*$100 + blau)
      s\x=s\x+s\xs
      s\y=s\y+s\ys
      
      s\live=s\live-1

      If s\live=0 Then Delete s
   Next
End Function

Function spark(x,y)
   s=New spark
   s\x=y
   s\y=x
End Function