---
title: "Fylld Cirkel"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/95723-fylld-cirkel"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "msossna"
published: "2004-01-25T22:51:38.000Z"
updated: "2004-01-31T14:35:06.000Z"
replies: 2
views: 391
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/95723-fylld-cirkel"
---

# Fylld Cirkel

## #1 — msossna, 2004-01-25T22:51Z

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...

Permalänk: https://www.webforum.nu/p/95723

## #2 — Sang-drax, 2004-01-31T00:40Z

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

Permalänk: https://www.webforum.nu/p/1263734

## #3 — Alpha II, 2004-01-31T14:35Z

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;
```

Permalänk: https://www.webforum.nu/p/1263889

---

Tråden på webben: https://www.webforum.nu/amne/programmering/95723-fylld-cirkel