% `fet+.m4'
.PS
cct_init
dwn = 0.8

define(`demo_fet',
  `$1(`$2',`$3',`$4',`$5',`$6')
  "\sl S" below at last [].S
  "{\sl G}sp_" rjust at last [].G
  "\sl D" above at last [].D ')

up_
{[demo_fet(`j_fet',up_ dimen_,,,E)]
"{\tt j\_fet(up\_ dimen\_,,,E)}" at last [].s+(0,-0.2) below}

{move down_ dwn; up_
[demo_fet(`j_fet',,,P,)]
     "{\tt j\_fet(,,P,)}" at last [].s+(0,-0.2) below}

move right_ 1.35; up_
{[demo_fet(`e_fet',,,,)]
      "{\tt e\_fet(,,,)}" at last [].s+(0,-0.2) below}

{move down_ dwn; up_
[demo_fet(`e_fet',,,P,)]
     "{\tt e\_fet(,,P,)}" at last [].s+(0,-0.2) below}

move right_ 1; up_
{[demo_fet(`d_fet',,,,)]
      "{\tt d\_fet(,,,)}" at last [].s+(0,-0.2) below}

{move down_ dwn; up_
[demo_fet(`d_fet',,,P,)]
     "{\tt d\_fet(,,P,)}" at last [].s+(0,-0.2) below}

move right_ 1; up_
{[demo_fet(`e_fet',,,,S)]
      "{\tt e\_fet(,,,S)}" at last [].s+(0,-0.2) below}

{move down_ dwn; up_
[demo_fet(`e_fet',,,P,S)]
     "{\tt e\_fet(,,P,S)}" at last [].s+(0,-0.2) below}

move right_ 1; up_
{[demo_fet(`d_fet',,,,S)]
      "{\tt d\_fet(,,,S)}" at last [].s+(0,-0.2) below}

{move down_ dwn; up_
[demo_fet(`d_fet',,,P,S)]
     "{\tt d\_fet(,,P,S)}" at last [].s+(0,-0.2) below}


.PE