//pixilang (2007) - http://pixi.gif.ru

//video_export_dither(1)
//video_export_gif( "plazma.gif" )

start_timer(0)

start:

draw_plasma

f = fps
print( "fps: $f", -78, -78, #FFFFFF )

frame(0)
go start



draw_plasma:

tt = get_timer(0) / 64

y = -80
y_start:
x = -80
x_start:

v1 = csin( x * 2 + tt ) + ccos( y - tt )
v2 = csin( x - tt ) + ccos( y + tt + tt )
v = v1 * v2
v / 128
dot( x, y, get_color( v,v,v ) )

x + 1
if x < 80 { go x_start }
y + 1
if y < 80 { go y_start }

ret