.PS
cct_init
movewid = 0.25
   {
Ground: ground

   move right 1
Grnd: ground(,T)

   move right 1.2
Opamp:opamp(right_ elen_) 

thinlines_
   spline <- from Opamp.In1 up 0.1 left 0.1 then up 0.05 left 0.1
   "{\tt In1}sp_" rjust ; dot(at Opamp.In1); 
   spline <- from Opamp.In2 down 0.1 left 0.1 then down 0.05 left 0.1
   "{\tt In2}sp_" rjust ; dot(at Opamp.In2); 
    dot(at Opamp.Out); "{\tt Out}" below

   box dotted ht Opamp.ht wid Opamp.wid with .c at Opamp

thicklines_
   down_
Transformer: transformer(,L) with .w at Opamp.Out+(1.5,0)

thinlines_
   box dotted ht last [].ht wid last [].wid with .c at last [].c

   spline <- from Transformer.P1 up 0.1 left 0.1 then up 0.05 left 0.1
   "{\tt P1}sp_" rjust ; dot(at Transformer.P1)
   spline <- from Transformer.P2 down 0.1 left 0.1 then down 0.05 left 0.1
   "{\tt P2}" rjust ; dot(at Transformer.P2); 

   spline <- from Transformer.S1 up 0.1 right 0.1 then up 0.05 right 0.1
   "sp_{\tt S1}" ljust ; dot(at Transformer.S1)
   spline <- from Transformer.S2 down 0.1 right 0.1 then down 0.05 right 0.1
   "sp_{\tt S2}" ljust ; dot(at Transformer.S2); 
   }

B: Opamp.c+(0,-0.5)

   "{\tt `ground'}" at (Ground,B)
   "{\tt `ground'(,T)}" at (Grnd,B)
   "{\tt `opamp'(right\_ elen\_)}" at (Opamp,B)
   "{\tt down\_; `transformer'(,L)}" at (Transformer,B)
.PE