{* Витражи *}

REM basic

' Витражи


SCREEN 9 
1 CLS
RANDOMIZE TIMER
a = 1 + INT(RND * 25)
b = 1 + INT(RND * 25)
{PRINT a; b
}Dim x(400), y(400)
x(0) = 320
y(0) = 175
col = 9 + INT(RND * 7)
For i = 1 To 400 {360
}k$ = INKEY$
If k$ = "1" Then GoTo 1
z = 6.2832 * i / 360
x(i) = 320 + 160 * SIN(5 * z) * COS(a * z)
y(i) = 175 + 160 * COS(5 * z) * SIN(b * z)
LINE (x(i - 1), y(i - 1))-(x(i), y(i)), col
For o = 1 To 10000
Next o
Next i
  GoTo 1