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