The geometric pattern on the the clock face of Big Ben is created with segments of circle, cosine curve and bars.
Circe in
circlein=ParametricPlot3D[0.9{Sin[x],Cos[x],0},{x,0,2Pi},PlotStyle->{Green,Tube[0.04]}][[1]];
12 circles
csm=ParametricPlot3D[0.325{Sin[x],Cos[x],0},{x,0,2Pi},PlotStyle->{Pink,Tube[0.04]}][[1]];​​circle12=Table[Rotate[Translate[csm,{0,1.29,0}],i2Pi/12+Pi/12,{0,0,1}],{i,12}];
Petal 1
s21=ParametricPlot3D[{Sin[x],Cos[x],0},{x,Pi/2,0.618},PlotStyle->{Cyan,Tube[0.04]}][[1]];​​sa=Translate[s21,{-Sin[0.618],0,0}];​​sb=Rotate[sa,Pi,{0,1,0}];​​petal1=Table[Rotate[Translate[{sa,sb},{0,1.58,0}],i2Pi/12,{0,0,1}],{i,12}];
Petal 2
sin1=ParametricPlot3D[{x,0.9Cos[x]+0.9,0},{x,0,3Pi}][[1]];​​sin2=ParametricPlot3D[{x,0.9Cos[x]+0.9,0},{x,0,Pi},PlotStyle->{Red,Tube[0.13]}][[1]];​​sin3=Rotate[sin2,Pi,{1,0,0}];​​petal2=Table[Rotate[Translate[Scale[{sin2,sin3},0.33],{1.24,0,0}],iPi/6+Pi/12,{0,0,1}],{i,12}];
Bars
bar1=Table[Rotate[Cylinder[{{0,2.4,0},{0,3.33,0}},0.05],i2Pi/12,{0,0,1}],{i,12}];​​bar2=Table[Rotate[Cylinder[{{0,3.36,0},{1.24,4.6,0}},0.05],i2Pi/12,{0,0,1}],{i,12}];​​bar3=Table[Rotate[Cylinder[{{0,3.36,0},{-1.24,4.6,0}},0.05],i2Pi/12,{0,0,1}],{i,12}];​​bar4=Table[Rotate[{Yellow,bar2,bar3},i2Pi/24,{0,0,1}],{i,12}];
Circe out
circleout=ParametricPlot3D[4.82{Sin[x],Cos[x],0},{x,0,2Pi},PlotStyle->{Green,Tube[0.07]}][[1]];​​​​Graphics3D[{circlein,circle12,petal1,petal2,bar4,Green,bar1,circleout},ViewPoint->{0,0,100},SphericalRegion->True,ImageSize->500,Boxed->False]
Out[]=
In[]:=
Graphics3D[{circlein,circle12,petal1,petal2,bar4,Green,bar1},ViewPoint->{0,0,100},SphericalRegion->True,ImageSize->400,Boxed->False]
In[]:=
Graphics3D[{circlein,circle12,petal1,petal2,bar4,bar1},ViewPoint->{0,0,100},SphericalRegion->True,ImageSize->400,Boxed->False]
In[]:=
Graphics3D[{circlein,circle12,petal1,petal2,bar4},ViewPoint->{0,0,100},SphericalRegion->True,ImageSize->400,Boxed->False]
Out[]=
In[]:=
Graphics3D[{circlein,circle12,petal1,petal2},ViewPoint->{0,0,100},SphericalRegion->True,ImageSize->400,Boxed->False]
Out[]=
In[]:=
Graphics3D[{circlein,circle12,petal1},ViewPoint->{0,0,100},SphericalRegion->True,ImageSize->400,Boxed->False]
Out[]=
In[]:=
Graphics3D[{circlein,circle12},ViewPoint->{0,0,100},SphericalRegion->True,ImageSize->400,Boxed->False]
Out[]=
Creating petal1 and petal2

CITE THIS NOTEBOOK

Big Ben clock face pattern​
by Sandor Kabai​
Wolfram Community, STAFF PICKS, August 17, 2023
​https://community.wolfram.com/groups/-/m/t/2992400