.PS
# `RotarySwitchDPV.m4'
cct_init

  movewid /= 3
 RS1: RotarySwitch
  {"svg_it(C)" at RS1.C.s below
   "svg_it(P1)" at RS1.P1.e ljust
   "svg_it(P4)" at RS1.P4.e ljust
   thinlines_; arrow <- from RS1.Wiper1.c up_ RS1.P4.y-RS1.Wiper1.c.y
   "svg_it(Wiper1)" above; thicklines_
   "svg_tt(RS1)" at RS1.s+(0,-12bp__)}
move
 RS2: RotarySwitch(-45:45,wline=;segments=30:60)
  {"svg_tt(RS2)" at (RS2,last "")}
move
 RS3: RotarySwitch(0:180,poles=10;wipers=nil;segments=-4:44 & 156:184;)
  {"svg_tt(RS3)" at (RS3,last "")
   "svg_it(Seg1)" at RS3.Seg1.start below
   "svg_it(Seg2)" at RS3.Seg2.end below}
move
 RS4: RotarySwitch(0:180,
  poles=10;
  wipers=B:180:Arc.rad-C.diam;
  segments=14:166:Arc.rad-C.diam*3/2;,
  Wiper2: arrow from C down_ dimen_/5 then left_ Arc.rad chop C.rad)
  {"svg_tt(RS4)" at (RS4,3rd last "")}
move
 RS5: RotarySwitch(0:180,circle=rad dotrad_;poles=23;wipers=B:8 & B:188,
  Seg1: line from C to C+(Rect_(Arc.rad,-10)) then to P1 chop C.rad
  C: circle rad C.rad*3 at C fill_(1))
  {"svg_tt(RS5)" at (RS5,last "")}
move
 RS6: RotarySwitch(-30:210,poles=16;wline=thick C.diam/(1bp__))
  {"svg_tt(RS6)" at (RS6,last "")
   "svg_it(P1)" at RS6.P1.s below
   "svg_it(P16)" at RS6.P16.s below}
.PE