Halbkreise dynamisch zeichnen

[sneak87]

Hi, ich benötige für mein Programm den Term, um Halbkreise dynamisch zeichnen zu können, in Abhängigkeit von x.

ich habe es schon damit versucht:

Delphi-Quellcode:

begin
//...//

for i:=1 to 100 do begin
x:=i; 
  y1:=-sqrt((r*r)-(x*x));
   y2:= sqrt((r*r)-(x*x));

... try image1.Canvas.lineto(round(x),round(y1));
       image1.Canvas.Lineto(round(x),round(y2));
finally end;
end;

aber es klappt überhaupt nicht, habt ihr für mich da ne Hilfe... würde mich sehr freuen...

danke... mfg lars

[Khabarakh]

Delphi-Quellcode:

for x := - r + M.x to r + M.x do
begin
  y := M.y + Sqrt(Sqr(r) - Sqr(x)); // Halbkreis nach unten
  [...]
end;

Bei größeren Kreisen würde ich aber zu einer Kreisformel in Parameterdarstellung greifen, dann ist der Kreis regelmäßiger.

[marabu]

Hallo Lars,

die Kreisfunktion kennst du ja anscheinend, also scheint das Zeichnen dein Problem zu sein. In Delphi wird ein Kreis üblicherweise mit der Methode Arc() von TCanvas gezeichnet. Warum willst du es mit LineTo() machen?

Grüße vom marabu