PLaSM

DEF Hwall = STRUCT:< Q:<-0.5,1.75,-1.5,1.75> * Q:<-0.3,1.4> * Q:<2.5*hCol>, Q:<-2.25,1.5> * Q:<-0.3,1.4> * Q:<1.5*hCol, -0.5*hcol, 0.5*hcol> >;

DEF CurvedHwall = (cylMap ~ T:<2,3>:<(r0 - 2),hcol> ~ S:1:(PI/(11*5)) ):Hwall;

DEF The22Hwall = Radial22Obj:CurvedHwall;

DEF myArc = MAP:[SIN ~ S1, COS ~ S1]:(Q:(#:5:(PI/10)));

DEF Vertex = MK:<0,0>;
DEF Sector = JOIN:<myArc, Vertex>;
DEF Triangle = S:1:-1:(SIMPLEX:2);
DEF SectorTriangle2D = STRUCT:<T:1:0.05, Sector, T:1:2, Triangle>;

DEF DoubleSect = STRUCT:< SectorTriangle2D, S:1:-1:SectorTriangle2D>;

DEF Sect2D = S:1:(2/2.05):DoubleSect;
DEF Sect3D = R:<2,3>:(PI/2):(Sect2D * Q:<0.8>);

DEF CurvedSect = (cylMap ~ T:2:r0 ~ S:<1,3>:<(2*PI)/(11*4),3> ):Sect3D;

DEF Frieze = T:3:(3.5*hcol):CurvedSect;

DEF Radial11Obj (Obj::IsPol) = STRUCT:< The10Obj, R:<1,2>:((20*PI)/11), Obj > WHERE The2Obj = (STRUCT ~ ##:2):< Obj, R:<1,2>:((2*PI)/11) >, The10Obj = (STRUCT ~ ##:5):< The2Obj, R:<1,2>:((4*PI)/11) > END;

DEF The11Frieze = Radial11Obj:Frieze;