function [x1,y1] = outcoil(c)
% OUTCOIL
%  The function OUTCOIL(c) returns no arguments.  It simply
% draws on the screen the coil pattern stored in the matrix c.
% 
% SEE ALSO:  BCOIL, INCOIL, RECOIL.
%

plot(1,1),axis([-1 1 -1 1]),hold on

[n,m]=size(c);

  x1 = [c(:,1)-c(:,3).*cos(c(:,4))/2 c(:,1)+c(:,3).*cos(c(:,4))/2];
  y1 = [c(:,2)-c(:,3).*sin(c(:,4))/2 c(:,2)+c(:,3).*sin(c(:,4))/2];
 


line(x1',y1')
title('Coil Pattern')
shg

hold off