{* Витражи области *}

REM basic

' Витражи области


SCREEN 9  
1 CLS
INPUT a
INPUT b
Dim x(400), y(400)
x(0) = 128
y(0) = 120
{COLOR 4, 1
}For i = 1 To 360
z = 6.2832 * i / 360
x(i) = 128 + 90 * SIN(5 * z) * COS(a * z)
y(i) = 120 + 90 * COS(5 * z) * SIN(b * z)
LINE (x(i - 1), y(i - 1))-(x(i + k), y(i + k)), 4
For o = 1 To 10000
Next o
k$ = INKEY$
If k$ = {1{ Then GoTo 1
}}Next i
u = 128
w = 120
For i = 1 To 720 Step 1
z = 6.2832 * i / 360
u = 128 + 85 * SIN(5 * z) * COS(a * z)
w = 120 + 85 * COS(5 * z) * SIN(b * z)
c = 9 + (7 * RND)
PAINT (u, w), c, 4
3 For o = 1 To 10000
Next o
Next i
'PAINT (10, 10), 4, 4