Fylld Cirkel

2 svar · 375 visningar · startad av msossna 25 jan. 2004

msossnaMedlem sedan feb. 2002476 inlägg

Frågan25 jan. 2004 22:51#1

Någon som vet en algoritm för att rita ut en cirkel (en fylld cirkel). Med rita ut menar jag pixel för pixel...

Sang-draxMedlem sedan juli 2002581 inlägg

31 jan. 2004 00:40#2

Avståndet mellan två pixlar erhålles med pythagoras sats. Fyll alla pixlar som har ett avstånd <= radien från mittpunkten.

Alpha IIMedlem sedan maj 20002 993 inlägg

31 jan. 2004 14:35#3

Lite kod skriven i Delphi

procedure TForm1.DrawCircle(mX,mY,radi:Integer);
var
  radi_sq: Integer;
  x,y: Integer;
  xd,yd: Integer;
begin

  radi_sq := radi*radi;

  for x := mX-radi to mX+radi do
  begin
    for y := mY-radi to mY+radi do
    begin

      xd := x-mX;
      yd := y-mY;

      if((xd*xd + yd*yd) < radi_sq ) then
        Form1.Canvas.Pixels[x,y] := clBlack;

    end;
  end;
end;