.PS
# `bi_trans.m4'
sinclude(Circuit_macros.dim)
s_init(bitrans)
ifdef(`bitrans_1',,`sinclude(tst.dim)')

cct_init

[[
Q: bi_trans(,,BCuEBUS)
  s_box($C$) at Q.C below
  s_box($B$) at Q.B above
  s_box($E$) at Q.E below

thinlines_
M4_xyO: Q.M4_xyO
  spline <- from tr_xy(0,5.25) left 0.1 then up 0.15 left 0.15 
    s_box(\tt B) above
  spline <- from 0.5<tr_xy(3,0),tr_xy(1.2,4)> right 0.1 then right 0.15 up 0.15 
    s_box(\tt C) ljust
  spline <- from 0.7<tr_xy(-2,4),tr_xy(2,4)> up 0.1 then right 0.15 up 0.15
   s_box(\tt BU) above
  spline <- from 0.7<tr_xy(-3,0),tr_xy(-1.2,4)> left 0.1 then left 0.15 up 0.15
   s_box(\tt uE) rjust
  arrow <- from Q.Bulk.start+vec_(vscal_(m4_U,0,0.5)) up 0.15 left 0.15
    s_box(\tt S) above rjust
  arrow <- from Q.Bulk.end up 0.1 right 0.1
    s_box($\;\;$\tt S) above
  ]
  s_box(\tt bi\_trans(,{,}BCuEBUS)) at last [].s below
]

[[
Q2: bi_trans(,,BCdE2BU)
  s_box($C$) at Q2.C below
  s_box($B$) at Q2.B above

thinlines_
M4_xyO: Q2.M4_xyO
  arrow <- from Q2.E0 down 0.1 right 0.1; s_box($\;\;E0$) below
  arrow <- from Q2.E2 down 0.1 left 0.1; s_box($E2\;\;$) below
  arrow <- from Q2.E1 down 0.1 ; s_box($E1$) below
  spline <- from 0.4<Q2.Em2.start,Q2.Em2.end> left 0.1 then up 0.15 left 0.15 
    s_box($Em2\;\;$) above
  ]
  s_box(\tt bi\_trans(,{,}BCdE2BU)) at last [].s below
] with .nw at last [].ne+(0.5,0)

[[
Q2: bi_trans(,,BC2dEBU)
  s_box($E$) at Q2.E below
  s_box($B$) at Q2.B above

thinlines_
M4_xyO: Q2.M4_xyO
  arrow <- from Q2.C0 down 0.1 left 0.1; s_box($C0\;\;$) below
  arrow <- from Q2.C2 down 0.1 right 0.1; s_box($\;\;C2$) below
  arrow <- from Q2.C1 down 0.1 ; s_box($C1$) below
  spline <- from 0.4<Q2.Cm2.start,Q2.Cm2.end> right 0.1 then up 0.15 right 0.15 
    s_box($Cm2\;\;$) above
  ]
  s_box(\tt bi\_trans(,{,}BC2dEBU)) at last [].s below
] with .nw at last [].ne+(0.5,0)

.PE