Graph3D в PascalABC.Net: различия между версиями
Содержимое удалено Содержимое добавлено
DannyS712 (обсуждение | вклад) м <source> -> <syntaxhighlight> (phab:T237267) |
Метки: замена отменено |
||
| Строка 1: | Строка 1: | ||
=Броунов |
|||
=Броуновское движение= |
|||
<syntaxhighlight lang="pascal"> |
|||
uses Graph3D; |
|||
var |
|||
Objects: List<SphereT>; |
|||
begin |
|||
Objects := new List<SphereT>(); |
|||
for var i := 0 to 99 do |
|||
Objects.Add(Sphere(-10 + Random(20), -10 + Random(20), -10 + Random(20), 1, RandomColor())); |
|||
while true do |
|||
for var i := 0 to Objects.Count - 1 do |
|||
Objects[i].MoveOn((1 - Random(3)) / 10, (1 - Random(3)) / 10, (1 - Random(3)) / 10); |
|||
end. |
|||
</syntaxhighlight> |
|||
Аналог 2D: |
|||
<syntaxhighlight lang="pascal"> |
|||
uses ABCObjects, GraphABC; |
|||
begin |
|||
var W := Window.Width; |
|||
var H := Window.Height; |
|||
for var i := 0 to 100 do |
|||
begin |
|||
var c := clRandom(); |
|||
new CircleABC(Random(W), Random(H), 10 + Random(10), ARGB(100, c.R, c.G, c.B)); |
|||
end; |
|||
while true do |
|||
for var i := 0 to Objects.Count - 1 do |
|||
Objects[i].MoveOn(Random(3) - 1, Random(3) - 1); |
|||
end. |
|||
</syntaxhighlight> |
|||
Версия от 14:11, 4 июня 2023
=Броунов