Kreslenie krivky v canvase – Delphi – Fórum – Programujte.com

Ahojte, mám taký problém že potrebujem v Delphi do Image.canvas nakresliť oblúk. Problém je v tom, že som našiel iba funkciu Arc, ktorá obsahuje asi 8 parametrov. Ja mám ale zadané iba súradnice stredu, polomer a začiatočný a konečný uhol. Hladal som všade v helpe aj na nete, no žiadnu funkciu som nenašiel a preto si asi budem musieť naprogramovať svoju. Ak by niekto o nejakej vedel alebo by ju vedel vytvoriť bol by som veľmi vďačný.

Poněkud podivná cesta vede tudy

procedure TheMostStupidWayToDrawArc(Canvas: TCanvas; x,y,radius, Start, Fin: Integer);

 procedure point(x,y: Integer);

 begin

    Canvas.MoveTo(x,y);

    Canvas.LineTo(x+1,y);

 end;

var rad: extended;

    i: Integer;

begin

    for i:= start to fin do begin

     rad := (i/180)*PI;

     point(Trunc(cos(rad)*radius+X), Trunc(Y-sin(rad)*radius));

   end;

end;

To Jura:díky moc si mi pomohol.