clear all; close all; 
clf

m1 = [0; 180];
m2 = [0; 0];

mb1 = [0; 140];
mb2 = [0; 100];

n1 = [-75; 86];
n2 = [-75; 0];

nb1 = [-75; 80];
nb2 = [0; 0];

p1 = [125; 130];
p2 = [125; 0];

pb1 = [125; 100];
pb2 = [0; 0];

n = 7;

trunkColor = [.35 .6 .43];
trunkColor2 = [1, .5, .8];
armwidth = 1;

f = 0;

%draws the trunk
line([m1(1) m2(1)], [m1(2) m2(2)], 'Linewidth', 7, 'Color', trunkColor);
line([n1(1) n2(1)], [n1(2) n2(2)], 'Linewidth', 4, 'Color', trunkColor);
line([p1(1) p2(1)], [p1(2) p2(2)], 'Linewidth', 6, 'Color', trunkColor);

%two branches I made when I was first figuring out the
%line function; its a sentimental thing
%line([n1(1) n2(1)], [n1(2) n2(2)], 'Linewidth', 4, 'Color', trunkColor);
%line([p1(1) p2(1)], [p1(2) p2(2)], 'Linewidth', 4, 'Color', trunkColor);
colordef black


pause
redarms(mb1, m2, n, armwidth, trunkColor);
pause
pinkarms(nb1, n2, n, armwidth, trunkColor);
pause
plantarms(pb1, p2, n, armwidth, trunkColor);


axis('equal','on');
title('A Slow and Unusual Spring')
axis([-140 180 0 270])

