Нарисовать дугу по радиусу, начальной точке и углу

← →
Newlifeforme © (2007-06-17 21:31) [0]

Здравствуйте. Нужно нарисовать дугу. Изветна точка начала дуги, радиус и угол. Пожалуйста подскажите как это сделать.

← →
Kolan © (2007-06-17 21:36) [1]

> Пожалуйста подскажите как это сделать.

1.Найти уравнение в интернете:
Вроде тут есть: http://ru.wikipedia.org/wiki/%D0%9E%D0%BA%D1%80%D1%83%D0%B6%D0%BD%D0%BE%D1%81%D1%82%D1%8C

2. В цикле его использовать

3. Результаты отображать на экране.

Что не получается?

← →
Углук © (2007-06-17 21:47) [2]

Canvas.Arc?

← →
TUser © (2007-06-18 05:23) [3]

С помощью циркуля и линейки?

вот с другими начальными условиями:
procedure DrawArc(ACanvas: TCanvas; XC, YC, R: Integer; StartAngle, SweepAngle: Double); begin SetArcDirection(ACanvas.Handle, AD_CLOCKWISE); ACanvas.Arc(XC - R, YC - R, XC + R, YC + R, Round(XC + R * Cos(StartAngle)), Round(YC + R * Sin(StartAngle)), Round(XC + R * Cos(StartAngle - SweepAngle)), Round(YC + R * Sin(StartAngle - SweepAngle))); end;

Нарисовать дугу по радиусу, начальной точке и углу Найти похожие ветки