{* Бокал *}

REM basic

' Программа построения бокала


. 10 {Бокал
}. 20 CLS
. 30 PI = 3.14158
. 40 SCREEN 1, 0: COLOR 1, 0
. 45 For I = 15 To 2 Step - 1
. 50 X = 80 * COS(PI / I)
. 55 Y = 80 * SIN(PI / I)
. 60 CIRCLE (160, 10 + Y), X, 3, , ,0.3
. 65 Next I
. 70 ST = Y
. 75 For I = 10 To 65 Step 5
. 80 X = 20 / (I / 15)
. 85 CIRCLE (160, ST + I),X , 3, , ,0.3
. 90 Next I
. 95 ST = ST + I
100 For I = 2 To 10
105 X = 2 * EXP (I / 3)
110 CIRCLE (160, ST + I), X, 3, , ,0.3
115 Next I
120 GoTo 120