einen Kreis zu Fuß zeichen

[alcaeus]

Hi Christian,

Chimaira hat Recht, das hab ich in meinem Code nicht berücksichtigt.
Hier eine Version die funktionieren (müsste)

Delphi-Quellcode:

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

function ZeichneKreis(mx, my: Integer; r: Real); 
var 
  i: Integer; 
  x, y: Real; 
begin 
  MoveTo(mx+r, my);
  for i := 1 to 359 do 
  begin 
    x := r*cos(DegToRad(i)); 
    y := r*sin(DegToRad(i)); 
    LineTo(mx+x,my-y);
  end; 
  LineTo(mx+r, my);
end;

Greetz
alcaeus