perspectiv.BAS

{* Перспектива *}

REM basic

' Перспектива


SCREEN 9{ перспектива
}
1 CLS
y = 90
d = 1
For y = 20 To 300
LINE (320 - y, y)-(321 + y, y), 11
For t = 1 To 40000
Next t
LINE (320 - y, y)-(321 + y, y), 0
d = d * 1.3
y = y + d

Next y
GoTo 1

For y = 20 To 300
LINE (320 - y, y)-(321 + y, y), 0
d = d * 1.3
y = y + d
For t = 1 To 20000
Next t
Next y
For y = 20 To 300
LINE (320 - y, y)-(321 + y + 1, y), 11
d = d * 1.3
y = y + d
Next y

GoTo 1