Sándor Kabai
Olympic logo
Five rings are connected in a chain . While the central rings stays stationary rotate the rest of the rings and then shift two rings down until the geometry of the emblem of the Olympic Games is obtained . Four rings resemble the Audi logo when they are aligned in a line and one ring is removed .
Olympic logo
Five rings are connected in a chain . While the central rings stays stationary rotate the rest of the rings and then shift two rings down until the geometry of the emblem of the Olympic Games is obtained . Four rings resemble the Audi logo when they are aligned in a line and one ring is removed .
In[]:=
id=0.8;od=1;thick=0.04;c1=RegionPlot3D[x^2+y^2<od^2&&x^2+y^2>id^2,{x,-od,od},{y,-od,od},{z,0,thick},Mesh0,PlotStyle{Black}][[1]];c2=RegionPlot3D[x^2+y^2<od^2&&x^2+y^2>id^2,{x,-od,od},{y,-od,od},{z,0,thick},Mesh0,PlotStyle{Yellow}][[1]];c3=RegionPlot3D[x^2+y^2<od^2&&x^2+y^2>id^2,{x,-od,od},{y,-od,od},{z,0,thick},Mesh0,PlotStyle{Green}][[1]];c4=RegionPlot3D[x^2+y^2<od^2&&x^2+y^2>id^2,{x,-od,od},{y,-od,od},{z,0,thick},Mesh0,PlotStyle{RGBColor[0,1,1]}][[1]];c5=RegionPlot3D[x^2+y^2<od^2&&x^2+y^2>id^2,{x,-od,od},{y,-od,od},{z,0,thick},Mesh0,PlotStyle{RGBColor[1,0,0]}][[1]];ax=Line[{{-3,0,0},{3,0,0}}];ay=Line[{{0,-2,0},{0,2,0}}];Manipulate[Module[{f1,f2,f3,f4,f5},f1=Translate[Rotate[c1,0,{1,0,0}],{0,0,0}];f2=Translate[Rotate[Rotate[c2,0.05,{0,1,0},{0,0,0}],0.05+rot1,{1,0,0},{0,0,0}],{-1.1,down,0}];f3=Translate[Rotate[Rotate[c3,0.05,{0,1,0},{0,0,0}],-0.05-rot1,{1,0,0},{0,0,0}],{1.1,down,0}];f4=Translate[Rotate[Rotate[c4,rot1-Pi/2,{1,0,0}],-rot2,{1,0,0},{0,0,0}],{-2.2,0,0.17}];f5=Translate[Rotate[Rotate[c5,-rot1-Pi/2,{1,0,0}],rot2,{1,0,0},{0,0,0}],{remove+2.2,0,-0.13}];Graphics3D[{ax,ay,f1,f2,f3,f4,f5},SphericalRegionTrue,BoxedFalse,ImageSize300,ViewPoint{0,0,10}]],{{rot1,Pi/2,"rotate 1"},Pi/2,0},{{rot2,0,"rotate 2"},0,1.34},{{down,0,"move down"},0,-1},{{remove,0,"remove one ring"},0,1},TrackedSymbols{down,rot1,remove,rot2},SaveDefinitionsTrue]
Out[]=
