Tornado

Post Reply
User avatar
NightRadio
Site Admin
Posts: 2860
Joined: Fri Jan 23, 2004 12:28 am
Location: Ekaterinburg. Russia
Contact:

Tornado

Post by NightRadio » Wed Oct 10, 2012 10:25 am

Code: Select all

start_timer( 0 )
l:
transp( 16 )
clear()
t = get_timer( 0 )
t_reset()
t_rotate( t / 28, 0, 0, 1 )
c = rand() & 255
transp( 256 )
dot( 0, 0, get_color( c * 2, c * 1.5, c ) )
dot( rand() & 3, 0, get_color( c * 2, c * 1.5, c ) )
transp( 128 )
pixi( 0, 0, 1, WHITE, 1.7, 1.7 )
pixi( 0, -1, 0 )
pixi( 0, 0, -1 )
while( get_event() ) { if EVT[ EVT_TYPE ] == EVT_QUIT { halt } }
frame( 50 )
go l

Post Reply