[]=parallelplot1(j_vars, bases, ends, lengths)

function []=parallelplot1(j_vars, bases, ends, lengths)
syms th1 th2 bx by l1 l2;
% clf('reset');
axis manual;
scope=10;
axis([-scope scope -scope scope]);
hold on;
% fill(ends(:,1),ends(:,2),'y');
% x=ends(:,1);
% y=ends(:,2);
% cx=(x(1)+x(3))/2;
% cy=(y(2)+y(4))/2;
% axis1x=[x(1);x(3)];
% axis1y=[y(1);y(3)];
% axis2x=[x(2);x(4)];
% axis2y=[y(2);y(4)];
% plot(axis2x,axis2y,'r','linewidth',2);
% plot(axis1x,axis1y,'r','linewidth',2);
xy3=zeros(5,2);
for i=1:4
    xy3(i,:)=serialplot(j_vars(1,i*3-2:i*3),bases(i,:),lengths(i,:),i);
%     plotsx=[cx ends(i,1)];
%     plotsy=[cy ends(i,2)];
%     plot(plotsx,plotsy);
%     arc(bases(i,:),lengths(1)+lengths(2),0,2*pi);
end
xy3(5,:)=xy3(1,:);
plot(xy3(:,1),xy3(:,2),'color','m');
% arc([0 0],4,0,2*pi);
pause(0.1);
return