.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