Моя мандала
Текст проги:
rem МОЯ Мандала
k=150
x0=300:y0=300
open window 700,700
line x0-k/2,y0,x0+k/2,y0
line x0-k/2,y0,x0,y0-sqrt(3)/2*k
line x0,y0-sqrt(3)/2*k,x0+k/2,y0
circle x0,y0-sqrt(3)/6*k,sqrt(3)/6*k
circle x0,y0-sqrt(3)/6*k,sqrt(3)/3*k
circle x0,y0-sqrt(3)/6*k,sqrt(3)/2.35*k
for i=0 to 19
a=2*pi/20*i
x=sqrt(3)/2*k*cos(a)+x0
y=y0-sqrt(3)/2*k*sin(a)-sqrt(3)/6*k
circle x,y,0.136*k
next i
circle x0,y0-sqrt(3)/6*k,sqrt(3)/1.73*k
for i=0 to 19
a=2*pi/20*i
x=sqrt(3)/1.46*k*cos(a)+x0
y=y0-sqrt(3)/1.46*k*sin(a)-sqrt(3)/6*k
circle x,y,0.19*k
next i
24 ноября 2022 г.
Свидетельство о публикации №222112400655