% plot a Jansen linkage, given standard node locations
function plotJansen(nodes,sym,lw)
if (nargin < 2), sym = 'b'; end
if (nargin < 3), lw = 1; end
a = nodes(1:2);
b = nodes(3:4);
c = nodes(5:6);
d = nodes(7:8);
e = nodes(9:10);
f = nodes(11:12);
g = nodes(13:14);
h = nodes(15:16);
%hold off;
plot(a(1),a(2),'ko');
hold on;
%plot(c(1),c(2),'ko');
plot(b(1),b(2),'ko');
plot([a(1),c(1)],[a(2),c(2)],sym,'linewidth',lw);
plot([c(1),d(1)],[c(2),d(2)],sym,'linewidth',lw);
plot([b(1),d(1)],[b(2),d(2)],sym,'linewidth',lw);
plot([b(1),e(1)],[b(2),e(2)],sym,'linewidth',lw);
plot([b(1),h(1)],[b(2),h(2)],sym,'linewidth',lw);
plot([e(1),d(1)],[e(2),d(2)],sym,'linewidth',lw);
plot([e(1),f(1)],[e(2),f(2)],sym,'linewidth',lw);
plot([g(1),f(1)],[g(2),f(2)],sym,'linewidth',lw);
plot([h(1),f(1)],[h(2),f(2)],sym,'linewidth',lw);
plot([h(1),c(1)],[h(2),c(2)],sym,'linewidth',lw);
plot([h(1),g(1)],[h(2),g(2)],sym,'linewidth',lw);
end




