PS
# `Bip.m4'
cct_init

  up_
Q1: bi_tr(up_ dimen_)
  thinlines_
  showbox_(,dotted)
  thicklines_
  "\hbox{\sl E}" at Q1.E-(0,0.05) below
  "\hbox{\sl B}sp_" at Q1.B rjust
  "\hbox{\sl C}" at Q1.C above
  "`{\tt bi\_tr(up\_ dimen\_)}'" wid 1.2 at Q1.s + (0,-0.35) below

Q2: bi_tr(,R) with .E at Q1.E+(0.25,0)
  thinlines_
  showbox_(,dotted)
  thicklines_
  "\hbox{\sl E}" at Q2.E-(0,0.05) below
  "sp_\hbox{\sl B}" at Q2.B ljust
  "\hbox{\sl C}" at Q2.C above
  "`{\tt bi\_tr(,R)}'" at Q2.s + (0,-0.2) below

Q3: bi_tr(,,P) with .C at Q2.C+(1.15,0)
  thinlines_
  showbox_(,dotted)
  thicklines_
  "\hbox{\sl E}" at Q3.E-(0,0.05) below
  "\hbox{\sl B}sp_" at Q3.B rjust
  "\hbox{\sl C}" at Q3.C above
  "`{\tt bi\_tr(,{,}P)}'" at Q3.s + (0,-0.35) below

Q4: bi_tr(,,,E) with .C at Q3.C+(0.9,0)
  thinlines_
  showbox_(,dotted)
  thicklines_
  "\hbox{\sl E}" at Q4.E-(0,0.05) below
  "\hbox{\sl B}sp_" at Q4.B rjust
  "\hbox{\sl C}" at Q4.C above
  "`{\tt bi\_tr(,{,},E)}'" at (Q4.s,Q4.E) + (0,-0.2) below

Q5: igbt(,,) with .E at Q4.E+(0.65,0)
  thinlines_
  showbox_(,dotted)
  thicklines_
  "\hbox{\sl E}" at Q5.E-(0,0.05) below
  "\hbox{\sl G}sp_" at Q5.G rjust
  "\hbox{\sl C}" at Q5.C above
  "`{\tt igbt}'" at Q5.s + (0,-0.35) below

Q6: igbt(,,LD) with .E at Q5.E+(0.55,0)
  thinlines_
  showbox_(,dotted)
  thicklines_
  "\hbox{\sl E}" at Q6.E-(0,0.05) below
  "\hbox{\sl G}sp_" at Q6.G rjust
  "\hbox{\sl C}" at Q6.C above
  "`{\tt igbt(,{,}LD)}'" at (Q6.s,Q6.E) + (0,-0.2) below

PE