.PS # Switches.m4 cct_init movewid = 0.25 # Row 1 right_; { lswitch; {S:"\tt ls{}witch" at last [].s+(0,-10bp__)} move right_ lswitch(,,O); {"\tt (,,O)" at (last [],S)} move right_ lswitch(,,C); {"\tt (,,C)" at (last [],S)} move right_ lswitch(,,DA); {"\tt (,,DA)" at (last [],S)} move right_ lswitch(,,dDO); {"\tt (,,dDO)" at (last [],S)} move right_ lswitch(,,uDC); {"\tt (,,uDC)" at (last [],S)} } # Row 2 move down; right_; { lswitch(,,K); {S:"\tt (,,K)" at last [].s+(0,-10bp__)} move right_ lswitch(,,KD); {"\tt (,,KD)" at (last [],S)} move right_ lswitch(,,KOD); {"\tt (,,KOD)" at (last [],S)} move right_ lswitch(,,KCD); {"\tt (,,KCD)" at (last [],S)} move right_ bswitch; {"\tt `bswitch'" at (last [],S)} move right_ bswitch(,,C); {"\tt (,,C)" at (last [],S)} } # Row 3 move down; right_; { D: dswitch(,,); {S: "\tt ds{}witch(,{},)" at last [].s+(0,-10bp__)} thinlines_ { spline <- from 0.25 along_(D) up 0.1 then up 0.05 left 0.1 {"\tt W" rjust} spline <- from D.c+(0,m4sc*2) up 0.1 then up 0.05 left 0.1 {"\tt B" rjust }} thicklines_ move right_ D: dswitch(,,WdBK); {"\tt (,,WdBK)" at (last [],S)+(0,-4bp__)} 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(,,WBmdDK); {"\tt (,,WBmdDK)" at (last [],S)} move right_ dswitch(,,WBKTr); {"\tt (,,WBKTr)" at (last [],S)} move right_ dswitch(,,WdBL); {"\tt (,,WdBL)" at (last [],S+(0,-4bp__))} move right_ dswitch(,,WBCo); {"\tt (,,WBCo)" at (last [],S)} } # Row 4 move down; right_; { dswitch(,,WBKCo); {S: "\tt (,,WBKCo)" at last [].s+(0,-10bp__)} move right_ dswitch(,,WBCb); {"\tt (,,WBCb)" at (last [],S)} move right_ dswitch(,,WBDI); {"\tt (,,WBDI)" at (last [],S)} move right_ dswitch(,,WBSd); {"\tt (,,WBSd)" at (last [],S)} move right_ dswitch(,,WBFDI); {"\tt (,,WBFDI)" at (last [],S)} move right_ dswitch(,,WBFSd); {"\tt (,,WBFSd)" at (last [],S)} } # Row 5 move down moveht*5/4; right_; { dswitch(,,WBTh); {S: "\tt (,,WBTh)" at last [].s+(0,-10bp__)} move right_ dswitch(,,WBKC); {"\tt (,,WBKC)" at (last [],S)} move right_ dswitch(,,WBM); {"\tt (,,WBM)" at (last [],S)} move right_ dswitch(,,WBCO); {"\tt (,,WBCO)" at (last [],S)} move right_ dswitch(,,WBMP); {"\tt (,,WBMP)" at (last [],S)} move right_ dswitch(,,WBoKCP); {"\tt (,,WBoKCP)" at (last [],S)} } # Row 6 move down moveht*5/4; right_; { dswitch(,,WBCY); {S: "\tt (,,WBCY)" at last [].s+(0,-10bp__)} move right_ dswitch(,,WBCZ); {"\tt (,,WBCZ)" at (last [],S)} move right_ dswitch(,,WBCE); {"\tt (,,WBCE)" at (last [],S)} move right_ dswitch(,,WBRH); {"\tt (,,WBRH)" at (last [],S)} move right_ dswitch(,,WBRdH); {"\tt (,,WBRdH)" at (last [],S)} move right_ dswitch(,,WBRHH); {"\tt (,,WBRHH)" at (last [],S)} } # Row 7 move down; right_; { dswitch(,,WBMMR); {S: "\tt (,,WBMMR)" at last [].s+(0,-10bp__)} move right_ dswitch(,,WBMM); {"\tt (,,WBMM)" at (last [],S)} move right_ dswitch(,,WBMR); {"\tt (,,WBMR)" at (last [],S)} move right_ dswitch(,,WBEL); {"\tt (,,WBEL)" at (last [],S)} move right_ dswitch(,,WBLE); {"\tt (,,WBLE)" at (last [],S)} move right_ dswitch(,,WBoKEL); {"\tt (,,WBoKEL)" at (last [],S)} } .PE