%headplot.m ritar upp huvudet i cm sett ovanifrån.

earylength=4;
earxlength=1;

headylength=20;
headxlength=15;

refear1y=-1;				%höger öra
refear1x=headxlength/2+earxlength/2;

refear2x=-(headxlength/2+earxlength/2);	%vänster öra
refear2y=-1;

refheadx=0;
refheady=1;

%rita upp huvudet
x=(-headxlength/2):0.2:(headxlength/2);
y=abs(((1-x.^2./(headxlength/2)^2).*(headylength/2)^2).^(1/2));
y1=-y;
plot((refheadx+x),(y+refheady),'k'); hold on;
plot((refheadx+x),(y1+refheady),'k'); hold on;

%rita upp höger öra
x=(-earxlength/2):0.1:(earxlength/2);
y=abs(((1-x.^2./(earxlength/2)^2).*(earylength/2)^2).^(1/2));
y1=-y;
plot((refear1x+x),(y+refear1y),'k'); hold on;
plot((refear1x+x),(y1+refear1y),'k'); hold on;

%rita upp vänster öra
x=(-earxlength/2):0.1:(earxlength/2);
y=abs(((1-x.^2./(earxlength/2)^2).*(earylength/2)^2).^(1/2));
y1=-y;
plot((refear2x+x),(y+refear2y),'k'); hold on;
plot((refear2x+x),(y1+refear2y),'k'); hold on;

