% `Relay.m4'
.PS
cct_init

#{contact
# {`"\tt contact"' at last [].s+(0,-0.2)
#  "\sl P" rjust at last [].P
#  "\sl O" ljust at last [].O
#  "\sl C" ljust at last [].C }
# move right_ 1.0; contact(,R)
# {`"\tt contact(,R)"' at last [].s+(0,-0.2)
#  "\sl P" rjust at last [].P
#  "\sl O" ljust at last [].O
#  "\sl C" ljust at last [].C }
# move right_ 1.0; contact(O,); {`"\tt contact(O,)"' at last [].s+(0,-0.2)}
# move right_ 1.0; contact(C,); {`"\tt contact(C,)"' at last [].s+(0,-0.2)}
#}
#move down 1.5
#right_
#relay
# {"\sl V1" rjust at last [].V1
#  "\sl V2" ljust at last [].V2
#  "\sl P1" rjust at last [].P1
#  "\sl O1" ljust at last [].O1
#  "\sl C1" ljust at last [].C1 }
#`"\tt relay"' at last [].s+(0,-0.2)
#relay(2) with .sw at last [].sw+(1.2,0)
# {"\sl V1" rjust at last [].V1
#  "\sl V2" ljust at last [].V2
#  "\sl P1" rjust at last [].P1
#  "\sl O1" ljust at last [].O1
#  "\sl C1" ljust below at last [].C1
#  "\sl P2" rjust at last [].P2
#  "\sl O2" ljust at last [].O2
#  "\sl C2" ljust at last [].C2 }
#`"\tt relay(2)"' at last [].s+(0,-0.2)
#relay(2,R) with .sw at last [].sw+(1.2,0)
#`"\tt relay(2,R)"' at last [].s+(0,-0.2)
#relay(2,O) with .sw at last [].sw+(1.2,0)
#`"\tt relay(2,O)"' at last [].s+(0,-0.2)
#relay(2,CT) with .sw at last [].sw+(1.2,0)
#`"\tt relay(2,CT)"' at last [].s+(0,-0.2)
#.PE
 
movw = 0.8
{contact
 {`"\tt contact"' at last [].s+(0,-0.2)
  "\sl P" rjust at last [].P.w
  "\sl O" ljust at last [].O
  "\sl C" ljust at last [].C }
 move right_ movw; contact(R,)
 {`"\tt contact(,R)"' at last [].s+(0,-0.2)
  "\sl P" rjust at last [].P.w
  "\sl O" ljust at last [].O
  "\sl C" ljust at last [].C }
 move right_ movw; contact(P)
 {`"\tt contact(P)"' at last [].s+(0,-0.2)
  "\sl P" rjust at last [].P.w
  "\sl O" ljust at last [].O
  "\sl C" ljust at last [].C }
 move right_ movw; contact(O,); {`"\tt contact(O,)"' at last [].s+(0,-0.2)}
 move right_ movw; contact(C,); {`"\tt contact(C,)"' at last [].s+(0,-0.2)}
}
move down 0.8
right_
{contact(I)
 {`"\tt contact(I)"' at last [].s+(0,-0.2)
  "\sl P" rjust at last [].P.w
  "\sl O" ljust at last [].O.e
  "\sl C" ljust at last [].C.e }
 move right_ movw; contact(RI)
 {`"\tt contact(RI)"' at last [].s+(0,-0.2)
  "\sl P" rjust at last [].P.w
  "\sl O" ljust at last [].O.e
  "\sl C" ljust at last [].C.e }
 move right_ movw; contact(PI)
 {`"\tt contact(PI)"' at last [].s+(0,-0.2)
  "\sl P" rjust at last [].P.w
  "\sl O" ljust at last [].O.e
  "\sl C" ljust at last [].C.e }
 move right_ movw; contact(OI); {`"\tt contact(OI)"' at last [].s+(0,-0.2)}
 move right_ movw; contact(CI); {`"\tt contact(CI)"' at last [].s+(0,-0.2)}
}
move down 1.2
right_
{
relay
 {"\sl V1" wid 0.16 rjust at last [].V1
  "\sl V2" ljust at last [].V2
  "\sl P1" rjust at last [].P1.w
  "\sl O1" ljust at last [].O1
  "\sl C1" ljust at last [].C1 }
`"\tt relay"' at last [].s+(0,-0.2)
relay(2) with .sw at last [].sw+(1.2,0)
 {"\sl V1" rjust at last [].V1
  "\sl V2" ljust at last [].V2
  "\sl P1" rjust at last [].P1.w
  "\sl O1" ljust at last [].O1
  "\sl C1" ljust below at last [].C1
  "\sl P2" rjust at last [].P2.w
  "\sl O2" ljust at last [].O2
  "\sl C2" ljust at last [].C2 }
`"\tt relay(2)"' at last [].s+(0,-0.2)
relay(2,RPI) with .sw at last [].sw+(1.2,0)
 {"\sl V1" rjust at last [].V1
  "\sl V2" ljust at last [].V2
  "\sl P1" rjust at last [].P1.w
  "\sl O1" ljust at last [].O1
  "\sl C1" ljust at last [].C1+(0,2pt__)
  "\sl P2" rjust at last [].P2.w
  "\sl O2" ljust at last [].O2+(0,-2pt__)
  "\sl C2" ljust at last [].C2 }
`"\tt relay(2,RIP)"' at last [].s+(0,-0.2)
relay(2,O) with .sw at last [].sw+(1.2,0)
`"\tt relay(2,O)"' at last [].s+(0,-0.2)
relay(2,CT) with .sw at last [].sw+(1.2,0)
`"\tt relay(2,CT)"' at last [].s+(0,-0.2)
}

.PE