.PS
cct_init

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

Start:Here 
Q1:e_fet(up_)
move right_ hlf
Q2:e_fet(up_,R)
{move up_ dim then right_ qrt; "Enhancement FETS"}
move right_ hlf
Q3:e_fet(up_,,P)
move right_ hlf
Q4:e_fet(up_,R,P)
move right_ hlf
Q5:d_fet(up_)
move right_ hlf
Q6:d_fet(up_,R)
{move up_ dim then right_ qrt; "Depletion FETS"}
move right_ hlf
Q7:d_fet(up_,,P)
move right_ hlf
Q8:d_fet(up_,R,P)
{move to Q1.center then down_ 0.75*dim;
move to Here +((Q2.center.x-Q1.center.x)/2,0) "N-Channel"; 
move to (Q3.center,Here)+((Q4.center.x-Q3.center.x)/2,0)
"P-Channel";
move to (Q5.center,Here)+((Q6.center.x-Q5.center.x)/2,0)
"N-Channel";
move to (Q7.center,Here)+((Q8.center.x-Q7.center.x)/2,0)
"P-Channel"
}  
move to Start then down_ 1.5*dim
right_; 
e_fet(up_,,,S)
move right_ hlf
e_fet(up_,R,,S)
move right_ hlf
e_fet(up_,,P,S)
move right_ hlf
e_fet(up_,R,P,S)
{move down_ dim then right_ qrt; 
  "Bottom row are ``Simplified'' symbols"}
move right_ hlf
d_fet(up_,,,S)
move right_ hlf
d_fet(up_,R,,S)
move right_ hlf
d_fet(up_,,P,S)
move right_ hlf
d_fet(up_,R,P,S)

move down_ dim
"\tiny FetSymb"
.PE