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

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

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;

case ZPL1 of

1: Label1.Caption:='Меркурій';

2: Label1.Caption:='Венеру';

4: Label1.Caption:='Марс';

5: Label1.Caption:='Юпітер';

6: Label1.Caption:='Сатурн';

7: Label1.Caption:='Уран';

8: Label1.Caption:='Нептун';

9: Label1.Caption:='Плутон';