Mega Code Archive
Manuel daire cizimi [sin-cos ile]
<![CDATA[
//Ersin Kecis. 29/05/2003. ersinkecis@hotmail.com
//manuel en kisa kodla (sinus-cosinus) kullanarak daire/cember cizimi:
procedure TForm1.FormClick(Sender:TObject);
var i:integer;
begin
//moveto ile baslangic noktasini max(x)/2 ye degistirerek giris cizgisi yok edilebilir.
for i:=0to 360do canvas.lineto(99+round(99*sin(i*0.02)),99-round(99*cos(i*0.02)))
//not: pi/180=0.02
//daha keskin ve daha dogru hatlar icin 0.02 yerine sunu kullanabilirsiniz:
//3.1415926535897932384626433832795/180=0.0174532925199432957692369076848861
end;
//son zamanlarda herkes tatile filan mi gitti yoxa artik kimse kod yollamiyo mu?
]]>