%
% cap(c,orient,clab,alab)
%
function cap(c,orient,clab,alab)
C = [0 0; 0 -1.5; 0.5 -1.5; -0.5 -1.5; NaN NaN; 0.5 -2.1; -0.5 -2.1; 0 -2.1; 0 -3.6];
C = C';
rot = [0 1;-1 0];
if strcmp(orient,'h') % not functional
    plot(c(1)+R(1,:),c(2)+R(2,:),'k','linewidth',1.5)
    hold on
    text(c(1)+1.8,c(2)+0.5,rlab)%,'fontsize',20)
    a = [0 0; r/2 0; r/2-r/6 .1; r/2 0; r/2-r/6 -.1];
    a = a';
    plot(c(1)+.9+a(1,:),c(2)-0.5+a(2,:),'k','linewidth',1)
    text(c(1)+1,c(2)-1,alab)%,'fontsize',20)
else
    plot(c(1)+C(1,:),c(2)+C(2,:),'k','linewidth',1.5)
    hold on
    text(c(1)+0.75,c(2)-1.8,clab)%,'fontsize',20)
    if strcmp(alab,' ') == 0
        r = 2.5;
        a = [0 0; r/2 0; r/2-r/6 .1; r/2 0; r/2-r/6 -.1];
        a = a';
        a = rot*a;
        plot(c(1)-.8+a(1,:),c(2)-1.25+a(2,:),'k','linewidth',1)
        text(c(1)-1.2,c(2)-1.8,alab)%,'fontsize',20)
    end
end
hold on
axis equal
return