Einzelnen Beitrag anzeigen

Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.736 Beiträge
 
Delphi 6 Enterprise
 
#12

AW: Halbkreis zwischen zwei Punkten zeichnen.

  Alt 14. Mär 2011, 16:52
Dann halt: (Wenn ich mich auf die schnelle nicht vertue)
Delphi-Quellcode:
function getQdOuterCircQdDiff(const InnerQuadSideLen: Extended): Extended;
begin
  Result := (Sqrt(2*Power(InnerQuadSideLen,2)) - InnerQuadSideLen)/2;
end;
<=> Result := (Sqrt(2)*InnerQuadSideLen - InnerQuadSideLen)/2;
<=> Result := (Sqrt(2)-1)*InnerQuadSideLen/2;
Ralph
  Mit Zitat antworten Zitat