/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graph3D/animOperationsPlusMult.pas
13 строк
452 B
miks1965
bug fix #617
30 дек 2017, 01:46
30 дек 2017, 01:46
737071f
Код
Авторство
О чём код?
uses Graph3D; begin Window.Title := 'a+b+c - последовательное выполнение, a*b - параллельное выполнение'; var s := Box(0,0,0,3,1,2,Colors.Blue); var p1 := P3D(5,0,0); var p2 := P3D(5,5,0); var OrtZ := V3D(0,0,1); var an := s.AnimMoveTo(p1,1.Sec)*s.AnimScale(1.5,1.Sec) + s.AnimMoveTo(p2,1.Sec)*s.AnimScale(1,1.Sec) + s.AnimRotate(OrtZ,90,1.Sec); an.Begin; end.