PS
# `JackDPV.m4'
cct_init
#
https://tex.stackexchange.com/questions/720858/is-there-a-tikz-or-circuitikz-headphone-jack-connector-diagram
P: [
P1: plug
foreach_(`Y',`"svg_it(Y)" wid 0.1 at P1.Y rjust',A,B)
"svg_it(TB)" at P1.TB ljust above
"svg_it(TA)" at P1.TA ljust below
P2: plug(,R) with .B at P1.A+(0.85,0)
foreach_(`Y',`"svg_it(Y)" wid 0.1 at P2.Y rjust',A,B)
P4: plug(,3) with .A at P2.B+(0.85,0)
foreach_(`Y',`"svg_it(Y)" at P4.Y rjust',A,B,C)
P5: plug(L,3R) with .A at P4.A+(1,0)
foreach_(`Y',`"svg_it(Y)" wid 0.1 at P5.Y ljust',A,B,C)
"svg_tt(`plug')" below at P1.s+(0,-0.1)
"svg_tt(`plug(,R)')" below at P2.s+(0,-0.1)
"svg_tt(`plug(,3)')" below at P4.s+(-0.1,-0.1)
"svg_tt(`plug(L,3R)')" below at P5.s+(0.1,-0.1)
]
L: [ right_
J1: jack
thinlines_
"svg_it(L)" wid 0.1 rjust at J1.L
arrow <- right 0.1 from J1.F; "svg_it(F)" ljust
arrow <- down 0.1 left 0.1 from J1.G ; "svg_it(G)" rjust
arrow <- up 0.1 left 0.1 from J1.H ; "svg_it(H)" rjust
thicklines_
J3: jack(L,RLS) with .F at J1.F+(0.4,0)
"svg_it(L)" ljust at J3.L
"svg_it(S)" ljust at J3.S
J2: jack(,LMBS) with .F at J3.F+(1.5,0)
thinlines_
"svg_it(L)" rjust at J2.L
arrow <- from J2.LM left 0.25; "svg_it(L)M" wid 0.18 rjust
arrow <- from J2.LB left 0.25; "svg_it(L)B" rjust
"svg_it(S)" rjust at J2.S
thicklines_
J11: jack(,LMBSX) with .w at last [].e+(0.5,0)
foreach_(`Y',`"svg_small(svg_it(Y))" rjust at J11.Y.w', L,LM,LB,S,G)
J8: jack(,XLLBSSBC) with .sw at last [].se+(0.75,0)
foreach_(`Y',`"svg_small(svg_it(Y))" rjust at J8.Y.w', L,L1,LB1,S,S1,SB1,G,C)
"svg_tt(`jack')" below at J1.s+(0,-0.15)
"svg_tt(`..(L,RLS)')" at (J3,last "")
"svg_tt(`..(,LMBS)')" at (J2,last "")
"svg_tt(`..(,LMBSX)')" at (J11,last "")
"svg_tt(`..(,XLLBSSBC)')" wid 80bp__ at (J8, last "")
] with .nw at last [].sw + (0,0.1)
PE
