.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