Flag

2025-08-27 11:23:19 +03:00 · 2025-08-27 11:23:19 +03:00 · 1dc78980b2
parent 0483c2dca0
commit 1dc78980b2
2 changed files with 18 additions and 0 deletions
--- a/InstallerSamples/WhatsNew/3_11_0/Flag1.pas
+++ b/InstallerSamples/WhatsNew/3_11_0/Flag1.pas
@ -0,0 +1,18 @@
+uses Graph3D;
+
+begin  
+  Window.Caption := 'Развевающийся флаг';
+  View3D.HideAll;
+  Cylinder(0,4,0,6,0.07,Colors.Brown);
+  var c := Cloth(0,4,0,3,4,6,'FlagOfRussia.png');
+  c.WindSpeed := 6;
+  c.WindDirection := 180;
+  c.Gravity := 4;
+  c.Damping := 0.999;
+  c.Mass := 0.8;
+  c.Iterations := 20;
+  Sleep(1000);
+  c.Stop;
+  Sleep(1000);
+  c.Start;
+end.
--- a/InstallerSamples/WhatsNew/3_11_0/FlagOfRussia.png
+++ b/InstallerSamples/WhatsNew/3_11_0/FlagOfRussia.png