.PS
# `Antennas.m4'
cct_init
s_init(Antennas)
sinclude(Circuit_macros.dim)
sinclude(tst.dim)

  define(`elen_',elen_*0.9)
  B: Here
  A: antenna
       s_box(T) below at A.T
       s_box(`\tt an`'tenna') at A.n above
  A: antenna(at A.T+(dimen_,0),T)
       s_box(T) below at A.T
       s_box(`\tt (,T)') at A.n above
  A: antenna(at A.T+(dimen_,0),,L)
       s_box(T1) below rjust at A.T1+(2bp__,0)
       s_box(T2) below ljust at A.T2-(2bp__,0)
       s_box(`\tt (,{,}L)') at A.n above
  A: antenna(at A.T+(dimen_,0),,T)
       s_box(T) below at A.T
       s_box(`\tt (,{,}T)') at A.n above
  A: antenna(at A.T+(dimen_,0),,S)
       s_box(T1) below rjust at A.T1+(2bp__,0)
       s_box(T2) below ljust at A.T2-(2bp__,0)
       s_box(`\tt (,{,}S)') at A.n above
  A: antenna(at A.T+(dimen_,0),,D)
       s_box(T1) below rjust at A.T1+(2bp__,0)
       s_box(T2) below ljust at A.T2-(2bp__,0)
       s_box(`\tt (,{,}D)') at A.n above
  A: antenna(at A.T+(dimen_,0),dimen_*3/4,P)
       s_box(T) below at A.T
       s_box(`\tt (,dimen\_*3/4,P)') at A.n above
  A: antenna(at A.T+(dimen_,0),,F)
       s_box(T) below at A.T
       s_box(`\tt (,{,}F)') at A.n above
  R: r_stub(with .C at A.T+(dimen_,0))
       s_box(\tt r\_stub) at R.n above
       s_box(\sl C) below at R.C
  R: r_stub(with .s at R.C+(dimen_,0),stem=TI)
       s_box(`\tt (,stem=TI)') at (R.n+(0,10bp__),5th last "") above
.PE
