Rotation of Matrix Graphs

ResFun[m_]:=ResourceFunction["VertexCoordinateList"][AdjacencyGraph[
ExampleData[{"Matrix",m},"Matrix"]["PatternArray"]]];
RotM[a_,m_]:=RotationTransform[a,{0,0}]/@ResFun[m]//N;
RotMGraph[m_,n_]:=Table[GraphPlot[AdjacencyGraph[
ExampleData[{"Matrix",m},"Matrix"]["PatternArray"],
VertexStyle->Transparent,VertexShape->"",
DirectedEdges->False],PlotStyle->Opacity[.6],
EdgeStyle->ColorData["BrightBands"][Cos[Pi*i/n]^2],
VertexCoordinates->RotM[i*Pi/n,m]],{i,2n}];
Show[RotMGraph["Morandini/robot",11],ImageSize->700]