Кельтский узел

Программа в принципе примитивная, дает только контур, но с самим узлом пришлось изрядно повозиться в графическом редакторе. Еще на холст не перевел, займусь в ближайшее время. Планирую делать без рамы. Просто натяну на подрамник и торцы закрашу черным акрилом. Так теперь модно. Текст проги:

k=50:x0=150:y0=600
open window 1000,1000
line x0,y0, x0,y0-6*k
line x0+k,y0-k,x0+k,y0-6*k
line x0,y0,x0+3*k,y0
line x0+k,y0-k,x0+3*k,y0-k
circle x0,y0-5*k,2*k
circle x0,y0-5*k,k
circle x0+2*k,y0-7*k,2*k
circle x0+2*k,y0-7*k,k
line x0+k,y0-4*k,x0+6*k,y0-4*k
line x0+k,y0-3*k,x0+6*k,y0-3*k
line x0+4*k,y0,x0+7*k,y0
line x0+4*k,y0-k,x0+7*k,y0-k
circle x0+5*k,y0,2*k
circle x0+5*k,y0,k
line x0+3*k,y0,x0+3*k,y0-3*k
line x0+4*k,y0,x0+4*k,y0-3*k
line x0+3*k,y0-4*k,x0+3*k,y0-7*k
line x0+4*k,y0-7*k,x0+4*k,y0-7*k
line x0,y0-7*k,x0+3*k,y0-7*k
line x0,y0-6*k,x0+3*k,y0-6*k
line x0+3*k,y0-4*k,x0+3*k,y0-7*k
line x0+4*k,y0-4*k,x0+4*k,y0-7*k
line x0+4*k,y0-6*k,x0+6*k,y0-6*k
line x0+4*k,y0-7*k,x0+7*k,y0-7*k
line x0+6*k,y0-k,x0+6*k,y0-6*k
line x0+7*k,y0-k,x0+7*k,y0-7*k
circle x0+7*k,y0-2*k,2*k
circle x0+7*k,y0-2*k,k

23 ноября 2022 г.