Дуга окружности

← →
San1 (2007-02-28 10:01) [0]

Подскажите пожалуйста, как нарисовать в Image дугу зная координаты ее центра, радиус, начальный и конецный угол.
Заранее спасибо

← →
TUser © (2007-02-28 10:06) [1]

The Arc function draws an elliptical arc.

BOOL Arc(

HDC hdc, // handle to device context
int nLeftRect, // x-coordinate of bounding rectangle"s upper-left corner
int nTopRect, // y-coordinate of bounding rectangle"s upper-left corner
int nRightRect, // x-coordinate of bounding rectangle"s lower-right corner
int nBottomRect, // y-coordinate of bounding rectangle"s lower-right corner
int nXStartArc, // first radial ending point
int nYStartArc, // first radial ending point
int nXEndArc, // second radial ending point
int nYEndArc // second radial ending point
);

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;

Дуга окружности Найти похожие ветки