2021-04-16 09:49:10 +03:00
|
|
|
|
uses Graph3D;
|
2017-08-22 22:53:41 +03:00
|
|
|
|
|
|
|
|
|
|
begin
|
2021-04-16 09:49:10 +03:00
|
|
|
|
HideObjects;
|
|
|
|
|
|
View3D.Title := 'Вращение Земли';
|
2017-08-22 22:53:41 +03:00
|
|
|
|
View3D.CameraMode := CameraMode.Inspect;
|
|
|
|
|
|
View3D.ShowCoordinateSystem := False;
|
|
|
|
|
|
View3D.ShowGridLines := False;
|
|
|
|
|
|
View3D.ShowViewCube := False;
|
|
|
|
|
|
View3D.ShowCameraInfo := False;
|
|
|
|
|
|
View3D.BackgroundColor := Colors.Black;
|
|
|
|
|
|
|
|
|
|
|
|
var c := Sphere(0,0,0,5,Colors.Wheat);
|
|
|
|
|
|
c.Material := ImageMaterial('Earth.jpg');
|
2021-04-16 09:49:10 +03:00
|
|
|
|
ShowObjects;
|
|
|
|
|
|
|
2017-08-22 22:53:41 +03:00
|
|
|
|
var gr := 0;
|
|
|
|
|
|
var dgr := 1;
|
|
|
|
|
|
while True do
|
|
|
|
|
|
begin
|
|
|
|
|
|
c.Rotate(V3D(0,0,1),1);
|
|
|
|
|
|
Sleep(10);
|
|
|
|
|
|
gr += dgr;
|
|
|
|
|
|
if (gr<=0) or (gr>=255) then
|
|
|
|
|
|
dgr := - dgr;
|
|
|
|
|
|
View3D.BackgroundColor := RGB(gr,gr,gr);
|
|
|
|
|
|
end;
|
|
|
|
|
|
end.
|
