.PS cct_init # Usual defs... qrt=dimen_/4; hlf=dimen_/2; dim=dimen_; Q1:bi_tr(up_,R,,); ground(at Q1.E) line from Q1.B right_ hlf Q2:bi_tr(up_,,,) with .B at Here ground(at Q2.E) move to Q1.B then right_ qrt;dot line up_ hlf line to (Q1.C, Here);dot resistor(up_ 1.5*dim); llabel(,R,); b_current(I_\mathrm{ref},,,End) dot; move up_ dim/10; right_;"$V_\mathrm{CC}$" above_ move to Q2.C dot; {line right_ hlf; "$V_o$" ljust_} line dotted up_; b_current(I_o,,Out) "\tiny Mirror" at (2*dim,-1*dim) .PE