fb:porticula NoPaste
Einfacher 3D-Effekt
Uploader: | AndT |
Datum/Zeit: | 26.11.2007 15:00:15 |
dim as double v1,v2,v3,v4
dim as double v5,x,sp
v1=640
v2=480
screenres v1,v2
l:
screenlock
for i as integer = 0 to v1
line(0,v2)-(640,i),v5
v5+=x
next
screensync
screenunlock
v5=0
sp+=.00001 * 2
x+=sp
if inkey=chr(27) then Print "ende":end
goto l