Einzelnen Beitrag anzeigen

Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#2

Re: einen Kreis zu Fuß zeichen

  Alt 13. Sep 2004, 20:41
Hi Christian,

du musst in einer Schleife den Winkel durchgehn und darin die Koordinaten ausrechnen:

Delphi-Quellcode:
function DegToRad(Deg: Real): Real;
begin
  return Deg*Pi/180;
end;

function ZeichneKreis(r: Real);
var
  i: Integer;
  x, y: Real;
begin
  for i := 0 to 359 do
  begin
    x := r*cos(DegToRad(i));
    y := r*sin(DegToRad(i));
//Pixel setzen
  end;
end;
Ich weiß jetzt auf die Schnelle aber nicht wie die Funktion heißt, um ein Pixel setzen zu können

Greetz
alcaeus
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat