.PS
# `fetMan.m4'
cct_init

textht = 0.1

dnl                               `IRF4905(linespec,R)'
define(`IRF4905',
 `[ ifelse(`$1',,,`eleminit_(`$1')')
   Q: mosfet(,`$2',dMdPzEDSQdB,) ifelse(`$1',,`
     S: Q.tr_xy(-4,-2); line from Q.tr_xy(-2,-2) to S
     D: Q.tr_xy( 4,-2); line from Q.tr_xy(2,-2) to D',
    `with .Diode.c at last line.c
     S: last line.start; D: last line.end; line from S to D ')
   G: Q.G
   circle rad 5*dimen_/10 at Q.tr_xy(0,1) ]')

# Wrappers for `mosfet'(...), drawing direction right
define(`GSD',
 `"$G$" at J.G rjust above; "$S$" at J.S rjust; "$D$" at J.D ljust ')

Row1: [ J: j_fet
  { "{\tt j\_fet}" at J.s+(0,-0.05) below; GSD }
 J: j_fet(right_ dimen_,,P,E) with .S at J.D+(0.5,0)
  { "{\tt j\_fet(right\_}" "{\tt dimen\_,{,}P,E)}" at J.s+(0,-13bp__) below;GSD}
 J: e_fet with .S at J.D+(0.5,0)
  {  "{\tt $\;$ e\_fet}" at J.s+(0,-0.05) below; GSD }
 J: e_fet(,,P) with .w at J.e+(0.5,0)
  {  "{\tt $\;$ e\_fet(,{,}P)}" at J.s+(0,-0.2) below; GSD }
 J: e_fet(,,P,S) with .w at J.e+(0.5,0)
  {  "{\tt $\;$ e\_fet(,{,}P,S)}" at J.s+(0,-0.05) below; GSD }
 J: c_fet with .w at J.e+(0.5,0)
  {  "{\tt $\;$ c\_fet}" at J.s+(0,-0.2) below; GSD }
 J: c_fet(,,P) with .w at J.e+(0.5,0)
  {  "{\tt $\;$ c\_fet(,{,}P)}" at J.s+(0,-0.05) below; GSD }
  ]

Row2: [
 J: d_fet
  { "{\tt d\_fet}" at J.s+(0,-0.05) below; GSD }
 J: d_fet(,,P) with .S at J.D+(0.5,0)
  { "{\tt d\_fet(,{,}P)}" at J.s+(0,-0.2) below; GSD }
 J: d_fet(,,P,S) with .S at J.D+(0.5,0)
  { "{\tt d\_fet(,{,}P,S)}" at J.s+(0,-0.05) below; GSD }
 J: g_fet with .G at J.G+(0.65,0)
  { "{\tt g\_fet}" at J.s+(0,-0.1) below; GSD }
 J: g_fet(up_ dimen_,,P) with .D at J.G+(0.85,0)
  { "{\tt `g\_fet'(up\_$\;\;$}" at last [].s below
    "{\tt  $\;\;$dimen\_,{,}P)}" at last [].s + (0,-12bp__) below
    "{\sl G}" at last [].G rjust
    "{\sl S}" at last [].S + (0,2bp__) ljust
    "{\sl D}" at last [].D + (0,2bp__) ljust below }
  right_
 J: Fe_fet with .G at J.D+(0.55,0)
  {`"{\tt $\;$ Fe\_fet}"' at J.s+(0,-0.05) below; GSD }
 J: Fe_fet(,,TEDQSuB) with .S at J.D+(0.5,0)
  {`"{\tt $\ldots$(,{,}TEDSQuB)}"' at J.s+(0,-0.2) below; GSD
    thinlines_
    arrow <- down .05 left .18 from (J.G.x,J.G.y-0.1)
    "\tt T" rjust
    thicklines_ }
  move right_ 0.6
  up_
  Q6: IRF4905 with .c at Here
  {`"\tt IRF4905"' at Q6.s+(0,-0.0) below
    "$G$" at Q6.G rjust
    "$D$" at Q6.D ljust above
    "$S$" at Q6.S ljust
    }
  ] with .nw at Row1.sw+(0,-0.1)
.PE