summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/doc/RelayMan.m4
blob: 20c51ebb6a20872fd6c5b25fdc3b7d9116637dab (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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