Нарисовать сложные орнаменты. Графика в ПаскальАвс

[Sasha_Smirnov]

Вот здесь пример на VBA. Можете взять координаты (первая X, вторая Y).

P/s: может, препод и зверь, но на одних бессмысленных матрицах далеко не удешь!

[Nurtas]

Program Nur;
uses graphABC,crt;
var i,n:integer;
begin
setwindowsize(1074,700);
line(18,73,32,80);
lineto(58,85);
lineto(69,89);
lineto(81,98);
lineto(93,108);
lineto(105,122);
lineto(115,139);
lineto(124,150);
lineto(127,142);
lineto(125,136);
lineto(108,96);
lineto(108,83);
lineto(119,70);
lineto(131,70);
lineto(140,82);
lineto(136,93);
lineto(137,103);
lineto(133,102);
lineto(125,81);
lineto(120,82);
lineto(116,86);
lineto(116,96);
lineto(134,138);
lineto(145,158);
lineto(150,158);
lineto(174,96);
lineto(174,83);
lineto(168,80);
lineto(162,82);
lineto(155,102);
lineto(150,104);
lineto(152,95);
lineto(150,82);
lineto(161,69);
lineto(172,69);
lineto(182,83);
lineto(182,98);
lineto(165,143);
lineto(170,152);
lineto(178,139);
lineto(186,121);
lineto(208,92);
lineto(217,86);
lineto(232,77);
lineto(245,76);
lineto(256,72);
lineto(269,63);
lineto(269,67);
lineto(266,77);
lineto(259,86);
lineto(258,87);
lineto(247,95);
lineto(240,94);
lineto(244,108);
lineto(243,114);
lineto(240,118);
lineto(230,121);
lineto(230,130);
lineto(224,134);
lineto(222,136);
lineto(208,137);
lineto(208,141);
lineto(211,144);
lineto(212,148);
lineto(204,156);
lineto(191,160);
lineto(203,165);
lineto(206,165);
lineto(216,173);
lineto(221,173);
lineto(229,171);
lineto(238,168);
lineto(238,173);
lineto(235,178);
lineto(229,185);
lineto(220,192);
lineto(209,196);
lineto(192,201);
lineto(186,201);
lineto(175,211);
lineto(175,222);
lineto(180,225);
lineto(185,225);
lineto(187,219);
lineto(180,217);
lineto(179,212);
lineto(185,210);
lineto(190,213);
lineto(192,219);
lineto(198,214);
lineto(203,217);
lineto(206,219);
lineto(194,225);
lineto(188,229);
lineto(176,230);
lineto(172,229);
lineto(168,222);
lineto(167,214);
lineto(159,213);
Lineto(162,207);
lineto(168,204);
lineto(180,199);
lineto(170,193);
lineto(164,184);
lineto(150,171);
lineto(149,171);
lineto(146,172);
lineto(134,187);
lineto(118,198);
lineto(135,209);
lineto(139,214);
lineto(131,214);
lineto(130,219);
lineto(128,222);
lineto(126,227);
lineto(120,231);
lineto(113,230);
lineto(100,225);
lineto(96,221);
lineto(102,219);
lineto(107,220);
lineto(110,215);
lineto(112,213);
lineto(116,213);
lineto(118,215);
lineto(117,219);
lineto(114,221);
lineto(112,224);
lineto(118,229);
lineto(125,223);
lineto(124,215);
lineto(120,209);
lineto(113,205);
lineto(107,203);
lineto(83,198);
lineto(70,192);
lineto(59,183);
lineto(58,179);
lineto(63,177);
lineto(68,179);
lineto(77,179);
lineto(88,171);
lineto(100,165);
lineto(103,165);
lineto(101,159);
lineto(84,158);
lineto(82,151);
lineto(86,147);
lineto(66,140);
lineto(68,134);
Lineto(47,124);
Lineto(46,111);
lineto(50,106);
Lineto(49,103);
lineto(34,101);
lineto(24,93);
lineto(22,90);
lineto(16,79);
lineto(18,71);
FloodFill(73,111,black);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Nurtas]

Нарисовал все кроме 1