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

[leone.incognito]

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


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

[klem4]

uses graph;

function get_x(const x: single; const r: integer): single;
begin
  get_x := r * sin(x / 180 * pi);
end;

function get_y(const y: single; const r: integer): single;
begin
  get_y := r * cos(y / 180 * pi);
end;

procedure draw_circle(const radius, cx, cy, color: integer);
var
  angle: single;
begin
  angle := 0;
  while (angle < 360) do begin
    putpixel(round(cx + get_x(angle, radius)), round(cy - get_y(angle, radius)), color);
    angle := angle + 1;
  end;
end;

var
  gd, gm: integer;

begin

  gd := detect;
  initgraph(gd, gm, '');

  draw_circle(50, getmaxx div 2, getmaxy div 2, red);
  draw_circle(30, getmaxx div 2 + 100, getmaxy div 2 - 100, white);

  readln;
  closegraph();
end.