Вращение сферы

[AAA73]

Посмотрите, пожалуйста, что я делаю не так


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Math;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
X,Y,Z,X1,Y1,z1,x2,y2,z2, fi, te, pi,h,a, rr,r: extended;
begin
form1.Canvas.Rectangle(0,0,500,500) ;
r:=50;
Pi:=3.1415;
h:=pi/180;

//for k:=1 to 100 do
// begin
for j:=1 to 180 do
for i:=1 to 360 do
begin
te:=i*h;
fi:=j*h;
x:=r*sin(te)*cos(fi)+100;
y:=r*sin(te)*sin(fi)+100;
z:=r*cos(te)+100;
form1.Canvas.Pixels[trunc(x),trunc(z)]:=trunc(x+y);
//Form1.Image1.Canvas.Pixels [trunc(x),trunc(y)]:=trunc(x+y);
//end;// cicl
//r:=sqrt(x*x+y*y+z*z);
// te:=arccos(z/r);
// fi:=arctg(y/x);
a:=3.14;
while a<pi do
begin
x1:=(x-100)*cos(a)-(y-100)*sin(a);
y1:=(x-100)*sin(a)-(y-100)*cos(a);
z1:=z-100;
rr:=sqrt(x1*x1+y1*y1+z1*z1);
te:=arccos(z1/rr);
fi:=1/arccot(y1/x1);
x2:=rr*sin(te)*cos(fi)+400;
y2:=rr*sin(te)*sin(fi)+400;
z2:=rr*cos(te)+400;
a:=a+0.3;
form1.Canvas.Pixels[trunc(x2),trunc(y2)]:=trunc(x+y);
end;
end;//
//end;// for k
end;

end.