A shape of a lamp in the Rumbach synagogue in Budapest seems to correspond to a stellated GreatRhombicuboctahedron.
In[]:=
Needs["PolyhedronOperations`"];src=PolyhedronData["GreatRhombicuboctahedron","Graphics3D","Colored"][[1]];srcs=Stellate[src,1.6];Row[Graphics3D[#,Boxed->False,ImageSize->250,ViewPoint->{10,10,4}]&/@{src,srcs}]
Out[]=
Frame is established with a solid src
srca=PolyhedronData["GreatRhombicuboctahedron","Faces"];Graphics3D[{srcs,LightBrown,Scale[srca,1.06]},Boxed->False,SphericalRegion->True]
Out[]=
The cones are perforated
p1=0.24;srcsf=Normal[srcs]/.p:Polygon[__](p/.pts:{{_?NumericQ,_,_},__}Module[{cent,innervtx},cent=Mean[pts];innervtx={1-p1,p1}.{#,cent}&/@pts;Join[pts,pts[[{1}]],innervtx,innervtx[[{1}]]]])//#&;Graphics3D[{srcsf,LightBrown,Scale[srca,1.05]},Boxed->False,SphericalRegion->True,ViewPoint->{10,10,3}]
Out[]=
Opacity is used to imitate the glass over
Graphics3D[{{Opacity[0.3],Scale[srcs,0.99]},srcsf,LightBrown,Scale[srca,1.05]},Boxed->False,SphericalRegion->True,ViewPoint->{10,5,1}]
Out[]=
In[]:=
(*
*)
CITE THIS NOTEBOOK
CITE THIS NOTEBOOK
Shape of a lamp in Rumbach synagogue in Budapest
by Sándor Kabai
Wolfram Community, STAFF PICKS, September 21, 2023
https://community.wolfram.com/groups/-/m/t/3017635
by Sándor Kabai
Wolfram Community, STAFF PICKS, September 21, 2023
https://community.wolfram.com/groups/-/m/t/3017635