% Switches.m4
.PS
cct_init
movewid = 0.25
moveht = moveht*1.25
  right_; {
    lswitch; rlabel(,`\hbox{\tt `lswitch'}')
    move right_
    lswitch(,,O); rlabel(,`\hbox{\tt (,,O)}')
    move right_
    lswitch(,,C); rlabel(,`\hbox{\tt (,,C)}')
    move right_
    lswitch(,,D); rlabel(,`\hbox{\tt (,,D)}')
    move right_
    lswitch(,,DO); rlabel(,`\hbox{\tt (,,DO)}')
    move right_
    lswitch(,,DC); rlabel(,`\hbox{\tt (,,DC)}')
    }
  move down; right_; {
    lswitch(,,K); rlabel(,`\hbox{\tt (,,K)}')
    move right_
    lswitch(,,KD); rlabel(,`\hbox{\tt (,,KD)}')
    move right_
    lswitch(,,KOD); rlabel(,`\hbox{\tt (,,KOD)}')
    move right_
    lswitch(,,KCD); rlabel(,`\hbox{\tt (,,KCD)}')
    move right_
    bswitch; rlabel(,`\hbox{\tt `bswitch'}')
    move right_
    bswitch(,,C); rlabel(,`\hbox{\tt (,,C)}')
    }
  move down; right_; {
    S: dswitch(,,)
       ifgpic(`{[line invis] at S.c+(0,-0.2)}')
       rlabel(,`\hbox{\tt \shortstack{`dswitch'=\\`switch'(,,,D)}}')
       thinlines_
       { spline <- from 0.25 along_(S) up 0.1 then up 0.05 left 0.1
         "\tt W" rjust
         spline <- from S.c+(0,m4sc*2) up 0.1 then up 0.05 left 0.1
         "\tt B" rjust }
       thicklines_
    move right_
    S: dswitch(,,WdBK); rlabel(,`\hbox{\tt (,,WdBK)}')
       thinlines_
       { spline <- from tr_xy(0,-2) up 0.1 then up 0.10 left 0.1
         "\tt dB" rjust
         spline <- from tr_xy(4,-2) right 0.1 then right 0.05 up 0.15
         "\tt K" above }
       thicklines_
    move right_
    dswitch(,,WBuD); rlabel(,`\hbox{\tt (,,WBuD)}')
    move right_
    dswitch(,,WBF); rlabel(,`\hbox{\tt (,,WBF)}')
    move right_
    dswitch(,,WdBKF); rlabel(,`\hbox{\tt (,,WdBKF)}')
    move right_
    dswitch(,,WBL); rlabel(,`\hbox{\tt (,,WBL)}')
    }
  move down; right_; {
    dswitch(,,WdBKL); rlabel(,`\hbox{\tt (,,WdBKL)}')
    move right_
    dswitch(,,WBT); rlabel(,`\hbox{\tt (,,WBT)}')
    move right_
    dswitch(,,WdBKC); rlabel(,`\hbox{\tt (,,WdBKC)}')
    move right_
    dswitch(,,WBM); rlabel(,`\hbox{\tt (,,WBM)}')
    move right_
    dswitch(,,WBCO); rlabel(,`\hbox{\tt (,,WBCO)}')
    move right_
    dswitch(,,WBMP); rlabel(,`\hbox{\tt (,,WBMP)}')
    }
  move down; right_; {
    dswitch(,,WBCY); rlabel(,`\hbox{\tt (,,WBCY)}')
    move right_
    dswitch(,,WBCZ); rlabel(,`\hbox{\tt (,,WBCZ)}')
    move right_
    dswitch(,,WBCE); rlabel(,`\hbox{\tt (,,WBCE)}')
    move right_
    dswitch(,,WBRH); rlabel(,`\hbox{\tt (,,WBRH)}')
    move right_
    dswitch(,,WBRdH); rlabel(,`\hbox{\tt (,,WBRdH)}')
    move right_
    dswitch(,,WBRHH); rlabel(,`\hbox{\tt (,,WBRHH)}')
    }
  move down; right_; {
    dswitch(,,WBMMR); rlabel(,`\hbox{\tt (,,WBMMR)}')
    move right_
    dswitch(,,WBMM); rlabel(,`\hbox{\tt (,,WBMM)}')
    move right_
    dswitch(,,WBMR); rlabel(,`\hbox{\tt (,,WBMR)}')
    move right_
    dswitch(,,WBEL); rlabel(,`\hbox{\tt (,,WBEL)}')
    move right_
    dswitch(,,WBLE); rlabel(,`\hbox{\tt (,,WBLE)}')
    move right_
    dswitch(,,WdBKEL); rlabel(,`\hbox{\tt (,,WdBKEL)}')
    }

.PE