Geometric pattern on the facade of a synagogue in Budapest
Sándor Kabai
The geometric patters located on the facade of Dohány Street Synagogue, Budapest, Hungary is approximated by intersecting bars. A large and six small Stars of David can be recognised in he pattern.
The geometric patters located on the facade of Dohány Street Synagogue, Budapest, Hungary is approximated by intersecting bars. A large and six small Stars of David can be recognised in he pattern.
In[]:=
c1=Tube[Table[{Sin[i2Pi/60],Cos[i2Pi/60],0},{i,60+1}],0.018];rad=0.13;angle=Tube[{{rad,1,0},{rad,rad,0},{1,rad,0}},0.015];angle12=Table[Rotate[angle,i2Pi/12,{0,0,1}],{i,12}];bar1=Tube[{{-0.5,-0.85,0},{-0.5,0.85,0}},0.014];stardavid=Table[Rotate[bar1,i2Pi/6,{0,0,1}],{i,6}];brace=Tube[{{-0.78,-0.63,0},{-0.78,0.63,0}},0.015];brace6=Table[Rotate[brace,i2Pi/6,{0,0,1}],{i,6}];Graphics3D[{Cyan,stardavid,Green,brace6,Pink,c1,Yellow,angle12},ImageSize400,Boxed->False,ViewPoint->{0,0,100},SphericalRegion->True]
Out[]=
In[]:=
t1=Polygon[Table[{Sin[i2Pi/3+Pi/6],Cos[i2Pi/3+Pi/6],0},{i,3}]];t2=Polygon[Table[{Sin[i2Pi/3-Pi/6],Cos[i2Pi/3-Pi/6],0},{i,3}]];Graphics3D[{c1,t1,t2,Yellow,angle,Cyan,stardavid,Green,brace},ImageSize400,Boxed->False,ViewPoint->{0,0,100},SphericalRegion->True]
Out[]=
In[]:=
Graphics3D[{t1,t2,Yellow,angle12,Cyan,stardavid,Pink,c1},ImageSize400,Boxed->False,ViewPoint->{0,0,100},SphericalRegion->True]
Out[]=
In[]:=
st=Table[Rotate[Translate[Scale[{t1,t2},0.26],{0,0.742,0}],i2Pi/6,{0,0,1}],{i,6}];Graphics3D[{Green,brace6,Cyan,stardavid,Pink,c1,Yellow,angle12,Pink,st},ImageSize400,Boxed->False,ViewPoint->{0,0,100},SphericalRegion->True]
Out[]=
