.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; Org:Here circle rad 3*dim with .c at Here " Cell" at last circle.ne ljust_ move to Org for phi = 0 to 2*pi_ by 2*pi_/90 do { r=2*dim*cos(pi_/2*cos(3/2*phi)); line to (r*sin(phi), r*cos(phi)) } "\tiny SDMA" at (3.5*dim,-2.5*dim) .PE