% `Misc+.m4'

define(`trlabels',
 `{ thinlines_
    ifelse(`$1',R,
     `arrow from `$3'.P1 <- right .1 up .06 ; "\sl P1" ljust
      arrow from `$3'.P2 <- right .1 down .06 ; "\sl P2" ljust
      arrow from `$3'.S1 <- left .1 up .06 ; "\sl S1" rjust
      arrow from `$3'.S2 <- left .1 down .06 ; "\sl S2" rjust ',
     `arrow from `$3'.P1 <- left .1 up .06 ; "\sl P1" rjust
      arrow from `$3'.P2 <- left .1 down .06 ; "\sl P2" rjust
      arrow from `$3'.S1 <- right .1 up .06 ; "\sl S1" ljust
      arrow from `$3'.S2 <- right .1 down .06 ; "\sl S2" ljust ')
    `"'\tt `$2'`"' at `$3'.s+(0,-.30)
  thicklines_ } ')

.PS
cct_init

E:[
Opamp:opamp(right_ elen_) 
thinlines_
   spline <- from Opamp.In1 up 0.1 left 0.1 then up 0.05 left 0.1
   "{\sl In1}sp_" rjust ; dot(at Opamp.In1); 
   spline <- from Opamp.In2 down 0.1 left 0.1 then down 0.05 left 0.1
   "{\sl In2}sp_" rjust ; dot(at Opamp.In2); 
    dot(at Opamp.Out); "{\sl Out}" below

B: Opamp.c+(0,-0.5)
  "{\tt `opamp'(right\_ elen\_)}" at (Opamp,B)

thicklines_
   down_

  T1: transformer with .w at Opamp.e+(1,-0.020)
      trlabels(,`transformer',T1)
  T2: transformer(down_ 0.6,,2,,8) with .sw at T1.se+(1.8,0)
      trlabels(,`transformer(down\_ 0.6,,2,,8)',T2)
  T3: transformer(,,8,,4) with .nw at Opamp.sw+(0.4,-0.75)
      trlabels(,`transformer(,,8,,4)',T3)
  T4: transformer(,,8,A) with .sw at T3.se+(1.8,0)
      trlabels(,`transformer(,,8,A)',T4)
  T5: transformer(,R,8,A) with .sw at T4.se+(1.8,0)
      trlabels(R,`transformer(,R,8,A)',T5)
]

thicklines_
movewid = 1
Ground: ground(at last [].sw+(.25,-.4))
   move right
G1: ground(,T)
   move right
G2: ground(,,F)

B: Here+(0,-.5) ; {
   "{\tt `ground'}" at (Ground,B)
   "{\tt `ground'(,T)}" at (G1,B)
   "{\tt `ground'(,,F)}" at (G2,B)}

move right; G3: ground(,,S)
   move right
G4: ground(,,L)
   move right
G5: ground(,,P)

C: Here+(0,-.5)
   "{\tt `ground'(,,S)}" at (G3,C)
   "{\tt `ground'(,,L)}" at (G4,C)
   "{\tt `ground'(,,P)}" at (G5,C)
.PE