summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/doc/Relay.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/doc/Relay.m4')
-rw-r--r--graphics/circuit_macros/doc/Relay.m4106
1 files changed, 33 insertions, 73 deletions
diff --git a/graphics/circuit_macros/doc/Relay.m4 b/graphics/circuit_macros/doc/Relay.m4
index ee52fa4994..20c51ebb6a 100644
--- a/graphics/circuit_macros/doc/Relay.m4
+++ b/graphics/circuit_macros/doc/Relay.m4
@@ -1,84 +1,44 @@
.PS
-# Relay.m4
+# Relay
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
+skip = 1.1
+
+R1:relay
{"\sl V1" wid 0.16 rjust at last [].V1
"\sl V2" ljust at last [].V2
- "\sl P1" rjust at last [].P1.w
+ "\sl P1" rjust at last [].P1-(dotrad_,0)
"\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)
+ S: `"\tt relay"' at last [].s+(0,-0.2)
+
+R5:relay(2,CTh) with .sw at last [].sw+(skip,0)
+ { for_(1,2,1,`
+ "\sl P`'m4x" rjust at last [].P`'m4x-(dotrad_,0)
+ "\sl C`'m4x" ljust at last [].C`'m4x ') }
+ `"\tt (2,CTh)"' at (last [],S)
+
+R4:relay(2,O) with .sw at last [].sw+(skip,0)
+ {for_(1,2,1,`
+ "\sl P1" rjust at last [].P1-(dotrad_,0)
+ "\sl O`'m4x" ljust at last [].O`'m4x ')}
+ `"\tt (2,O)"' at (last [],S)
+
+R3:relay(2,PIAX) with .sw at last [].sw+(skip,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 V2" rjust at last [].V2
+ for_(1,2,1,
+ `"\sl P`'m4x" rjust at last [].P`'m4x-(dotrad_,0)
+ "\sl O`'m4x" ljust at last [].O`'m4x+(dotrad_,0)
+ "\sl C`'m4x" ljust at last [].C`'m4x+(dotrad_,-2pt__) ') }
+ `"\tt (2,PIAX)"' at (last [],S)
+
+R2:relay(2,R) with .sw at last [].sw+(skip,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)
-}
-
+ for_(1,2,1,
+ `"\sl P`'m4x" rjust at last [].P`'m4x-(dotrad_,0)
+ "\sl O`'m4x" ljust at last [].O`'m4x
+ "\sl C`'m4x" ljust at last [].C`'m4x ') }
+ `"\tt relay(2,R)"' at (last [],S)
.PE