Нарисовать закругленную линию в GraphABC

[IMarkTop]

Нужно нарисовать линию с "закруглениями", как на фото

Снимок экрана 2023-04-11 185126.png

[macomics]

Вычисляете центр и радиусы эллипса и рисуете по точкам ломаную используя уравнение эллипса:

sqr(x` - center.x) / sqr(radius.x) + sqr(y` - center.y) / sqr(radius.y) = 1

На картинке видно две эллиптические дуги. Т.е. линия разбивается на 2 эллипса и прямую.

Хотя дуга сопряжения визуально больше похожа на прямую. Поэтому можно нарисовать одну дугу и две прямые.

[digitalis]

Сообщение от macomics

и рисуете по точкам ломаную

Немножко не точно. Ломаная состоит из отрезков прямых, а здесь будут сопряжённные кривые.

[macomics]

Сообщение от digitalis

Ломаная состоит из отрезков прямых, а здесь будут сопряжённные кривые.

Это если заморочиться и сопрягать кривые, но куда проще для начала нарисовать ломанную.

[IMarkTop]

macomics, а можно пример кода пожалуйста?

[macomics]

Задаёте параметры

const
   points: array [0 .. 3] of Point = ((x: 0; y: 0), (x: 10; y: 10), (x: 20; y: 15), (x: 40; y: 20)); // Точки от балды. Сами посчитаете их значения и количество
   rgbObject: Color = $C0C080;

С кривой

begin
   SetPenColor(rgbObject);
   SetBrushColor(rgbObject);
   FillClosedCurve(points);
end;

Ломанная

var i: Integer;
begin
   SetPenColor(rgbObject);
   MoveTo(points[Low(points)]);
   for i := Low(points) + 1 to High(points) do LineTo(points[i]);
end;

[IMarkTop]

macomics, спасибо!

[digitalis]

Ему же надо "с закруглениями", а от LlineTo" будут углы - порезаться можно

[macomics]

Сообщение от digitalis

Ему же надо "с закруглениями", а от LlineTo" будут углы - порезаться можно

Это смотря какие координаты точек в массив записать. Если постараться, тогда и окружность будет не отличима то пентатогона или октагона.