Тригонометричні ефемериди планет Сонячної системи

x:=((24-ZA[i])/24)*1000;

x0:=int(x);

y0:=int(y);

if ZP[i]=0.5 then

Image1.Canvas.Pixels[x0,y0]:=clWhite

else begin

Image1.Canvas.Pen.Color:=clWhite;

Image1.Canvas.Brush.Style:=bsSolid;

Image1.Canvas.Brush.Color:=clWhite;

x1:=int(x-ZP[i]);

y1:=int(y-ZP[i]);

x2:=int(x+ZP[i]);

y2:=int(y+ZP[i]);

Image1.Canvas.Ellipse(x1,y1,x2,y2);

end;

end;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm3.SpeedButton1Click(Sender: TObject);

begin

SpeedButton2.visible:=true;

Label1.Visible:=true;