Mega Code Archive
Manuel ve minimum kodla, kure cizimi
<![CDATA[
//Ersin Kecis. 11/06/2003. ersinkecis@hotmail.com
//manuel en kisa kodla (sinus-cosinus) kullanarak küre (globe) cizimi:
unit Unit1;
interface
uses Forms;
type Tf=class(TForm)procedure FormPaint(Sender:TObject);end;
var f:Tf;k,i:word;
const y=90;p=pi/180;
implementation
{$R *.dfm}
procedure Tf.FormPaint(Sender:TObject);
begin
for k:=0to 20do for i:=0to 360do canvas.lineto(round(y+(y-k*9)*sin(i*p)),round(y-y*cos(i*p)));
for k:=0to 20do for i:=0to 360do canvas.lineto(round(y+y*sin(i*p)),round(y-(y-k*9)*cos(i*p)))
//delphi nin burda ilginc bir hatasi var. yukardaki kodu asagidaki sekilde yazarsak
//yine ayni sonucu vermesi gerekir fakat sanirim degiskenleri "lineto" komutu degistiriyor.
{for k:=0to 20do for i:=0to 360do
begin
canvas.lineto(round(y+(y-k*9)*sin(i*p)),round(y-y*cos(i*p)));
canvas.lineto(round(y+y*sin(i*p)),round(y-(y-k*9)*cos(i*p)))
end}
end;
end.
//bu "en kısa kod" olayi birkac arkadasla aramizdaki iddialardan ortaya cikan bir terim!
//"en hizli ve en kisa kodlama" ile ilgili birkac yarisma duzenlenebilir aslinda!?
]]>