alle Integerkoordinaten eines Kreises

[Delphi-Narr]

Hallo, ich suche nach einer Schleife, die alle Integerkoordinaten eines Kreises in einem Shape ausspuckt, wenn man ihr die Left, Top, Width und Heigthwerte des Shapes gibt.
Hab leider keine Ahnung, wie ich das angehen soll, da ich in Mathematik so erwas noch nicht gemacht habe...

Liebe Grüße!

[mkinzler]

0<i<2*Pi
X-Koordinate: sin(i)*r
y-koordinate: cos(i)*r

[Delphi-Laie]

Zitat:

Zitat von mkinzler

0<i<2*Pi
X-Koordinate: sin(i)*r
y-koordinate: cos(i)*r

Oben wurden aber Integerkoordinaten erbeten.

Wegen der Transzendenz der Winkelfunktionen gibt es aber kaum welche. Auf Anhieb fallen mir nur der Mittelpunkt und die vier Punkte "oben", "unten", "links" und "rechts" ein. Dann gibt es noch ganz wenige Punkte, die bei "integrem" Winkel wenigstens eine rationale (gute Voraussetzung für integre) Koordinate haben: sin 30°=cos 60°=0,5 (analog die an 90° gespiegelten Winkel sowie alle negativen Pendants).

Also wird man sich mit Rundung (Funktion "round") behelfen müssen.

[alzaimar]

Eventuell könnte der Bresenham-Algorithmus gemeint sein.

[Phoenix]

Such mal nach dem Bresenham-Algorithmus. Der ist genau das, was Du willst.

Edith sagt: Zu langsam :cry:

[Delphi-Narr]

Also wenn ich das jetzt richtig verstanden habe, dann muss das so gemacht werden:

Shape: Alle Werte = 100

Delphi-Quellcode:

var
SL:TStringlist;

...


while 0<i<2*pi do
  begin
       SL.Add(IntToStr(round(sin(i))));
       SL.Add(IntToStr(round(cos(i))));
  end;

Stimmt das so. Wenn die Werte nur ungefähr sind, reicht das völlig aus.
Ich aber wirklich ALLE Punkte, die IM Kreis liegen, also auch Mittelpunkt, Mittelpunkt -1 etc...
Wird dies durch diese Schleife erreicht?

[Medium]

Dann hättest du anders fragen müssen, weil die Punkte im Kreis gehören nicht zum Kreis! In dem Fall langt es einfach jeden möglichen Pixel auf seinen Abstand zum Mittelpunkt hin zu überprüfen. Ist der > Width bzw. Height (welche ja gleich sein sollten, sonst ist's eine Ellipse), gehört der Pixel nicht zur Kreisfläche. Kreismittelpunkt sollte ja kein Problem darstellen, und der Vektor von einem Pixel p0 zum Mittelpunkt M ist einfach (M-p0). Davon die Länge, und du bist fast fertig.

[Delphi-Narr]

Ja gut, also ich hab mich unverständlich ausgedrückt...
Ich muss nicht die Koordinaten haben, sondern möchte nur wissen, ob bestimmte Koordinaten X Y im Kreis liegen. Das ginge bestimmt auch nur mit den Umfangskoordinaten.

[mkinzler]

http://www.delphipraxis.net/internal...t.php?t=148748

[Delphi-Narr]

Da blick ich nicht so ganz durch...
Da diese Kreise unvorhersehbar auch nicht-integer Radien haben, klappt das doch nicht, oder?