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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
.PS
# `Jack.m4'
cct_init
# https://tex.stackexchange.com/questions/720858/is-there-a-tikz-or-circuitikz-headphone-jack-connector-diagram
P: [
P1: plug
foreach_(`Y',`"\sl Y" wid 0.1 at P1.Y rjust',A,B)
"\sl TB" at P1.TB ljust above
"\sl TA" at P1.TA ljust below
P2: plug(,R) with .B at P1.A+(0.85,0)
foreach_(`Y',`"\sl Y" wid 0.1 at P2.Y rjust',A,B)
P4: plug(,3) with .A at P2.B+(0.85,0)
foreach_(`Y',`"\sl Y" at P4.Y rjust',A,B,C)
P5: plug(L,3R) with .A at P4.A+(1,0)
foreach_(`Y',`"\sl Y" wid 0.1 at P5.Y ljust',A,B,C)
`"\tt plug"' below at P1.s+(0,-0.1)
`"\tt plug(,R)"' below at P2.s+(0,-0.1)
`"\tt plug(,3)"' below at P4.s+(-0.1,-0.1)
`"\tt plug(L,3R)"' below at P5.s+(0.1,-0.1)
]
L: [ right_
J1: jack
thinlines_
"\sl L" wid 0.1 rjust at J1.L
arrow <- right 0.1 from J1.F; "\sl F" ljust
arrow <- down 0.1 left 0.1 from J1.G ; "\sl G" rjust
arrow <- up 0.1 left 0.1 from J1.H ; "\sl H" rjust
thicklines_
J3: jack(L,RLS) with .F at J1.F+(0.4,0)
"\sl L" ljust at J3.L
"\sl S" ljust at J3.S
J2: jack(,LMBS) with .F at J3.F+(1.5,0)
thinlines_
"\sl L" rjust at J2.L
arrow <- from J2.LM left 0.25; "\sl LM" wid 0.18 rjust
arrow <- from J2.LB left 0.25; "\sl LB" rjust
"\sl S" rjust at J2.S
thicklines_
J11: jack(,LMBSX) with .w at last [].e+(0.5,0)
foreach_(`Y',`"\small\sl Y" rjust at J11.Y.w', L,LM,LB,S,G)
J8: jack(,XLLBSSBC) with .sw at last [].se+(0.75,0)
foreach_(`Y',`"\small\sl Y" rjust at J8.Y.w', L,L1,LB1,S,S1,SB1,G,C)
`"\tt jack"' ht 0.15 below at J1.s+(0,-0.15)
`"\tt ..(,LMBS)"' below at (J2,last "")
`"\tt ..(L,RLS)"' below at (J3,last "")
`"\tt ..(,LMBSX)"' below at (J11,last "")
`"\tt ..(,XLLBSSBC)"' below at (J8, last "")
] with .nw at last [].sw + (0,0.1)
.PE
|
