Matrix 3D Rotations

CTM[m_,r_,col_,s_]:=Module[{ag,rtag,n},
ag=AdjacencyGraph[ExampleData[{"Matrix",m},
"Matrix"]["PatternArray"],DirectedEdges->False];
rtag=Table[RotationTransform[i*Pi/r,{0,
0}]/@ResourceFunction["VertexCoordinateList"][ag]//N,
{i,2r}];n=Length[rtag[[1]]];
rtag=Table[Flatten[{rtag[[i,j]],.05j}],{i,2r},{j,n}];
Graphics3D[Table[{ColorData[col][Cos[2Pi*i/r]^2],
Line[rtag[[i]]]},{i,2r}],
ImageSize->s,Boxed->False,ViewPoint->{3,1,.003n}]];
CTM["HB/dwt_1005",12,"CherryTones",700]