Nabend,
ich habe da ein kleines Problem mit dem Zeichnen einer Geraden in einem Koordinatensystem. Das ganze soll dann so aussehen wie in dem angehängten Bild die rote Linie.
Klingt eigentlich ganz einfach. Aber ich hab da wohl irgendwo einen Fehler drin und find den ums verrecken nicht. Hier der Code:
Die Prozedur soll die Gerade zeichnen:
Delphi-Quellcode:
procedure TSchieber.DrawLine(Canvas: TCanvas; a,l,r: double);
begin
//Berechnung der Strecke b
b := sqrt(abs(sqr(l)-sqr(a)));
//Berechnung der Koordinaten
canvas.MoveTo(center.x, center.y - trunc(b));
canvas.LineTo(center.x + trunc(a), center.y);
end;
l ist dabei die Länge der roten Linie.
Hier der Aufruf in der main:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
mySchieber.l := strtofloat(wertsetzen.valueset.edit_l.text);
mySchieber.r := strtofloat(wertsetzen.valueset.edit_r.text);
mySchieber.DrawLine(Bmp.Canvas,300,mySchieber.l*SCALE,mySchieber.r*SCALE);
paintbox.refresh;
end;
l wird vom Benutzer eingegeben. r ist in diesem Fall hier nicht wichtig und nicht zu beachten. a ist der Abstand vom Nullpunkt bis zu dem Punkt, wo l die x-Achse berührt. b das gleiche für die y-Achse.
Ich hoffe ihr könnt mir da vielleicht helfen. Steh da echt auf der Leitung.