Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
ungetesteter 3D-Effekt ohne Goto
| Uploader: |  ytwinky |
| Datum/Zeit: | 26.11.2007 22:06:50 |
dim as double v1,v2,v3,v4
dim as double v5,x,sp
v1=640
v2=480
screenres v1,v2
Do
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
loop
'Goto ist doof und nur in einer Anweisung sinnvoll: Goto Hell^^