PS
# `Resolver.m4'
cct_init
s_init(tst)
sinclude(tst.dim)

iflatex(`latexcommand({\scriptsize\sf)')

[
linewid = linewid*1.25
define(`dotrad_',dotrad_/2)

 T1: transformer(down_ dimen_/2)
   line left from T1.P1; dot; move left 15bp__ "RH"
   line left from T1.P2; dot; "RL" rjust
  "Rotor ($r$)" at T1.TP rjust
   line right_ dimen_*3/4 from T1.S2
 C: Here
   phi = 35
   move right_ 0.1 from T1.S1; move from C to C+(Rect_(0.1,90+phi))
 Q: Intersect_(last move,2nd last move)
 Lr: inductor(from Q to C)
 S1: line from T1.S1 to Q
 A: C+(Rect_(dimen_*0.9,90+phi))
 thinlines_
   line dashed from Q to A chop 2bp__ chop 0
  "Rotor shaft" at last line.end rjust "angle" rjust "" rjust
   line dashed from C up_ dimen_*0.9 chop 2bp__ chop 0
   arcd(C,dimen_*0.85,90,90+phi) ->
 thicklines_
   f_box($\phi$) at C+(Rect_(dimen_*0.85,90+phi/2))

   d = distance(T1.P1,T1.P2)
 Ls: inductor(up_ d from C+(d/2,0))
   line right_ from Ls.end
 D2: dot; "S2" ljust
   line from Ls.start to (D2,Ls.start); dot; "S4" ljust
  "$Kr\cos(\phi)$" at 0.5 between last "" and 2nd last ""
 Lq: inductor(right_ d at (Lr,(C+(0,-d/3))))
   line from Lq.end down_ d/4
 K: Here; corner; line to (D2,K); dot; "S3" ljust
   line from Lq.start down_ d*5/4
 L: Here; corner; line to (D2,L); dot; "S1" ljust
  "$Kr\sin(\phi)$" at 0.5 between last "" and 2nd last ""
]
"Resolver essentials" at last [].s below

iflatex(`latexcommand(})')
PE