1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Procedure drawarc(C:TCanvas;X,Y,R:Integer;startangle,endangle:real);
var p1,p2: TPoint;
    factor,runner : real;
begin;
 //C.Rectangle(X-R,Y-R,X+R,Y+R);
 C.Pixels[X,Y] := clred;
 runner := startangle;
 p1.X := round(cos(runner)*(R-1)+X);
 p1.Y := Y-round(sin(runner)*(R-1));
 IF startangle < endangle Then factor := PI/R
 Else factor := -PI/R;
 While ((startangle < endangle) AND (runner < endangle))
 OR ((startangle > endangle) AND (runner > endangle))
 do begin;
  runner := runner + factor;
  p2.X := round(cos(runner)*(R-1)+X);
  p2.Y := Y-round(sin(runner)*(R-1));
  C.MoveTo(p1.X,p1.Y);
  C.LineTo(p2.X,p2.Y);
  P1 := P2;
 end;
end;