13 lines
452 B
ObjectPascal
13 lines
452 B
ObjectPascal
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. |