% ex12.m4
.PS
cct_init
fetht = dimen_*0.9

G: ground
Q4: e_fet(up_ fetht) with .S at G
Q3: e_fet(up_ fetht) with .S at Q4.D

Q2: e_fet(down_ fetht,R,P) with .G at Q3.Channel+( dimen_*0.25,dimen_*1.8)
Q1: e_fet(down_ fetht,R,P) with .G at Q2.G + (-dimen_*1.25,0)

   line left_ dimen_ from Q3.G
A: dot; "$A$sp_" rjust
   line left_ dimen_ from Q4.G
B: dot; "$B$sp_" rjust

   line from Q1.G to (Q1.G,Q3.D) then to (Q1.Channel,Q3.D) \
     then to (Q1.Channel,B);dot
   line from Q2.G to (Q3.Channel,Q2.G) then to (Q3.Channel,Q3.D) \
             then to (Q3.G,Q3.D) then to Q3.G;dot
   line from Q1.D to Q2.D
   line from Q1.S to Q2.S
   dot(at (G,Q1.S)) ; line up dimen_/3 ; "$+5$V{}sp_" rjust
   line from Q3.D to (Q3.D,Q2.D);dot
   dot(at Q3.D)
   line right_ dimen_ ; dot ; "sp_$\overline{AB}$" ljust
.PE