как нарисовать круг......, .......только точками??? Опции

[leone.incognito]

Собственно сам ворпос:Как нарисовать !!точками!! круг или дугу(с помощью функции PutPixel?) в Паскале?


Добавлено через 1 мин.
хотя-бы принцып!

[Чужак]

Вот смотри-эллипс не только отрисовывается по точкам,
но и вращается. Как реализовывать систему координат, объяснял на форуме volvo.

program El;
 uses crt,graph;
 var  gd, gm, X0, Y0: Integer;
 X,Y,cX,cY,a,b,i,angl: Real;
begin
 gd := detect;
 initgraph(gd, gm, '');
 X0:=320; Y0:=240; i:=0;
 a:=50; b:=150; angl:=0;
 repeat
 while i<360 do
  begin
  i:=i+0.5;
  cX:=a*cos(i);
  cY:=b*sin(i);
  X:=X0+cX*cos(angl)-cY*sin(angl);
  Y:=Y0+cX*sin(angl)+cY*cos(angl);
  PutPixel(Round(X), Round(Y), 15);
  end;
 Delay(200);  i:=0;
 ClearDevice; angl:=angl+0.01;
 until keypressed;
 closegraph;
end. 

Убираешь отсюда цикл

while i<360 do 

,
убираешь

 ClearDevice; 

и

 angl:=angl+0.01;

-это все для вращения.
И вот-отрисовка эллипса по точкам.
А часный случай эллипса-это круг.