administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

bug fix #617

Browse source
This commit is contained in:
miks1965 2017-12-30 01:46:45 +03:00
parent cba2602e1b
commit 737071f6ac
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
InstallerSamples/Graph3D/animOperationsPlusMult.pas
View file

@ -1,13 +1,13 @@
uses Graph3D;
uses Graph3D;
begin
Window.Title := 'a+b+c - последовательное выполнение, a*b - параллельное выполнение';
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.MoveToAnim(p1,1.Sec)*s.ScaleAnim(1.5,1.Sec) +
s.MoveToAnim(p2,1.Sec)*s.ScaleAnim(1,1.Sec) +
s.RotateAnim(OrtZ,90,1.Sec);
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.