pascalabcnet/InstallerSamples/Graph3D/Фигуры/Pyramid.pas

uses Graph3D;

begin
  var p := Pyramid(0,0,0,5,2,2,Colors.Red);
  p.AnimRotate(OrtZ,360,5).Begin
end.
-												Множество примеров Graph3D

											
										
										
											2017-12-17 01:25:54 +03:00
+								uses Graph3D;
 								begin
-												Assert - исправлена ошибка с message
Graph3D - полностью переработаны трансформации и анимации. Исправлено много неточностей.
Теперь у каждой элементарной анимации есть своя StoryBoard

											
										
										
											2018-06-10 17:33:22 +03:00
+								  var p := Pyramid(0,0,0,5,2,2,Colors.Red);
-												Множество примеров Graph3D

											
										
										
											2017-12-17 01:25:54 +03:00
+								  p.AnimRotate(OrtZ,360,5).Begin
 								end.