.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; bxh=3*dim bxw=4*dim B1:box height bxh width bxw vdist=bxh/5; hdist=bxw*0.8; tldist=0.2*dim; move to B1.sw+(0.1*bxw, vdist) T1:Here L:line right_ hdist dot(at L.end,,1) dot(at L.start,,1) "8$\times$" at last line.center above_ move to T1-(0,tldist) L:line right_ hdist dot(at L.end,,1) dot(at L.start,,1) # Code reuse :-) vdist=2*bxh/5; hdist=hdist/2 move to B1.sw+(0.1*bxw, vdist) T1:Here L:line right_ hdist dot(at L.end,,1) dot(at L.start,,1) "4$\times$" at last line.center above_ move to T1-(0,tldist) L:line right_ hdist dot(at L.end,,1) dot(at L.start,,1) # Code reuse :-) vdist=3*bxh/5; hdist=hdist/2 move to B1.sw+(0.1*bxw, vdist) T1:Here L:line right_ hdist dot(at L.end,,1) dot(at L.start,,1) "2$\times$" at last line.center above_ move to T1-(0,tldist) L:line right_ hdist dot(at L.end,,1) dot(at L.start,,1) # Code reuse :-) vdist=4*bxh/5; hdist=hdist/2 move to B1.sw+(0.1*bxw, vdist) T1:Here L:line right_ hdist dot(at L.end,,1) dot(at L.start,,1) "1$\times$" at last line.center above_ move to T1-(0,tldist) L:line right_ hdist dot(at L.end,,1) dot(at L.start,,1) "\tiny BinPhase" at B1.se below_ rjust_ .PE