.PS
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;

Q1:bi_tr(up_,,,E)
line from Q1.B left_ qrt; "B " ljust_; Mid:Here
line from Q1.C up_ dim/8; right_; "C" above_
line from Q1.E down_ dim/8; right_; "E" below_

move right_ dim 
Q1:bi_tr(down_,R,P,E) with .B at (Here,Mid)
line from Q1.B left_ qrt; "B " ljust_
line from Q1.C down_ dim/8; right_; "C" below_
line from Q1.E up_ dim/8; right_; "E" above_

"\tiny TransSym" at (2*dim, -1*dim) ljust_ 
.PE