summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/doc/RelayMan.m4
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2020-05-02 03:03:34 +0000
committerNorbert Preining <norbert@preining.info>2020-05-02 03:03:34 +0000
commit8626a9c3cb5dc8d02d779d5b5b1e3933d5626f43 (patch)
tree3cf05fd2ad850b994dafdcf497738d48a29634ca /graphics/circuit_macros/doc/RelayMan.m4
parent7039906aa6676b98933cd099d1cb038f1644c18f (diff)
CTAN sync 202005020303
Diffstat (limited to 'graphics/circuit_macros/doc/RelayMan.m4')
-rw-r--r--graphics/circuit_macros/doc/RelayMan.m444
1 files changed, 44 insertions, 0 deletions
diff --git a/graphics/circuit_macros/doc/RelayMan.m4 b/graphics/circuit_macros/doc/RelayMan.m4
new file mode 100644
index 0000000000..20c51ebb6a
--- /dev/null
+++ b/graphics/circuit_macros/doc/RelayMan.m4
@@ -0,0 +1,44 @@
+.PS
+# Relay
+cct_init
+
+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-(dotrad_,0)
+ "\sl O1" ljust at last [].O1
+ "\sl C1" ljust at last [].C1 }
+ 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" 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
+ 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