Моя мандала

Вообще-то программирование позволяет находить самые причудливые мандалы. Причем делается это за считанные минуты, хотя при использовании циркуля и линейки тратятся порой и часы. В качестве примера, за десяток минут составил и отладил прогу, распечатал контур мандалы и закрасил её быстро в редакторе Paint.

Текст проги:

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 г.


Рецензии