PS
# Arresters.m4
cct_init

 sep = 0.2

R1: [
 arrester
 {`"\tt arrester"' at last line.c+(0,-0.2)}
 move sep
 arrester(,G)
 {`"\tt arrester(,G)"' at last line.c+(0,-0.2)}
 move sep
 arrester(,g)
 {`"\tt ...(,g)"' at last line.c+(0,-0.2)}
 move sep
 arrester(,M)
 {`"\tt \ldots(,M)"' at last line.c+(0,-0.2)}
 move sep
 arrester(,C)
 {`"\tt \ldots(,C)"' at last line.c+(0,-0.2)}
 move sep
 arrester(,A)
 {`"\tt \ldots(,A)"' at last line.c+(0,-0.2)}
 ]

R2: [
 arrester(,H)
 {`"\tt \ldots(,H)"' at last line.c+(0,-0.2)}
 move sep
 arrester(,HR)
 {`"\tt \ldots(,HR)"' at last line.c+(0,-0.2)}
 move sep
 arrester(,P)
 {`"\tt \ldots(,P)"' at last line.c+(0,-0.2)}
 move sep
 arrester(,s)
 {`"\tt \ldots(,s)"' at last line.c+(0,-0.2)}
 move sep
 arrester(,F)
 {`"\tt \ldots(,F)"' at last line.c+(0,-0.2)}
 move sep
 arrester(,S)
 {`"\tt \ldots(,S)"' at last line.c+(0,-0.2)}

 ] with .nw at R1.sw+(0,-0.2)

 define(`Dlabels',
 `{ thinlines_
   arrow <- from A.A up 0.1 left 0.1; "\sl A" rjust
   arrow <- from A.B up 0.1 right 0.1; "\sl B" ljust
   arrow <- from A.G up 0.05 right 0.15; "\sl G" ljust
   thicklines_ }')
[
 arrester(,E)
 {`"\tt \ldots(,E)"' at last line.c+(0,-0.25)}
 move up_ 0.1 then right_ sep
 A: arrester(,DE,,,fill_(0.95))
 {`"\tt \ldots(,DE,{,},"' wid 61bp__ at A.A+(-0.1,-0.40) ljust \
  `"\tt fill\_(0.95))"' ljust }
 Dlabels
 move down_ 0.1 then right_ sep*3
 A: arrester(,DS)
 {`"\tt \ldots(,DS)"' at last [].s+(0,-0.1)}
 Dlabels
 move sep*3
 A: arrester(,DEL)
 {`"\tt \ldots(,DEL)"' at last [].s+(0,-0.1)}
 Dlabels
 move sep*3
 A: arrester(,DSL)
 {`"\tt \ldots(,DSL)"' at last [].s+(0,-0.1)}
 Dlabels
 ] with .nw at R2.sw+(0,-0.2)

PE