input global; input makecirc; extrawire = u/2; beginfig(1) for i=0 upto 5: theta := 90 + i*60; $:=scantokens(char(97+i)); resistor.$(extrawire* dir theta,normal,theta,"",""); draw o--R.$.l; z[i] = R.$.r + (extrawire*dir theta); draw R.$.r--z[i]; drawdot z[i] withpen dotpen; centreof.$(z[i],z[i] rotated 60,res); foo:=scantokens(char(97+i+6)); resistor.foo(c.$,normal,theta+120,"",""); draw R.foo.l--z[i]; draw R.foo.r--(z[i] rotated 60); endfor; drawdot o withpen dotpen; puttext.top("$A$",z0 + (0,u/7)); puttext.bot("$B$",z3 - (0,u/7)); endfig; end