ToComplex[{x_,y_}]:=x+Iy;ToReal[z_]:={Re[z],Im[z]};FrameToEdges[frame_]:=ToReal[ToComplex[#]^2]&/@Transpose[frame];FrameToVertices[frame_]:=Accumulate[FrameToEdges[frame]];Manipulate[Module[{mat,frame,rotatedframe,verts,com},mat=RotationMatrix[t,{Cos[θ]Sin[ϕ],Sin[θ]Sin[ϕ],Cos[ϕ]}]/.{θ->3π/4,ϕ->3π/4};frame=Transpose[ToReal[Sqrt[#]]&/@(E^(I#)*2/3&/@Range[0,4π/3,2π/3])];rotatedframe=frame.Transpose[mat];verts=FrameToVertices[rotatedframe];com=Mean[verts];verts=RotationMatrix[t].#&/@(#-com&/@verts);Graphics[{FaceForm[None],EdgeForm[Directive[RGBColor["#383a40"],Thickness[.009],JoinForm["Round"]]],Polygon[verts]},PlotRange->.8,ImageSize->540,Background->RGBColor["#F9F9F9"]]],{t,0,2π}]