Дорогие друзья! С Днем Победы!
Я хочу поздравить всех вас с этим замечательным праздником! Пожалуй, самым главным праздником нашей страны и всего Советского народа!
Я, как и все мы, сегодня, и каждый день, делаю низкий поклон и от всего сердца благодарю наших любимых, дорогих ветеранов, наших дедов и бабушек, совершивших героический подвиг 70 лет назад, которому нет равных и благодаря которому все мы можем жить свободно, любить, творить и двигать вперед наши страны!
В семье каждого есть родственники, прошедшие Великую Отечественную войну и те, кто не вернулись с фронта домой. Но они навсегда останутся в наших сердцах.
Видео ниже длится ровно 70 секунд. Давайте каждый из нас вспомнит всех тех, кто не вернулся домой, в любящие семьи, минутой молчания.
Я хочу поздравить всех вас с этим замечательным праздником! Пожалуй, самым главным праздником нашей страны и всего Советского народа!
Я, как и все мы, сегодня, и каждый день, делаю низкий поклон и от всего сердца благодарю наших любимых, дорогих ветеранов, наших дедов и бабушек, совершивших героический подвиг 70 лет назад, которому нет равных и благодаря которому все мы можем жить свободно, любить, творить и двигать вперед наши страны!
В семье каждого есть родственники, прошедшие Великую Отечественную войну и те, кто не вернулись с фронта домой. Но они навсегда останутся в наших сердцах.
Видео ниже длится ровно 70 секунд. Давайте каждый из нас вспомнит всех тех, кто не вернулся домой, в любящие семьи, минутой молчания.
Код для создания анимации
Код на языке Wolfram Language для создания анимации (трансформация части плоскости в ленту Мёбиуса, при этом на поверхности отображена текстура георгиевской ленты):
Код для копирования
geogrievskayaBandParametres=Partition[Accumulate[{0,13,55,55,55,55,55,13}/301],2,1];
geogrievskayaBandTexture=Rasterize@Graphics[{Table[{If[OddQ[i],RGBColor[{243,128,0}/255],Black],Rectangle[{geogrievskayaBandParametres[[i,1]],0},{geogrievskayaBandParametres[[i,2]],1}]},{i,Length@geogrievskayaBandParametres}]},ImageMargins->0,PlotRangePadding->0];
plane[\[Theta]_,\[Phi]_,r_]:={(\[Phi]-\[Pi])/\[Pi],-((\[Theta]-\[Pi])/\[Pi]),0};
mobius[\[Theta]_,\[Phi]_,r_,x_]=RotationTransform[Pi,{1,0,0},{0,0,0}][{(\[Phi]-\[Pi])/(3\[Pi]) Sin[\[Theta]/2],Sin[\[Theta]]((2r)/3-(\[Phi]-\[Pi])/(3\[Pi]) Cos[(5\[Theta])/2]),Cos[\[Theta]]((2r)/3-(\[Phi]-\[Pi])/(3\[Pi]) Cos[(5\[Theta])/2])}];
rz[pts_,t_]:={{Cos[2\[Pi] t],-Sin[2\[Pi] t],0},{Sin[2\[Pi] t],Cos[2\[Pi] t],0},{0,0,1}}.pts;
\[Tau][t_]:=Piecewise[{{0,t<1/8},{4/3 t-1/6,1/8<=t<7/8},{1,t>=7/8}}];
morph[\[Theta]_,\[Phi]_,r_,t_,x_]:=\[Tau][t] mobius[\[Theta],\[Phi],r,x]+(1-\[Tau][t])plane[\[Theta],\[Phi],r];
Export[FileNameJoin[{NotebookDirectory[],"SDnemPobedy.avi"}],ParallelTable[Rasterize[ParametricPlot3D[Evaluate@rz[morph[\[Theta],\[Phi],1,t,Pi],t],{\[Theta],0,2\[Pi]},{\[Phi],0,2\[Pi]},TextureCoordinateFunction->({#5,#5}&),Mesh->None,PlotStyle->{Specularity[White,15],Texture@geogrievskayaBandTexture},BoundaryStyle->None,PlotRange->1.7{ {-1,1}, {-1,1},{-1,1}},ViewPoint->{2,0,1-t},ImageSize->{1920,1080}/1.5,ViewAngle->0.32,Axes->False,Boxed->False,Background->GrayLevel[.98],SphericalRegion->True,Lighting->"Neutral",PlotPoints->100,Epilog->Text[Style[If[t>=1,"С Днём Победы!",""],40,FontFamily->"Myriad Pro Cond"],{1/2,1/2}]],ImageResolution->150],{t,1+1/(24*70),1+2 24/(24*70),1/(24*70)}]];