Random Polygon Plotting

Random Parametric 3D Plotting 2

Random Parametric 3D Plotting

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]

AnglePath 3D Layers

CT[col_,s_]:=Module[{r,t,n},
r=RandomReal[10,90];
t=AnglePath[Flatten[Table[r*Pi+.1^3,
{i,100}]]];n=Length[t];
t=Table[Flatten[{t[[i]],.1^3i}],{i,n}];
l=Table[{ColorData[col][Cos[i]^2],
Line[{t[[i]],t[[i+1]]}]},{i,n-1}];
Graphics3D[l,Boxed->False,ImageSize->s]];
CT["AuroraColors",500]