tracingstats:=1;
%prologues:=2;
texlabels := 1;
u:=10bp;
input mpcirc;

beginfig(1)
prepare (R1,R2,C1,C2,V.i,L1,L2,ioc1,ioc2);%,M1;

z0=(10u,10u);
ht:=6u;
dx:=5u;


z1=z0+(0,ht);

C1=.5[z0,z1];
R1t=T.r;
C1t=L2t=V.i.t=R2t=C2t=T.u;%identity rotated 70;%=T.v;
L1t=T.U;
z.o = 0.5[ioc1,ioc2];
valign ioc1,z.o;
halign ioc1,z1;
equally_spaced(dx,0) V.i,C1,L1;
equally_spaced(dx,0) L2,R2,C2,z.o;

L2-L1 = (1.5u,0);

R1=z1-0.5(C1-V.i);

z1-z0 = z3-z2 = z5-z4;
R2=.5[z2,z3];
C2=.5[z4,z5];
%L.lab.ori := 1.5down;				% move it to the other side
setlab.L._.lab ("L")(down)(down);

ioc1lab="+";
ioc1lab.ori=down;
ioc2lab="-";

edraw;

z.m = (0,.6ht);
pickup pencircle scaled normalline;
drawdblarrow L1+z.m..0.5[L1,L2]+z.m+(0,u)..L2+z.m;
label.top("M", 0.5[L1,L2]+z.m+(0,u));

label(indexedtxt("V","o"), z.o);

wire.v(V.i.a,z0);
wire.v(V.i.b,R1a);

wire.v(R1b,z1);

wire(C1a,z0);
wire(C1b,z1);

wire.v(L1a,z0);
wire.v(L1b,z1);

wire(R2a,z2);
wire(R2b,z3);

wire.v(L2a,z2);
wire(z4,z2);
wire.v(L2b,z3);
wire(z5,z3);

wire(C2a,z4);
wire(C2b,z5);

wire(z4,ioc2a);
wire(z5,ioc1a);

junction 1,2,3,4,5;

%egrid(1u);

endfig;
end