fb:porticula NoPaste
Butterweiche Animation
Uploader: | AndT |
Datum/Zeit: | 27.11.2007 14:37:14 |
dim as double v1,v2,v3,v4
dim as double v5,x,sp
v1=1024
v2=768
screenres v1,v2,,,1
Do
screenlock
for i as integer = 0 to v1
line(0,v2)-(v1,i),v5
v5+=x
v5 = v5
next
screensync
screenunlock
locate 1,1
print v5
print sp
print x
v5=0
sp+=.000001 * 10
x+=sp
if inkey=chr(27) then Print "ende":end
loop