/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graph3D/EarthImageMaterial.pas
28 строк
638 B
Mikhalkovich Stanislav
Graph3D:
16 апр 2021, 09:49
16 апр 2021, 09:49
1328792
Код
Авторство
О чём код?
uses Graph3D; begin HideObjects; View3D.Title := 'Вращение Земли'; 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'); ShowObjects; 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.