{* Логарифмическая спираль *}

REM basic

' Логарифмическая спираль


SCREEN 12
a = 1: b = 0.068
For t = 0 To 100 Step 1E-3
    x = CInt(a * EXP(b * t) * COS(t))
    y = CInt(a * EXP(b * t) * SIN(t))
    PSET (x + 320, y + 240), 5
Next
End