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

[IGOMERL]

подскажите алгоритм построения кружности по точкам...
имеем центр окружности ... и радиус... нужно построить попиксилям...
Только есть одно но надо построить не полную окружность а дугу от одной точки окружности до другой....
(Pascal)

Program test;
uses crt;
k,l:integer;
var x,y,r:real;
begin 
x:=100;
y:=100;
r:=50;
DetectGrahp(k,l);
InitGraph(k,l,'d:\tp7\bgi\');
....
...
PutPixel(x,y,color);
...
...
end.

[Stilet]

Вот ядро отрисовки:

ang:=0;
while ang<(pi/3) do begin
 PutPixel(round(x+r*cos(ang)),round(y+r*sin(ang)),red);
 ang:=ang+0.01;
end;

А теперь бегом читать методички. Твой код противоречит сам себе.

[IGOMERL]

вот код

program test;
uses crt, graph;
var x,y,ang,r:real;
gm,gb:integer;
begin
x:=100;
y:=50;
r:=10;
ang:=0;
detectgraph (gm,gb);
Initgraph (gm,gb,'');
while ang<(pi/3) do begin
PutPixel(round(x+r*cos(ang)),round(y+r*sin(ang)),red);
ang:=ang+0.01;
end;
readln;
end.

получилось
1.JPG
это никак не полная окружность ...

[_-Re@l-_]

program test;
uses crt, graph;
var x,y,ang,r:real;
gm,gb:integer;
begin
x:=100;
y:=50;
r:=10;
ang:=0;
detectgraph (gm,gb);
Initgraph (gm,gb,'');
while ang<(2*pi) do begin
PutPixel(round(x+r*cos(ang)),round(y+r*sin(ang)),red);
ang:=ang+0.01;
end;
readln;
end.

Логично?

[Stilet]

это никак не полная окружность ...

Ты типо сам себе решил перечить?
Зачем тогда писал что:

надо построить не полную окружность а дугу

Ты уж определись чего хочешь.

[IGOMERL]

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

Ты типо сам себе решил перечить?
Зачем тогда писал что:
Ты уж определись чего хочешь.

Вообще у меня есть две окружности одна пересекает другую... та часть которая пересекается (тоесть общая) должна остаться в виде дуги...
я нашел точки пересечения окружностей... и вот надо зная радиус точку начала окружности точку конца окружности и радиус

[Stilet]

Ну так в чем проблема? Точки тебе известны, переводи их в полярные координаты - получишь начальный и конечный угол. А после циклом отрисовывай дугу. Как переводить координаты написано в википедии

[_-Re@l-_]

В чём проблема?Я же кинул исправленный код, который рисует полную окружность.