oneRev.m

function [] = oneRev(L2, L3, L4, L1, L3O)
t1 = 0;
lens = [L2, L3, L4, L1];

t2 = [0:1:360];
angles = fourbarR(lens, 180-t1, t2, 1);
t3 = angles(1,:);
t4 = angles(2,:);
Pxi = L2*cosd(t2) + (L3 + L3O)*cosd(t3);
Py = L2*sind(t2) + (L3 + L3O)*sind(t3);

figure(2)
plot(Pxi, Py)
title('Trajectory of Stationary Fourbar, No Tilt')

end