.PS # Relay.m4 cct_init movw = 0.85 {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 right_ movw; reed; {`"\tt reed"' 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 right_ movw; reed(,,,fill_(0.9),CR); # {`"\shortstack[l]{\tt reed(\\\tt$\;\;$,{,},fill\_(0.9),CR)}"' \ # 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