slowly desolving
error :
where com the suker on the edge from ?
Code: Select all
''suker lump desolve try
screen 18 , 32
dim as integer winx , winy
screeninfo winx , winy
paint ( 1 , 1 ) , 0
line ( winx / 4 , winy / 4 ) - step ( winx / 2 , winy / 2 ) , rgb( 255 , 255 , 255 ) , bf
dim as integer x , y , dx , dy
dim as ulong a,b
function range( low as integer , high as integer ) as integer
return int( rnd * ( high - low + 1 ) + low )
end function
randomize timer
do
x = range( 0 , winx )
y = range( 0 , winy )
dx = range( -1 , 1 )
dy = range( -1 , 1 )
a = point( x , y )
b = point( x + dx , y + dy )
pset ( x , y ) , b
pset ( x + dx , y + dy ) , a
loop while inkey = ""